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 ? : |