ubadmin.lib

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

###############################################################################
# UBAdmin.lib                                                                 #
###############################################################################
# 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.                                           #
###############################################################################

###############################################################################
# CheckPermission                                                             #
###############################################################################
sub CheckPermission {
	&GetCookies();
    if ($in{'Session'} ne "") {
        $SaveSession=0;
        $SessionID=$in{'Session'};
        ($UserName, $Password)=&GetSession($in{'Session'});
    }
    if (($UserName == -1)||(!$UserName)) {
        $SaveSession=1;
        if ($in{'UserName'} && $in{'Password'}) {
            $UserName=lc($in{'UserName'});
            $Password=$in{'Password'};
        }elsif (($Cookies{'UserName'}&&$Cookies{'Password'})) {
            $UserName=lc($Cookies{'UserName'});
            $Password=$Cookies{'Password'};
        }        
    }
	#if ($in{'UserName'} && $in{'Password'}) {
	#	$UserName=lc($in{'UserName'});
	#	$Password=$in{'Password'};
	#}elsif (($Cookies{'UserName'}&&$Cookies{'Password'})) {
	#	$UserName=lc($Cookies{'UserName'});
	#	$Password=$Cookies{'Password'};
	#}
	if (($Cookies{'UserName'}&&$Cookies{'Password'})) {
		$Remember="on";
	}
	if (-e "$MembersPath/$UserName.info") {
		@MemberData=&GetMemberData($UserName);
		$EPassword=Crypt::crypt($Password,substr($UserName, 0, 2));
		if (($EPassword eq $MemberData[2])&&($MemberData[3] eq "administrator")) {
			$Group=$MemberData[3];

            if ($SaveSession == 1) {
                $SessionID=&CreateSession($UserName, $Password);
            }

			if ($in{'Remember'}) {
				print &CookiesHeader(time+31536000,"UserName",$UserName,"Password",$Password);
			}
		}else{
            @MemberData=();
			$UserName="";
			$Password="";
			$EPassword="";
			&SignIn();
        }
	}else{
		@MemberData=();
		$UserName="";
		$Password="";
		$EPassword="";
		&SignIn();
	}
}

###############################################################################
# GetHTMLHeader                                                               #
###############################################################################
sub GetHTMLHeader {
	my ($Title, $HTML);
	if ($TitleMode eq "GRAPHIC") {
		$Title =	&Image("$URLImages/$TitleGraphic","","","","","","$UBName - $UBDes");
	}else{
		$Title =	&Font($FontFace,$TitleNameSize,$TitleTextColor)."<b>".$UBName." Administrator Center</b>"."</font>"."<br>".
					&Font($FontFace,$TitleDesSize,$TitleTextColor).$UBDes."</font>";
	}
	$HTML.=	&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr($TitleAlign,"",$TitleBGColor).
					&Td("","","","","","","","","").
						$Title.
					"</td>".
				"</tr>".
				&GetMenu().
			&CBTable();
	return $HTML;
}

###############################################################################
# GetMenu                                                                     #
###############################################################################
sub GetMenu {
	my ($HTML);
	$HTML.= &Table("100%","","0","0","","").
				&Tr("","","").
					&Td("","","","","","","","","");
	$HTML.=				&Link("UltraBoard.$Ext?Session=$SessionID","_TOP","",
						"Back to $UBName").$imgHome."</a>".$imgSperater;
    $HTML.=				&Link("$URLSite","_TOP","",
						"Back to $SiteName").$imgSite."</a>";                      
    $HTML.=			"</td>".
				"</tr>".
			"</table>";
	return $HTML;
}

###############################################################################
# GetMenuList                                                                 #
###############################################################################
sub GetMenuList {
	my ($HTML);
	$HTML.= &Select("Action","","","","",
					"= Administrator Center	                     ","Main",
					"","Main",
					"= General Management =======================","Main",
					"> Configure System Options",	"CfgSystem",
					"> Configure General Options",	"CfgGeneral",
					"> Configure Style Options",		"CfgStyle",
                    "> Configure Topic Icons Options",		"CfgTopicIcons",
					"> Modify Administrator Profile",	"ModifyProfile",
					"","Main",
					"= Members Groups Management ================","Main",
					"> Create a New Members Group",		"CreateGroup",
					"> Modify Members Group",			"ModifyGroup",
					"> Remove Members Groups",			"RemoveGroups",
					"","Main",
					"= Members Account Management ===============","Main",
					"> Create a New Member Account",	"CreateAccount",
					"> Manage Members Accounts",		"ManageAccounts",
					"","Main",
					"= Categories Management ====================","Main",
					"> Create a New Category",			"CreateCategory",
					"> Modify Category",				"ModifyCategory",
					"> ReOrder Categories",				"ReOrderCategories",
					"> Remove Categories",				"RemoveCategories",
					"","Main",
					"= Boards Management ========================","Main",
					"> Create a New Board",				"CreateBoard",
					"> Modify a Board",					"ModifyBoard",
					"> ReOrder Boards",					"ReOrderBoards",
					"> Remove Boards",					"RemoveBoards",
					"","Main",
					"= Messages Management ======================","Main",
					"> Post a New Topic",				"NewPost",
					"> Manage Messages",				"ManageMessages"
			).
			&Submit("","RUN","","");
	return $HTML;
}
###############################################################################
1;# End of UBAdmin.lib file
###############################################################################