📄 999install.pl
字号:
#!/usr/bin/perl
$dirname=&mypath;
##################################################################
## 本版使用于WINDOWS和Unix/Linux等操作系统版 ##
##################################################################
require "$dirname/svote.lib";
&read_form;
if ($FORM{'action'} eq 'step1') { &step1; }
if(-e "$dirname/setup2002.pl") {
$oldconfig = 1;
require "$dirname/setup2002.pl";
}
$sendmail = &mailprogram;
$CGIPath = "$dirname";
$CGI_Url = "http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}";
$CGI_Url = substr($CGI_Url,0,rindex($CGI_Url,"/"));
$CGIUrl = "$CGI_Url";
$BaseUrl = "$CGI_Url";
$BaseUrl = substr($BaseUrl,0,rindex($BaseUrl,"/"));
$httUrl = $BaseUrl;
$imgURL = "$CGI_Url/image";
$imgURL = $CONFIG{'img_url'} if($CONFIG{'img_url'});
$CGIUrl = $CONFIG{'cgi_url'} if($CONFIG{'cgi_url'});
$httUrl = $CONFIG{'url'} if($CONFIG{'url'});
$sendmail = $CONFIG{'sendmail'} if($CONFIG{'sendmail'});
##--------------------------------------------------------------
print "Content-type: text/html\n\n";
print qq~
<html><head><title>调查引挚-开始安装</title>
<STYLE>
p{ FONT-SIZE: 12pt;}
td{ font-size: 10pt; line-height: 12pt }
</STYLE>
</head><body bgcolor=#FFFFF0><div align="center"><center>
<p>下面开始安装,请提供正确的信息和设置
<form action="install.pl" Method="Post"><input type=hidden name=action value=step1>
<table cellSpacing="0" cellPadding="3" width="700" bgColor="#000084" border="0">
<tr><td><table border =0 bgColor=ECF6F5 cellPadding="3" width="700"><tr><td><b>服务器设置</b><td>~;
if($oldconfig) { print "<font color=red>发现旧的配置文件,读入原来的设置</font>";}
print<<EOF_INSTALL;
<tr><td align=right width=100>CGI程序URL：</td><td><input name="CGIUrl" type=text size="40" value="$CGIUrl"> <font color=red>[相对网址]</font><font color="blue">如"http://127.0.0.1/cgi-bin"</font>
<tr><td align=right width=100>图片目录URL：</td><td><input name="IMGUrl" type=text size="40" value="$imgURL"> <font color=red>[相对网址]</font><font color="blue">image文件夹的位置</font>
<tr bgColor=ECF6F5><td align=right>sendmail路径：</td><td><input name="mailprog" size=40 value="$sendmail"> sendmail电邮的绝对路径(不支持时，请留空)
<tr><td align=right width=100>网站名称：</td><td><input name="home" type=text size="40" value="$CONFIG{'vote'}"> <font color="blue">你的网站名称</font>
<tr><td align=right width=100>网站地址：</td><td><input name="url" type=text size="40" value="$httUrl"> <font color="blue">你的网站域名</font>
<tr><td align=right width=100>收信邮箱：</td><td><input name="email" type=text size="30" Maxlength=40 value=$CONFIG{'email'}> <font color="blue">方便访客与你联系,如没有电子邮箱请勿输入。</font>
<tr><td align=right width=100>管理姓名：</td><td><input name="name" type=text size="10" value=$CONFIG{'name'} >
<tr><td align=right width=100>管理密码：</td><td><input name="pass" type=password size="10" Maxlength=10 value=$CONFIG{'pass'}>
<tr><td align=right width=100>确认密码：</td><td><input name="cpass" type=password size="10" Maxlength=10 value=$CONFIG{'pass'}>
<tr><td><td>以上各项必填写！<tr><td><td><input type=submit Value="下一步"> </table>
<tr><td align="center"><font color="#83C6C0">COPYRIGHT 2002-2004 ©<a href=http://hk666b.126.com><font color="#83C6C0">CK联合小组</font></a> 站长：BBC QQ：66622488 Email：hk666b\@21cn.com</font></td>
</table></form>
EOF_INSTALL
exit;
sub step1 {
if($FORM{'email'}){
$mail = $FORM{'email'};
$mail =~ tr/A-Z/a-z/;
$mail =~ s/\s//g;
if ($mail =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)|(,)/ || $mail !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) { &err("錯邮箱地址无效");}
$mail=~s/(.+?)@(.+?)/$1\\\@$2/isg;
}
if($FORM{'name'}=~m/[\#\&\*\=\+\\\:\"\/\<\>\?⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -