Home : Products : DBMan : Discussions :

Products: DBMan: Discussions: Re: [kinisi] ban e-mail addresses: Edit Log

Here is the list of edits for this post
Re: [kinisi] ban e-mail addresses
....how about:

Code:
my @ban_list = ();

open B, "<banlist.txt" or die $!;
@ban_list = <B>;
close B;

my $domain = $in{Email_Field}; $domain =~ s/^\S+@(\S+\.\S+)$/$1/;

if (grep { /^\Q$domain\E$/ } @ban_list) {

some_error_here

}

Last edited by:

RedRum: Feb 23, 2002, 2:26 AM

Edit Log: