新增 index.pl 於~/blog/web及~/bin

------------------舒服的分隔線^^------------------------

#!/usr/bin/perl
# $Id: index.pl 1152 2003-09-02 10:31:50Z  $
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;

--
   ╔═══╗  ┼────────────────────────╮
   ║狂狷  ║  │＊ Origin：[ 狂 狷 年 少 ] whshs.cs.nccu.edu.tw ╰─╮
   ║  年少║  ┼╮                         < IP：140.119.164.16 >   ╰─╮
   ╚╦═╦╝    ╰  ＊ From：218-171-104-102.HINET-IP.hinet.net        
   ─╨─╨─ ＫＧＢＢＳ ─  ◎ 遨翔"BBS"的狂狷不馴；屬於年少的輕狂色彩 ◎