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 | 522c7c914b0c8e3400684de08907f9748e42c97b (patch) | |
| tree | 114c29c5d7f9102dedcd32366c3ee15c3fb98c43 | |
| parent | a946c99207e41532458f3768f90d9a115bcce353 (diff) | |
| download | pttbbs-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
| -rwxr-xr-x | blog/blog.pl | 11 |
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 = ('�s', '�@', '�G', '�T', '�|', '��', '��', '�C', '�K', '�E', '�Q', '�Q�@', '�Q�G'); + 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; |