install.cgi

一个linux论坛

				    <br>
				    <br><br>
				    <font face="宋体" color="#0000FF">
				    <b>您是否使用表情自动转换？</b></font><br>
				    <font face="宋体" color="#000000">
				    <br>
				    <select name="emoticons">
				    <option value="on" selected>使用
				    <option value="off">不使用
				    </select><br><br>

				    <hr noshade color="#000000">
				    <br>
				    <font face="宋体" color="#000000">
				    <b>邮件功能</b><br><br>
				    下面的默认设置仅仅适用于大部分安装本程序的客户，不是所有的客户都适用。如果有错误，请自行修改成正确的值。<br><font color="#FF0000">
				    请仔细检查所有的设置，如果你对这些设置有任何的疑问，请询问你的主机提供商！</font>
				    <br>
				    <br>
				    <font face="宋体" color="#0000FF">
				    <b>您是否希望在论坛上使用邮件功能？</b></font><br>
				    <font face="宋体" color="#000000">
				    <br>
				    <select name="emailfunctions">
				    <option value="off">关闭邮件功能
				    <option value="on" selected>使用邮件功能
				    </select>
				    <br><br><br>
				    <font face="宋体" color="#0000FF">
				    <b>您使用何种邮件发送协议？</b></font><br>
				    <font face="宋体" color="#000000">
				    Unix 类主机请选择 Sendmail，Windows 类主机请选择 SMTP 或者 ESMTP，如果你的主机采用了是 Blat 邮件发送程序，那么请选择 Blat。
				    <br><BR>
				    <select name="emailtype">
				    <option value="smtp_mail" selected>SMTP
				    <option value="esmtp_mail">ESMTP
				    <option value="send_mail">Sendmail
				    <option value="blat_mail">Blat
				    </select>
				    <br><br><br>
				    <font face="宋体" color="#0000FF">
				    <b>Sendmail 路径(只有当你选择了 Sendmail 来发信此项才有效)。</b></font><br><br>
				    <input type=text size="60" name="SEND_MAIL" value="$mailprogram">
				    <br><br>
				    <br>
				    <font face="宋体" color="#0000FF">
				    <b>SMTP 服务器(只有当你选择了 SMTP 或 ESMTP 来发信，此项才有效)。</b></font><br><br>
				    <input type=text size="60" name="SMTP_SERVER" value="localhost">
				    <br><br>
				    <br>
				    <font face="宋体" color="#0000FF">
				    <b>SMTP 的端口(只有当你选择了 SMTP 或 ESMTP 来发信此项才有效)。</b></font><br><br>
				    <input type=text size="60" name="SMTP_PORT" value="$SMTP_PORT">
				    <br><br>
				    <br>
				    <font face="宋体" color="#0000FF">
				    <b>ESMTP 的用户名(只有当你选择了 ESMTP 来发信此项才有效)。</b></font><br><br>
				    <input type=text size="60" name="SMTPUSER" value="$SMTPUSER">
				    <br><br>
				    <br>
				    <font face="宋体" color="#0000FF">
				    <b>ESMTP 的密码(只有当你选择了 ESMTP 来发信此项才有效)。</b></font><br><br>
				    <input type=text size="60" name="SMTPPASS" value="$SMTPPASS">
				    <br><br>
				    <br>
				    <font face="宋体" color="#0000FF">
				    <b>您的发送邮件地址。</b></font><br><br>
				    <input type=text size="60" name="adminemail_in" value="$adminemail_in">
				    <br><br>
				    <br>
				    <font face="宋体" color="#0000FF">
				    <b>您的接收邮件地址。</b></font><br><br>
				    <input type=text size="60" name="adminemail_out" value="$adminemail_out">
				    <br><br>
				    <br>
				    <font face="宋体" color="#0000FF">
				    <b>您是否希望使用邮件来发送用户在论坛中的密码？</b></font><br>
				    <font face="宋体" color="#000000">
				    如果你发送邮件是有问题的话，那么请务必不要使用这个功能！！
				    <br><br>
				    <select name="passwordverification">
				    <option value="no" selected>不要
				    <option value="yes" >需要
				    </select><br><br><br>
				    
				    <font face="宋体" color="#0000FF">
				    <b>有新用户注册是否用邮件通知您？</b></font>
				    <br><br>
				    <select name="newusernotify">
				    <option value="no">不要
				    <option value="yes" selected>需要
				    </select><br><br>

				    <hr noshade color="#000000">
				    <br>
				    <font face="宋体" color="#000000">
				    <b>您论坛的详细资料</b><br><br>
				    这里将询问您的 LB5000 MX 论坛的一些详细资料。</font>
				    <br>
				    
				    <br>
				    <font face="宋体" color="#0000FF">
				    <b>论坛名称</b></font><br>
				    <input type=text size="60" name="boardname" value="CGI 编程者之家的论坛">
				    <br>

				    <br>
				    <font face="宋体" color="#0000FF">
				    <b>论坛描述</b></font><br>
				    <input type=text size="60" name="boarddescription" value="我的 LB5000 MX 论坛，好酷酷 :)">
				    <br><br>
				    <font face="宋体" color="#0000FF">
				    <b>您的版权信息</b><br>这里不需要加 '&copy\;'，程序会自动产生。<br>
				    &copy\;</font><input type=text size="58" name="copyrightinfo" value="中文版权所有： <a href=http://www.cgier.com>CGI 编程者之家</a>">
				    <br><br>
				    <font face="宋体" color="#0000FF">
				    <b>您的主页名称</b></font><br>
				    <input type=text size="60" name="homename" value="CGI 编程者之家">
				    <br><br><br>
				    <font face="宋体" color="#0000FF">
				    <b>是否采用灌水预防机制？</b></font><br>
				    <font face="宋体" color="#000000">
				    灌水预防机制将控制您的用户在一定的时间内不能重复发贴。 避免了一些用户为了升级而进行的灌水。<BR>
				    但这个功能不会影响论坛的坛主和版主的连续发贴。
				    <br>
				    <br>
				    <select name="floodcontrol">
				    <option value="off">关闭灌水预防机制
				    <option value="on" selected>打开灌水预防机制
				    </select>
				    <br><br>
				    
				    <br>
				    <font face="宋体" color="#0000FF">
				    <b>用户发言相隔时间(只有当灌水预防机制启动后，此项才有效)。</b></font><br>
				    <input type=text size="10" name="floodcontrollimit" value="30"> &nbsp; 秒
				    <br><br>

				    <br>
				    <font face="宋体" color="#0000FF">
				    <b>服务器时差设置</b></font><br>
				    <font face="宋体" color="#000000">
				    您的服务器现在时间是 $time_is_now。如果不正确，请使用下面的表单来改变服务器时差。 
				    <br>
				    <br>
				    $timezone_choice 小时
				    <br><br>
				    <br>
				    <font face="宋体" color="#0000FF">
				    <b>您所在的时区</b></font><br><br>
				    <input type=text size="60" name="basetimes" value="北京时间">
				    <br><br>
				    <input type=hidden name="announcements" value="yes">
			     	    <input type=hidden name="addtype" value="gif,jpg,bmp,zip,png,swf,doc,txt,htm,html">
                
				    <hr noshade color="#000000">
				    <br>
				    <font face="宋体" color="#000000">
				    <b>请仔细检查上面您输入的信息</b><br>
				    </font>
				    <br>
				    
				    <input type=submit value="OK，进入下一步">
				    </form>~;
				    }
    print "</body></html>";
    exit(0);

sub check { local ($dr) = @_; return 0 if $dr eq ""; if (-e "$dr/$prog") { $true_path = $dr; return 1; } }

sub mailprogram
{
    $mailprogram='/usr/sbin/sendmail';
    if (!(-e $mailprogram)) {$mailprogram='/usr/bin/sendmail';} 
    if (!(-e $mailprogram)) {$mailprogram='/bin/sendmail';} 
    if (!(-e $mailprogram)) {$mailprogram='/lib/sendmail';} 
    if (!(-e $mailprogram)) {$mailprogram='/usr/slib/sendmail';} 
    if (!(-e $mailprogram)) {$mailprogram='sendmail';} 
    if (!(-e $mailprogram)) {$mailprogram='/usr/lib/sendmail';};
    if (!(-e $mailprogram)) {$mailprogram='perlmail';}; 
    if (!(-e $mailprogram)) {$mailprogram="没有找到 Sendmail 路径，可能你的主机不支持";};
    return $mailprogram;
}

sub chmodfiles {
opendir (FILE, "."); 
@filename = readdir(FILE);
closedir (FILE); 
foreach (@filename) {
next if (($_ eq ".")||($_ eq "..")||$_ eq "install.cgi");
chmod(0755,"./$_") if ($_ !~/forum/isg);
}

chmod(0755,"./forums.cgi");
chmod(0755,"./shareforums.cgi");
chmod(0755,"./forumoptions.cgi");
chmod(0755,"./setforums.cgi");
chmod(0777,"data");
chmod(0777,"help");
chmod(0777,"$memdir");
chmod(0777,"memfav");
chmod(0777,"memfriend");
chmod(0777,"backup");
chmod(0777,"lock");
chmod(0777,"forumdata");
chmod(0777,"$msgdir");
chmod(0777,"search");
chmod(0777,"Archive");

opendir (FILE, "./data"); 
@filename = readdir(FILE);
closedir (FILE); 
foreach (@filename) {
    chmod(0777,"data/$_");
}
opendir (FILE, "./data/skin"); 
@filename = readdir(FILE);
closedir (FILE); 
foreach (@filename) {
    chmod(0777,"data/skin/$_");
}
opendir (FILE, "./Archive"); 
@filename = readdir(FILE);
closedir (FILE); 
foreach (@filename) {
    chmod(0777,"Archive/$_");
}
opendir (FILE, "./URI"); 
@filename = readdir(FILE);
closedir (FILE); 
foreach (@filename) {
    chmod(0777,"URI/$_");
}

opendir (FILE, "./$msgdir"); 
@filename = readdir(FILE);
closedir (FILE); 
foreach (@filename) {
    chmod(0777,"$msgdir/$_");
}
}


sub lbagent {
    my $out="";
    my $url=shift;
    $url =~ m@http://(.*?)/(.*)@;
    my ($host,$path) = ($1,$2);
    my $port = 80;
    if ($host =~ /(.*):(\d+)/) { $host = $1; $port = $2; }
    my $file;
    if ($path =~ m@.*/(.*)@) { $file = $1; } else { $file = $path; }
    my ($name,$aliases,$addrtype,$len,@addrs) = gethostbyname($host);
    my ($a,$b,$c,$d) = unpack("C4",$addrs[0]);
    my $that = pack('S n C4 x8',2,$port,$a,$b,$c,$d);
    select (sock);
    $|=1;
    select (STDOUT);
    socket(sock,2,1,0);
    my $result = connect(sock,$that);
    if ($result != 1) { $out="error!"; }
    else {
	print sock "GET /$path HTTP/1.1\r\n";
	print sock "Host: $host\r\n";
	print sock "Accept: */*\r\n";
	print sock "User-Agent: LeoBoard Agent 1.1\r\n";
	print sock "Pragma: no-cache\r\n";
	print sock "Cache-Control: no-cache\r\n";
	print sock "Connection: close\r\n";
	print sock "\r\n";
	my @out = <sock>;
	foreach (@out){
	    $out=$out.$_;
	}
	close(sock);
    }
    return $out;
}