diff options
Diffstat (limited to 'check-mail-addr.pl')
-rwxr-xr-x | check-mail-addr.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/check-mail-addr.pl b/check-mail-addr.pl index 773830d..4aa1d0b 100755 --- a/check-mail-addr.pl +++ b/check-mail-addr.pl @@ -7,8 +7,8 @@ use Net::Domain qw(hostfqdn hostdomain); use Net::DNS; use Data::Dumper; -if(@ARGV != 1) { - print "usage: ", basename($0), " <emailaddress>\n"; +if(@ARGV < 1) { + print "usage: ", basename($0), " <emailaddress> [<from>]\n"; exit; } @@ -30,6 +30,7 @@ sub post { } my $email = $ARGV[0]; +my $from = $ARGV[1] ? $ARGV[1] : ""; $email =~ m/.*@(.*)/; my $domain = $1; @@ -44,7 +45,7 @@ my $socket = IO::Socket::INET->new( print "<< ".$socket->getline; post $socket,"EHLO ".hostfqdn()."\r\n"; -post $socket, "MAIL FROM:<>\r\n"; +post $socket, "MAIL FROM:<$from>\r\n"; post $socket, "RCPT TO:<$email>\r\n"; post $socket, "QUIT\r\n"; |