comment on

Here is a patch I added to Email::Valid to help with AOL addresses. I submitted it to the author, but don't think it was added. Someone else may find it useful. The issue I had was people from AOL putting in email addresses as me@aol, since many of them seem to think AOL *is* the internet. The project I was working on needed to validate email addresses for a mailing list, so Email::Valid was great, and adding this patch helped me a bit.

--- Valid.pm    Fri Jul  9 01:34:55 1999
+++ Valid.pm.new        Wed May 10 11:03:20 2000
@@ -186,6 +186,9 @@
   my $self = shift;
   my $addr = shift;

+  # Since many AOL users think AOL _is_ the internet
+  # they sometimes leave off the .com, so let's help them
+  $addr .= ".com" if $addr =~ /aol$/i;
   $addr =~ s/\s+//g if $addr =~ /aol\.com$/i;
   $addr =~ s/,/./g  if $addr =~ /compuserve\.com$/i;
   $addr;
@@ -431,7 +434,9 @@
 Specifies whether calls to address() should attempt to correct
 common addressing errors.  Currently, this results in the removal of
 spaces in AOL addresses, and the conversion of commas to periods in
-Compuserve addresses.  The default is false.
+Compuserve addresses.  This will also tack on a .com to AOL addresses
+which fail to have them, ie. user@aol which is common for AOL users t
+o
+do. The default is false.

 =item fqdn ( <TRUE>|<FALSE> )
[download]

Cheers,
KM

In reply to RE: Email::Valid by KM
in thread Email::Valid by kilinrax

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


There's more than one way to do things
	PerlMonks