Added Schipka's changes

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

diff --git a/usr/sbin/opendmarc-reports b/usr/sbin/opendmarc-reports
index 7616d8d8b2873ed3138ef820fc603964ea62482d..b9299338043ab79299caf5baf6475a0ffe4fd6e8 100755 (executable)
--- a/usr/sbin/opendmarc-reports
+++ b/usr/sbin/opendmarc-reports
@@ -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";
                                }