summaryrefslogtreecommitdiffstats
path: root/staticweb/man.pl
diff options
context:
space:
mode:
authorin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-07-05 13:40:05 +0800
committerin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-07-05 13:40:05 +0800
commit287bf8576320b8ed7addfa7e9a6569ab0892a946 (patch)
treef54d4b1f41d1ec20b866f31ed848f4ff8f466b35 /staticweb/man.pl
parent1880cc2f73e5094ee203416552493f783ed24258 (diff)
downloadpttbbs-287bf8576320b8ed7addfa7e9a6569ab0892a946.tar
pttbbs-287bf8576320b8ed7addfa7e9a6569ab0892a946.tar.gz
pttbbs-287bf8576320b8ed7addfa7e9a6569ab0892a946.tar.bz2
pttbbs-287bf8576320b8ed7addfa7e9a6569ab0892a946.tar.lz
pttbbs-287bf8576320b8ed7addfa7e9a6569ab0892a946.tar.xz
pttbbs-287bf8576320b8ed7addfa7e9a6569ab0892a946.tar.zst
pttbbs-287bf8576320b8ed7addfa7e9a6569ab0892a946.zip
gb2312 -> gbk
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1023 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'staticweb/man.pl')
-rwxr-xr-xstaticweb/man.pl10
1 files changed, 5 insertions, 5 deletions
diff --git a/staticweb/man.pl b/staticweb/man.pl
index 0baa69be..189df02e 100755
--- a/staticweb/man.pl
+++ b/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;
}