?? bbs.cgi
字號:
#!/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/</</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/[\#\&\*\=\+\\\:\"\/\<\>?'`
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -