summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--staticweb/article.html17
-rw-r--r--staticweb/dir.html43
-rw-r--r--staticweb/header.html15
-rw-r--r--staticweb/index.html26
-rwxr-xr-xstaticweb/index.pl32
-rwxr-xr-xstaticweb/man.pl9
-rw-r--r--staticweb/styles.css19
7 files changed, 159 insertions, 2 deletions
diff --git a/staticweb/article.html b/staticweb/article.html
new file mode 100644
index 00000000..9cfee318
--- /dev/null
+++ b/staticweb/article.html
@@ -0,0 +1,17 @@
+[% INCLUDE header.html %]
+<table width="75%" align="center"><tr><td>
+狾: [% brdname %]<br /><a href="."></a><br />
+<hr />
+</tr></td><tr><td>
+<font size=+2><pre>
+[% content %]
+</pre></font>
+</td></tr><tr><td>
+<hr>
+<a href="."></a><br />
+<a href="telnet://ptt.cc">у金金龟穨</a> (<a href="http://ptt.cc">PttWeb</a>)
+</td></tr>
+</table>
+
+</body>
+</html>
diff --git a/staticweb/dir.html b/staticweb/dir.html
new file mode 100644
index 00000000..fe4392ba
--- /dev/null
+++ b/staticweb/dir.html
@@ -0,0 +1,43 @@
+[% INCLUDE header.html %]
+<table width="75%" align="center">
+<tr>
+<td>
+<div id="banner">
+ <h1><a href="http://blog.ptt.cc/blog.pl/ptt/"
+ accesskey="1">у金金龟穨</a></h1>
+</div>
+</td></tr>
+
+<tr><td>
+<a href="http://man.ptt.cc">呼弘地跋</a>
+<a href="http://man.ptt.cc/man.pl/[% brdname %]/">[% brdname %]弘地跋</a>
+<a href="http://blog.ptt.cc">у金金场辅</a>
+<br />
+<font size=+1>狾嘿: [% brdname %]</font>
+<hr />
+</td></tr>
+
+<tr><td>
+[% IF !isroot %]
+<a href="../"><img src="http://images.ptt.cc/folder.gif" style="border:0;" />糷</a><br />
+[% END %]
+
+[% FOREACH x=dat %]
+<a href="[% x.fn %]">
+<img src="http://images.ptt.cc/[% IF x.isdir %]folder.gif[% ELSE %]f.gif[% END %]" style="border:0;" />
+[% x.title %]</a><br />
+[% END %]
+</td></tr>
+<tr><td>
+<hr />
+<form method="POST" action="/man.pl/[% brdname %]/">
+硂弘地跋ず陆 (under construction)
+<input type="text" name="key">
+<input type="submit" value="即">
+</form>
+<hr />
+<a href="telnet://ptt.cc">у金金龟穨</a> (<a href="http://ptt.cc">PttWeb</a>)
+</td></tr>
+</table>
+</body>
+</html>
diff --git a/staticweb/header.html b/staticweb/header.html
new file mode 100644
index 00000000..465e9ff7
--- /dev/null
+++ b/staticweb/header.html
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="Big5"?>
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
+ "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+
+<html xmlns="http://www.w3.org/1999/xhtml"
+ xml:lang="zh_TW" lang="zh_TW">
+<head>
+ <title>у金金龟穨</title>
+ <meta http-equiv="Content-Type"
+ content="text/html; charset=big5" />
+ <meta name="generator" content="pttMan" />
+ <meta name="robots" content="all" />
+ <link rel="stylesheet" href="/styles.css" type="text/css" />
+</head>
+<body>
diff --git a/staticweb/index.html b/staticweb/index.html
new file mode 100644
index 00000000..d0722654
--- /dev/null
+++ b/staticweb/index.html
@@ -0,0 +1,26 @@
+[% INCLUDE header.html %]
+<table width="75%" align="center">
+<tr>
+<td>
+<div id="banner">
+ <h1><a href="http://blog.ptt.cc/blog.pl/ptt/"
+ accesskey="1">у金金龟穨</a></h1>
+</div>
+</td></tr>
+
+
+<tr><td>
+у金金龟穨ぇ弘地跋(experimental)<br />
+ヘ玡矗ㄑ弘地跋戈:<br />
+<br />
+[% FOREACH x=dat %]
+<a href="/man.pl/[% x.brdname %]/">[% x.brdname %]</a><br />
+[% END %]
+</td></tr>
+<tr><td>
+<hr />
+<a href="telnet://ptt.cc">у金金龟穨</a> (<a href="http://ptt.cc">PttWeb</a>)
+</td></tr>
+</table>
+</body>
+</html>
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;
diff --git a/staticweb/man.pl b/staticweb/man.pl
index 307108c7..db5b84d5 100755
--- a/staticweb/man.pl
+++ b/staticweb/man.pl
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: man.pl,v 1.1 2003/07/03 06:49:23 in2 Exp $
+# $Id: man.pl,v 1.2 2003/07/03 12:39:05 in2 Exp $
use CGI qw/:standard/;
use lib qw/./;
use LocalVars;
@@ -30,11 +30,14 @@ sub main
print header();
$rh = (($fpath =~ m|/$|) ? dirmode($fpath) : articlemode($fpath));
+ $rh->{brdname} = $brdname;
$tmpl = Template->new({INCLUDE_PATH => '.',
ABSOLUTE => 0,
RELATIVE => 0,
RECURSION => 0,
- EVAL_PERL => 0});
+ EVAL_PERL => 0,
+ COMPILE_EXT => '.tmpl',
+ COMPILE_DIR => $MANCACHE});
$tmpl->process($rh->{tmpl}, $rh);
}
@@ -52,6 +55,7 @@ sub dirmode
}
$th{tmpl} = 'dir.html';
+ $th{isroot} = ($fpath eq '/') ? 1 : 0;
return \%th;
}
@@ -60,6 +64,7 @@ sub articlemode
my(%th);
$th{tmpl} = 'article.html';
$th{content} = $db{$fpath};
+ $th{content} =~ s/\033\[.*?m//g;
return \%th;
}
diff --git a/staticweb/styles.css b/staticweb/styles.css
new file mode 100644
index 00000000..973c6ec7
--- /dev/null
+++ b/staticweb/styles.css
@@ -0,0 +1,19 @@
+#banner {
+ font-family: georgia, verdana, arial, sans-serif;
+ color: #FFFFFF;
+ font-size: 20px;
+ font-weight: bold;
+
+ padding: 8px 8px 8px 8px;
+ border: none;
+}
+
+A:link {color: #FFFFFF; text-decoration:none;}
+A:active {color: #CCFFCC; text-decoration:none;}
+A:visited {color: #FFFFCC; text-decoration:none;}
+A:hover {background: #555555;}
+
+body {
+ background: #000000;
+ color: #FFFFFF;
+} \ No newline at end of file