#!/usr/bin/perl
#------------------------------------------------------#
#　　　　　　　　　本程序?yàn)閅uzi工作室提供　  　　　　　#
#　　　　　　　　Yuzi論壇3000(BBS3000)v4.00　　　　　　#
#------------------------------------------------------#
$cgipa=".";  # CGI程序文件的絕對路徑
######################
## 以下部分不需修改 ##
######################
require "$cgipa/setup.cgi";
$cgiurl="bbs.cgi";
&GetCookies;
##########
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}else {$buffer = $ENV{'QUERY_STRING'};}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value=~tr/+/ /;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value=~s/\t/    /g;
$value=~s/>/>/g;
$value=~s/</&lt;/g;
$value=~s/\n/\<br\>/g;
$value=~s///g;
$FORM{$name} = $value;
}
##########
$id=$FORM{'id'};
$see=$FORM{'see'};
$emote=$FORM{'emote'};
$username=$FORM{'username'};
$yjhf=$FORM{'yjhf'};
$userpsd=$FORM{'userpsd'};
$titles=$FORM{'titles'};
$comment=$FORM{'comment'};
$search=$FORM{'search'};
$sign=$FORM{'sign'};
$menu=$FORM{'menu'};
$no=$FORM{'no'};
$replytime=$FORM{'replytime'};
$retitles=$FORM{'retitles'};
$deltitle=$FORM{'deltitle'};
$rdcomment=$FORM{'rdcomment'};
$slttitle=$FORM{'slttitle'};
if($username eq ""){$username=$Cookies{username}};
if($userpsd eq ""){$userpsd=$Cookies{password}};
$no=~s/\.//g;
$id=~s/\.\.//g;
$slttitle=~s/\.//g;
$username=~s/\ //g;
$username=~s/\　//g;
if($id=~m/[\#\&\*\=\+\\\:\"\/\<\>?'`