#### Hide All E-Mailaddresses,
#### by C.v. Marle (C.A.vanMarle@inter.NL.net)

#### This hack makes an extra function in the "set style"
#### wich gives you the uppertunity to hide all members
#### e-mailaddresses from people.

# Some things may differ, because I've a very modified board...
# Sorry... If you can't find any thing, please mail me...
# BACK-UP all your files before editing!!!
# Don't blame me if your board's messed up

# Files edited:
[profile.cgi]
[topic.cgi]
[setvariables.cgi]

[profile.cgi]

#################
## Search for: ##
#################

	################ show profile subroutine

#############
## Change: ##
#############

	    if ($showemail ne "yes") { $emailaddress = "Private"; }
		
#########
## To: ##
#########

	    if ($showemail ne "yes" && $hidemail ne "no") { $emailaddress = "Private"; }
		

[topic.cgi]

#############
## Change: ##
#############

        if($showemail eq "yes") { $emailgraphic = qq~<a href="mailto:$emailaddress"><img src="$imagesurl/images/email.gif" border=0></a>~; }
		
#########
## To: ##
#########

        if($showemail eq "yes" && $hidemail eq "no") { $emailgraphic = qq~<a href="mailto:$emailaddress"><img src="$imagesurl/images/email.gif" border=0></a>~; }

[setvariables.cgi]

############
## After: ##
############

                ~;
                $tempoutput = "<select name=\"newusernotify\">\n<option value=\"no\">NO\n<option value=\"yes\">YES\n</select>\n";
                $tempoutput =~ s/value=\"$newusernotify\"/value=\"$newusernotify\" selected/;
                print qq~
                <tr>
                <td bgcolor=#FFFFFF valign=middle align=left width=40%>
                <font face=verdana color=#333333 size=1><b>Do you wish to get notified of new members via email?</b><br>'Yes' is recommended</font></td>
                <td bgcolor=#FFFFFF valign=middle align=left>
                $tempoutput</td>
                </tr>

##########
## Add: ##
##########

                ~;
                $tempoutput = "<select name=\"hidemail\">\n<option value=\"no\">NO\n<option value=\"yes\">YES\n</select>\n";
                $tempoutput =~ s/value=\"$hidemail\"/value=\"$hidemail\" selected/;
                print qq~
                <tr>
                <td bgcolor=#FFFFFF valign=middle align=left width=40%>
                <font face=verdana color=#333333 size=1><b>Do you wish to hide the emailaddress of members?</b></font></td>
                <td bgcolor=#FFFFFF valign=middle align=left>
                $tempoutput</td>
                </tr>


# I think that should do it...       ;)      

# Mzzl, Chris

# P.S. if you find any bugs/errors please send me an e-mail