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();