diff options
author | Florian Pritz <bluewind@xinu.at> | 2013-05-11 13:27:07 +0200 |
---|---|---|
committer | Florian Pritz <bluewind@xinu.at> | 2013-05-11 13:27:07 +0200 |
commit | 60cb01f9a81c311f914aed4a23e8e5b35e965918 (patch) | |
tree | 8b9109a8f1bcf37506755e0e77b83b0a026cda57 /check-mail-addr.pl | |
parent | a9ba01279e6f3c64b082f4de6e7d95cd1b5f7dab (diff) | |
download | bin-60cb01f9a81c311f914aed4a23e8e5b35e965918.tar.gz bin-60cb01f9a81c311f914aed4a23e8e5b35e965918.tar.xz |
soem more cleanup
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'check-mail-addr.pl')
-rwxr-xr-x | check-mail-addr.pl | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/check-mail-addr.pl b/check-mail-addr.pl deleted file mode 100755 index 4aa1d0b..0000000 --- a/check-mail-addr.pl +++ /dev/null @@ -1,51 +0,0 @@ -#!/usr/bin/perl -use warnings; -use strict; -use IO::Socket::INET; -use File::Basename; -use Net::Domain qw(hostfqdn hostdomain); -use Net::DNS; -use Data::Dumper; - -if(@ARGV < 1) { - print "usage: ", basename($0), " <emailaddress> [<from>]\n"; - exit; -} - -autoflush STDOUT 1; - -sub post { - my $socket = shift; - my $command = shift; - my $ret; - - print " >> $command"; - print $socket $command; - while ($ret = $socket->getline) { - print "<< ".$ret; - $ret =~ /[0-9]([- ]).*/; - last if ($1 eq " "); - } - -} - -my $email = $ARGV[0]; -my $from = $ARGV[1] ? $ARGV[1] : ""; -$email =~ m/.*@(.*)/; -my $domain = $1; - -print "Getting MX for $domain\n"; -my @mx = mx($domain); - -print "Connecting to ".$mx[0]->exchange."\n"; -my $socket = IO::Socket::INET->new( - PeerAddr => $mx[0]->exchange, - PeerPort => 25, - Proto => "tcp") || die "Error: couldn't create socket."; - -print "<< ".$socket->getline; -post $socket,"EHLO ".hostfqdn()."\r\n"; -post $socket, "MAIL FROM:<$from>\r\n"; -post $socket, "RCPT TO:<$email>\r\n"; -post $socket, "QUIT\r\n"; - |