*** empty log message ***

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1007 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
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
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
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
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
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