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

              
 









                                                       
 
#!/usr/bin/perl
# $Id: index.pl,v 1.2 2003/06/20 04:35:51 in2 Exp $
use CGI qw/:standard/;
use lib qw/./;
use LocalVars;

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

    return redirect("/blog.pl/$BLOGdefault/");
}

main();
1;