Turn off Public disyplayed name
1.0
This mod allows the admin to turn off the "Public displayed name".
Always and anywhere is just the real-login name displayed then!
Note:
This mod is auto-deactivated. You have to turn the diplay name off
to make this mod working!
dOCda S!
http://gpu.hackers.sk/hacks/index.htm
Sources/Profile.pl
$proftime = qq~$phour:$pmin:$psec$ampm~;
if ($disable_publicname != 1) { $publicname = qq(
$txt{'68'}: $txt{'518'} ); }
$txt{'68'}: $txt{'518'}
$publicname
$online =~ s~\?~$txt{'687'} .~;
if($memsettings[6] > 100000) { $memsettings[6] = "$txt{'683'}"; }
if ($disable_publicname != 1) { $publicname2 = qq($txt{'68'}: $memsettings[1] );
} else { $publicname2 = qq($txt{'68'}: $INFO{'username'} ); }
$txt{'68'}: $memsettings[1]
$publicname2
Sources/Display.pl
$usernamelink = qq~$userprofile[1]
if ($disable_publicname == 1) { $userprofile[1] = "$musername"; }
Sources/BoardIndex.pl
$thelatestmember = qq~$txt{'201'} $userprofile{$latestmember}->[1]
if ($disable_publicname != 1) { $thelatestmember = qq~$txt{'201'} $userprofile{$latestmember}->[1] $latestmember
$moderators{$curuser} = $userprofile{$curuser}->[1];
if ($disable_publicname != 1) { $moderators{$curuser} = $userprofile{$curuser}->[1]; }
else { $moderators{$curuser} = $curuser; }
if($userprofile{$lastposter}->[1]) { $lastposter = qq~$userprofile{$lastposter}->[1] ~; }
if($userprofile{$lastposter}->[1]) {
if ($disable_publicname != 1) { $lastposter = qq~$userprofile{$lastposter}->[1] ~; }
else { $lastposter = qq~$lastposterid ~; }
}
$users .= qq~ $userprofile{$name}->[1] , \n~;
if ($disable_publicname != 1) { $users .= qq~ $userprofile{$name}->[1] , \n~; }
else { $users .= qq~ $name , \n~; }
Sources/MessageIndex.pl
$showmods .= qq~$moderators{$_} , ~;
if ($disable_publicname != 1) { $showmods .= qq~$moderators{$_} , ~; }
else { $showmods .= qq~$useraccount{$_} , ~; }
&LoadUser($musername);
$mname = $userprofile{$musername}->[1] || $mname || $txt{'470'};
$mname = qq~$mname ~;
&LoadUser($musername);
if ($disable_publicname != 1) { $mname = $userprofile{$musername}->[1] || $mname || $txt{'470'}; }
else { $mname = $musername || $txt{'470'}; }
$mname = qq~$mname ~;
if($userprofile{$lastposter}->[1]) { $lastposter = qq~$userprofile{$lastposter}->[1] ~; }
if($userprofile{$lastposter}->[1]) {
if ($disable_publicname != 1) { $lastposter = qq~$userprofile{$lastposter}->[1] ~; }
else { $lastposter = qq~$lastposter ~; }
}
Sources/Recent.pl
$tname = qq~$tname ~;
if ($disable_publicname != 1) { $tname = qq~$tname ~; }
else { $tname = qq~$tusername ~; }
$mname = qq~$mname ~;
if ($disable_publicname != 1) { $mname = qq~$mname ~; }
else { $mname = qq~$musername ~; }
Sources/Post.pl
$name_field = $realname eq '' ? qq~
if ($disable_publicname != 1) { $name_field = $realname eq '' ? qq~
$form_message = qq~\n\n\[quote author=$mname link=board=$currentboard&num=$threadid&start=$quotestart#$quotemsg date=$mdate\]\n$form_message\n\[/quote\]~;
if ($disable_publicname != 1) { $form_message = qq~\n\n\[quote author=$mname link=board=$currentboard&num=$threadid&start=$quotestart#$quotemsg date=$mdate\]\n$form_message\n\[/quote\]~; }
else { $form_message = qq~\n\n\[quote author=$musername link=board=$currentboard&num=$threadid&start=$quotestart#$quotemsg date=$mdate\]\n$form_message\n\[/quote\]~; }
$name = $settings[1];
if ($disable_publicname != 1) { $name = $settings[1]; }
else { $name = $username; }
($trash, $tempname, $trash, $tempdate, $trash, $trash, $trash, $trash, $message, $ns) = split(/\|/,$line);
($trash, $tempname, $trash, $tempdate, $realname, $trash, $trash, $trash, $message, $ns) = split(/\|/,$line);
if ($disable_publicname == 1) { $tempname = "$realname"; }
Sources/InstantMessage.pl
$usernamelink = qq~$userprofile[1]
if ($disable_publicname != 1) { $usernamelink = qq~$userprofile[1] $musername
$usernamelink = qq~$userprofile[1]
if ($disable_publicname != 1) { $usernamelink = qq~$userprofile[1] $musername
Sources/ModifyMessage.pl
($msubject, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $mmessage, $mns, $mlm, $mlmb) = split(/\|/,$messages[$postid]);
if ($disable_publicname == 1) { $mname = "$musername"; }
Sources/Memberlist.pl
if($member[6] > 100000) { $member[6] = "$txt{'683'}"; }
if($tempname)
{
if($member[6] > 100000) { $member[6] = "$txt{'683'}"; }
if ($disable_publicname == 1) { $member[1] = "$tempname"; }
if($tempname)
{
if($member[6] > 100000) { $member[6] = "$txt{'683'}"; }
print qq(
if($member[6] > 100000) { $member[6] = "$txt{'683'}"; }
if ($disable_publicname == 1) { $member[1] = "$membername"; }
print qq(
if($member[6] > 100000) { $member[6] = "$txt{'683'}"; }
print qq(
if($member[6] > 100000) { $member[6] = "$txt{'683'}"; }
if ($disable_publicname == 1) { $member[1] = "$membername"; }
print qq(
Sources/Load.pl
$administrators .= qq~ $userprofile{$curentry}->[1] , \n~;
if ($disable_publicname != 1) {
$administrators .= qq~ $userprofile{$curentry}->[1] , \n~;
} else {
$administrators .= qq~ $curentry , \n~;
}
Sources/Subs.pl
$yyuname = $username eq 'Guest' ? qq~$txt{'248'} $txt{'28'} . $txt{'249'} $txt{'34'} $txt{'377'} $txt{'97'} .~ : qq~$txt{'247'} $realname , ~ ;
if ($disable_publicname == 1) { $realname = "$username"; }
Sources/Admin.pl
$thelatestmember = qq~$txt{'656'} $userprofile{$latestmember}->[1]
if ($disable_publicname != 1) {
$thelatestmember = qq~$txt{'656'} $userprofile{$latestmember}->[1] $txt{'656'} $latestmember
if ($allowpics) { $allowpicschecked = "checked" }
if ($disable_publicname) { $allowpubnameschecked = "checked" }
$txt{'746'}
$distxt{'01'}
# Set as 0 or 1 if box was checked or not
my $fi;
push @onoff, 'allowpubname';
\$allowpics = $allowpics; # set to 1 to allow members to choose avatars in their profile
\$disable_publicname = $allowpubname; # set to 0 to allow members to use public displayed names
english.lng
$txt{'749'} = "The 'number of posts' box can only contain digits.";
$distxt{'01'} = "Disable Members to use Public Displayed Names?";