| line |
true |
false |
branch |
|
47
|
0 |
0 |
if (-e $self->param('act_config')->{'_'}{'tmpl_path'} . 'index.tmpl') { } |
|
57
|
0 |
0 |
if ($key ne '_') |
|
85
|
0 |
0 |
if (-e $self->param('act_config')->{'_'}{'tmpl_path'} . 'view.tmpl') { } |
|
116
|
0 |
0 |
if (-d $self->param('act_config')->{'_'}{'tmpl_path'} . 'status.tmpl') { } |
|
124
|
0 |
0 |
$mode eq 'deluser' ? : |
|
|
0 |
0 |
$mode eq 'changepw' ? : |
|
|
0 |
0 |
$mode eq 'adduser' ? : |
|
130
|
0 |
0 |
$mode eq 'deluser' && $#users > 0 ? : |
|
|
0 |
0 |
$mode eq 'deluser' && $#users == 0 ? : |
|
|
0 |
0 |
$mode eq 'changepw' ? : |
|
|
0 |
0 |
$mode eq 'adduser' ? : |
|
160
|
0 |
0 |
if ($user_mode eq 'adduser' or $user_mode eq 'changepw') |
|
161
|
0 |
0 |
if ($query_obj->param('pass') ne $query_obj->param('pass_confirm')) |
|
171
|
0 |
0 |
if ($user_mode eq 'adduser' or $user_mode eq 'changepw') { } |
|
|
0 |
0 |
elsif ($user_mode eq 'deluser') { } |
|
203
|
0 |
0 |
unless (defined $conf_file) |
|
208
|
0 |
0 |
-e "/etc/$CONFIG_FILENAME" ? : |
|
|
0 |
0 |
-e "../$CONFIG_FILENAME" ? : |
|
|
0 |
0 |
-e "./$CONFIG_FILENAME" ? : |
|
214
|
0 |
0 |
unless (defined $conf_file) |
|
220
|
0 |
0 |
unless my $config_obj = 'Config::Tiny'->read($conf_file) |
|
223
|
0 |
0 |
unless (exists $$config_obj{'_'}{'htpasswd_command'}) |
|
229
|
0 |
0 |
unless (exists $$config_obj{'_'}{'tmpl_path'}) |
|
234
|
0 |
0 |
if (substr($$config_obj{'_'}{'tmpl_path'}, -1) ne '/') |
|
239
|
0 |
0 |
if (not exists $$config_obj{'_'}{'form_method'} or uc $$config_obj{'_'}{'form_method'} ne 'GET') |
|
246
|
0 |
0 |
if ($section ne '_') |
|
249
|
0 |
0 |
if (not defined $file_path or $file_path =~ /\A\s*\z/ or not -e $file_path) |
|
257
|
0 |
0 |
unless ($pass_alg =~ /\s*(?:crypt|md5|sha|plain)\s*/i) |
|
277
|
0 |
0 |
unless open my $HTFILE, '<', $htfile |
|
296
|
0 |
0 |
$algorithm eq 'crypt' ? : |
|
|
0 |
0 |
$algorithm eq 'sha' ? : |
|
|
0 |
0 |
$algorithm eq 'md5' ? : |
|
|
0 |
0 |
$algorithm eq 'plain' ? : |
|
311
|
0 |
0 |
if (system($command) != 0) |
|
330
|
0 |
0 |
if (system($command) == 0) { } |
|
336
|
0 |
0 |
unless open my $HTIN, '<', $htfile |
|
344
|
0 |
0 |
if ($file[$ln] =~ /\A$user\:/) |
|
351
|
0 |
0 |
unless open my $HTOUT, '>', $htfile |
|
356
|
0 |
0 |
$deleted ? : |