| line |
true |
false |
branch |
|
27
|
2 |
0 |
if (-e '/dev/urandom') { } |
|
65
|
0 |
2 |
unless (exists $self{'use_scrypt'}) |
|
69
|
1 |
1 |
if ($self{'use_scrypt'}) |
|
70
|
0 |
1 |
unless eval 'use Authen::Passphrase::Scrypt; 1' |
|
78
|
0 |
2 |
unless $self->{'dbh'} = 'DBI'->connect(@{$$self{'dbi_connect'};}) |
|
79
|
2 |
0 |
if $self->{'post_connect_cb'} |
|
80
|
0 |
2 |
unless $self->{'insert_sth'} = $self->{'dbh'}->prepare($self->{'insert_user'}) |
|
81
|
0 |
2 |
unless $self->{'select_sth'} = $self->{'dbh'}->prepare($self->{'select_user'}) |
|
82
|
0 |
2 |
unless $self->{'update_sth'} = $self->{'dbh'}->prepare($self->{'update_pass'}) |
|
88
|
0 |
2 |
unless $self->{'insert_sth'}->execute($parms{'username'}, $self->hash_passphrase($parms{'password'}), $parms{'email'}) |
|
93
|
0 |
60 |
unless $self->{'select_sth'}->execute($user) |
|
99
|
2 |
24 |
unless ($self->{'cache'}) |
|
105
|
0 |
26 |
if exists $self->{'cache'}{$cachekey} |
|
107
|
2 |
24 |
unless $user |
|
109
|
12 |
12 |
if ($user->{'passphrase'} =~ /^{SCRYPT}/su) { } |
|
110
|
0 |
12 |
unless $self->{'use_scrypt'} |
|
116
|
18 |
6 |
if $ret or $self->{'cache_fail'} |
|
122
|
3 |
3 |
if ($self->{'use_scrypt'}) { } |
|
137
|
0 |
4 |
unless $self->{'update_sth'}->execute($self->hash_passphrase($passphrase), $username) |
|
151
|
2 |
0 |
$hours == 1 ? : |
|
216
|
2 |
32 |
unless $parms{$_} |
|
219
|
2 |
6 |
unless $parms{'username'} =~ /$self->{'username_regex'}/su |
|
220
|
2 |
4 |
if $self->get_user($parms{'username'}) |
|
221
|
2 |
2 |
unless $parms{'password'} eq $parms{'confirm_password'} |
|
229
|
2 |
8 |
unless $req->user |
|
233
|
2 |
18 |
unless $parms{$_} |
|
236
|
2 |
4 |
unless $self->check_passphrase($req->user, $parms{'password'}) |
|
237
|
2 |
2 |
unless $parms{'new_password'} eq $parms{'confirm_new_password'} |
|
244
|
2 |
6 |
unless $self->{'mail_from'} |
|
246
|
4 |
2 |
unless my $user = $self->get_user($username) |
|
247
|
0 |
2 |
unless eval {
do {
$self->send_reset_email($username);
1
}
} |
|
259
|
2 |
40 |
unless $parms{$_} |
|
262
|
2 |
8 |
unless my $user = $self->get_user($parms{'username'}) |
|
263
|
2 |
6 |
unless $parms{'new_password'} eq $parms{'confirm_new_password'} |
|
266
|
2 |
4 |
unless $token eq $goodtoken |
|
267
|
2 |
2 |
if time >= $exp |
|
275
|
2 |
58 |
unless ($self->{'init_done'}) |
|
281
|
20 |
40 |
if ($auth and $auth =~ /^Basic (.*)$/isu) |
|
283
|
14 |
6 |
if $self->check_passphrase($user, $pass) |
|
288
|
42 |
18 |
if ($req->method eq 'POST') |
|
289
|
10 |
32 |
if $req->path eq $self->{'register_url'} |
|
290
|
10 |
22 |
if $req->path eq $self->{'passwd_url'} |
|
291
|
8 |
14 |
if $req->path eq $self->{'request_reset_url'} |
|
292
|
12 |
2 |
if $req->path eq $self->{'reset_url'} |