I'm not really a Perl modder, but I was wanting to modify my CP so only a fellow admin and I could see the other Admin/Moderator's passwords. So far, it seems to work on our 6.3.1 system.
code:
FIND:
if (($user_profile[8] eq 'Administrator') || ($user_profile[8] eq 'Moderator')) {
$user_profile[1] = $vars_wordlets_cp{memsearch_edit_passwd_noview};
}
REPLACE:
# Stop the other Admins from seeing Passwords
if (($ubbadmin[4] ne '00000000') && ($ubbadmin[4] ne '00000000')) {
if (($user_profile[8] eq 'Administrator') || ($user_profile[8] eq 'Moderator')) {
$user_profile[1] = $vars_wordlets_cp{memsearch_edit_passwd_noview};
}
}
Replace 00000000 with your UBB ID, and there you go. If you wish to be the only admin, remove
code:
[qb]&& ($ubbadmin[4] ne '00000000')
And if you wish to add more, simply add another
&& ($ubbadmin[4] ne '00000000') after it.
Special thanks to my Friend CmptrWz for helping me out.
