diff options
| -rw-r--r-- | staticweb/article.html | 17 | ||||
| -rw-r--r-- | staticweb/dir.html | 43 | ||||
| -rw-r--r-- | staticweb/header.html | 15 | ||||
| -rw-r--r-- | staticweb/index.html | 26 | ||||
| -rwxr-xr-x | staticweb/index.pl | 32 | ||||
| -rwxr-xr-x | staticweb/man.pl | 9 | ||||
| -rw-r--r-- | staticweb/styles.css | 19 |
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 |