| line |
true |
false |
branch |
|
31
|
63 |
620 |
if (grep has_changed($_), @user_files)
|
|
55
|
92 |
54 |
if do {
my $ret = crypt($plain, $encrypted);
$ret eq $encrypted if defined $ret
}
|
|
60
|
108 |
38 |
if defined $ret
|
|
64
|
38 |
16 |
if ($encrypted =~ /^\$(\w+)\$/)
|
|
66
|
29 |
9 |
if $1 eq 'apr1' and apache_md5_crypt($plain, $encrypted) eq $encrypted
|
|
70
|
0 |
9 |
if $1 eq '1' and unix_md5_crypt($plain, $encrypted) eq $encrypted
|
|
79
|
138 |
20 |
if ($pw and $Userpw{$user})
|
|
81
|
121 |
17 |
if grep {_validate_pw($pw, $_);} @{$Userpw{$user};}
|
|
105
|
2 |
24 |
unless ($user and $password)
|
|
113
|
0 |
24 |
if (defined $Userpw{$user})
|
|
121
|
0 |
24 |
unless -w $filename
|
|
145
|
3 |
21 |
if defined $cb
|
|
150
|
0 |
24 |
unless $ok
|
|
165
|
1 |
8 |
unless ($user and $password)
|
|
173
|
1 |
7 |
unless (defined $Userpw{$user})
|
|
194
|
7 |
15 |
if (defined $thisuser and lc $thisuser eq $user) { }
|
|
219
|
0 |
6 |
unless (defined $Userpw{$user})
|
|
237
|
6 |
57 |
if ($thisuser // '') eq $user
|