| line |
true |
false |
branch |
|
39
|
0 |
2 |
exists $arg{'debug'} ? : |
|
66
|
0 |
0 |
if (@_) |
|
73
|
0 |
0 |
if (@_) |
|
80
|
0 |
1 |
if (@_) |
|
81
|
1 |
0 |
unless defined $self->{'AGENTSTRING'} |
|
88
|
0 |
0 |
if (@_) |
|
89
|
0 |
0 |
unless defined $self->{'CONNCACHE'} |
|
96
|
0 |
0 |
if (@_) |
|
98
|
0 |
0 |
if ($_[0]) { } |
|
111
|
0 |
0 |
if (@_) |
|
113
|
0 |
0 |
if (not defined $self->{'CACHE'} and $self->conn_cache) |
|
126
|
0 |
0 |
if defined $self->{'CACHE'} |
|
138
|
0 |
0 |
unless $self->conn_cache |
|
141
|
0 |
0 |
unless (defined $self->cache) |
|
155
|
0 |
0 |
if (@_) |
|
156
|
0 |
0 |
unless defined $self->{'CACHELIMIT'} |
|
163
|
0 |
1 |
if (@_) |
|
164
|
1 |
0 |
unless defined $self->{'VTPREPORTAPI'} |
|
171
|
0 |
1 |
if (@_) |
|
172
|
1 |
0 |
unless defined $self->{'VTPSCANAPI'} |
|
179
|
1 |
1 |
if (@_) |
|
180
|
0 |
2 |
unless defined $self->{'APIKEY'} |
|
187
|
0 |
0 |
if (@_) |
|
188
|
0 |
0 |
unless defined $self->{'CONNTIMEOUT'} |
|
200
|
0 |
0 |
if $self->debug |
|
201
|
0 |
0 |
if (length $file > $self->allowlong and not $file =~ m[/]) { } |
|
205
|
0 |
0 |
if (-r $file and not $file =~ /\.\./) { } |
|
213
|
0 |
0 |
if ($tmpfile) |
|
224
|
0 |
0 |
if $self->debug |
|
225
|
0 |
0 |
if ($self->_connect) { } |
|
227
|
0 |
0 |
if $self->debug |
|
238
|
0 |
0 |
if (exists $self->{'scanhash'}{$scankey}) { } |
|
240
|
0 |
0 |
if $self->debug |
|
243
|
0 |
0 |
unless (defined $infected) |
|
249
|
0 |
0 |
if $self->debug |
|
252
|
0 |
0 |
if (defined $result) |
|
255
|
0 |
0 |
if ($result ne 1) |
|
257
|
0 |
0 |
if $self->debug |
|
262
|
0 |
0 |
unless (defined $infected) |
|
264
|
0 |
0 |
if $self->debug |
|
276
|
0 |
0 |
if $tmpfile |
|
284
|
0 |
0 |
unless (ref $self and ref $self->{'scanhash'}) |
|
289
|
0 |
0 |
if (defined $self->{'valid_conn'} and $self->{'valid_conn'} and defined $self->{'ua'}) |
|
295
|
0 |
0 |
unless (defined $self->{'valid_conn'}) |
|
298
|
0 |
0 |
unless (defined $self->{'ua'}) |
|
306
|
0 |
0 |
if (defined $self->conn_proxy) |
|
314
|
0 |
0 |
if (not $self->{'valid_conn'} and $self->{'last_conn_check'} < time - 300) |
|
317
|
0 |
0 |
if $self->debug |
|
325
|
0 |
0 |
if (not $response->is_success) { } |
|
327
|
0 |
0 |
$response->status_line =~ /403 Forbidden/ ? : |
|
331
|
0 |
0 |
if $self->debug |
|
339
|
0 |
0 |
if (defined $decjson) |
|
344
|
0 |
0 |
if (defined $sha and $sha ne '') { } |
|
353
|
0 |
0 |
if $self->debug |
|
370
|
0 |
0 |
if $self->debug |
|
371
|
0 |
0 |
unless ref $self |
|
372
|
0 |
0 |
unless ref $self->{'scanhash'} |
|
374
|
0 |
0 |
unless (defined $self->{'valid_conn'} or $self->{'valid_conn'}) |
|
383
|
0 |
0 |
if $self->debug |
|
392
|
0 |
0 |
unless ($response->is_success) |
|
399
|
0 |
0 |
if $self->debug |
|
407
|
0 |
0 |
if (defined $decjson) { } |
|
412
|
0 |
0 |
if (defined $respcode) { } |
|
414
|
0 |
0 |
if $self->debug |
|
415
|
0 |
0 |
if ($respcode eq '1') { } |
|
|
0 |
0 |
elsif ($respcode eq '-2' or $respcode eq '0') { } |
|
|
0 |
0 |
elsif ($respcode eq '-1') { } |
|
434
|
0 |
0 |
if $self->debug |
|
437
|
0 |
0 |
if $self->debug |
|
455
|
0 |
0 |
if $self->debug |
|
456
|
0 |
0 |
unless ref $self |
|
457
|
0 |
0 |
unless ref $self->{'scanhash'} |
|
461
|
0 |
0 |
unless (defined $self->{'valid_conn'} or $self->{'valid_conn'}) |
|
467
|
0 |
0 |
unless (exists $self->{'scanhash'}{$scankey} and defined $self->{'scanhash'}{$scankey}{'key'}) |
|
474
|
0 |
0 |
unless ($self->{'scanhash'}{$scankey}{'last_checked'} and $self->{'scanhash'}{$scankey}{'last_checked'} > time - 300) |
|
478
|
0 |
0 |
if $self->debug |
|
488
|
0 |
0 |
unless ($response->is_success) |
|
494
|
0 |
0 |
if $self->debug |
|
503
|
0 |
0 |
if (defined $decjson) { } |
|
508
|
0 |
0 |
if (defined $respcode) { } |
|
510
|
0 |
0 |
if ($respcode eq '1') { } |
|
|
0 |
0 |
elsif ($respcode eq '-2' or $respcode eq '0') { } |
|
|
0 |
0 |
elsif ($respcode eq '-1') { } |
|
519
|
0 |
0 |
if $self->debug |
|
528
|
0 |
0 |
if $self->debug |
|
531
|
0 |
0 |
if $self->debug |
|
534
|
0 |
0 |
if $self->debug |