| line |
true |
false |
branch |
|
47
|
0 |
5 |
unless defined $domain
|
|
52
|
5 |
0 |
if ($trusted_domains)
|
|
54
|
5 |
0 |
if ($domain eq lc $trusted_domain)
|
|
62
|
0 |
0 |
if ($rbl_whitelist)
|
|
63
|
0 |
0 |
if ($self->rbl_check_domain($domain, $rbl_whitelist))
|
|
76
|
1 |
1 |
unless $aar
|
|
87
|
0 |
0 |
unless $smtp_mailfrom
|
|
96
|
0 |
1 |
if (my $error = $@)
|
|
108
|
1 |
1 |
unless $aar
|
|
119
|
0 |
1 |
unless ($entry_domain)
|
|
123
|
0 |
0 |
if ($entry_domain)
|
|
127
|
0 |
1 |
unless $entry_domain
|
|
132
|
1 |
0 |
unless (defined $entry_selector)
|
|
138
|
1 |
0 |
unless defined $entry_selector
|
|
139
|
0 |
1 |
if $entry_selector eq ""
|
|
143
|
0 |
1 |
unless $entry_selector
|
|
154
|
0 |
1 |
if (my $error = $@)
|
|
165
|
0 |
1 |
unless $self->is_handler_loaded("SPF")
|
|
168
|
0 |
1 |
unless $aar
|
|
178
|
0 |
0 |
if scalar @{$result->search({"isa", "subentry", "key", "x-arc-domain"})->children;} > 0
|
|
183
|
0 |
0 |
unless $smtp_mailfrom
|
|
196
|
0 |
1 |
if (my $error = $@)
|
|
206
|
0 |
1 |
unless $self->is_handler_loaded("DKIM")
|
|
209
|
0 |
1 |
unless $aar
|
|
219
|
0 |
1 |
if scalar @{$result->search({"isa", "subentry", "key", "x-arc-domain"})->children;} > 0
|
|
224
|
0 |
1 |
unless ($entry_domain)
|
|
228
|
0 |
0 |
if ($entry_domain)
|
|
232
|
0 |
1 |
unless $entry_domain
|
|
245
|
0 |
1 |
if (my $error = $@)
|
|
256
|
0 |
1 |
unless $aar
|
|
265
|
0 |
0 |
if scalar @{$result->search({"isa", "subentry", "key", "x-arc-domain"})->children;} > 0
|
|
274
|
0 |
2 |
if (my $error = $@)
|
|
285
|
2 |
5 |
if $self->{'arc_result'} ne "pass"
|
|
291
|
5 |
0 |
if ($self->is_domain_trusted($signature_domain)) { }
|
|
301
|
0 |
5 |
if (scalar keys %$trusted_aar == 0)
|
|
310
|
0 |
0 |
if $self->{'arc_result'} ne "pass"
|
|
313
|
0 |
0 |
unless $self->is_domain_trusted($signature_domain)
|
|
322
|
0 |
0 |
unless $aar
|
|
324
|
0 |
0 |
unless $first_instance
|
|
329
|
0 |
0 |
if (my $error = $@)
|
|
333
|
0 |
0 |
if $ip
|
|
336
|
0 |
0 |
if (my $error = $@)
|
|
347
|
0 |
0 |
unless $trusted_aar
|
|
350
|
0 |
0 |
if (scalar @{$found->children;})
|
|
377
|
1 |
45 |
if (lc $header eq "arc-authentication-results")
|
|
386
|
1 |
45 |
if (lc $header eq "arc-seal")
|
|
390
|
1 |
45 |
if (lc $header eq "arc-message-signature")
|
|
401
|
0 |
0 |
if ($config->{'arcseal_domain'} and $config->{'arcseal_selector'} and $config->{'arcseal_key'} || $config->{'arcseal_keyfile'})
|
|
408
|
9 |
1 |
unless ($self->{'has_arc'})
|
|
411
|
9 |
0 |
unless ($config->{'hide_none'})
|
|
417
|
9 |
0 |
unless $self->{'has_arcseal'}
|
|
424
|
0 |
1 |
if ($config->{'no_strict'})
|
|
432
|
0 |
1 |
if (my $error = $@)
|
|
439
|
0 |
0 |
unless $self->{'has_arcseal'}
|
|
449
|
0 |
1 |
if (my $error = $@)
|
|
456
|
0 |
0 |
unless $self->{'has_arcseal'}
|
|
466
|
0 |
10 |
if ($self->{'carry'} ne '') { }
|
|
474
|
0 |
10 |
if (substr($arc_chunk, -1) eq "\r")
|
|
480
|
0 |
10 |
if $self->{'has_arcseal'}
|
|
482
|
1 |
9 |
if ($self->{'has_arc'} and not $self->{'failmode'})
|
|
487
|
0 |
1 |
if (my $error = $@)
|
|
494
|
0 |
0 |
unless $self->{'has_arcseal'}
|
|
503
|
1 |
0 |
if ($self->is_handler_loaded("DKIM"))
|
|
513
|
0 |
0 |
if $self->{'carry'} and $self->{'has_arcseal'}
|
|
516
|
9 |
1 |
unless $self->{'has_arc'}
|
|
517
|
0 |
1 |
if $self->{'failmode'}
|
|
539
|
1 |
0 |
ref $signature eq 'Mail::DKIM::ARC::MessageSignature' ? :
|
|
|
1 |
1 |
ref $signature eq 'Mail::DKIM::ARC::Seal' ? :
|
|
551
|
1 |
0 |
if (@items)
|
|
557
|
0 |
1 |
if (my $error = $@)
|
|
571
|
0 |
1 |
if (my $error = $@)
|
|
602
|
0 |
0 |
if ($error =~ /^DNS error: query timed out/u or $error =~ /^DNS query timeout/u) { }
|
|
|
0 |
0 |
elsif ($error =~ /^DNS error: SERVFAIL/u) { }
|
|
|
0 |
0 |
elsif ($error =~ /^no domain to fetch policy for$/u or $error =~ /^policy syntax error$/u or $error =~ /^empty domain label/u or $error =~ /^invalid name /u) { }
|
|
647
|
20 |
0 |
unless $self->{'has_arcseal'}
|
|
653
|
0 |
0 |
if ($config->{'arcseal_keyfile'}) { }
|
|
673
|
0 |
0 |
unless $handler->{'pre_headers'}
|
|
682
|
0 |
0 |
unless $self->{'headers'}
|
|
687
|
0 |
0 |
unless $handler->{'add_headers'}
|
|
719
|
0 |
0 |
if ($header_line =~ /^\s/u) { }
|
|
726
|
0 |
0 |
if ($current_header ne "")
|
|
735
|
0 |
0 |
if ($current_header ne "")
|
|
745
|
0 |
0 |
if (my $error = $@)
|