diff options
author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-07-11 18:11:24 +0800 |
---|---|---|
committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-07-11 18:11:24 +0800 |
commit | 0cdbb36aff2faa2e6392814cfa2c4a5b6ae1c23f (patch) | |
tree | 9fb496f7d82c1af5155499d1e0dc2d9e9aa767c7 | |
parent | afac2353fd96dfd6edf3ecf57acdd58cd9be7678 (diff) | |
download | pttbbs-0cdbb36aff2faa2e6392814cfa2c4a5b6ae1c23f.tar pttbbs-0cdbb36aff2faa2e6392814cfa2c4a5b6ae1c23f.tar.gz pttbbs-0cdbb36aff2faa2e6392814cfa2c4a5b6ae1c23f.tar.bz2 pttbbs-0cdbb36aff2faa2e6392814cfa2c4a5b6ae1c23f.tar.lz pttbbs-0cdbb36aff2faa2e6392814cfa2c4a5b6ae1c23f.tar.xz pttbbs-0cdbb36aff2faa2e6392814cfa2c4a5b6ae1c23f.tar.zst pttbbs-0cdbb36aff2faa2e6392814cfa2c4a5b6ae1c23f.zip |
use boardlist
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk@1048 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
-rw-r--r-- | pttbbs/staticweb/index.html | 12 | ||||
-rwxr-xr-x | pttbbs/staticweb/index.pl | 23 |
2 files changed, 26 insertions, 9 deletions
diff --git a/pttbbs/staticweb/index.html b/pttbbs/staticweb/index.html index 3a62ed51..45372764 100644 --- a/pttbbs/staticweb/index.html +++ b/pttbbs/staticweb/index.html @@ -5,11 +5,17 @@ </td></tr> <tr><td> -[% IF gb %]批踢踢实业坊之精华区[% ELSE %]у金金龟穨ぇ弘地跋[% END %](experimental)<br /> -[% IF gb %]目前提供下列精华区资料[% ELSE %]ヘ玡矗ㄑ弘地跋戈[% END %]:<br /> +<a href="http://man.ptt.cc[% IF gb %]/?gb=1[% END %]">[% IF gb %]批踢踢实业坊之精华区[% ELSE %]у金金龟穨ぇ弘地跋[% END %](experimental)</a><br /> <br /> [% FOREACH x=dat %] -<a href="/man.pl/[% x.brdname %]/[% IF gb %]?gb=1[% END %]">[% x.brdname %]</a><br /> +[% 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 /> [% END %] </td></tr> <tr><td> diff --git a/pttbbs/staticweb/index.pl b/pttbbs/staticweb/index.pl index 71ad6117..6280ebd5 100755 --- a/pttbbs/staticweb/index.pl +++ b/pttbbs/staticweb/index.pl @@ -1,14 +1,16 @@ #!/usr/bin/perl -# $Id: index.pl,v 1.3 2003/07/05 05:19:18 in2 Exp $ +# $Id: index.pl,v 1.4 2003/07/11 10:11:24 in2 Exp $ use lib qw/./; use LocalVars; use CGI qw/:standard/; use strict; use Template; +use boardlist; +use b2g; sub main { - my($tmpl, %rh); + my($tmpl, %rh, $bid); if( param('gb') ){ $rh{gb} = 1; @@ -26,11 +28,20 @@ sub main charset(''); print header(); - foreach( </home/web/man/data/*.db> ){ - s/.*\///; - s/\.db//; - push @{$rh{dat}}, {brdname => $_}; + ($bid) = $ENV{PATH_INFO} =~ m|^/(\d+)/$|; + $bid ||= 0; + + if( !$brd{$bid} ){ + print "sorry, this bid $bid not found :("; + return ; + } + + foreach( @{$brd{$bid}} ){ + next if( $_->[0] == -1 && ! -e "$MANDATA/$_->[1].db" ); + $_->[2] =~ s/([\xA1-\xF9].)/$b2g{$1}/eg if( $rh{gb} ); + push @{$rh{dat}}, $_; } + $tmpl = Template->new({INCLUDE_PATH => '.', ABSOLUTE => 0, RELATIVE => 0, |