summaryrefslogtreecommitdiffstats
path: root/util/weather.perl
diff options
context:
space:
mode:
authorscw <scw@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2004-04-08 00:03:44 +0800
committerscw <scw@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2004-04-08 00:03:44 +0800
commitdd02d14086784af37396700c50c201a0077e7f05 (patch)
treef079c00bdf4635b1ec1fa34c9efad5e993fc4c45 /util/weather.perl
parent207ed6cf4ce0603d1ba551f0f44ece4c5e2650b0 (diff)
downloadpttbbs-dd02d14086784af37396700c50c201a0077e7f05.tar
pttbbs-dd02d14086784af37396700c50c201a0077e7f05.tar.gz
pttbbs-dd02d14086784af37396700c50c201a0077e7f05.tar.bz2
pttbbs-dd02d14086784af37396700c50c201a0077e7f05.tar.lz
pttbbs-dd02d14086784af37396700c50c201a0077e7f05.tar.xz
pttbbs-dd02d14086784af37396700c50c201a0077e7f05.tar.zst
pttbbs-dd02d14086784af37396700c50c201a0077e7f05.zip
open output file instead of pipe.
git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@1716 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'util/weather.perl')
-rw-r--r--util/weather.perl2
1 files changed, 1 insertions, 1 deletions
diff --git a/util/weather.perl b/util/weather.perl
index 690c84fa..0c3ce208 100644
--- a/util/weather.perl
+++ b/util/weather.perl
@@ -16,7 +16,7 @@ weather_report('etc/weather.tomorrow', 'ftp://ftpsv.cwb.gov.tw/pub/forecast/W003
sub weather_report
{
my ($file, $link) = @_;
- open(BBSPOST, "| $file");
+ open(BBSPOST, "> $file");
# Header
# ¤º®e