admincfggeneral.pl

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

###############################################################################
# AdminCfgGeneral.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.                                           #
###############################################################################

###############################################################################
# CfgGeneral                                                                  #
###############################################################################
sub CfgGeneral {
	open(GROUPS,"$MembersPath/Groups.db")||&CGIError("Couldn't open/read the Groups.db file<br>\nPath: $MembersPath<br>\nReason : $!");
		flock(GROUPS,1) if ($FLock);
		@GROUPS_DATA=<GROUPS>;
	close(GROUPS);
	for (my ($i)=0;$i<=$#GROUPS_DATA;$i++) {
		@GroupInfo=&DecodeDBOutput($GROUPS_DATA[$i]);
		if ($GroupInfo[0] ne "administrator") {
			push (@Groups, $GroupInfo[1]." ($GroupInfo[0])", $GroupInfo[0]);
		}
	}
    open(RULE,"$VarsPath/Rule.txt");
		flock(RULE,2) if ($FLock);
		my (@Rule)=<RULE>;
        $Rule=join("",@Rule);
        $Rule=~s/<p>\\n\\n/\n\n/isg;
        $Rule=~s/<br>\\n/\n/isg;
	close(RULE);
###############################################################################
	$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","DoCfgGeneral").
						&HiddenBox("Session",$SessionID).
					"</td>".
				"</tr>".
			"</table>".
			&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr("","",$HeaderBGColor).
					&Td("","","4","","","","","","").
						&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
							"<b>GENERAL INFORMATIONS</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","4","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Home Page Name (required)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"the name of your home page.".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","4","","","","",$ColumnOddBGColor,"").
						&TextBox("SiteName",$SiteName,$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","4","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>UltraBoard Name (required)</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"the name of your forum.".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","4","","","","",$ColumnOddBGColor,"").
						&TextBox("UBName",$UBName,$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","4","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>UltraBoard Description</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"a little description of your forum.".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","4","","","","",$ColumnOddBGColor,"").
						&TextBox("UBDes",$UBDes,$TextBoxSize,"","width:$IETextBoxSize").
					"</td>".
				"</tr>".
				&Tr("","",$HeaderBGColor).
					&Td("","","4","","","","","","").
						&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
							"<b>DISPLAY OPERATIONS</b>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("20","","","","","","","","").
						&Checkbox("DisplayFront","on","",$DisplayFront).
					"</td>".
					&Td("100%","","3","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Display UltraBoard Front Page</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"if you want to allow the visitor to see the front page of your board, check this option.".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("20","","","2","","","",$ColumnOddBGColor,"").
						"&nbsp;".
					"</td>".
					&Td("20","","","","","","",$CategoryBGColor,"").
						&Checkbox("UseCategory","on","",$UseCategory).
					"</td>".
					&Td("100%","","2","","","","",$CategoryBGColor,"").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Display Categories</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"if you want to allow the visitor to see the categories of your board, check this option.".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("20","","","","","","",$ColumnOddBGColor,"").
						"&nbsp;".
					"</td>".
					&Td("20","","","","","","",$CategoryBGColor,"").
						&Checkbox("OnlyCategory","on","",$OnlyCategory).
					"</td>".
					&Td("100%","","","","","","",$CategoryBGColor,"").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Display Categories on Front Page Only</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"check this if you only want categories displayed-no boards.".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("20","","","","","","","","").
						&Checkbox("DisplayCategoryDes","on","",$DisplayCategoryDes).
					"</td>".
					&Td("100%","","3","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Display Categories Description</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"if you want categories description displayed on your forum.".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("20","","","","","","","","").
						&Checkbox("DisplayBoardDes","on","",$DisplayBoardDes).
					"</td>".
					&Td("100%","","3","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Display Boards Description</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"check this if you want boards to be displayed. if not, uncheck this.".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("20","","","","","","","","").
						&Checkbox("ShowNumberMembers","on","",$ShowNumberMembers).
					"</td>".
					&Td("100%","","3","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Display Total Members Number</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"check this if you want total members number to be displayed. if not, uncheck this.".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","4","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Show Total Posts/Total Topics</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"choose which fields you want displayed on the main page by each forum.".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("20","","","","","","",$ColumnOddBGColor,"").
						&Radio("ShowTotal","Both",$ShowTotal,"").
					"</td>".
					&Td("100%","","3","","","","",$ColumnEvenBGColor,"").
						&Font($FontFace,$TextSize,$TextColor).
							"Show both total topics and total posts.".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowEvenBGColor).
					&Td("20","","","","","","",$ColumnOddBGColor,"").
						&Radio("ShowTotal","Topics",$ShowTotal,"").
					"</td>".
					&Td("100%","","3","","","","",$ColumnEvenBGColor,"").
						&Font($FontFace,$TextSize,$TextColor).
							"Show total topics only.".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowEvenBGColor).
					&Td("20","","","","","","",$ColumnOddBGColor,"").
						&Radio("ShowTotal","Posts",$ShowTotal,"").
					"</td>".
					&Td("100%","","3","","","","",$ColumnEvenBGColor,"").
						&Font($FontFace,$TextSize,$TextColor).
							"Show total posts only.".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$CategoryBGColor).
					&Td("","","4","","","","","","").
						&Font($FontFace,$CategoryNameTextSize,$CategoryTextColor).
							"<b>Default Topics View in Days</b><br>".
							&Font("",$CategoryDesTextSize,$CategoryTextColor).
								"the default number of days that topics will be shown in each board.".
							"</font>".
						"</font>".
					"</td>".
				"</tr>".
				&Tr("","",$RowOddBGColor).
					&Td("","","4","","","","",$ColumnOddBGColor,"").
						&Select("ShowTopics","","width:$IETextBoxSize","",$ShowTopics,
								"Show topics from last day","1",
								"Show topics from last 2 days","2",
								"Show topics from last 3 days","3",
								"Show topics from last 7 days","7",