diff options
| -rwxr-xr-x | dmarcts-report-parser.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/dmarcts-report-parser.pl b/dmarcts-report-parser.pl index 0f90ace..90447e8 100755 --- a/dmarcts-report-parser.pl +++ b/dmarcts-report-parser.pl @@ -828,6 +828,10 @@ sub storeXMLInDatabase { my $identifier_hfrom = $r{'identifiers'}->{'header_from'}; my ($dkim, $dkimresult, $spf, $spfresult, $reason); + if(ref $r{'auth_results'} ne "HASH"){ + print "Report has no auth_results data. Skipped.\n"; + return 0; + } my $rp = $r{'auth_results'}->{'dkim'}; if(ref $rp eq "HASH") { $dkim = $rp->{'domain'}; |