| line |
true |
false |
branch |
|
489
|
0 |
0 |
if ($ENV{'MONHOST'}) { } |
|
508
|
0 |
0 |
if ($ENV{'USER'} ne '') { } |
|
518
|
0 |
0 |
if ($k eq 'host' and $vars{$k} ne '') { } |
|
|
0 |
0 |
elsif ($k eq 'port' and $vars{$k} ne '') { } |
|
|
0 |
0 |
elsif ($k eq 'username') { } |
|
|
0 |
0 |
elsif ($k eq 'password') { } |
|
535
|
0 |
0 |
if (@_) |
|
541
|
0 |
0 |
if (@_) |
|
547
|
0 |
0 |
if (@_) |
|
553
|
0 |
0 |
if (@_) |
|
563
|
0 |
0 |
if (@_) |
|
564
|
0 |
0 |
if ($_[0] =~ /^\d+\.\d+\.\d+$/) { } |
|
578
|
0 |
0 |
if ($$self{'CONNECTED'}) |
|
602
|
0 |
0 |
if ($$self{'HOST'} eq '') |
|
607
|
0 |
0 |
unless (defined($iaddr = inet_aton($$self{'HOST'}))) |
|
612
|
0 |
0 |
unless (defined($paddr = sockaddr_in($$self{'PORT'}, $iaddr))) |
|
617
|
0 |
0 |
unless (defined($proto = getprotobyname 'tcp')) |
|
622
|
0 |
0 |
unless (defined socket($$self{'HANDLE'}, 2, 1, $proto)) |
|
627
|
0 |
0 |
unless (defined CORE::connect($$self{'HANDLE'}, $paddr)) |
|
634
|
0 |
0 |
unless ($args{'skip_protid'}) |
|
636
|
0 |
0 |
unless ($self->protid) |
|
654
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
659
|
0 |
0 |
unless (defined $p) |
|
665
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
681
|
0 |
0 |
unless (defined close $$self{'HANDLE'}) |
|
698
|
0 |
0 |
if defined $l{'username'} |
|
699
|
0 |
0 |
if defined $l{'password'} |
|
701
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
706
|
0 |
0 |
if (not defined $$self{'USERNAME'} or $$self{'USERNAME'} eq '') |
|
711
|
0 |
0 |
if (not defined $$self{'PASSWORD'} or $$self{'PASSWORD'} eq '') |
|
719
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
737
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
742
|
0 |
0 |
if ($cmd eq '') |
|
749
|
0 |
0 |
if ($r =~ /^220/) { } |
|
764
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
769
|
0 |
0 |
unless ($watch =~ /\S+/) |
|
776
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
794
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
799
|
0 |
0 |
unless ($watch =~ /\S+/) |
|
804
|
0 |
0 |
unless ($service =~ /\S+/) |
|
812
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
830
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
837
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
855
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
860
|
0 |
0 |
unless ($watch =~ /\S+/) |
|
867
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
885
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
890
|
0 |
0 |
unless ($watch =~ /\S+/) |
|
895
|
0 |
0 |
unless ($service =~ /\S+/) |
|
903
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
921
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
928
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
945
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
950
|
0 |
0 |
unless (defined $$self{'VERSION'}) |
|
953
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
972
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
989
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
996
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1004
|
0 |
0 |
unless defined $r |
|
1021
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1028
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1036
|
0 |
0 |
unless defined $r |
|
1043
|
0 |
0 |
if ($what eq 'exp') { } |
|
|
0 |
0 |
elsif ($what eq 'cmp') { } |
|
1063
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1068
|
0 |
0 |
if ($group eq '') |
|
1075
|
0 |
0 |
if ($r =~ /^220/) { } |
|
1091
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1100
|
0 |
0 |
if ($r =~ /^220/) { } |
|
1121
|
0 |
0 |
if (@g == 0) { } |
|
1158
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1165
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1174
|
0 |
0 |
if ($r =~ /^group (\S+): (.*)$/) { } |
|
|
0 |
0 |
elsif ($r =~ /^watch (\S+) service (\S+)$/) { } |
|
|
0 |
0 |
elsif ($r =~ /^watch (\S+)/) { } |
|
1200
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1207
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1240
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1247
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1281
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1288
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1316
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1323
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1332
|
0 |
0 |
if ($p =~ /server (\d+)/) { } |
|
1351
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1358
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1366
|
0 |
0 |
if ($l =~ /scheduler running/) { } |
|
|
0 |
0 |
elsif ($l =~ /scheduler stopped since (\d+)/) { } |
|
1395
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1400
|
0 |
0 |
if (@opts == 0) { } |
|
1406
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1424
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1431
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1449
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1456
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1474
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1479
|
0 |
0 |
unless ($val =~ /^\d+$/) |
|
1486
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1503
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1510
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1530
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1538
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1559
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1566
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1588
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1593
|
0 |
0 |
unless ($what =~ /^monitor|alert|startupalert|upalert$/) |
|
1598
|
0 |
0 |
unless (defined $group) |
|
1603
|
0 |
0 |
unless (defined $service) |
|
1608
|
0 |
0 |
if ($what =~ /^alert|startupalert|upalert$/ and $exitval eq '' || $period eq '') |
|
1617
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1635
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1642
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1660
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1669
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1688
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1695
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1714
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1721
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1739
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1746
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1768
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1775
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1815
|
0 |
0 |
unless ($v{'retval'} =~ /^\d+$/) |
|
1821
|
0 |
0 |
unless (defined($v{'opstatus'} = $OPSTAT{$v{'opstatus'}})) |
|
1835
|
0 |
0 |
if $$self{'USERNAME'} ne '' |
|
1850
|
0 |
0 |
if ($proto eq '') |
|
1856
|
0 |
0 |
unless (socket TRAP, 2, 2, $proto) |
|
1866
|
0 |
0 |
unless (defined send(TRAP, $pkt, 0, $paddr)) |
|
1885
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1890
|
0 |
0 |
if ($cmd ne 'start' and $cmd ne 'stop') |
|
1897
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1916
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
1923
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
1937
|
0 |
0 |
if $op{'group'} eq '' |
|
1938
|
0 |
0 |
if $op{'service'} eq '' |
|
1957
|
0 |
0 |
unless defined $nwritten |
|
1969
|
0 |
0 |
unless defined _sock_write($fd, "$cmd\n") |
|
1973
|
0 |
0 |
unless defined $l |
|
1976
|
0 |
0 |
if ($l =~ /^(\d{3}\s)/) |
|
2010
|
0 |
0 |
if (ord $c < 32 or ord $c > 126 or $c eq '"' or $c eq q[']) { } |
|
|
0 |
0 |
elsif ($inquotes and $c eq '\\') { } |
|
2042
|
0 |
0 |
unless ($$self{'CONNECTED'}) |
|
2049
|
0 |
0 |
if (not defined $r) { } |
|
|
0 |
0 |
elsif (not $r =~ /^220/) { } |
|
2057
|
0 |
0 |
unless defined $r |
|
2078
|
0 |
0 |
$headerAlias ? : |
|
2086
|
0 |
0 |
if ($watch =~ /\Awatch\s+(\S+)\s+service\s+(\S+)\s+items\s*(.*)\Z/) { } |
|
|
0 |
0 |
elsif ($watch =~ /\Aurl\s+(.*)\Z/) { } |