| line |
true |
false |
branch |
|
29
|
15231 |
49 |
if $LOGGER
|
|
38
|
0 |
49 |
if (exists $config->{'log_dispatchouli'})
|
|
51
|
0 |
16490 |
if $part eq ""
|
|
64
|
0 |
2294 |
unless -e $file
|
|
68
|
1950 |
344 |
if (not &is_loaded($module)) { }
|
|
86
|
0 |
0 |
unless -e $file
|
|
97
|
0 |
0 |
$priority == 4 ? :
|
|
|
0 |
0 |
$priority == 3 ? :
|
|
|
144 |
0 |
$priority == 2 ? :
|
|
|
74 |
144 |
$priority == 1 ? :
|
|
|
11 |
218 |
$priority == 0 ? :
|
|
126
|
74 |
259 |
if ($object->can("pre_loop_setup"))
|
|
129
|
333 |
0 |
if ($object->can("register_metrics"))
|
|
143
|
20 |
17 |
if ($config->{'protocol'} eq 'milter') { }
|
|
|
17 |
0 |
elsif ($config->{'protocol'} eq 'smtp') { }
|
|
153
|
37 |
0 |
if ($config->{'error_log'})
|
|
154
|
0 |
37 |
unless open STDERR, ">>", $config->{'error_log'}
|
|
155
|
0 |
37 |
unless open STDOUT, ">>", $config->{'error_log'}
|
|
169
|
33 |
302 |
if ($object->can("pre_fork_setup"))
|
|
184
|
26 |
0 |
if ($config->{'error_log'})
|
|
186
|
0 |
26 |
unless open STDERR, ">>", $config->{'error_log'}
|
|
187
|
0 |
26 |
unless open STDOUT, ">>", $config->{'error_log'}
|
|
189
|
0 |
26 |
if (my $error = $@)
|
|
194
|
23 |
3 |
unless defined $arg
|
|
195
|
3 |
23 |
if ($arg eq 'dequeue') { }
|
|
205
|
14 |
12 |
if ($config->{'protocol'} eq 'milter') { }
|
|
|
12 |
0 |
elsif ($config->{'protocol'} eq 'smtp') { }
|
|
217
|
14 |
12 |
if ($config->{'protocol'} eq "milter")
|
|
250
|
23 |
3 |
unless $arg eq "dequeue"
|
|
259
|
22 |
3 |
unless defined $arg
|
|
260
|
3 |
22 |
if ($arg eq 'dequeue') { }
|
|
289
|
0 |
244 |
if ($socket->isa("Net::Server::Proto"))
|
|
291
|
0 |
0 |
if $proto =~ /^UNIX/u
|
|
295
|
0 |
244 |
if ($socket->isa("IO::Socket::IP"))
|
|
299
|
0 |
244 |
if ($socket->isa("IO::Socket::INET"))
|
|
303
|
0 |
244 |
if ($socket->isa("IO::Socket::INET6"))
|
|
307
|
244 |
0 |
if ($socket->isa("IO::Socket::UNIX"))
|
|
335
|
0 |
163 |
if ($proto eq 'tcp') { }
|
|
|
163 |
0 |
elsif ($proto eq 'unix') { }
|
|
351
|
81 |
0 |
if (defined $config->{'metric_connection'})
|
|
364
|
0 |
81 |
if (defined $config->{'metric_port'} and $self->get_client_proto eq 'TCP' and $self->get_client_port eq $config->{'metric_port'}) { }
|
|
|
0 |
81 |
elsif (defined $config->{'metric_connection'} and $metric_type eq 'inet' and $self->get_client_proto eq 'TCP' and $self->get_client_port eq $metric_path) { }
|
|
|
11 |
70 |
elsif (defined $config->{'metric_connection'} and $metric_type eq 'unix' and $self->get_client_proto eq 'UNIX' and $self->get_client_path eq $metric_path) { }
|
|
400
|
1 |
69 |
if ($self->{'handler'}{'_Handler'}{'exit_on_close'})
|
|
408
|
0 |
69 |
if ($config->{'debug'})
|
|
411
|
0 |
0 |
if ($process->pid == $Mail::Milter::Authentication::PID)
|
|
431
|
0 |
1 |
if ($self->{'handler'}{'_Handler'}{'suppress_error_emails'})
|
|
453
|
0 |
0 |
unless $process->pid == $ppid or $process->ppid == $ppid
|
|
497
|
0 |
0 |
unless $process->pid == $Mail::Milter::Authentication::PID or $process->ppid == $Mail::Milter::Authentication::PID
|
|
526
|
0 |
0 |
unless ($pid_file)
|
|
529
|
0 |
0 |
unless (-e $pid_file)
|
|
543
|
0 |
0 |
if ($process->pid == $self_pid)
|
|
544
|
0 |
0 |
if ($process->cmndline eq $Mail::Milter::Authentication::Config::IDENT . ":control")
|
|
548
|
0 |
0 |
if ($process->pid == $pid)
|
|
550
|
0 |
0 |
if ($process->cmndline eq $Mail::Milter::Authentication::Config::IDENT . ":parent")
|
|
559
|
0 |
0 |
unless ($found_self)
|
|
560
|
0 |
0 |
if ($found_pid)
|
|
572
|
0 |
0 |
if ($process->cmndline eq $Mail::Milter::Authentication::Config::IDENT . ":master")
|
|
575
|
0 |
0 |
if ($process->cmndline eq $Mail::Milter::Authentication::Config::IDENT . ":parent")
|
|
590
|
0 |
0 |
if ($command eq 'stop') { }
|
|
|
0 |
0 |
elsif ($command eq 'restart' or $command eq 'start') { }
|
|
|
0 |
0 |
elsif ($command eq 'status') { }
|
|
592
|
0 |
0 |
if ($pid) { }
|
|
602
|
0 |
0 |
if ($pid) { }
|
|
617
|
0 |
0 |
if ($pid) { }
|
|
619
|
0 |
0 |
if (not get_valid_pid($pid_file))
|
|
661
|
37 |
0 |
if ($config->{'error_log'})
|
|
662
|
0 |
37 |
unless open STDERR, ">>", $config->{'error_log'}
|
|
663
|
0 |
37 |
unless open STDOUT, ">>", $config->{'error_log'}
|
|
666
|
0 |
37 |
if ($args->{'daemon'})
|
|
667
|
0 |
0 |
if ($Mail::Milter::Authentication::EUID == 0) { }
|
|
690
|
0 |
37 |
if $config->{'lock_file'}
|
|
692
|
37 |
0 |
if ($Mail::Milter::Authentication::EUID == 0) { }
|
|
695
|
0 |
37 |
if ($user and $group) { }
|
|
704
|
37 |
0 |
if ($config->{'error_log'})
|
|
705
|
0 |
37 |
unless (-e $config->{'error_log'})
|
|
709
|
0 |
37 |
if ($user)
|
|
714
|
0 |
37 |
if (exists $config->{'chroot'})
|
|
725
|
0 |
37 |
if (exists $config->{'connections'})
|
|
743
|
0 |
37 |
if ($type eq 'inet') { }
|
|
|
37 |
0 |
elsif ($type eq 'unix') { }
|
|
772
|
37 |
0 |
if ($umask)
|
|
783
|
37 |
0 |
if (defined $config->{'metric_connection'}) { }
|
|
|
0 |
0 |
elsif (defined $config->{'metric_port'}) { }
|
|
791
|
0 |
37 |
if ($type eq 'inet') { }
|
|
|
37 |
0 |
elsif ($type eq 'unix') { }
|
|
820
|
37 |
0 |
if ($umask)
|
|
830
|
0 |
37 |
if (defined $config->{'metric_port'})
|
|
851
|
0 |
37 |
if ($config->{'patch_net_server'} and scalar @ports == 1)
|
|
874
|
1 |
0 |
if ($Mail::Milter::Authentication::PID != $parent_pid)
|
|
878
|
0 |
0 |
unless $error
|
|
887
|
0 |
0 |
if (scalar @start_times >= 4)
|
|
888
|
0 |
0 |
if ($start_times[3] > time - 120)
|
|
914
|
0 |
0 |
if ($ppid == $Mail::Milter::Authentication::PID) { }
|
|
943
|
348 |
29 |
if (not &is_loaded($package))
|
|
946
|
0 |
348 |
if (my $error = $@)
|
|
962
|
1295 |
2597 |
if ($object->can($callback . "_callback"))
|
|
981
|
479 |
816 |
unless (exists $self->{'callbacks'}{$callback})
|
|
996
|
179 |
479 |
unless (exists $self->{'callbacks'}{$callback})
|
|
1000
|
658 |
0 |
if (not exists $self->{'callbacks_list'}{$callback}) { }
|
|
1021
|
82 |
1213 |
if ($handler->can($requires_method))
|
|
1031
|
0 |
1295 |
if ($handler->can($requires_method))
|
|
1045
|
74 |
104 |
unless (exists $added->{$require})
|
|
1049
|
1295 |
54 |
if ($requires_met == 1) { }
|
|
1059
|
0 |
531 |
if ($defer_count == $todo_count)
|
|
1073
|
25 |
0 |
if ($handler)
|
|
1094
|
538 |
7549 |
if (exists $self->{'smtp'}) { }
|
|
|
4369 |
3180 |
elsif (exists $self->{'handler'}{'_Handler'}) { }
|
|
1095
|
538 |
0 |
if ($self->{'smtp'}{'queue_id'})
|
|
1119
|
0 |
2598 |
if ($self->{'extra_debugging'})
|
|
1127
|
0 |
1 |
if (my $queue_id = $self->get_queue_id)
|
|
1130
|
1 |
0 |
if $config->{'logtoerr'}
|
|
1137
|
9 |
118 |
if (my $queue_id = $self->get_queue_id)
|
|
1140
|
127 |
0 |
if $config->{'logtoerr'}
|
|
1147
|
1140 |
6819 |
if (my $queue_id = $self->get_queue_id)
|
|
1150
|
384 |
7575 |
if ($config->{'debug'})
|
|
1151
|
384 |
0 |
if $config->{'logtoerr'}
|