Global Moderators Profile Access 1.0 This MOD gives to Global Moderators the same rights as Administrators on users profiles! - They can edit all users profiles except admin's profile and most important they cannot set themself admin ^^ - They cannot view passwords but only change if is necessary. Installation instructions: 1 - Install my Custom Titles mod version 1.4 2 - apply the mod with boardmod or manually 3 - have fun :)) Version 1.0 This was originally made on request but was buggie (security holes) then I continued to develop it on my board, so large that i need efficent global mods ^^. Tested it for months on my board so i think is almost bugless and decided to release. Enjoy ^_^ Godai http://www.MangaItalia.it Sources/Profile.pl if($username ne $INFO{'username'} && $settings[7] ne 'Administrator') { if($username ne $INFO{'username'} && $settings[7] ne 'Administrator' && $settings[7] ne 'Global Moderator') { foreach (@memsettings) { $_ =~ s~[\n\r]~~g; } if ($settings[7] eq 'Global Moderator') { if ($memsettings[7] eq "Administrator") { &fatal_error($txt{'80'}); } } if($settings[7] eq "Administrator") { if($memsettings[7] eq 'Administrator') { $tt = $MemStatAdmin; } elsif ($memsettings[7] eq 'Global Moderator') { $tt = $MemStatGMod; } elsif ($memsettings[7] eq 'Moderator') { $tt = $MemStatMod; } else { $tt = $memsettings[7]; } print <<"EOT";
$cuttxt{'1'}: $txt{'86'}: $txt{'87'}: $txt{'233'}:
$txt{'421'} EOT }
if($settings[7] eq 'Global Moderator') { if($memsettings[7] eq 'Administrator') { $tt = $MemStatAdmin; } elsif ($memsettings[7] eq 'Global Moderator') { $tt = $MemStatGMod; } elsif ($memsettings[7] eq 'Moderator') { $tt = $MemStatMod; } else { $tt = $memsettings[7]; } print <<"EOT";
$cuttxt{'1'}: $txt{'86'}: $txt{'87'}: $txt{'233'}:
$txt{'421'} EOT } if($settings[7] eq "Administrator") { if($memsettings[7] eq 'Administrator') { $tt = $MemStatAdmin; } elsif ($memsettings[7] eq 'Global Moderator') { $tt = $MemStatGMod; } elsif ($memsettings[7] eq 'Moderator') { $tt = $MemStatMod; } else { $tt = $memsettings[7]; } print <<"EOT";
$cuttxt{'1'}: $txt{'86'}: $txt{'87'}: $txt{'233'}:
$txt{'421'} EOT }
# make sure this person has access to this profile if($username ne $member{'username'} && $settings[7] ne 'Administrator') { # make sure this person has access to this profile if($username ne $member{'username'} && $settings[7] ne 'Administrator' && $settings[7] ne 'Global Moderator') { if( $settings[7] ne 'Administrator' ) { $member{'username'} = $username; if( $settings[7] ne 'Administrator' && $settings[7] ne 'Global Moderator' ) { $member{'username'} = $username; if( $emailnewpass && lc $member{'email'} ne lc $settings[2] && $settings[7] ne 'Administrator') { if( $emailnewpass && lc $member{'email'} ne lc $settings[2] && $settings[7] ne 'Administrator' && $settings[7] ne 'Global Moderator' ) { &fatal_error("$txt{'680'}") if ($member{'username'} eq "admin" && $member{'settings7'} ne "Administrator"); &fatal_error("$txt{'680'}") if ($member{'username'} eq "admin" && $member{'settings7'} ne "Administrator" && $member{'settings7'} ne "Global Moderator"); if($settings[7] ne "Administrator") { $member{'dr'} = $settings[14]; } if($settings[7] ne "Administrator" && $settings[7] ne "Global Moderator") { $member{'dr'} = $settings[14]; } if ($realnametemp eq $testname && $memberlist[$a] ne $username && $settings[7] ne 'Administrator') { &fatal_error("($member{'name'}) $txt{'473'}"); } if ($realnametemp eq $testname && $memberlist[$a] ne $username && $settings[7] ne 'Administrator' && $settings[7] ne 'Global Moderator') { &fatal_error("($member{'name'}) $txt{'473'}"); } if ($settings[7] eq 'Administrator') { if ($settings[7] eq 'Administrator' || $settings[7] eq "Global Moderator") { if($settings[7] eq 'Administrator') { unlink("$memberdir/$member{'username'}.title"); if($settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator') { unlink("$memberdir/$member{'username'}.title"); if($settings[7] eq 'Administrator') { $umail=$member{'email'}; if($settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator') { $umail=$member{'email'}; if($settings[7] ne 'Administrator') { require "$sourcedir/LogInOut.pl"; &Logout; if($settings[7] ne 'Administrator' && $settings[7] ne 'Global Moderator') { require "$sourcedir/LogInOut.pl"; &Logout; &FormatUserName($INFO{'username'}); if ($username eq $INFO{'username'} || $settings[7] eq "Administrator") { $modify = qq~« $txt{'17'} »~; } if ($username eq $INFO{'username'} || $settings[7] eq "Administrator") { $userpass = qq($txt{'36'}: $memsettings[0]); } ### BUGFIX OWN EMAIL SHOWN IF HIDE IS ACTIVATED ### if ($memsettings[19] ne "checked" || $settings[7] eq "Administrator" || $settings[7] eq "Moderator" || $allow_hide_email ne 1 || $username eq $INFO{'username'}) { $email = qq~$memsettings[2]~; ### END - BUGFIX OWN EMAIL SHOWN IF HIDE IS ACTIVATED ### &FormatUserName($INFO{'username'}); if ($settings[7] eq "Global Moderator") { if ($memsettings[7] eq "Administrator") { $modify = '' } else { $modify = qq~« $txt{'17'} »~; } } if ($username eq $INFO{'username'} || $settings[7] eq "Administrator") { $modify = qq~« $txt{'17'} »~; } if ($username eq $INFO{'username'} || $settings[7] eq "Administrator") { $userpass = qq($txt{'36'}: $memsettings[0]); } ### BUGFIX OWN EMAIL SHOWN IF HIDE IS ACTIVATED ### if ($memsettings[19] ne "checked" || $settings[7] eq "Administrator" || $settings[7] eq "Moderator" || $settings[7] eq "Global Moderator" || $allow_hide_email ne 1 || $username eq $INFO{'username'}) { $email = qq~$memsettings[2]~; ### END - BUGFIX OWN EMAIL SHOWN IF HIDE IS ACTIVATED ### if( ! $cataccess{$curcat} || $settings[7] eq 'Administrator' ) { if( ! $cataccess{$curcat} || $settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator') {