use Compress::Zlib to save disk space

git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@1413 63ad8ddf-47c3-0310-b6dd-a9e9d9715204

2 files changed, 18 insertions, 5 deletions

diff --git a/staticweb/man.pl b/staticweb/man.pl
index 4e9c2ed3..6afb7410 100755
--- a/staticweb/man.pl
+++ b/staticweb/man.pl
@@ -12,6 +12,7 @@ use Data::Serializer;
 use Time::HiRes qw/gettimeofday tv_interval/;
 use b2g;
 use POSIX;
+use Compress::Zlib;
 
 use vars qw/%db $brdname $fpath $isgb %b2g/;
 
@@ -88,7 +89,12 @@ sub articlemode
 {
     my(%th);
     $th{tmpl} = 'article.html';
+
+    # ㄓ unzip, 璶ぃ礛穦年奔 :p
     $th{content} = $db{$fpath};
+    $th{content} = Compress::Zlib::memGunzip($th{content})
+	if( $db{_gzip} );
+
     $th{content} =~ s/\033\[.*?m//g;
 
     $th{content} =~ s|(http://[\w\-\.\:\/\,@\?=~]+)|<a href="$1">$1</a>|gs;
@@ -98,9 +104,9 @@ sub articlemode
     $th{content} =~
 	s|祇獺: у金金龟穨|祇獺: <a href="http://blog.ptt.cc">у金金龟穨</a>|gs;
     $th{content} =~
-	s|ptt\.csie\.ntu\.edu\.tw|<a href="telnet://ptt.csie.ntu.edu.tw">ptt.csie.ntu.edu.tw</a>|gs;
+	s|ptt\.cc|<a href="telnet://ptt.cc">ptt.cc</a>|gs;
     $th{content} =~
-	s|ptt\.twbbs\.org|<a href="telnet://ptt.csie.ntu.edu.tw">ptt.twbbs.org</a>|gs;
+	s|ptt\.twbbs\.org|<a href="telnet://ptt.cc">ptt.twbbs.org</a>|gs;
 
     $th{content} =~ s/([\xA1-\xF9].)/$b2g{$1}/eg if( $isgb );
     #Encode::from_to($th{content}, 'big5', 'gbk') if( $isgb );
diff --git a/staticweb/manbuilder.pl b/staticweb/manbuilder.pl
index f3b18cf4..3b992a98 100755
--- a/staticweb/manbuilder.pl
+++ b/staticweb/manbuilder.pl
@@ -7,12 +7,13 @@ use Getopt::Std;
 use DB_File;
 use BBSFileHeader;
 use Data::Serializer;
+use Compress::Zlib;
 
 my(%db, $idx, $serial);
 
 sub main
 {
-    die usage() unless( getopts('n') || !@ARGV );
+    die usage() unless( getopts('nz') || !@ARGV );
 
     $serial = Data::Serializer->new(serializer => 'Storable',
 				    digester   => 'MD5',
@@ -34,6 +35,7 @@ sub main
 		if( !$Getopt::Std::opt_n );
 	    build("/home/bbs/man/boards/".substr($_, 0, 1)."/$_", '');
 	    $db{_buildtime} = time();
+	    $db{_gzip} = 1 if( $Getopt::Std::opt_z );
 	    untie %db;
 	}
     }
@@ -41,9 +43,13 @@ sub main
 
 sub buildidx
 {
+    my $gzipped = $db{_gzip};
     foreach( keys %db ){
 	next if( /^title/ || /\/$/ ); # 琌 title ┪ヘ魁常铬筁
-	$idx->insert($_, $db{"title-$_"}. "\n". $db{$_});
+	$idx->insert($_,
+		     ($db{"title-$_"}. "\n".
+		      ($gzipped ? Compress::Zlib::memGunzip($db{$_}) :
+		       $db{$_})));
     }
 }
 
@@ -69,7 +75,8 @@ sub build($$)
 	    my $c = $bfh{"$_.content"};
 	    $idx->insert("$doffset/$fn", $bfh{"$_.title"}. "\n$c")
 		if( !$Getopt::Std::opt_n );
-	    $db{"$doffset/$fn"} = $c;
+	    $db{"$doffset/$fn"} = ($Getopt::Std::opt_z ?
+				   Compress::Zlib::memGzip($c) : $c);
 	}
     }
     $db{"$doffset/"} = $serial->serialize(\@tdir);