From 287bf8576320b8ed7addfa7e9a6569ab0892a946 Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Sat, 5 Jul 2003 05:40:05 +0000
Subject: gb2312 -> gbk

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1023 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 staticweb/man.pl | 10 +++++-----
 1 file 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;
 }
 
-- 
cgit v1.2.3