Merge pull request #89 from wolfgangkarall/bugfix_no_auth_results

Avoid fatal error when there's no 'auth_results' in the XML

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'};