?? 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 + -