| line |
true |
false |
branch |
|
53
|
0 |
0 |
if ($@) |
|
61
|
0 |
0 |
unless my $app_name = $self->{'args'}{'app_name'} |
|
75
|
0 |
0 |
unless (defined $fn) |
|
80
|
0 |
0 |
if -l $sl |
|
112
|
0 |
0 |
unless is_ipv4($self->{'remote_network'}) |
|
122
|
0 |
0 |
unless $netmask =~ /^\d+$/ and $netmask >= 1 and $netmask <= 31 |
|
130
|
0 |
0 |
if ($ip =~ /^\d+$/) |
|
133
|
0 |
0 |
unless is_ipv4($ip) |
|
139
|
0 |
0 |
unless (($ip_int & $bitmask) == ($ip_int & $bitmask)) |
|
158
|
0 |
0 |
unless $butler->start |
|
159
|
0 |
0 |
unless $butler->hello |
|
166
|
0 |
0 |
if $self->{'run_in_foreground'} |
|
172
|
0 |
0 |
if ($pid == 0) { } |
|
176
|
0 |
0 |
unless ($self->{'dont_close_stdio'}) |
|
179
|
0 |
0 |
unless $self->{'log_to_stderr'} |
|
204
|
0 |
0 |
if defined $port |
|
205
|
0 |
0 |
if defined $user |
|
206
|
0 |
0 |
if defined $cmd |
|
207
|
0 |
0 |
if defined $more_args |
|
209
|
0 |
0 |
if $ssh->error |
|
216
|
0 |
0 |
$self->{'remote_shell'} eq 'windows' ? : |
|
227
|
0 |
0 |
if ($looks_like_unix) { } |
|
230
|
0 |
0 |
if ($uname =~ /^(Linux|Darwin|FreeBSD|OpenBSD|NetBSD|DragonFly|MidnightBSD|AIX|HP-UX|SunOS|IRIX|OSF1|SCO_SV|QNX)$/i) |
|
238
|
0 |
0 |
if ($ver =~ /^(Microsoft Windows \[Version.*\])/m) |
|
249
|
0 |
0 |
if ($self->{'remote_os'} eq "windows") |
|
253
|
0 |
0 |
unless my $out = $ssh->capture("echo \$SHELL") |
|
263
|
0 |
0 |
unless $butler->device_up($device) |
|
268
|
0 |
0 |
unless $butler->device_addr_add($device, $host, $mask) |
|
289
|
0 |
0 |
unless $pid |
|
295
|
0 |
0 |
if ($self->{'remote_os'} eq "windows") |
|
306
|
0 |
0 |
unless -e "/dev/$device" |
|
324
|
0 |
0 |
$self->{'remote_os'} eq 'windows' ? : |
|
325
|
0 |
0 |
if (my(@addrs) = $self->$method($iface)) { } |
|
352
|
0 |
0 |
if ($record->{'InterfaceAlias'} eq $iface and $record->{'AddressFamily'} eq 2) |
|
358
|
0 |
0 |
unless (@addrs) |
|
382
|
0 |
0 |
if ($self->_validate_ipv4($addr) and $self->_validate_netmask($mask)) { } |
|
396
|
0 |
0 |
if (defined(my $host = $record->{'host'})) |
|
397
|
0 |
0 |
if ($self->_validate_domain_name($host)) { } |
|
411
|
0 |
0 |
if (is_ipv4($host)) { } |
|
|
0 |
0 |
elsif ($self->_validate_domain_name($host)) { } |
|
417
|
0 |
0 |
unless ($err) |
|
419
|
0 |
0 |
if ($record->{'family'} == 2) |
|
428
|
0 |
0 |
unless $good |
|
438
|
0 |
0 |
if is_ipv4($ipv4) |
|
445
|
0 |
0 |
if $mask =~ /\d+/ and $mask >= 1 and $mask <= 32 |
|
452
|
0 |
0 |
if is_hostname($domain, {"domain_private_tld", 1}) |
|
460
|
0 |
0 |
if (@$route_hosts) |
|
463
|
0 |
0 |
if ($self->_validate_domain_name($host)) { } |
|
467
|
0 |
0 |
if ($query) |
|
469
|
0 |
0 |
if ($rr->type eq "A") |
|
477
|
0 |
0 |
unless $good |
|
490
|
0 |
0 |
if ($self->_validate_domain_name($host)) { } |
|
492
|
0 |
0 |
$self->{'remote_os'} eq 'windows' ? : |
|
498
|
0 |
0 |
unless @addrs |
|
522
|
0 |
0 |
if $r->{'Type'} == 5 |
|
525
|
0 |
0 |
if $r->{'Type'} == 1 |
|
529
|
0 |
0 |
unless (@addrs) |
|
541
|
0 |
0 |
if (%$net_mapping or %$forward_dns) { } |
|
547
|
0 |
0 |
if -e $latest_fn |
|
560
|
0 |
0 |
if ($pid) { } |
|
576
|
0 |
0 |
if (@domains) |
|
591
|
0 |
0 |
if (%$forward) |
|
603
|
0 |
0 |
if $user |
|
612
|
0 |
0 |
if $group |
|
636
|
0 |
0 |
if (defined $process_pid) |
|
637
|
0 |
0 |
if $$self{"${process}_pid"} == $pid |
|
648
|
0 |
0 |
if ($kid <= 0) { } |
|
650
|
0 |
0 |
if $kid < 0 |
|
657
|
0 |
0 |
if (defined $proc_pid and $kid == $proc_pid) |
|
661
|
0 |
0 |
if $proc eq "ssh_master" |
|
675
|
0 |
0 |
if (defined(my $ssh = $self->{'ssh'})) |
|
683
|
0 |
0 |
if (kill(0, $pid) > 0) { } |
|
686
|
0 |
0 |
if ($kid == $pid) |