From fc218cf2321d9315a726c8b94b106327976f63cc Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Fri, 4 Jul 2003 05:59:05 +0000
Subject: add ?brdname support

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1018 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 staticweb/index.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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();
 
-- 
cgit v1.2.3