*** empty log message ***

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

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;