diff options
author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-08-17 09:09:33 +0800 |
---|---|---|
committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-08-17 09:09:33 +0800 |
commit | e7586158938262d19905030d3e0be61bcdba5113 (patch) | |
tree | e0eda8ed9503bc5341657c87e8cef0edb1e3b422 | |
parent | 9e0cca51f9f15b4d67a56592fe4ec81d22a4ddc6 (diff) | |
download | pttbbs-e7586158938262d19905030d3e0be61bcdba5113.tar pttbbs-e7586158938262d19905030d3e0be61bcdba5113.tar.gz pttbbs-e7586158938262d19905030d3e0be61bcdba5113.tar.bz2 pttbbs-e7586158938262d19905030d3e0be61bcdba5113.tar.lz pttbbs-e7586158938262d19905030d3e0be61bcdba5113.tar.xz pttbbs-e7586158938262d19905030d3e0be61bcdba5113.tar.zst pttbbs-e7586158938262d19905030d3e0be61bcdba5113.zip |
param('searchboard')
git-svn-id: http://opensvn.csie.org/pttbbs/trunk@1106 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
-rwxr-xr-x | pttbbs/blog/blog.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/pttbbs/blog/blog.pl b/pttbbs/blog/blog.pl index d964e58e..db9c4c9d 100755 --- a/pttbbs/blog/blog.pl +++ b/pttbbs/blog/blog.pl @@ -29,6 +29,17 @@ sub main @cnumber = ('零', '一', '二', '三', '四', '五', '六', '七', '八', '九', '十', '十一', '十二'); + if( $brdname = param('searchboard') ){ + dodbi(sub { + my($dbh) = @_; + my($sth); + $sth = $dbh->prepare("select k from counter where k='$brdname'"); + $sth->execute(); + $brdname = $sth->fetchrow_hashref()->{k}; + }); + return redirect("/blog.pl/$brdname/"); + } + if( !$ENV{PATH_INFO} ){ print header(-status => 400); return; |