diff options
| -rw-r--r-- | staticweb/dir.html | 1 | ||||
| -rwxr-xr-x | staticweb/man.pl | 2 | ||||
| -rwxr-xr-x | staticweb/manbuilder.pl | 3 |
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; } } |