diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-07-15 17:07:27 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-07-15 17:07:27 +0800 |
| commit | c4309ceca3c3a46ff57e2719af2a53e9e6437171 (patch) | |
| tree | 7fe780e0e973763a5f03f77e9240e375eb4c8918 | |
| parent | 994b9559295f9d5bd19581e71027b3a74fff2403 (diff) | |
| download | pttbbs-c4309ceca3c3a46ff57e2719af2a53e9e6437171.tar pttbbs-c4309ceca3c3a46ff57e2719af2a53e9e6437171.tar.gz pttbbs-c4309ceca3c3a46ff57e2719af2a53e9e6437171.tar.bz2 pttbbs-c4309ceca3c3a46ff57e2719af2a53e9e6437171.tar.lz pttbbs-c4309ceca3c3a46ff57e2719af2a53e9e6437171.tar.xz pttbbs-c4309ceca3c3a46ff57e2719af2a53e9e6437171.tar.zst pttbbs-c4309ceca3c3a46ff57e2719af2a53e9e6437171.zip | |
class hierarchy support
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk@1052 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
| -rw-r--r-- | pttbbs/staticweb/index.html | 42 | ||||
| -rwxr-xr-x | pttbbs/staticweb/index.pl | 15 |
2 files changed, 44 insertions, 13 deletions
diff --git a/pttbbs/staticweb/index.html b/pttbbs/staticweb/index.html index 45372764..6ad6e831 100644 --- a/pttbbs/staticweb/index.html +++ b/pttbbs/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 %] +»<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/pttbbs/staticweb/index.pl b/pttbbs/staticweb/index.pl index 6280ebd5..cb475725 100755 --- a/pttbbs/staticweb/index.pl +++ b/pttbbs/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, |