summaryrefslogtreecommitdiff
path: root/misc/gkrellweather2/files/patch-GrabWeather
diff options
context:
space:
mode:
Diffstat (limited to 'misc/gkrellweather2/files/patch-GrabWeather')
-rw-r--r--misc/gkrellweather2/files/patch-GrabWeather27
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.