diff options
| -rw-r--r-- | sample/LocalVars.pm | 1 | ||||
| -rw-r--r-- | util/weather.perl | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/sample/LocalVars.pm b/sample/LocalVars.pm index 7b5d7c9f..13a5d0cc 100644 --- a/sample/LocalVars.pm +++ b/sample/LocalVars.pm @@ -25,6 +25,7 @@ $TMP = '/tmp'; # program $TAR = '/usr/bin/tar'; $LYNX = '/usr/local/bin/lynx'; # /usr/ports/www/lynx +$WGET = '/usr/local/bin/wget'; # /usr/ports/www/wget $GREP = '/usr/bin/grep'; # BLOG: diff --git a/util/weather.perl b/util/weather.perl index 36d773d7..27c08d47 100644 --- a/util/weather.perl +++ b/util/weather.perl @@ -20,7 +20,7 @@ sub weather_report # Header # ¤º®e - open(WEATHER, "$LYNX -assume_charset=big5 -assume_local_charset=big5 -dump -nolist $link|"); + open(WEATHER, "$WGET --quiet -O - $link|"); while (<WEATHER>) { print BBSPOST if ($_ ne "\n"); |