diff options
author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-07-05 13:40:05 +0800 |
---|---|---|
committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-07-05 13:40:05 +0800 |
commit | f44a4588eafd2c51422008320b91d8ecf1301beb (patch) | |
tree | a5a694ae2ab45cd62879df15883c9bc25994d648 | |
parent | 6bcdaf98b7fc1567bc1343e2e91664dfcbac0d8c (diff) | |
download | pttbbs-f44a4588eafd2c51422008320b91d8ecf1301beb.tar pttbbs-f44a4588eafd2c51422008320b91d8ecf1301beb.tar.gz pttbbs-f44a4588eafd2c51422008320b91d8ecf1301beb.tar.bz2 pttbbs-f44a4588eafd2c51422008320b91d8ecf1301beb.tar.lz pttbbs-f44a4588eafd2c51422008320b91d8ecf1301beb.tar.xz pttbbs-f44a4588eafd2c51422008320b91d8ecf1301beb.tar.zst pttbbs-f44a4588eafd2c51422008320b91d8ecf1301beb.zip |
gb2312 -> gbk
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk@1023 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
-rwxr-xr-x | pttbbs/staticweb/man.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/pttbbs/staticweb/man.pl b/pttbbs/staticweb/man.pl index 0baa69be..189df02e 100755 --- a/pttbbs/staticweb/man.pl +++ b/pttbbs/staticweb/man.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: man.pl,v 1.5 2003/07/05 05:19:18 in2 Exp $ +# $Id: man.pl,v 1.6 2003/07/05 05:40:05 in2 Exp $ use CGI qw/:standard/; use lib qw/./; use LocalVars; @@ -43,8 +43,8 @@ sub main RELATIVE => 0, RECURSION => 0, EVAL_PERL => 0, -# COMPILE_EXT => '.tmpl', -# COMPILE_DIR => $MANCACHE, + COMPILE_EXT => '.tmpl', + COMPILE_DIR => $MANCACHE, }); if( $rh->{gb} = $isgb ){ $rh->{encoding} = 'gb2312'; @@ -67,7 +67,7 @@ sub dirmode compress => 0, ); foreach( @{$serial->deserialize($db{$fpath})} ){ - Encode::from_to($_->[1], 'big5', 'gb2312') if( $isgb ); + Encode::from_to($_->[1], 'big5', 'gbk') if( $isgb ); $isdir = (($_->[0] =~ m|/$|) ? 1 : 0); push @{$th{dat}}, {isdir => $isdir, fn => "man.pl/$brdname$_->[0]", @@ -97,7 +97,7 @@ sub articlemode $th{content} =~ s|ptt\.twbbs\.org|<a href="telnet://ptt.csie.ntu.edu.tw">ptt.twbbs.org</a>|gs; - Encode::from_to($th{content}, 'big5', 'gb2312') if( $isgb ); + Encode::from_to($th{content}, 'big5', 'gbk') if( $isgb ); return \%th; } |