summaryrefslogblamecommitdiffstats
path: root/blog/index.pl
blob: cad0fba37508768e1829d789861a093e7f6aee2a (plain) (tree)
1
2
3
4
5
6
7
8







                                                     
#!/usr/bin/perl
# $Id: index.pl,v 1.1 2003/06/02 15:23:32 in2 Exp $
use CGI qw/:standard/;

print redirect("http://blog.ptt2.cc/blog.pl/$1/")
    if( $ENV{REDIRECT_REQUEST_URI} =~ m|/\?(.*)| );

return redirect("http://blog.ptt2.cc/blog.pl/Blog/");