summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorkcwu <kcwu@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2002-07-23 21:30:11 +0800
committerkcwu <kcwu@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2002-07-23 21:30:11 +0800
commitbfe4e3f31748e2f8f7345cf7fbff7105db5cb750 (patch)
treea7743b32357d971fcb939b6e5f48ea8c91423abc
parent885a3f467ee9544866327cc818681469f8a4e02d (diff)
downloadpttbbs-bfe4e3f31748e2f8f7345cf7fbff7105db5cb750.tar
pttbbs-bfe4e3f31748e2f8f7345cf7fbff7105db5cb750.tar.gz
pttbbs-bfe4e3f31748e2f8f7345cf7fbff7105db5cb750.tar.bz2
pttbbs-bfe4e3f31748e2f8f7345cf7fbff7105db5cb750.tar.lz
pttbbs-bfe4e3f31748e2f8f7345cf7fbff7105db5cb750.tar.xz
pttbbs-bfe4e3f31748e2f8f7345cf7fbff7105db5cb750.tar.zst
pttbbs-bfe4e3f31748e2f8f7345cf7fbff7105db5cb750.zip
fix lynx big5 encoding problem
reported by lihgong(嚙篆嚙稽) on ptt2/PttSrc git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@437 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
-rw-r--r--util/weather.perl5
1 files changed, 3 insertions, 2 deletions
diff --git a/util/weather.perl b/util/weather.perl
index 276ba8a5..88d380c1 100644
--- a/util/weather.perl
+++ b/util/weather.perl
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: weather.perl,v 1.2 2002/07/04 09:33:10 in2 Exp $
+# $Id: weather.perl,v 1.3 2002/07/23 13:30:11 kcwu Exp $
#
# 不能跑的話,看看 bbspost 的路徑是否正確。
# 如果發出的 post 沒有氣象報告而是說 URL 找不到,則確定一下能不能看到
@@ -15,7 +15,8 @@ close DATE;
# Header
# 內容
-open(WEATHER, "/usr/bin/lynx -dump http://www.cwb.gov.tw/V3.0/weather/text/W03.htm |");
+open(WEATHER, "/usr/bin/lynx -assume_charset=big5 -assume_local_charset=big5 -dump http://www.cwb.gov.tw/V3.0/weather/text/W03.htm |");
+
while (<WEATHER>) {
print BBSPOST if ($_ ne "\n");
}