diff options
| author | scw <scw@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2004-04-08 00:03:44 +0800 |
|---|---|---|
| committer | scw <scw@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2004-04-08 00:03:44 +0800 |
| commit | dd02d14086784af37396700c50c201a0077e7f05 (patch) | |
| tree | f079c00bdf4635b1ec1fa34c9efad5e993fc4c45 | |
| parent | 207ed6cf4ce0603d1ba551f0f44ece4c5e2650b0 (diff) | |
| download | pttbbs-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
| -rw-r--r-- | util/weather.perl | 2 |
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 |