| line |
true |
false |
branch |
|
37
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
41
|
0 |
26 |
if (lc $proto eq 'tcp' or lc $proto eq 'inet') { }
|
|
|
26 |
0 |
elsif (lc $proto eq 'unix' or lc $proto eq 'local') { }
|
|
42
|
0 |
0 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
44
|
0 |
0 |
unless $sock = 'IO::Socket::INET'->new('PeerAddr', $addr, 'PeerPort', $port, 'Proto', 'tcp', 'Type', 1, 'Timeout', 10)
|
|
52
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
54
|
0 |
26 |
unless $sock = 'IO::Socket::UNIX'->new('Peer', $addr, 'Type', 1, 'Timeout', $port)
|
|
61
|
0 |
26 |
if (not defined $sock) { }
|
|
77
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
85
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
91
|
78 |
78 |
if (defined $options{$action} and $options{$action} == 0) { }
|
|
107
|
0 |
182 |
if (defined $options{$content} and $options{$content} == 1) { }
|
|
122
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
130
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
138
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
142
|
0 |
26 |
if ($command ne 'O')
|
|
146
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
147
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
148
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
151
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
157
|
0 |
0 |
if ($ret_actions & 2 ** $count)
|
|
165
|
0 |
0 |
if ($ret_protocol & 2 ** $count)
|
|
182
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
195
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
198
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
200
|
0 |
26 |
if (length $body > 65535) { }
|
|
209
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
224
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
227
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
248
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
250
|
0 |
26 |
if (lc $family eq 'unix') { }
|
|
|
26 |
0 |
elsif (lc $family eq 'tcp4') { }
|
|
|
0 |
0 |
elsif (lc $family eq 'tcp6') { }
|
|
257
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
271
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
276
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
291
|
0 |
291 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
310
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
327
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
343
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
361
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
378
|
0 |
681 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
384
|
0 |
681 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
386
|
0 |
0 |
if (length $data < 100) { }
|
|
392
|
0 |
681 |
unless (defined $self->{'socket'})
|
|
395
|
577 |
104 |
if length $data > 0
|
|
409
|
0 |
558 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
414
|
0 |
558 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
418
|
86 |
472 |
if ($length > 0)
|
|
432
|
0 |
785 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
446
|
0 |
613 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
461
|
0 |
532 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
464
|
0 |
0 |
if (defined $data and not $command =~ /[hm]/)
|
|
471
|
0 |
532 |
if ($command eq '+') { }
|
|
|
0 |
532 |
elsif ($command eq '-') { }
|
|
|
0 |
532 |
elsif ($command eq 'a') { }
|
|
|
0 |
532 |
elsif ($command eq 'b') { }
|
|
|
472 |
60 |
elsif ($command eq 'c') { }
|
|
|
0 |
60 |
elsif ($command eq 'd') { }
|
|
|
4 |
56 |
elsif ($command eq 'h') { }
|
|
|
49 |
7 |
elsif ($command eq 'i') { }
|
|
|
6 |
1 |
elsif ($command eq 'm') { }
|
|
|
0 |
1 |
elsif ($command eq 'p') { }
|
|
|
0 |
1 |
elsif ($command eq 'r') { }
|
|
|
0 |
1 |
elsif ($command eq 't') { }
|
|
|
1 |
0 |
elsif ($command eq 'y') { }
|
|
564
|
0 |
473 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
567
|
0 |
532 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
573
|
0 |
532 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
574
|
472 |
60 |
if ($reply_ref->{'command'} eq 'c') { }
|
|
|
0 |
60 |
elsif ($reply_ref->{'command'} eq 'a') { }
|
|
|
0 |
60 |
elsif ($reply_ref->{'command'} eq 'r') { }
|
|
|
0 |
60 |
elsif ($reply_ref->{'command'} eq 't') { }
|
|
|
1 |
59 |
elsif ($reply_ref->{'command'} eq 'y') { }
|
|
|
0 |
59 |
elsif ($reply_ref->{'command'} eq 'd') { }
|
|
591
|
0 |
156 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
595
|
0 |
156 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
601
|
26 |
130 |
if (defined $macros{'j'})
|
|
602
|
0 |
156 |
if (defined $macros{'_'})
|
|
603
|
0 |
156 |
if (defined $macros{'{daemon_name}'})
|
|
604
|
0 |
156 |
if (defined $macros{'{if_name}'})
|
|
605
|
0 |
156 |
if (defined $macros{'{if_addr}'})
|
|
607
|
26 |
130 |
if (@data)
|
|
608
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
613
|
0 |
156 |
if (defined $macros{'{tls_version}'})
|
|
614
|
0 |
156 |
if (defined $macros{'{cipher}'})
|
|
615
|
0 |
156 |
if (defined $macros{'{cipher_bits}'})
|
|
616
|
0 |
156 |
if (defined $macros{'{cert_subject}'})
|
|
617
|
0 |
156 |
if (defined $macros{'{cert_issuer}'})
|
|
619
|
0 |
156 |
if (@data)
|
|
620
|
0 |
0 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
627
|
78 |
78 |
if (defined $macros{'i'})
|
|
628
|
0 |
156 |
if (defined $macros{'{auth_type}'})
|
|
629
|
0 |
156 |
if (defined $macros{'{auth_authen}'})
|
|
630
|
0 |
156 |
if (defined $macros{'{auth_ssf}'})
|
|
631
|
0 |
156 |
if (defined $macros{'{auth_author}'})
|
|
632
|
26 |
130 |
if (defined $macros{'{mail_mailer}'})
|
|
633
|
26 |
130 |
if (defined $macros{'{mail_host}'})
|
|
634
|
26 |
130 |
if (defined $macros{'{mail_addr}'})
|
|
636
|
104 |
52 |
if (@data)
|
|
637
|
0 |
104 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
643
|
26 |
130 |
if (defined $macros{'{rcpt_mailer}'})
|
|
644
|
26 |
130 |
if (defined $macros{'{rcpt_host}'})
|
|
645
|
26 |
130 |
if (defined $macros{'{rcpt_addr}'})
|
|
647
|
26 |
130 |
if (@data)
|
|
648
|
0 |
26 |
if ($Mail::Milter::Authentication::Net::Milter::DEBUG == 1)
|
|
668
|
1939 |
0 |
if (defined $len) { }
|
|
689
|
1202 |
0 |
if (defined $len) { }
|
|
704
|
26 |
0 |
if (defined $self->{'socket'})
|