install.cgi

--黑客防线-精华奉献本(攻册)

#!/usr/bin/perl
#------------------------------------------------------#
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　#
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　#
#------------------------------------------------------#
$cgipa=".";  # CGI程序文件的绝对路径
######################
## 以下部分不需修改 ##
######################
$dir=&mypath;
unless(-e "$cgipa/install.cgi"){&errorview("系统监测到您的主机为NT系统，请把每个CGI文件都加上绝对路径<br>$dir<br>后，再运行此安装程序");}
do "$cgipa/temp.cgi"||&errorview("找不到$cgipa/temp.cgi文件，请确认您已经上传此文件");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)= localtime(time+(3600*$time_hour));
$mon=$mon+1;
if($mon <10){$mon="0".$mon;}
if($mday<10){$mday="0".$mday;}
if($hour<10){$hour="0".$hour;}
if($min<10){$min="0".$min;}
if($sec<10){$sec="0".$sec;}
$year=$year+1900;
$lasttime=$year."-".$mon."-".$mday;
$thistime=$year."-".$mon."-".$mday.".".$hour.":".$min.":".$sec;
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/<!--(.|\n)*-->//g;
$value=~s/\t/&nbsp;&nbsp;&nbsp; /g;
$value=~s/>/&gt;/g;
$value=~s/</&lt;/g;
$FORM{$name} = $value;
}
$menu=$FORM{'menu'};
##########
do "$cgipa/setup.cgi";
if($zyname eq ""){$zyname='Yuzi工作室'};
if($zyurl eq ""){$zyurl="http://$ENV{'SERVER_NAME'}"};
if($imagurl eq ""){$imagurl="http://$ENV{'SERVER_NAME'}/image"};
if($FORM{'filepath'}){$filepath=$FORM{'filepath'}};
if($filepath eq ""){$filepath=$cgipa};
if($ImgDir eq ""){$ImgDir="$ENV{'DOCUMENT_ROOT'}/image"};
if($cityname eq ""){$cityname="BBS3000社区"};
if($bgcolor4 eq ""){$bgcolor4=FFFFFF};
if($bgcolor eq ""){$bgcolor=FFFFFF};
if($bgcolor1 eq ""){$bgcolor1=F0F0F0};
if($bgcolor0 eq ""){$bgcolor0='007CD0'};
if($bgcolor2 eq ""){$bgcolor2=F8F8F8};
if($bgcolor3 eq ""){$bgcolor3='0095F9'};
if($bgcolor5 eq ""){$bgcolor5='FFFFFF'};
if($bgcolor6 eq ""){$bgcolor6='000000'};
if($bgcolor7 eq ""){$bgcolor7='0000FF'};
if($bgcolor8 eq ""){$bgcolor8='800080'};
if($bgcolor9 eq ""){$bgcolor9='FF0000'};
if($perpage eq ""){$perpage=20};
$fullcgiurl="http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}";
$myurl=substr($fullcgiurl,0,rindex($fullcgiurl,"/"));
if($ym eq ""){$ym=$myurl};
if($adminmail eq ""){$adminmail=$ENV{'SERVER_ADMIN'}};
if($smtp eq ""){$smtp='smtp.yuzi.net'};
if($smtp_port eq ""){$smtp_port='25'};
if($smtp_user eq ""){$smtp_user='[e-mail]'};
if($smtp_psd eq ""){$smtp_psd='yuzi'};
if($maxfj eq ""){$maxfj="102400"};
if($time_hour eq ""){$time_hour=0};
if($regok eq ""){$regok=0};
if($passwordok eq ""){$passwordok=0};
if($loginok eq ""){$loginok=0};
if($timepop eq ""){$timepop=300};
if($regbbsx eq ""){$regbbsx=1};
if($regyh eq ""){$regyh=on};
if($regbbsok eq ""){$regbbsok=on};
if($lucidatime eq ""){$lucidatime=1};
if($restrictbyte eq ""){$restrictbyte='50000'};
if($openlucida eq ""){$openlucida=off};
if($ybbcodeAllow eq ""){$ybbcodeAllow=on};
$origin=$ENV{'HTTP_REFERER'};
$origin=~s/\http:\/\///isg;
($origin)=split(/\//,$origin);
if($urlorigin eq ""){$urlorigin=$origin};
if (!(-e $mailprg)) {$mailprg="/usr/sbin/sendmail";};
if($menu eq "ok"){&ok;exit;}
elsif($menu eq "lookup"){&lookup;exit;}
elsif($menu eq "fun"){&fun;exit;}
elsif($menu eq "funok"){&funok;exit;}
elsif($menu eq "view"){&view;exit;}
print "Content-type: text/html\n\n";
print <<EOF;
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<style>td {font-size:9pt}</style>
<title>安装BBS3000 v$ver</title><br><form method="post"><input type="hidden" value="ok" name="menu">  <div align="center">
<table cellSpacing="0" borderColorDark="#ffffff" cellPadding="3" width="646" bgColor="#007cd0" borderColorLight="#008000" border="1">
<tbody><tr><td width="628"><center><p><b><font color="#ffffff">安装BBS3000 v$ver</font></b></p></center></td></tr><tr><td width="628">
<table width=627 bgColor=f8f8f8><tbody><tr bgColor=f8f8f8><td align=right width=186>社区区长名字：</td><td width=466><input name=admname value=$admname></td></tr>
<tr bgColor=f0f0f0><td align=right width=186>社区区长密码：</td><td width=466><input name=delpsd type=password></td></tr></tbody></table>
<table width=627 bgColor=f8f8f8><tbody>
<tr bgColor=f8f8f8><td align=right width=186>图片位置(URL)：</td><td width=466><input name=imagurl size=30 value=$imagurl></td></tr>
<tr bgColor=f0f0f0><td align=right width=186>BBS3000位置(URL)：</td><td width=466><input name=ym size=30 value=$ym></td></tr>
<tr bgColor=f8f8f8><td align=right width=186>图片文件目录的硬盘绝对路径：</td><td width=466><input name=ImgDir size=30 value=$ImgDir> <a href=install.cgi?menu=lookup target=_blank>图片目录探测</a></td></tr>
<tr bgColor=f0f0f0><td align=right width=186>储存论坛数据目录的绝对路径：</td><td width=466><input name=filepath size=30 value=$filepath>&nbsp;建议填入复杂目录名，以防他人破坏<br>如： "<font color=red>$cgipa/Data_Y8z_U</font>" </td></tr>
</tbody></table>
</td></tr><tr><td width="628" align="center"><p><input type="submit" value="下一步"><font color="#ffffff"></font></td></tr>
<tr><td align="center" width="629"><font color="#c0c0c0">Powered by <a target="_blank" href="http://www.yuzi.net"><font color="#c0c0c0">www.yuzi.net</font></a> &copy; 2001<br>
Yuzi Bulletin Board Version 3000</font></td></tr></tbody></table></FORM></div>
EOF
exit;
sub ok{
if($FORM{'admname'} eq ""){&errorview("区长名字不能没有填写!");}
if($FORM{'admname'}=~m/[\#\&\*\=\+\\\:\"\/\<\>\?