This one should work better. The last one had string comparison
problems.
#!/usr/bin/perl
use IO::Select;
use IO::Socket;
use Net::DNS;
$ehloname = "mail.senate.gov";
$timeout = 15;
$dlevel = 0;
sub debug {
(my $str, my $mlevel) = @_;
if ($mlevel <= $dlevel) { print "DEBUG $str"; }
}
On 2004-07-09T01:46:26+0200, Thomas Shaddack wrote:
>
> It fails on hotmail.com; my script has problems there as well (and with
> couple others, the cure seems to be adding delays between the lines sent
> to the server; it makes the program slow, but more reliable).
This should work much better
I cobbled up together a small bash shell script that does this. It lists
the MX records for a domain, and then tries to connect to each of them,
issue an EHLO command, disconnect, then list the output of the server,
alerting if the server supports STARTTLS. It should be easy to further
query t
