diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2019-08-16 17:44:26 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2019-08-19 08:05:40 +0100 |
| commit | 4ed2eaefc4f76330dad4c28c95481bc259b9db18 (patch) | |
| tree | 57a6b5ce3bad94a68871a9600c9b0e518068adf0 | |
| parent | 2f93e3ef8b15f3dce3ebeb49e3b999de76da0164 (diff) | |
Treat DMARC quarantine same as reject.
| -rw-r--r-- | perllib/Utils/Email.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/Utils/Email.pm b/perllib/Utils/Email.pm index 5e3df0205..ded14874e 100644 --- a/perllib/Utils/Email.pm +++ b/perllib/Utils/Email.pm @@ -14,7 +14,7 @@ sub test_dmarc { my @answers = _send(Net::DNS::Resolver->new, "_dmarc.$domain", 'TXT'); @answers = map { $_->txtdata } @answers; my $dmarc = join(' ', @answers); - return unless $dmarc =~ /p *= *reject/; + return unless $dmarc =~ /p *= *(reject|quarantine)/; return 1; } |