summaryrefslogtreecommitdiffstats
path: root/blog
diff options
context:
space:
mode:
authorin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-08-17 09:09:33 +0800
committerin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-08-17 09:09:33 +0800
commit522c7c914b0c8e3400684de08907f9748e42c97b (patch)
tree114c29c5d7f9102dedcd32366c3ee15c3fb98c43 /blog
parenta946c99207e41532458f3768f90d9a115bcce353 (diff)
downloadpttbbs-522c7c914b0c8e3400684de08907f9748e42c97b.tar
pttbbs-522c7c914b0c8e3400684de08907f9748e42c97b.tar.gz
pttbbs-522c7c914b0c8e3400684de08907f9748e42c97b.tar.bz2
pttbbs-522c7c914b0c8e3400684de08907f9748e42c97b.tar.lz
pttbbs-522c7c914b0c8e3400684de08907f9748e42c97b.tar.xz
pttbbs-522c7c914b0c8e3400684de08907f9748e42c97b.tar.zst
pttbbs-522c7c914b0c8e3400684de08907f9748e42c97b.zip
param('searchboard')
git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@1106 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'blog')
-rwxr-xr-xblog/blog.pl11
1 files changed, 11 insertions, 0 deletions
diff --git a/blog/blog.pl b/blog/blog.pl
index d964e58e..db9c4c9d 100755
--- a/blog/blog.pl
+++ b/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;