From ecb281f1ee77bbc3d1c99a9354a92b2d33ae614e Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Tue, 15 Jul 2003 09:07:27 +0000
Subject: class hierarchy support

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1052 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 staticweb/index.html | 42 +++++++++++++++++++++++++++++++-----------
 staticweb/index.pl   | 15 +++++++++++++--
 2 files changed, 44 insertions(+), 13 deletions(-)

diff --git a/staticweb/index.html b/staticweb/index.html
index 45372764..6ad6e831 100644
--- a/staticweb/index.html
+++ b/staticweb/index.html
@@ -5,18 +5,38 @@
 </td></tr>
 
 <tr><td>
-<a href="http://man.ptt.cc[% IF gb %]/?gb=1[% END %]">[% IF gb %]批踢踢实业坊之精华区[% ELSE %]у金金龟穨ぇ弘地跋[% END %](experimental)</a><br />
-<br />
-[% FOREACH x=dat %]
-[% IF x.0 == -1 %]
-    <a href="/man.pl/[% x.1 %]/[% IF gb %]?gb=1[% END %]">
-    <img src="http://images.ptt.cc/f.gif" style="border: 0;">
-[% ELSE %]
-    <a href="/index.pl/[% x.0 %]/[% IF gb %]?gb=1[% END %]">
-    <img src="http://images.ptt.cc/folder.gif" style="border: 0;">
-[% END %]
-[% x.2 %]</a><br />
+<a href="http://man.ptt.cc/index.pl/[% IF gb %]?gb=1[% END %]">[% IF gb %]批踢踢实业坊之精华区[% ELSE %]у金金龟穨ぇ弘地跋[% END %]</a>
+[% FOREACH x=class %]
+&raquo;<a href="/index.pl[% x.path %]">[% x.title %]</a>
 [% END %]
+<br />
+<br />
+<table>
+    [% IF !isroot %]
+    <tr>
+      <td>
+        <img src="http://images.ptt.cc/folder.gif" style="border: 0;" />
+      </td>
+      <td>
+      </td>
+      <td>
+        <a href="../">糷</a>
+      </td>
+    </tr>
+    [% END %]
+    [% FOREACH x=dat %]
+    <tr>
+      <td>
+        <img src="http://images.ptt.cc/[% IF x.0 == -1 %]f.gif[% ELSE %]folder.gif[% END %]" style="border: 0;" />
+      </td>
+      <td>[% x.1 %]</td>
+      <td>
+        [% IF x.0 == -1 %]<a href="/man.pl/[% x.1 %]/[% IF gb %]?gb=1[% END %]">[% ELSE %]<a href="[% x.0 %]/[% IF gb %]?gb=1[% END %]">[% END %]
+        [% x.2 %]</a>
+      </td>
+    </tr>
+    [% END %]
+</table>
 </td></tr>
 <tr><td>
 <hr />
diff --git a/staticweb/index.pl b/staticweb/index.pl
index 6280ebd5..cb475725 100755
--- a/staticweb/index.pl
+++ b/staticweb/index.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: index.pl,v 1.4 2003/07/11 10:11:24 in2 Exp $
+# $Id: index.pl,v 1.5 2003/07/15 09:07:27 in2 Exp $
 use lib qw/./;
 use LocalVars;
 use CGI qw/:standard/;
@@ -25,11 +25,15 @@ sub main
 	$rh{charset} = 'big5';
     }
 
+    return redirect('/index.pl/'.($rh{gb}?'?gb=1':''))
+	if( $ENV{REQUEST_URI} eq '/' );
+
     charset('');
     print header();
 
-    ($bid) = $ENV{PATH_INFO} =~ m|^/(\d+)/$|;
+    ($bid) = $ENV{PATH_INFO} =~ m|.*/(\d+)/$|;
     $bid ||= 0;
+    $rh{isroot} = ($bid == 0);
 
     if( !$brd{$bid} ){
 	print "sorry, this bid $bid not found :(";
@@ -42,6 +46,13 @@ sub main
 	push @{$rh{dat}}, $_;
     }
 
+    my $path = '';
+    foreach( $ENV{PATH_INFO} =~ m|(\w+)|g ){
+	push @{$rh{class}}, {path => "$path/$_/",
+			     title => $brd{"$_.title"}};
+	$path .= "/$_";
+    }
+
     $tmpl = Template->new({INCLUDE_PATH => '.',
 			   ABSOLUTE => 0,
 			   RELATIVE => 0,
-- 
cgit v1.2.3