add buildtime

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

3 files changed, 5 insertions, 1 deletions

diff --git a/staticweb/dir.html b/staticweb/dir.html
index c3ce33ac..50f5ef63 100644
--- a/staticweb/dir.html
+++ b/staticweb/dir.html
@@ -34,6 +34,7 @@
 </form>
 [% END %]
 <hr />
+<font size="-1">[% IF gb %]制作时间[% ELSE %]籹丁[% END %]: [% buildtime %]</font><br>
 <a href="telnet://ptt.cc">[% IF gb %]批踢踢实业坊[% ELSE %]у金金龟穨[% END %]</a> (<a href="http://ptt.cc">PttWeb</a>)
 </td></tr>
 </table>
diff --git a/staticweb/man.pl b/staticweb/man.pl
index 729a78d1..274797af 100755
--- a/staticweb/man.pl
+++ b/staticweb/man.pl
@@ -13,6 +13,7 @@ use Data::Serializer;
 use Encode;
 use Time::HiRes qw/gettimeofday tv_interval/;
 use b2g;
+use POSIX;
 
 use vars qw/%db $brdname $fpath $isgb %b2g/;
 
@@ -80,6 +81,7 @@ sub dirmode
 
     $th{tmpl} = 'dir.html';
     $th{isroot} = ($fpath eq '/') ? 1 : 0;
+    $th{buildtime} = POSIX::ctime($db{_buildtime} || 0);
     return \%th;
 }
 
diff --git a/staticweb/manbuilder.pl b/staticweb/manbuilder.pl
index c0b88db1..c135920a 100755
--- a/staticweb/manbuilder.pl
+++ b/staticweb/manbuilder.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: manbuilder.pl,v 1.9 2003/07/04 03:40:02 in2 Exp $
+# $Id$
 use lib '/home/bbs/bin/';
 use strict;
 use OurNet::FuzzyIndex;
@@ -33,6 +33,7 @@ sub main
 	    $idx = OurNet::FuzzyIndex->new("$_.idx")
 		if( !$Getopt::Std::opt_n );
 	    build("/home/bbs/man/boards/".substr($_, 0, 1)."/$_", '');
+	    $db{_buildtime} = time();
 	    untie %db;
 	}
     }