diff options
author | Anthony Fok <foka> | 2001-12-27 19:35:28 +0000 |
---|---|---|
committer | Anthony Fok <foka> | 2001-12-27 19:35:28 +0000 |
commit | 56887ab485a932220786a1e6583267653b573a78 (patch) | |
tree | 81815a750e19e85abc0c253bbdfa550f75ee1d3e /chinese/bin | |
parent | f583d58a02201d5ffd33d236e756730692e46405 (diff) |
Fixed Chinese encoding problem (because I used case-sensitive search...
Silly me. :-)
CVS version numbers
chinese/.wmlrc: 1.7 -> 1.8
chinese/bin/tocn.pl: 1.24 -> 1.25
chinese/bin/totw.pl: 1.25 -> 1.26
Diffstat (limited to 'chinese/bin')
-rwxr-xr-x | chinese/bin/tocn.pl | 4 | ||||
-rwxr-xr-x | chinese/bin/totw.pl | 5 |
2 files changed, 6 insertions, 3 deletions
diff --git a/chinese/bin/tocn.pl b/chinese/bin/tocn.pl index 741398dbb73..36017d5144b 100755 --- a/chinese/bin/tocn.pl +++ b/chinese/bin/tocn.pl @@ -2,8 +2,8 @@ # $Id$ -s|^(<HTML lang="zh)">|$1-CN">|; -s|^(<META http-equiv=.*charset)=Big5">|$1=GB2312">|; +s|^(<html lang="zh)">|$1-CN">|i; +s|^(<meta http-equiv=.*charset)=big5">|$1=gb2312">|i; s/(\.zh)(?=\.(?:gif|jpg|png))/$1-cn/g; s|^<A href=".*">(中文 .+CN.+)</A>(?= )|<B>$1</B>|; diff --git a/chinese/bin/totw.pl b/chinese/bin/totw.pl index 9fbead4fbc4..43149dc7933 100755 --- a/chinese/bin/totw.pl +++ b/chinese/bin/totw.pl @@ -6,7 +6,10 @@ $0 =~ m|to(..)\.pl$|; my $sublang = $1; my $SUBLANG = uc($sublang); -s|^(<HTML lang="zh)">|$1-$SUBLANG">|; +s|^(<html lang="zh)">|$1-$SUBLANG">|i; +if ($sublang eq 'hk') { + s|^(<meta http-equiv=.*charset)=big5">|$1=big5-hkscs">|i; +} s/(\.zh)(?=\.(?:gif|jpg|png))/$1-$sublang/g; s|^<A href=".*">(中文 .+$SUBLANG.+)</A>(?= )|<B>$1</B>|; |