diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-06-19 21:06:58 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-06-19 21:06:58 +0800 |
| commit | 31ce84e798a63c32362f253a44bfea766b47d13c (patch) | |
| tree | b8272c6b902bbb4af6615101d202f0afda5a0252 | |
| parent | e4e18eef22bfb337612821012cf88e1a1e48b6e9 (diff) | |
| download | pttbbs-31ce84e798a63c32362f253a44bfea766b47d13c.tar pttbbs-31ce84e798a63c32362f253a44bfea766b47d13c.tar.gz pttbbs-31ce84e798a63c32362f253a44bfea766b47d13c.tar.bz2 pttbbs-31ce84e798a63c32362f253a44bfea766b47d13c.tar.lz pttbbs-31ce84e798a63c32362f253a44bfea766b47d13c.tar.xz pttbbs-31ce84e798a63c32362f253a44bfea766b47d13c.tar.zst pttbbs-31ce84e798a63c32362f253a44bfea766b47d13c.zip | |
*** empty log message ***
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk@945 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
| -rwxr-xr-x | pttbbs/blog/blog.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pttbbs/blog/blog.pl b/pttbbs/blog/blog.pl index 725d3d01..96c929af 100755 --- a/pttbbs/blog/blog.pl +++ b/pttbbs/blog/blog.pl @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: blog.pl,v 1.22 2003/06/19 12:40:24 in2 Exp $ +# $Id: blog.pl,v 1.23 2003/06/19 13:06:58 in2 Exp $ use CGI qw/:standard/; use lib qw/./; use LocalVars; @@ -34,7 +34,7 @@ sub main "$BLOGDATA/$brdname/config.db", O_RDONLY, 0666, $DB_HASH) || !(tie %attr, 'DB_File', "$BLOGDATA/$brdname/attr.db", O_RDONLY, 0666, $DB_HASH) ){ - return redirect("http://blog.ptt2.cc/blog.pl/$1/") + return redirect("/blog.pl/$1/") if( $ENV{PATH_INFO} =~ m|^/([\w\-]+?)$| ); print header(-status => 404); return; |