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
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).
In my case I added "-i 3" to the netcat options. Isn't a panacea, but
helped in most ca
On 2004-07-08T17:50:57+0200, Thomas Shaddack wrote:
> 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,
..
Or, in perl... tho
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