Allow to hide email from public 1.0 This mod adds for each user the possibility to hide their email from public except the admin. You can also disable that feature in admin section. [CV]XXL http://xxl.cstrike.de Sources\Profile.pl $memsettings[18] =~ s/[\n\r]//g; $memsettings[19] =~ s/[\n\r]//g; EOT if ($allow_hide_email == 1) { print <<"EOT"; $txt{'521'} EOT } else { print <<"EOT"; EOT } print <<"EOT"; &FromHTML($memsettings[16]); # Age &FromHTML($memsettings[19]); # hide Email &ToHTML($FORM{'age'}); &ToHTML($FORM{'hideemail'}); print FILE "$memsettings[18]\n"; if ($FORM{'hideemail'} ne "checked") { $FORM{'hideemail'} = ""; } print FILE "$FORM{'hideemail'}\n"; $icq = $memsettings[8]; $memsettings[19] =~ s/[\n\r]//g; $memsettings[2] EOT if ($memsettings[19] ne "checked" || $settings[7] eq "Administrator" || $allow_hide_email ne 1) { print <<"EOT"; $memsettings[2] EOT } else { print "$txt{'522'}"; } print <<"EOT"; Sources\Register.pl EOT if ($allow_hide_email == 1) { print <<"EOT"; $txt{'521'} EOT } else { print <<"EOT"; EOT } print <<"EOT"; &ToHTML($FORM{'age'}); &ToHTML($FORM{'hideemail'}); print FILE "$offset\n"; if ($FORM{'hideemail'} ne "checked") { $FORM{'hideemail'} = ""; } print FILE "$FORM{'hideemail'}\n"; Sources\Display.pl   $userprofile[4]    $sendm EOT if ($userprofile[19] ne "checked" || $settings[7] eq "Administrator" || $allow_hide_email ne 1) { print << "EOT";   $userprofile[4]    $sendm EOT } else { print << "EOT";   $userprofile[4]  $sendm EOT } print << "EOT"; Sources\Memberlist.pl $member[1] $member[2] $member[1] ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( $txt{'522'} ); } else { print qq( $member[2] ); } print qq( $member[1] $member[2] $member[1] ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( $txt{'522'} ); } else { print qq( $member[2] ); } print qq( $member[1] $member[2] $member[1] ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( $txt{'522'} ); } else { print qq( $member[2] ); } print qq( Sources\Admin.pl $txt{'382'} EOT $checked = ""; if ($showlatestmember == 1) { $checked = "checked" } print <<"EOT"; $txt{'523'} EOT $checked = ""; if ($allow_hide_email == 1) { $checked = "checked" } print <<"EOT"; else { $mentype = "0" } $allow_hide_email = $FORM{'allow_hide_email'}; if ($allow_hide_email eq "on") { $allow_hide_email = "1" } else { $allow_hide_email = "0" } 1; ~; \$allow_hide_email = $allow_hide_email; # Allow users to hide their email from public. Set 0 to disable Settings.pl 1; $allow_hide_email = 1; # Allow users to hide their email from public. Set 0 to disable English.lng $txt{'520'} = "Used only for identification by YaBB."; $txt{'521'} = "hide email from public"; $txt{'522'} = "hidden"; $txt{'523'} = "Allow users to hide their email from public (except admin)?";