astro/wmspaceweather various fixes

[Michael]

Hi there,

Second attempt for this.

Various fixes:
- Updated NOAA URLs
- Silence ftp
- ctime.pl -> Time::localtime

I would also like to add myself as maintainer.


Index: Makefile
===================================================================
RCS file: /cvs/ports/astro/wmspaceweather/Makefile,v
retrieving revision 1.32
diff -u -p -r1.32 Makefile
--- Makefile    24 Nov 2015 09:11:03 -0000      1.32
+++ Makefile    27 Apr 2016 19:25:30 -0000
@@ -4,8 +4,10 @@ COMMENT=               wm-dockapp; space weather moni
 
 DISTNAME=              wmSpaceWeather-1.04
 PKGNAME=               ${DISTNAME:L}
-REVISION=              5
+REVISION=              6
 CATEGORIES=            astro x11 x11/windowmaker
+
+MAINTAINER=            Michael <michi+open...@dataswamp.org>
 
 # GPL
 PERMIT_PACKAGE_CDROM=  Yes
Index: patches/patch-GetKp
===================================================================
RCS file: /cvs/ports/astro/wmspaceweather/patches/patch-GetKp,v
retrieving revision 1.3
diff -u -p -r1.3 patch-GetKp
--- patches/patch-GetKp 20 Jun 2008 10:49:42 -0000      1.3
+++ patches/patch-GetKp 27 Apr 2016 19:25:30 -0000
@@ -1,9 +1,12 @@
 $OpenBSD: patch-GetKp,v 1.3 2008/06/20 10:49:42 martynas Exp $
 --- wmSpaceWeather/GetKp.orig  Fri Feb 12 06:42:01 1999
-+++ wmSpaceWeather/GetKp       Thu Jun 19 20:41:26 2008
-@@ -7,19 +7,31 @@
++++ wmSpaceWeather/GetKp       Fri Mar  4 00:26:02 2016
+@@ -5,21 +5,33 @@
+ #
  
-     require "ctime.pl";
+ 
+-    require "ctime.pl";
++    use Time::localtime;
  
 +    #
 +    #  Change to users home directory. We used to dump into /tmp
@@ -37,11 +40,11 @@ $OpenBSD: patch-GetKp,v 1.3 2008/06/20 1
  
 -    $grabcmd = "cd /tmp; wget --passive-ftp --tries 2 -q 
ftp://www.sec.noaa.gov/pub/indices/DGD.txt";;
 +
-+    $grabcmd = "ftp -V ftp://www.sec.noaa.gov/pub/indices/DGD.txt";;
++    $grabcmd = "ftp -VM ftp://ftp.swpc.noaa.gov/pub/indices/DGD.txt";;
      system "$grabcmd";
  
  
-@@ -37,7 +49,7 @@
+@@ -37,7 +50,7 @@
      $Kp{190001018} = 999;
  
  
@@ -50,12 +53,12 @@ $OpenBSD: patch-GetKp,v 1.3 2008/06/20 1
      while (<TmpFile>){
          chop;
        if ($_ =~ /^\d{4} \d{2} \d{2}\s*\d*/ ){
-@@ -68,12 +80,12 @@
+@@ -68,12 +81,12 @@
      #
      # Add in very latest stuff
      #
 -    $grabcmd = "cd /tmp; wget --passive-ftp --tries 2 -q 
ftp://www.sec.noaa.gov/pub/latest/curind.txt";;
-+    $grabcmd = "ftp -V ftp://www.sec.noaa.gov/pub/latest/curind.txt";;
++    $grabcmd = "ftp -VM ftp://ftp.swpc.noaa.gov/pub/latest/curind.txt";;
      system "$grabcmd";
      %lmonstr = ( "Jan", 1, "Feb", 2, "Mar", 3, "Apr", 4, "May", 5, "Jun", 6, 
"Jul", 7, "Aug", 8, "Sep", 9, "Oct", 10, "Nov", 11, "Dec", 12);
  
@@ -65,7 +68,7 @@ $OpenBSD: patch-GetKp,v 1.3 2008/06/20 1
      while (<TmpFile>){
          chop;
        if ($_ =~ /^:Geomagnetic_Values: (\d{4}) (.*) (\d{1,2})/){
-@@ -133,7 +145,7 @@
+@@ -133,7 +146,7 @@
        }
      }
  
@@ -74,3 +77,12 @@ $OpenBSD: patch-GetKp,v 1.3 2008/06/20 1
      foreach $key  (sort keys %Result ) {
        if ($Result{$key} > 10) { $Result{$key} = -1; }
        printf TmpFile "$key $Result{$key}\n";
+@@ -201,7 +214,7 @@ sub year_month_day{
+ 
+     local($ldate_string, $ldow, $lmon, $ldom, $ltim, $lyear, %lmonstr, 
$tzone, @lval);
+ 
+-    $ldate_string = &ctime(time);
++    $ldate_string = ctime(time);
+     ($ldow, $lmon, $ldom, $ltim, $lyear) = split(" ", $ldate_string);
+ 
+     %lmonstr = ( "Jan", 1, "Feb", 2, "Mar", 3, "Apr", 4, "May", 5, "Jun", 6, 
"Jul", 7, "Aug", 8, "Sep", 9, "Oct", 10, "Nov", 11, "Dec", 12);