diff options
author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-06-20 12:35:51 +0800 |
---|---|---|
committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2003-06-20 12:35:51 +0800 |
commit | 52e7fb48e79ab29498026e3b4b2f8c676c3d3d4f (patch) | |
tree | f44a836850d7c8c2ee5929b262fa93d6d005791f | |
parent | d846ff33a2286cd1b9323e70ac8177e53ec3d98b (diff) | |
download | pttbbs-52e7fb48e79ab29498026e3b4b2f8c676c3d3d4f.tar pttbbs-52e7fb48e79ab29498026e3b4b2f8c676c3d3d4f.tar.gz pttbbs-52e7fb48e79ab29498026e3b4b2f8c676c3d3d4f.tar.bz2 pttbbs-52e7fb48e79ab29498026e3b4b2f8c676c3d3d4f.tar.lz pttbbs-52e7fb48e79ab29498026e3b4b2f8c676c3d3d4f.tar.xz pttbbs-52e7fb48e79ab29498026e3b4b2f8c676c3d3d4f.tar.zst pttbbs-52e7fb48e79ab29498026e3b4b2f8c676c3d3d4f.zip |
use LocalVars
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk@948 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
-rwxr-xr-x | pttbbs/blog/index.pl | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/pttbbs/blog/index.pl b/pttbbs/blog/index.pl index cad0fba3..091bc1f3 100755 --- a/pttbbs/blog/index.pl +++ b/pttbbs/blog/index.pl @@ -1,8 +1,17 @@ #!/usr/bin/perl -# $Id: index.pl,v 1.1 2003/06/02 15:23:32 in2 Exp $ +# $Id: index.pl,v 1.2 2003/06/20 04:35:51 in2 Exp $ use CGI qw/:standard/; +use lib qw/./; +use LocalVars; -print redirect("http://blog.ptt2.cc/blog.pl/$1/") - if( $ENV{REDIRECT_REQUEST_URI} =~ m|/\?(.*)| ); +sub main +{ + print redirect("/blog.pl/$1/") + if( $ENV{REDIRECT_REQUEST_URI} =~ m|/\?(.*)| ); + + return redirect("/blog.pl/$BLOGdefault/"); +} + +main(); +1; -return redirect("http://blog.ptt2.cc/blog.pl/Blog/"); |