Mail::VRFY - Utility to verify an email address
use Mail::VRFY;
my $code = Mail::VRFY::CheckAddress($emailaddress);
my $code = Mail::VRFY::CheckAddress(addr => $emailaddress, method => 'extended', timeout => 12, debug => 0);
my $english = Mail::VRFY::English($code);
Mail::VRFY was derived from Pete Fritchman's Mail::Verify.
Lots of code has been plucked.
This package attempts to be completely compatibile with Mail::Verify.
Mail::VRFY provides a CheckAddress function for verifying email addresses.
Lots can be checked,
according to the method option,
as described below.
Mail::VRFY differs from Mail::Verify in that:
A. More granular control over what kind of checks to run (via the method option).
B. Email address syntax checking is much more stringent.
C. After making a socket to an authoritative SMTP server, we can start a SMTP converstation, to ensure the mailserver does not give a failure on RCPT TO.
D. More return codes.
If ADDR is not given,
then it may instead be passed as the addr option described below.
OPTIONS are passed in a hash like fashion,
using key and value pairs.
Possible options are:
addr - The email address to check
method - Which method of checking should be used:
syntax - check syntax of email address only (no network testing). compat - check syntax, DNS, and MX connectivity (i.e. Mail::Verify) extended - compat + talk SMTP to see if server will reject RCPT TO
timeout - Number of seconds to wait for data from remote host (Default: 12). this is a per-operation timeout, meaning there is a separate timeout on a DNS query, and each smtp conversation.
debug - Print debugging info to STDERR (0=Off, 1=On).
Here are a list of return codes and what they mean:
This module provides an English sub that will convert the code to English for you.
use Mail::VRFY;
my $email = shift;
unless(defined($email)){
print "email address to be tested: ";
chop($email=<STDIN>);
}
my $code = Mail::VRFY::CheckAddress($email);
my $english = Mail::VRFY::English($code);
if($code){
print "Invalid email address: $english (code: $code)\n";
}else{
print "$english\n";
}
A SMTP server can reject RCPT TO at SMTP time, or it can accept all recipients, and send bounces later. All other things being equal, Mail::VRFY will not detect the invalid email address in the latter case.
Greylisters will cause you pain; look out for return code 6. Some users will want to deem email addresses returning code 6 invalid, others valid, and others will set up a queing mechanism to try again later.
Email address syntax checking does not conform to RFC2822, however, it will work fine on email addresses as we usually think of them. (do you really want:
"Foo, Bar" <test((foo) b`ar baz)@example(hi there!).com>
to be considered valid ?)
Jeremy Kister : http://jeremy.kister.net./
