Well after patiently waiting for some help pertaining to my prob (given hat I am NOT a perl expert), I decided, after many months to knuckle this prob out. (see post 12 in this thread).
Quote:I think I found a bug - I could be wrong.
I have the following domains listed as INVALID domains as they are free email domains.
mail.com
email.com
When a member tries to register with a domain of "ozemail.com.au", which is a valid domain, they get an error of "invalid domain"
Can this be looked at. If it is a bug, then any domain that is banned, like "snappy.com", will also ban "snappying.com" or "snappying.com.au"
I was using beta 0.6, but checked with version 1 of this mod, and only one line is different.
I could wrong though in my assesment of the above !!
cheers
Tom
I finally worked it out, the changes required to the Register.pl file to resolve my prob. Thought someone might find it usedfull one day, if experiencing the same prob, hence my input here today.
($dummy, $memmaildom) = split(/\@/, $member{'email'},2);
$x=0;
$domcheck = $getsel;
foreach $chkmaildom (@maildom) {
chomp $chkmaildom;
if($x>0) {
if($getsel == 0) {
# if($memmaildom =~ m/\Q$chkmaildom\E/ig) { $domcheck = 1; } <-------------Old Line
if($memmaildom =~ m/^\Q$chkmaildom\E$/ig) { $domcheck = 1; } <-------------Changed
}
else {
# if($memmaildom =~ m/\Q$chkmaildom\E/ig) { $domcheck = 0; } <-------------Old Line
if($memmaildom =~ m/^\Q$chkmaildom\E$/ig) { $domcheck = 0; } <-------------Changed
}
}
$x++;
}