#### Bad E-Mail Addresses,
#### by C.v. Marle (C.A.vanMarle@inter.NL.net)

#### This hack makes an extra function in the admincenter
#### wich gives you the uppertunity to enter e-mail extencions
#### (i.e. @hotmail.com) and prevent users from registering
#### using these e-mail hosts

# 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]
[register.cgi]
[ikonadmin.lib]

###################################  B E G I N  ###################################

[profile.cgi]

#############
## Before: ##
#############

	if ($newsignature) {

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

######check for bad emails          

$filetoopen = "$ikondir" . "data/badmails.cgi";
open (FILE, "$filetoopen");
$badmails = <FILE>;
close (FILE);


if ($badmails) {
	@pairs = split(/\&/,$badmails);
	foreach $bad (@pairs) {
		if ($newemailaddress =~ /$bad/ig){
			print &error("Modify Profile&You cannot use this e-mailaddress");
		}
	}
}
		
[register.cgi]

#############
## Before: ##
#############

        # check against the ban lists
		
##########
## Add: ##
##########

######check for bad emails          

$filetoopen = "$ikondir" . "data/badmails.cgi";
open (FILE, "$filetoopen");
$badmails = <FILE>;
close (FILE);

if ($badmails) {
	@pairs = split(/\&/,$badmails);
	foreach $bad (@pairs) {
		if ($emailaddress =~ /$bad/ig){
			print header(); &error("Registering&You cannot register using this e-mailaddress");
		}
	}
}


[ikonadmin.cgi]

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

    <tr>
    <td bgcolor=#EEEEEE><font face=verdana size=2 color=#333333><b>Set-up Control</b>
    </td></tr>
    <tr>
    <td bgcolor=#FFFFFF><font face=verdana size=2 color=#333333>
    &raquo; <a href="$stylesprog">Styles set-up</a><br>
    &raquo; <a href="$varsprog">Variables set-up</a><br>
    &raquo; <a href="$membertitlesprog">Member titles set-up</a><br>
    &raquo; <a href="setbadwords.cgi">Bad word filter set-up</a>
    </td></tr>

#########
## To: ##
#########

    <tr>
    <td bgcolor=#EEEEEE><font face=verdana size=2 color=#333333><b>Set-up Control</b>
    </td></tr>
    <tr>
    <td bgcolor=#FFFFFF><font face=verdana size=2 color=#333333>
    &raquo; <a href="$stylesprog">Styles set-up</a><br>
    &raquo; <a href="$varsprog">Variables set-up</a><br>
    &raquo; <a href="$membertitlesprog">Member titles set-up</a><br>
    &raquo; <a href="setbadwords.cgi">Bad word filter set-up</a><br>
	&raquo; <a href="setbademail.cgi">Bad E-Mail filter set-up</a>
    </td></tr>
	

#############
## Upload: ##
#############

setbademail.cgi to your cgi-bin/ikonboard directory

Set the invalid hosts in your admincenter

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

# Mzzl, Chris

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