diff options
author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-07-03 20:39:05 +0800 |
---|---|---|
committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-07-03 20:39:05 +0800 |
commit | fc8b2f454c143afe6358ff8e811d915dd19c85e3 (patch) | |
tree | 6a72b12c66475406574e46171037728028c0397a /staticweb/index.pl | |
parent | 34e6536caf900ca1ee54d72dedb00fd2eb56bf89 (diff) | |
download | pttbbs-fc8b2f454c143afe6358ff8e811d915dd19c85e3.tar pttbbs-fc8b2f454c143afe6358ff8e811d915dd19c85e3.tar.gz pttbbs-fc8b2f454c143afe6358ff8e811d915dd19c85e3.tar.bz2 pttbbs-fc8b2f454c143afe6358ff8e811d915dd19c85e3.tar.lz pttbbs-fc8b2f454c143afe6358ff8e811d915dd19c85e3.tar.xz pttbbs-fc8b2f454c143afe6358ff8e811d915dd19c85e3.tar.zst pttbbs-fc8b2f454c143afe6358ff8e811d915dd19c85e3.zip |
*** empty log message ***
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1007 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'staticweb/index.pl')
-rwxr-xr-x | staticweb/index.pl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/staticweb/index.pl b/staticweb/index.pl new file mode 100755 index 00000000..ea48b874 --- /dev/null +++ b/staticweb/index.pl @@ -0,0 +1,32 @@ +#!/usr/bin/perl +# $Id: index.pl,v 1.1 2003/07/03 12:39:05 in2 Exp $ +use lib qw/./; +use LocalVars; +use CGI qw/:standard/; +use strict; +use Template; + +sub main +{ + my($tmpl, %rh); + + charset(''); + print header(); + + foreach( </home/web/man/data/*.db> ){ + s/.*\///; + s/\.db//; + push @{$rh{dat}}, {brdname => $_}; + } + $tmpl = Template->new({INCLUDE_PATH => '.', + ABSOLUTE => 0, + RELATIVE => 0, + RECURSION => 0, + EVAL_PERL => 0, + COMPILE_EXT => '.tmpl', + COMPILE_DIR => $MANCACHE}); + $tmpl->process('index.html', \%rh); +} + +main(); +1; |