line |
true |
false |
branch |
43
|
0 |
0 |
unless $self->brik_help_run_undef_arg('check_cve_2015_1427_rce', $uri) |
46
|
0 |
0 |
unless ($uri =~ m[^http://[^:]+:\d+$]) |
60
|
0 |
0 |
unless my $reply = $self->post($check, $url) |
63
|
0 |
0 |
unless my $content = $reply->{'content'} |
65
|
0 |
0 |
unless my $sj = 'Metabrik::String::Json'->new_from_brik_init($self) |
67
|
0 |
0 |
unless my $ref = $sj->decode($content) |
69
|
0 |
0 |
if ($ref->{'hits'} and $ref->{'hits'}{'hits'} and $ref->{'hits'}{'hits'}[0] and $ref->{'hits'}{'hits'}[0]{'fields'} and $ref->{'hits'}{'hits'}[0]{'fields'}{'myscript'}) { } |
73
|
0 |
0 |
if ($result ne 'undef') |
95
|
0 |
0 |
unless $self->brik_help_run_undef_arg('exploit_cve_2015_1427_rce', $command) |
96
|
0 |
0 |
unless $self->brik_help_run_undef_arg('exploit_cve_2015_1427_rce', $uri) |
99
|
0 |
0 |
unless ($uri =~ m[^http://[^:]+:\d+$]) |
115
|
0 |
0 |
unless my $reply = $self->post($check, $url) |
118
|
0 |
0 |
unless my $content = $reply->{'content'} |
120
|
0 |
0 |
unless my $sj = 'Metabrik::String::Json'->new_from_brik_init($self) |
122
|
0 |
0 |
unless my $ref = $sj->decode($content) |
124
|
0 |
0 |
if ($ref->{'hits'} and $ref->{'hits'}{'hits'} and $ref->{'hits'}{'hits'}[0] and $ref->{'hits'}{'hits'}[0]{'fields'} and $ref->{'hits'}{'hits'}[0]{'fields'}{'lupin'}) { } |
130
|
0 |
0 |
unless my $sp = 'Metabrik::String::Parse'->new_from_brik_init($self) |