From 78349ac1769a48e5047e6cb0e29e528d5a02dfbd Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alex@spline.inf.fu-berlin.de>
Date: Thu, 26 May 2016 03:44:31 +0200
Subject: Ignore invalid domains

---
 Spline/DMARC.pm | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/Spline/DMARC.pm b/Spline/DMARC.pm
index 4264dd5..1cea9cb 100644
--- a/Spline/DMARC.pm
+++ b/Spline/DMARC.pm
@@ -48,12 +48,21 @@ sub get_dmarc_policy($) {
     my $domain = shift;
     my $effective_p = 'none';
 
-    my $dmarc = Mail::DMARC::PurePerl->new(
-        header_from => $domain,
-    );
-
     debug "Checking DMARC policy for $domain";
-    if ($dmarc->exists_in_dns()) {
+
+    my $dmarc;
+    eval {
+        $dmarc = Mail::DMARC::PurePerl->new(
+            header_from => $domain,
+        );
+    };
+
+    if ($@) {
+        chomp($@);
+        debug "Error: $@";
+        info "Skipping invalid domain: $domain";
+    }
+    elsif ($dmarc->exists_in_dns()) {
         my $policy = $dmarc->discover_policy();
     
         if (defined $policy && $policy->is_valid()) {
-- 
cgit v1.2.3-1-g7c22