summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--staticweb/index.html42
-rwxr-xr-xstaticweb/index.pl15
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,