diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-09-13 12:16:32 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-09-13 12:16:32 +0800 |
| commit | eb2ca254156a025b4f08e850374b7541f4be98d6 (patch) | |
| tree | 28cca858cdc6048291d6b55eca204af25a5d9ef8 | |
| parent | ae3657affb7a17998fc20326f5d7ae9199bb3497 (diff) | |
| download | pttbbs-eb2ca254156a025b4f08e850374b7541f4be98d6.tar pttbbs-eb2ca254156a025b4f08e850374b7541f4be98d6.tar.gz pttbbs-eb2ca254156a025b4f08e850374b7541f4be98d6.tar.bz2 pttbbs-eb2ca254156a025b4f08e850374b7541f4be98d6.tar.lz pttbbs-eb2ca254156a025b4f08e850374b7541f4be98d6.tar.xz pttbbs-eb2ca254156a025b4f08e850374b7541f4be98d6.tar.zst pttbbs-eb2ca254156a025b4f08e850374b7541f4be98d6.zip | |
add buildtime
git-svn-id: http://opensvn.csie.org/pttbbs/trunk@1179 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
| -rw-r--r-- | pttbbs/staticweb/dir.html | 1 | ||||
| -rwxr-xr-x | pttbbs/staticweb/man.pl | 2 | ||||
| -rwxr-xr-x | pttbbs/staticweb/manbuilder.pl | 3 |
3 files changed, 5 insertions, 1 deletions
diff --git a/pttbbs/staticweb/dir.html b/pttbbs/staticweb/dir.html index c3ce33ac..50f5ef63 100644 --- a/pttbbs/staticweb/dir.html +++ b/pttbbs/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/pttbbs/staticweb/man.pl b/pttbbs/staticweb/man.pl index 729a78d1..274797af 100755 --- a/pttbbs/staticweb/man.pl +++ b/pttbbs/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/pttbbs/staticweb/manbuilder.pl b/pttbbs/staticweb/manbuilder.pl index c0b88db1..c135920a 100755 --- a/pttbbs/staticweb/manbuilder.pl +++ b/pttbbs/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; } } |