summaryrefslogtreecommitdiffstats
path: root/blog/index.pl
blob: 9b2e6dc1609a8522cb48276a9367a78a71a9af2a (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
# $Id$
use CGI qw/:standard/;
use lib qw/./;

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

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

main();
1;