diff options
author | Peter Karlsson <peterk> | 2003-02-12 13:08:17 +0000 |
---|---|---|
committer | Peter Karlsson <peterk> | 2003-02-12 13:08:17 +0000 |
commit | 42911d633e5a7e3bdc5e580fa376309dbe2ad402 (patch) | |
tree | bd9027ea668ba54dc68610b8f3705665adf7f6b4 /chinese/bin | |
parent | 2776077dbd553d0a24989bc47177a928e37dc0a6 (diff) |
Ignore whitespace before meta tag when changing the encoding tag.
CVS version numbers
chinese/bin/tocn.pl: 1.38 -> 1.39
chinese/bin/totw.pl: 1.37 -> 1.38
Diffstat (limited to 'chinese/bin')
-rwxr-xr-x | chinese/bin/tocn.pl | 2 | ||||
-rwxr-xr-x | chinese/bin/totw.pl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/chinese/bin/tocn.pl b/chinese/bin/tocn.pl index c08e41d9379..8f268c401bc 100755 --- a/chinese/bin/tocn.pl +++ b/chinese/bin/tocn.pl @@ -3,7 +3,7 @@ # $Id$ s|^(<html lang="zh)">|$1-CN">|i; -s|^(<meta http-equiv=.*charset)=big5">|$1=gb2312">|i; +s|^(\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 9d68f8904da..129411a7e36 100755 --- a/chinese/bin/totw.pl +++ b/chinese/bin/totw.pl @@ -8,7 +8,7 @@ my $SUBLANG = uc($sublang); s|^(<html lang="zh)">|$1-$SUBLANG">|i; if ($sublang eq 'hk') { - s|^(<meta http-equiv=.*charset)=big5">|$1=big5-hkscs">|i; + s|^(\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>|; |