error on finding email domain

[Butch]

Two ISPs are blocking email from a community service webiste and I
need to alert users to not sign up using an address at one of these
ISPs. My program creates errors unless a condition exists. This
particular error would use this code snippet but I do not know how to
tell it to read the email address after the @ sign only. Here is what
I have:

unless ($form{'EMAIL'} != verizon.net || gte.net);

Will this work or must I some how chomp off everything from the @ sign
to the beginning?


Butch

[Shawn Scott]

You could use a regex and do something like this.

unless ($form{'EMAIL'} !~ /^[a-z0-9\.-]+\@verizon.net$/ || $form{'EMAIL'} !~
/^[a-z0-9\.-]+\@gte.net$/
....

The better solution would be fix the reason they are blocking the site.

-Shawn


"Butch" <webmaster@2clones.com> wrote in message
news:1921f571.0401131500.3ccdef59@posting.google.c om...

> Two ISPs are blocking email from a community service webiste and I
> need to alert users to not sign up using an address at one of these
> ISPs. My program creates errors unless a condition exists. This
> particular error would use this code snippet but I do not know how to
> tell it to read the email address after the @ sign only. Here is what
> I have:
>
> unless ($form{'EMAIL'} != verizon.net || gte.net);
>
> Will this work or must I some how chomp off everything from the @ sign
> to the beginning?
>
>
> Butch