diff options
author | Florian Pritz <bluewind@xssn.at> | 2010-11-28 19:02:04 +0100 |
---|---|---|
committer | Florian Pritz <bluewind@xssn.at> | 2010-11-28 19:02:04 +0100 |
commit | 1d2d26d415b4e86f6ebdabc7f2fe965235875db5 (patch) | |
tree | 0bba71ad4199591ed116f3a44893d3d882095793 /check-mail-addr.pl | |
parent | f13cd5fd1d45a12136ef25710f0a789f1bab2104 (diff) | |
download | bin-1d2d26d415b4e86f6ebdabc7f2fe965235875db5.tar.gz bin-1d2d26d415b4e86f6ebdabc7f2fe965235875db5.tar.xz |
check-mail-addr.pl: fix lineendings
Signed-off-by: Florian Pritz <bluewind@xssn.at>
Diffstat (limited to 'check-mail-addr.pl')
-rwxr-xr-x | check-mail-addr.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/check-mail-addr.pl b/check-mail-addr.pl index 29f23c2..773830d 100755 --- a/check-mail-addr.pl +++ b/check-mail-addr.pl @@ -43,8 +43,8 @@ my $socket = IO::Socket::INET->new( Proto => "tcp") || die "Error: couldn't create socket."; print "<< ".$socket->getline; -post $socket,"EHLO ".hostfqdn()."\n"; -post $socket, "MAIL FROM:<>\n"; -post $socket, "RCPT TO:<$email>\n"; -post $socket, "QUIT\n"; +post $socket,"EHLO ".hostfqdn()."\r\n"; +post $socket, "MAIL FROM:<>\r\n"; +post $socket, "RCPT TO:<$email>\r\n"; +post $socket, "QUIT\r\n"; |