From: minima <minima>
Date: Tue, 18 Dec 2001 12:30:25 +0000 (+0000)
Subject: remove leading and trailing spaces
X-Git-Tag: R_1_50~130
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=7e52fbc3bb33cb82a7e31f0dfef7fb55e516177a;p=spider.git

remove leading and trailing spaces
---

diff --git a/cmd/wcy.pl b/cmd/wcy.pl
index 4d0122b9..58b3c40f 100644
--- a/cmd/wcy.pl
+++ b/cmd/wcy.pl
@@ -35,6 +35,7 @@ my $hour = (gmtime $main::systime)[2];
 my $d = int ($main::systime / 3600) * 3600 + 18 * 60; 
 
 # make a hash out of the args
+$line = unpad($line);
 my %args = map {split /\s*=\s*/} split /\s*,\s*/, lc $line;
 
 # check the ranges of each one
diff --git a/cmd/wwv.pl b/cmd/wwv.pl
index 3b0397fc..9ff5cb58 100644
--- a/cmd/wwv.pl
+++ b/cmd/wwv.pl
@@ -36,9 +36,10 @@ my @out;
 my $hour = (gmtime $main::systime)[2];
 my $d = int ($main::systime / 3600) * 3600 + 18 * 60; 
 
+$line = unpad($line);
+
 my @l = split /\s*,\s*/, $line;
 my $forecast = pop @l;
-$forecast = unpad($forecast);
 
 # make a hash out of the args
 my %args = map {split /\s*=\s*/, lc $_} @l;