18 lines
622 B
Text
18 lines
622 B
Text
--- GrabWeather.orig Sun Feb 27 08:54:47 2005
|
|
+++ GrabWeather Sun Feb 27 08:54:47 2005
|
|
@@ -1,4 +1,4 @@
|
|
-#!/usr/bin/perl
|
|
+#!/usr/bin/env perl
|
|
|
|
#
|
|
# Grabs the latest local weather conditions from the
|
|
@@ -40,8 +40,7 @@
|
|
# 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.
|