Hello, I am trying to install the mega mod patch for Authority List . . . I get to the 2ed to last step
###
#Find:
###
$vars_wordlets_mods{auth_admins} $Administrator
###
#Add Under:
###
$vars_wordlets_mods{auth_megamod} $MegaModerator
###
Close ubb_auth_list.cgi
well that is no where to be found on my ubb_auth_list.cgi here is the whole file for crying out loud!
#Ubb_auth_list.cgi coded by Tech-Ni-Kal modified by Lord Dexter
sub auth_list {
&RequireCode("$
_config{CGIPath}/ubb_registration.cgi");
my $last_number = &GetLastMemberNumber;
for ($start = &Do8Digit(1);$start le $last_number;$start = &Do8Digit($start + 1)) {
if (-e "$vars_config{MembersPath}/$start.cgi") {
@user_profile = &OpenProfile($start);
chomp($user_profile[0]);
chomp($user_profile[8]);
chomp($user_profile[15]);
if ($user_profile[8] eq "Administrator") {
if ($user_profile[15]) {
$Administrator .= qq~
$user_profile[15], ~;
} else {
$Administrator .= qq~
$user_profile[0], ~;
}
}
if ($user_profile[8] eq "MegaModerator") {
if ($user_profile[15]) {
$MegaModerator .= qq~
$user_profile[15], ~;
} else {
$MegaModerator .= qq~
$user_profile[0], ~;
}
}
elsif ($user_profile[8] eq "Moderator") {
if ($user_profile[15]) {
$Moderators .= qq~
$user_profile[15], ~;
} else {
$Moderators .= qq~
$user_profile[0], ~;
}
}
}
}
$Administrator =~ s/, $/ /;
$MegaModerator =~ s/, $/ /;
$Moderators =~ s/, $/ /;
my @mods = &OpenFileAsArray("$vars_config{CGIPath}/vars_mods.cgi");
@mods = reverse(@mods);
foreach (@mods) {
@split_for_fnum = split(/=/, $_);
@fnum = $split_for_fnum[0] =~ /d{1,4}/g;
@unums = $_ =~ /d{8}/g;
foreach $num (@unums) {
my @thisforum = &GetForumRecord($fnum[0]);
$forum_name = $thisforum[1];
if ($forum_name) {
$mod_f_count{$num} = $mod_f_count{$num} + 1;
$mod_which_f{$num} = "
$forum_name, $mod_which_f{$num}";
$mod_which_f{$num} =~ s/, $/ /;
$mod{$num} = [ $mod_f_count{$num}, $mod_which_f{$num} ];
}
}
}
foreach $key (keys %mod) {
my @user_profile = &OpenProfile($key);
$Usernumber = $key;
chomp ($user_profile[15]);
chomp ($user_profile[0]);
chomp ($user_profile[7]);
if ($user_profile[7] eq '') {
$Posts = "(no current posts)";
} else {
$Posts = "$user_profile[7]";
}
if ($user_profile[15]) {
$Name = qq~
$user_profile[15]~;
} else {
$Name = qq~
$user_profile[0]~;
}
$mod_info_row .= qq~
$Name | $mod{$key}[1] | $Posts |