CoAdministartor Hack

Print Thread

Rate Thread

######

and AFTER this add this:
######

######
3.) Open cpanel.cgi

Search for this:
######
if ($action eq "setmods") {
&SetMods;
}
######

And AFTER this add this:
######
if ($action eq "setcoadmins") {
&SetCoAdmins;
}
######

Now search for THIS:
######
} ## END SET MODS SR ##

and AFTER this add the following Code:

sub SetCoAdmins() {
$PageTitle = "S E T C O - A D M I N I S T R A T O R S";
&HEADERHTML1;

print< Note: Just Administrator are able to set CoAdministrators.

CoAdministartor Hack #43220 10/11/2000 3:35 PM
Joined: Oct 2000 Posts: 4 cRackY Junior Member
cRackY Junior Member Joined: Oct 2000 Posts: 4	############################################# ############################################# ## ## CoAdministrator Hack 1.0 ## by cRackY ## ## ## Description: ## Allow you to set up 4 CoAdministrator ## who can moderator all Forums but can't ## do something in the Control Panel ## ## Thanx 2 Cal for his MegaMod Hack ## This Code was very buggy but i needet ## this hack so i made my own hack, and ## there are no known bugs, cause I made ## the hack totally different than ## the MegaMod Hack. ## My Hack doesnt add a new Status in the ## User Profil because then the UBB could ## be very buggy then. The CoAdmins all ## are Moderators from the Status, but they ## can moderatore in any Forum. If you would ## like to have an extra Status for CoAdmins ## please use the Custom User Pic Hack! ## ## After setting up the Hack, you can Access ## the CoAdmin Settings in the Control Panel! ## ## Contact me: [email protected] ## Please don't Email me if you don't know ## how to install any hack. If you really ## know how to do that and you have troubles ## with just MY hack feel free to Email me. ## ## !!!!!!!!!INFOPOP!!!!!!!!!!! ## If one of my hacks is installed in new ## Version of UBB i would be very happy if ## I would get a full licencse! thanx! ## Important Note: The ###### is just to see the things better, do not include them in the code! 1.) Create a empty File called coadmins.file 2.) Open cplinks.html with a Text Edtiro Search for: ######	Moderatoren
	CoAdministrators

ModTOP

&Lock("lock.file");
open (COFILE, "coadmins.file");
@zeilen = ;
close (COFILE);
&Unlock("lock.file");
chmod (0666, "coadmins.file");
$zeile = @zeilen[0];
($Co1,$Co2,$Co3,$Co4) = split(/|||/, $zeile);

if ($Co1 eq "^") {
$Co1 = "";
}
if ($Co2 eq "^") {
$Co2 = "";
}
if ($Co3 eq "^") {
$Co3 = "";
}
if ($Co4 eq "^") {
$Co4 = "";
}

print<

MIDMOD

print<

UserName	Password
CoAdministrators

CoAdministrator Hack

Made by cRackY 2000

TRUEBOTTOM

}

######

4.) Now Open cpanel3.cgi

Search for This:
######
if ($action eq "forums") {
&Forums;
}
######

And AFTER this Code ad THIS:
######
if ($action eq "coadmins") {
&CoAdmins;
}
######

Now you have To Serach for The Following
######
} ## END DO PROCESS CATS
######

And AFTER this ADD the following Code:
######
sub CoAdmins() {
&VerifyAdminCP($in{'UserName'}, $in{'Password'});
if ($Proceed ne "true") {
return;
}

$Co1 = $in{'NewCo1'};
$Co2 = $in{'NewCo2'};
$Co3 = $in{'NewCo3'};
$Co4 = $in{'NewCo4'};

if ($Co1 eq "") {
$Co1 = "^";
}
if ($Co2 eq "") {
$Co2 = "^";
}
if ($Co3 eq "") {
$Co3 = "^";
}
if ($Co4 eq "") {
$Co4 = "^";
}

open (COFILE, ">coadmins.file");
print COFILE "$Co1|||$Co2|||$Co3|||$Co4|||n";
close (COFILE);
chmod (0666, "coadmins.file");

$ConfirmLine = "Thanks, the CoAdministrators have been successfully updatet.";
&ConfirmHTML2;

exit;

} #end CoAdmins
######

5.) Now OPEN all other .cgi and .pl Files of the CGI-Directory
When you open a File, look if there is this Code in the File:

######
$ModMatch = "";
foreach $unomod(@mods) {
chomp($unomod);
if ($unomod eq "$UserName") {
$ModMatch = "true";
}
}
######

If this Code isn't in it, close the File and take the Next!
If You found this Code above add the following Code
(could be there a few times in somefiles, you have to paste
the code every time) AFTER it:

######
if ($ModMatch ne "true") {

&Lock("lock.file");
open (COFILE, "coadmins.file");
@zeilen = ;
close (COFILE);

&Unlock("lock.file");

chmod (0666, "coadmins.file");

$zeile = @zeilen[0];
($Co1,$Co2,$Co3,$Co4) = split(/|||/, $zeile);

if ($Co1 eq "^") {
$Co1 = "";
}
if ($Co2 eq "^") {
$Co2 = "";
}
if ($Co3 eq "^") {
$Co3 = "";
}
if ($Co4 eq "^") {
$Co4 = "";
}

$coadmin = "false";

if($Co1 eq $UserName) {
$coadmin = "true";
}
elsif($Co2 eq $UserName) {
$coadmin = "true";
}
elsif($Co3 eq $UserName) {
$coadmin = "true";
}
elsif($Co4 eq $UserName) {
$coadmin = "true";
}

if($coadmin eq "true") {
$ModMatch = "true";
}

}
######

5.)

Then Search after this (think of the Private after $UserName!)

######
$ModMatch = "";
foreach $unomod(@mods) {
chomp($unomod);
if ($unomod eq "$UserNamePrivate") {
$ModMatch = "true";
}
}
######

AFTER THIS ADD THE FOLLOWING CODE:

######
if ($ModMatch ne "true") {

&Lock("lock.file");
open (COFILE, "coadmins.file");
@zeilen = ;
close (COFILE);

&Unlock("lock.file");

chmod (0666, "coadmins.file");

$zeile = @zeilen[0];
($Co1,$Co2,$Co3,$Co4) = split(/|||/, $zeile);

if ($Co1 eq "^") {
$Co1 = "";
}
if ($Co2 eq "^") {
$Co2 = "";
}
if ($Co3 eq "^") {
$Co3 = "";
}
if ($Co4 eq "^") {
$Co4 = "";
}

$coadmin = "false";

if($Co1 eq $UserNamePrivate) {
$coadmin = "true";
}
elsif($Co2 eq $UserNamePrivate) {
$coadmin = "true";
}
elsif($Co3 eq $UserNamePrivate) {
$coadmin = "true";
}
elsif($Co4 eq $UserNamePrivate) {
$coadmin = "true";
}

if($coadmin eq "true") {
$ModMatch = "true";
}

}
######

6.)
Upload all Change UBB Files, and the coadmins.file and then
Chmod the File to 666.

Thats it! Have Fun!

PS: If you feel you would like to give me credit -> [email protected] ;-) *g*

UBB.Developers Forums UBB.classic V5 Mod Questions CoAdministartor Hack