admincfgsystem.pl

这个社区是虚拟社区使用的程序

###############################################################################
# AdminCfgSystem.pl                                                           #
###############################################################################
# UltraBoard Ver. 1.61 by UltraScripts.com                                    #
# Scripts written by Jacky W.W. Yung, [e-mail]              #
# Available from http://www.UltraScripts.com/UltraBoard/                      #
# --------------------------------------------------------------------------- #
# PROGRAM NAME : UltraBoard                                                   #
# VERSION : 1.61                                                              #
# LAST MODIFIED : 30/06/1999                                                  #
# =========================================================================== #
# COPYRIGHT NOTICE :                                                          #
#                                                                             #
# Copyright (c) 1999 Jacky Yung. All Rights Reserved.                         #
#                                                                             #
# This program is free software; you can change or modify it as you see fit.  #
# However, modified versions cannot be sold or distributed.  You cannot alter #
# the copyright and "powered by" notices throughout the scripts. These        #
# notices must be clearly visible to the end users.                           #
#                                                                             #
# WARRANTY DISCLAIMER:                                                        #
#                                                                             #
# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT WITHOUT #
# ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF MERCHANTABILITY OR       #
# FITNESS FOR A PARTICULAR PURPOSE.                                           #
###############################################################################

###############################################################################
# CfgSystem                                                                   #
###############################################################################
sub CfgSystem {
	if ($EmailFunction eq "SendMail") {
		$SendMailPath=$SendMailLocation;
	}else{
		$SMTPAddress=$SendMailLocation;
	}
	open(BAN,"$VarsPath/IPs.ban");
		flock(BAN,2) if ($FLock);
		my (@IPs)=<BAN>;
	close(BAN);
	chomp (@IPs);
	$IPBanList=join(" ",@IPs);
	open(BAN,"$VarsPath/Hosts.ban");
		flock(BAN,2) if ($FLock);
		my (@Hosts)=<BAN>;
	close(BAN);
	chomp (@Hosts);
	$HostBanList=join(" ",@Hosts);
    $EmailFunction = "no" if (!$EmailFunction);
	$HTML.=	&Table($TableWidth,$TableAlign,"","6","","").
                &Tr("","","").
					&Td("","","","","","","nowrap","","").
						&Form("UBAdmin.$Ext","POST","","").
                        &HiddenBox("Session",$SessionID).
			       "</td>".
				"</tr>".
				&Tr("","","").
					&Td("","","","","RIGHT","","","","").
                        &GetMenuList.
					"</td>".
				"</tr>".
                &Tr("","","").
					&Td("","","","","","","nowrap","","").
						"</form>".
						&Form("UBAdmin.$Ext","POST","","").
						&HiddenBox("Action","DoCfgSystem").
						&HiddenBox("Session",$SessionID).
					"</td>".
				"</tr>".
			"</table>".
			&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr("","",$HeaderBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
							"<b>ABSOLUTE PATHS</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Datebase Path (required)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"the absolute path of the directory where all the ultraboard data files will be located. (e.g. \"/home/yourdomain/cgi-bin/UltraBoard/UBData\")".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","",$ColumnOddBGColor,"").
						&TextBox("DBPath",$DBPath,$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Members Path (required)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"the absolute path of the directory where all the ultraboard members data files will be located. (e.g. \"/home/yourdomain/cgi-bin/UltraBoard/UBData/Members\")".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","",$ColumnOddBGColor,"").
						&TextBox("MembersPath",$MembersPath,$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
                &Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Members Session Path (required)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"the absolute path of the directory where all the ultraboard members session files will be located. (e.g. \"/home/yourdomain/cgi-bin/UltraBoard/UBData/Sessions\")".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","",$ColumnOddBGColor,"").
						&TextBox("SessionPath",$SessionPath,$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Stats Path (required)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"the absolute path of directory that where all the ultraboard log and stats files will be located. (e.g. \"/home/yourdomain/cgi-bin/UltraBoard/UBData/Stats\")".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","",$ColumnOddBGColor,"").
						&TextBox("StatsPath",$StatsPath,$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>CGI Path (required)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"the absolute path of directory where the UltraBoard.pl and UBAdmin.pl are located. (e.g. \"/home/yourdomain/cgi-bin/UltraBoard\")".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","",$ColumnOddBGColor,"").
						&TextBox("CGIPath",$CGIPath,$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$HeaderBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
							"<b>URL ADDRESSES</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>CGI URL (required)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"the location where the UltraBoard.pl and UBAdmin.pl are located. (e.g. \"http://www.yourdomain.com/cgi-bin/UltraBoard\")".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","",$ColumnOddBGColor,"").
						&TextBox("URLCGI",$URLCGI,$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Images URL (required)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"the location where the UltraBoard images (*.gif) are located. (e.g. \"http://yourdomain.com/cgi-bin/UltraBoard/Images\")".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","",$ColumnOddBGColor,"").
						&TextBox("URLImages",$URLImages,$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Site URL (required)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"the url of your site. (e.g. \"http://www.yourdomain.com\")".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","",$ColumnOddBGColor,"").
						&TextBox("URLSite",$URLSite,$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$HeaderBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
							"<b>EMAIL OPERATIONS</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Email Address (required)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"your e-mail address. (e.g. \"webmaster\@yourdomain.com\")".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","2","","","","",$ColumnOddBGColor,"").
						&TextBox("EmailAddress",$EmailAddress,$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","2","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Mail Function</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"choose the type of method UltraBoard should send mail by. if you don't want to allow UltraBoard to send mail function just choose \"don't use.\".".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("20","","","","","","","","").
						&Radio("EmailFunction","no",$EmailFunction,"").
					"</td>".
					&Td("100%","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							" <b>Don't use.</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("20","","","","","","","","").
						&Radio("EmailFunction","SendMail",$EmailFunction,"").
					"</td>".
					&Td("100%","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							" <b>Use SendMail.</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("20","","","2","","","",$ColumnOddBGColor,"").
						"&nbsp;".
					"</td>".
					&Td("100%","","","","","","",$CategoryBGColor,"").
						&Font($FontFace,$TextSize,$TextColor).
							"<b>SendMail Location</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"if you choose to use the sendmail program, please fill in the location of the sendmail program on your server. (e.g. \"/usr/bin/sendmail\")".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("100%","","","","","","",$ColumnOddBGColor,"").
						&TextBox("SendMailPath",$SendMailPath,$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("20","","","","","","","","").
						&Radio("EmailFunction","SMTP",$EmailFunction,"").
					"</td>".
					&Td("100%","","","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							" <b>Use SMTP.</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("20","","","2","","","",$ColumnOddBGColor,"").
						"&nbsp;".
					"</td>".
					&Td("100%","","","","","","",$CategoryBGColor,"").
						&Font($FontFace,$TextSize,$TextColor).
							"<b>SMTP Server Address</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"if you choose to use your smtp server, please fill in the address of your smtp server. (e.g. \"smtp.yourdomain.com\")".
							"</font>".
						"</font>".
					"</td>".