diff options
Diffstat (limited to 'misc/gkrellweather2/files/patch-GrabWeather')
-rw-r--r-- | misc/gkrellweather2/files/patch-GrabWeather | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/misc/gkrellweather2/files/patch-GrabWeather b/misc/gkrellweather2/files/patch-GrabWeather deleted file mode 100644 index 9c1411eae493..000000000000 --- a/misc/gkrellweather2/files/patch-GrabWeather +++ /dev/null @@ -1,27 +0,0 @@ ---- GrabWeather.orig 2009-01-11 18:15:02 UTC -+++ GrabWeather -@@ -1,4 +1,4 @@ --#!/usr/bin/perl -+#!/usr/bin/env perl - - # - # Grabs the latest local weather conditions from the -@@ -12,7 +12,7 @@ - - $ReportDir = '.wmWeatherReports'; - #$WeatherSrc = 'ftp://weather.noaa.gov/data/observations/metar/decoded'; --$WeatherSrc = 'http://weather.noaa.gov/pub/data/observations/metar/decoded'; -+$WeatherSrc = 'http://tgftp.nws.noaa.gov/data/observations/metar/decoded'; - - use strict; - use vars qw( $ReportDir $WeatherSrc ); -@@ -40,8 +40,7 @@ my $DataFileName = "$StationID.dat"; - # Is LWP installed? - eval { require LWP::UserAgent }; - if ($@) { -- my $cmd = qq{wget --proxy=off --passive-ftp --tries=0 --quiet } . -- qq{--output-document=$home/$ReportDir/$HTMLFileName $URL}; -+ my $cmd = qq{fetch -d -p -1 -q -o $home/$ReportDir/$HTMLFileName $URL}; - `$cmd` == 0 or die "unable to fetch weather: $?"; - } else { - $ENV{FTP_PASSIVE} = 1; # LWP uses Net::FTP internally. |