comment on

vit,
Interesting. There was a project nearly identical to this on one of the freelance boards I use to pick up jobs. I didn't bid on it because the poster specifically stated that automated routines would not be allowed - each record had to be checked manually.

I would probably use IO::Socket::Telnet. Something along the lines of this completely untested code:

use IO::Socket::Telnet;
my $socket = IO::Socket::Telnet->new(
    PeerAddr => 'random.server.org',
    PeerPort => 25,
    Timeout  => 3
);
die "Not an email server\n" if ! $socket;
$socket->send("helo mydomain.com");
my $resp;
$socket->recv(my $resp, 4096) or die $!;
die "Not an email server\n" if ! defined $resp || ($resp !~ /^220 / &&
+ $resp !~ /^250 /);
[download]

this link may be of use in determining other SMTP response codes that indicate it is in fact an SMTP server but not necessarily behaving as you might expect.

Cheers - L~R

In reply to Re^3: Determine if domain is actually used for email by Limbic~Region
in thread Determine if domain is actually used for email by vit

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.


laziness, impatience, and hubris
	PerlMonks