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 <[email protected]>
# 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);
