summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--staticweb/dir.html1
-rwxr-xr-xstaticweb/man.pl2
-rwxr-xr-xstaticweb/manbuilder.pl3
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;
}
}