Fixed 'Helo'/'Hello' bug in initial SMTP contact

[opendmarc.git] / usr / sbin / opendmarc-reports

diff --git a/usr/sbin/opendmarc-reports b/usr/sbin/opendmarc-reports
index 7616d8d8b2873ed3138ef820fc603964ea62482d..43f1ea4c54a446dcb1a3a39d0d583165b0734f2c 100755 (executable)
--- a/usr/sbin/opendmarc-reports
+++ b/usr/sbin/opendmarc-reports
@@ -384,7 +384,7 @@ if ($verbose)
 
 $smtp = Net::SMTP->new($smtp_server,
                        'Port' => $smtp_port,
-                       'Helo' => hostfqdn());
+                       'Hello' => hostfqdn());
 if (!defined($smtp))
 {
        print STDERR "$progname: open SMTP server $smtp_server:$smtp_port failed\n";
@@ -935,6 +935,7 @@ foreach (@$domainset)
                                {
                                        # now perl voodoo:
                                        $answer = ${${*$smtp}{'net_cmd_resp'}}[1];
+                                       $answer = $smtp->message() if (!defined($answer));
                                        chomp($answer);
                                        print STDERR "$progname: $smtpstatus report for $domain to $repdest ($answer)\n";
                                }