| line |
true |
false |
branch |
|
70
|
0 |
0 |
unless exists $plg->config->{'Default format'} and $plg->config->{'Default format'} =~ /$fmt_rgx/
|
|
75
|
0 |
0 |
unless (-d $module_dir)
|
|
80
|
0 |
0 |
unless exists $method->{'Active'} and $method->{'Active'} =~ /(?i)[y1t]/
|
|
84
|
0 |
0 |
if ($plg->auth_method ne "INTERNAL")
|
|
85
|
0 |
0 |
unless (exists $method->{'Command'})
|
|
87
|
0 |
0 |
unless (-f $method->{'Command'})
|
|
88
|
0 |
0 |
unless (-x $method->{'Command'})
|
|
90
|
0 |
0 |
if (exists $method->{'Use sudo'} and $method->{'Use sudo'} =~ /(?i)[y1t]/) { }
|
|
92
|
0 |
0 |
if (-f "$_/sudo" and -x "$_/sudo")
|
|
93
|
0 |
0 |
unless (defined $sudo)
|
|
112
|
0 |
0 |
if (exists $plg->config->{'Routes'}{$_}{'Protected'} and $plg->config->{'Routes'}{$_}{'Protected'} =~ /(?i)[y1t]/) { }
|
|
115
|
0 |
0 |
if ($plg->auth_method eq '') { }
|
|
120
|
0 |
0 |
if (exists $plg->config->{'Routes'}{$_}{'Groups'}) { }
|
|
122
|
0 |
0 |
unless "ARRAY" eq ref $plg->config->{'Routes'}{$_}{'Groups'}
|
|
145
|
0 |
0 |
unless opendir DIR, $plg->dir_session
|
|
149
|
0 |
0 |
if (-f "$plg->{'dir_session'}/$token/control/lastaccess" and -f "$plg->{'dir_session'}/$token/control/username" and -f "$plg->{'dir_session'}/$token/control/groups") { }
|
|
152
|
0 |
0 |
if (time - $lastaccess > $plg->Session_timeout) { }
|
|
159
|
0 |
0 |
unless opendir __TOKEN, "$plg->{'dir_session'}/$token/data"
|
|
163
|
0 |
0 |
if "SCALAR" eq ref $TokenDB{$token}{'data'}{$record}
|
|
189
|
0 |
0 |
$app->request->query_parameters->{'sort'} =~ /(?i)1|t|y/ ? :
|
|
|
0 |
0 |
exists $app->request->query_parameters->{'sort'} ? :
|
|
190
|
0 |
0 |
$app->request->query_parameters->{'pretty'} =~ /(?i)1|t|y/ ? :
|
|
|
0 |
0 |
exists $app->request->query_parameters->{'pretty'} ? :
|
|
196
|
0 |
0 |
if (exists $app->request->query_parameters->{$_}) { }
|
|
198
|
0 |
0 |
if ($app->request->query_parameters->{$_} =~ /$fmt_rgx/) { }
|
|
215
|
0 |
0 |
if ($app->request->{'route'}{'regexp'} =~ m<^\^[/\\]+(.*?)[/\\]+\(\?#token.*>) { }
|
|
|
0 |
0 |
elsif ($app->request->{'route'}{'regexp'} =~ m(^\^[/\\]+(.*?)\$)) { }
|
|
222
|
0 |
0 |
if ($app->request->body)
|
|
225
|
0 |
0 |
if ($plg->Format->{'from'} eq 'json') { }
|
|
|
0 |
0 |
elsif ($plg->Format->{'from'} eq 'xml') { }
|
|
|
0 |
0 |
elsif ($plg->Format->{'from'} eq 'yaml') { }
|
|
|
0 |
0 |
elsif ($plg->Format->{'from'} eq 'perl') { }
|
|
|
0 |
0 |
elsif ($plg->Format->{'from'} eq 'human') { }
|
|
233
|
0 |
0 |
unless @array
|
|
235
|
0 |
0 |
if (@array % 2 == 0) { }
|
|
243
|
0 |
0 |
1 == scalar @{$arrayref;} ? :
|
|
247
|
0 |
0 |
if ($@)
|
|
254
|
0 |
0 |
if ("HASH" ne ref $plg->{'data'})
|
|
256
|
0 |
0 |
if ('ARRAY' eq ref $plg->{'data'}) { }
|
|
281
|
0 |
0 |
unless exists $plg->config->{'Routes'}{$plg->route_name} and $plg->config->{'Routes'}{$plg->route_name}{'Protected'}
|
|
283
|
0 |
0 |
unless exists $plg->data->{'token'}
|
|
284
|
0 |
0 |
unless exists $TokenDB{$plg->data->{'token'}}
|
|
287
|
0 |
0 |
if (time - $TokenDB{$plg->data->{'token'}}{'control'}{'lastaccess'} > $plg->Session_timeout) { }
|
|
304
|
0 |
0 |
unless (exists $TokenDB{$plg->data->{'token'}}{'control'}{'groups'}{$_})
|
|
340
|
0 |
0 |
if ($app->request->param('what') =~ /(?i)v/) { }
|
|
|
0 |
0 |
elsif ($app->request->param('what') =~ /(?i)a/) { }
|
|
|
0 |
0 |
elsif ($app->request->param('what') =~ /(?i)c/) { }
|
|
347
|
0 |
0 |
-f '/etc/redhat-release' ? :
|
|
|
0 |
0 |
if (fileno __F)
|
|
382
|
0 |
0 |
if (exists $TokenDB{$plg->data->{'token'}})
|
|
404
|
0 |
0 |
if ($plg->ClientIP =~ /$plg->rules_compiled->[$i]/)
|
|
410
|
0 |
0 |
if $plg->error
|
|
414
|
0 |
0 |
unless (exists $plg->data->{$_})
|
|
415
|
0 |
0 |
if ($plg->data->{'username'} =~ /^\s*$/)
|
|
416
|
0 |
0 |
if ($plg->data->{'password'} eq "")
|
|
422
|
0 |
0 |
if ('INTERNAL' eq $plg->auth_method) { }
|
|
426
|
0 |
0 |
if (exists $conf->{'Accounts'}{$user})
|
|
427
|
0 |
0 |
if ($conf->{'Accounts'}{$user} eq '<any>') { }
|
|
|
0 |
0 |
elsif ($conf->{'Accounts'}{$user} eq $plg->data->{'password'}) { }
|
|
431
|
0 |
0 |
if ($plg->error and exists $conf->{'Accounts'}{'<any>'})
|
|
432
|
0 |
0 |
if ($conf->{'Accounts'}{'<any>'} eq '<any>') { }
|
|
|
0 |
0 |
elsif ($conf->{'Accounts'}{'<any>'} eq $plg->data->{'password'}) { }
|
|
450
|
0 |
0 |
if (@{$plg->auth_config->{'Arguments'};})
|
|
453
|
0 |
0 |
unless open SHELL, "-|", "$command 2> /dev/null"
|
|
457
|
0 |
0 |
unless (2 == scalar @output)
|
|
462
|
0 |
0 |
if $plg->error
|
|
465
|
0 |
0 |
unless open URANDOM__, "<", "/dev/urandom"
|
|
475
|
0 |
0 |
unless (mkdir $_)
|
|
486
|
0 |
0 |
unless (Storable::lock_store(\$v, "$plg->{'dir_session'}/$plg->{'data'}{'token'}/control/$k"))
|
|
511
|
0 |
0 |
if ($plg->Format->{'to'} eq 'json') { }
|
|
|
0 |
0 |
elsif ($plg->Format->{'to'} eq 'xml') { }
|
|
|
0 |
0 |
elsif ($plg->Format->{'to'} eq 'yaml') { }
|
|
|
0 |
0 |
elsif ($plg->Format->{'to'} eq 'perl') { }
|
|
|
0 |
0 |
elsif ($plg->Format->{'to'} eq 'human') { }
|
|
515
|
0 |
0 |
if ($plg->pretty) { }
|
|
546
|
0 |
0 |
if ($@)
|
|
566
|
0 |
0 |
if (@_) { }
|
|
568
|
0 |
0 |
if (1 == @_) { }
|
|
570
|
0 |
0 |
if ("HASH" eq ref $_[0]) { }
|
|
585
|
0 |
0 |
if ($plg->error)
|
|
604
|
0 |
0 |
if (@_) { }
|
|
606
|
0 |
0 |
if ("HASH" eq ref $plg->data) { }
|
|
|
0 |
0 |
elsif ("ARRAY" eq ref $plg->data) { }
|
|
|
0 |
0 |
elsif ("SCALAR" eq ref $plg->data) { }
|
|
617
|
0 |
0 |
if $_ eq ${$plg->data;}
|
|
623
|
0 |
0 |
if $_ eq $plg->data
|
|
628
|
0 |
0 |
if ("HASH" eq ref $plg->data) { }
|
|
|
0 |
0 |
elsif ("ARRAY" eq ref $plg->data) { }
|
|
|
0 |
0 |
elsif ("SCALAR" eq ref $plg->data) { }
|
|
646
|
0 |
0 |
unless (exists $plg->data->{"token"} and exists $TokenDB{$plg->data->{"token"}})
|
|
651
|
0 |
0 |
if (0 == scalar @_) { }
|
|
|
0 |
0 |
elsif (1 == scalar @_) { }
|
|
656
|
0 |
0 |
if ("ARRAY" eq ref $_[0]) { }
|
|
681
|
0 |
0 |
unless (exists $plg->data->{"token"} and exists $TokenDB{$plg->data->{"token"}})
|
|
687
|
0 |
0 |
if 1 == @_ and "HASH" eq ref $_[0]
|
|
693
|
0 |
0 |
ref $_[$j] ? :
|
|
695
|
0 |
0 |
unless (Storable::lock_store($data, qq[$plg->{"dir_session"}/$plg->{"data"}{"token"}/data/$_[$i]]))
|
|
716
|
0 |
0 |
unless (exists $plg->data->{"token"} and exists $TokenDB{$plg->data->{"token"}})
|
|
724
|
0 |
0 |
if (@_) { }
|
|
725
|
0 |
0 |
if 1 == @_ and "ARRAY" eq ref $_[0]
|
|
729
|
0 |
0 |
if (exists $TokenDB{$plg->data->{"token"}}{"data"}{$_})
|