summaryrefslogtreecommitdiffstats
path: root/staticweb/index.pl
diff options
context:
space:
mode:
authorin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-07-04 13:59:05 +0800
committerin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-07-04 13:59:05 +0800
commitfc218cf2321d9315a726c8b94b106327976f63cc (patch)
treeab1b5e9c1309e1fe35654b77889455456e679f24 /staticweb/index.pl
parentd75dbf087a404434d2df54f8f9aadbefebaaff08 (diff)
downloadpttbbs-fc218cf2321d9315a726c8b94b106327976f63cc.tar
pttbbs-fc218cf2321d9315a726c8b94b106327976f63cc.tar.gz
pttbbs-fc218cf2321d9315a726c8b94b106327976f63cc.tar.bz2
pttbbs-fc218cf2321d9315a726c8b94b106327976f63cc.tar.lz
pttbbs-fc218cf2321d9315a726c8b94b106327976f63cc.tar.xz
pttbbs-fc218cf2321d9315a726c8b94b106327976f63cc.tar.zst
pttbbs-fc218cf2321d9315a726c8b94b106327976f63cc.zip
add ?brdname support
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1018 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'staticweb/index.pl')
-rwxr-xr-xstaticweb/index.pl5
1 files changed, 4 insertions, 1 deletions
diff --git a/staticweb/index.pl b/staticweb/index.pl
index ea48b874..2fcd7e30 100755
--- a/staticweb/index.pl
+++ b/staticweb/index.pl
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: index.pl,v 1.1 2003/07/03 12:39:05 in2 Exp $
+# $Id: index.pl,v 1.2 2003/07/04 05:59:05 in2 Exp $
use lib qw/./;
use LocalVars;
use CGI qw/:standard/;
@@ -10,6 +10,9 @@ sub main
{
my($tmpl, %rh);
+ print redirect("/man.pl/$1/")
+ if( $ENV{REDIRECT_REQUEST_URI} =~ m|/\?(.*)| );
+
charset('');
print header();