| line |
true |
false |
branch |
|
66
|
0 |
0 |
defined $opts{'debug'} && $opts{'debug'} =~ /^\d+$/ ? : |
|
70
|
0 |
0 |
defined $opts{'expire_seconds'} && $opts{'expire_seconds'} =~ /^\d+$/ ? : |
|
74
|
0 |
0 |
defined $opts{'cleanup_seconds'} && $opts{'cleanup_seconds'} =~ /^\d+$/ ? : |
|
79
|
0 |
0 |
if $opts{'db'} |
|
86
|
0 |
0 |
unless ref(my $self = shift()) |
|
87
|
0 |
0 |
if (@_) { } |
|
98
|
0 |
0 |
unless ref(my $self = shift()) |
|
99
|
0 |
0 |
if (@_) { } |
|
110
|
0 |
0 |
unless ref(my $self = shift()) |
|
111
|
0 |
0 |
if (@_) { } |
|
113
|
0 |
0 |
unless $_[0] =~ /^\d+$/ |
|
123
|
0 |
0 |
unless ref(my $self = shift()) |
|
124
|
0 |
0 |
if (@_) { } |
|
126
|
0 |
0 |
unless $_[0] =~ /^\d+$/ |
|
136
|
0 |
0 |
unless ref(my $self = shift()) |
|
137
|
0 |
0 |
if (@_) { } |
|
149
|
0 |
0 |
unless ref(my $self = shift()) |
|
162
|
0 |
0 |
unless ref(my $self = shift()) |
|
163
|
0 |
0 |
if $$self{'_store'}{'username'} |
|
169
|
0 |
0 |
unless ref(my $self = shift()) |
|
170
|
0 |
0 |
if $$self{'_store'}{'username'} |
|
176
|
0 |
0 |
unless ref(my $self = shift()) |
|
178
|
0 |
0 |
if $$self{'_store'}{'username'} |
|
179
|
0 |
0 |
unless $$self{'_store'}{'login_called'} and $$self{'_store'}{'username'} |
|
185
|
0 |
0 |
unless ref(my $self = shift()) |
|
188
|
0 |
0 |
unless (defined $$self{'_store'}{'_groups'}) |
|
205
|
0 |
0 |
unless ref(my $self = shift()) |
|
211
|
0 |
0 |
unless my $get_groups = $self->db->prepare($group_statement) |
|
213
|
0 |
0 |
unless $get_groups->execute |
|
225
|
0 |
0 |
unless ref(my $self = shift()) |
|
230
|
0 |
0 |
if ($rw and $rw =~ /^\d+$/) { } |
|
|
0 |
0 |
elsif ($rw and $rw =~ /^(r|w)/i) { } |
|
235
|
0 |
0 |
if $rw =~ /r/i |
|
236
|
0 |
0 |
if $rw =~ /w/i |
|
243
|
0 |
0 |
unless (defined $$self{'_store'}{'_groups'}) |
|
250
|
0 |
0 |
if (defined $$self{'_store'}{'_groups'}{$group}) { } |
|
254
|
0 |
0 |
if ($rwbit) { } |
|
256
|
0 |
0 |
if $self->debug |
|
270
|
0 |
0 |
unless ref(my $self = shift()) |
|
278
|
0 |
0 |
if ($login and $passwd) |
|
283
|
0 |
0 |
unless $uid |
|
285
|
0 |
0 |
if &{$self->conf->{'user_table'}{'_disabled_status'};}($status) |
|
288
|
0 |
0 |
if ($crypt_passwd eq $local_passwd) { } |
|
304
|
0 |
0 |
if ($remote_login and $remote_ticket) { } |
|
306
|
0 |
0 |
unless my $get_ticket = $self->db->prepare('SELECT ' . $self->conf->{'session_table'}{'ticket'} . ', ' . $self->conf->{'session_table'}{'point'} . ' FROM ' . $self->conf->{'session_table'}{'_table'} . ' WHERE ' . $self->conf->{'session_table'}{'login'} . ' = ' . $self->db->quote($remote_login) . ' AND ' . $self->conf->{'session_table'}{'address'} . ' = ' . $self->db->quote($remote_address)) |
|
319
|
0 |
0 |
unless $get_ticket->execute |
|
326
|
0 |
0 |
if ($local_ticket and $remote_ticket eq $local_ticket) { } |
|
328
|
0 |
0 |
if ($local_point > $point - $self->expire_seconds) { } |
|
337
|
0 |
0 |
if &{$self->conf->{'user_table'}{'_disabled_status'};}($status) |
|
360
|
0 |
0 |
unless ref(my $self = shift()) |
|
361
|
0 |
0 |
if (@_) { } |
|
373
|
0 |
0 |
unless ref(my $self = shift()) |
|
375
|
0 |
0 |
unless my $get_user_info = $self->db->prepare('SELECT ' . $self->conf->{'user_table'}{'uid'} . ', ' . $self->conf->{'user_table'}{'passwd'} . ', ' . $self->conf->{'user_table'}{'status'} . ' FROM ' . $self->conf->{'user_table'}{'_table'} . ' WHERE ' . $self->conf->{'user_table'}{'login'} . ' = ' . $self->db->quote($login)) |
|
386
|
0 |
0 |
unless $get_user_info->execute |
|
395
|
0 |
0 |
unless ref(my $self = shift()) |
|
400
|
0 |
0 |
if ($login and $remote_address) |
|
417
|
0 |
0 |
unless ref(my $self = shift()) |
|
423
|
0 |
0 |
if ($point == 0) { } |
|
438
|
0 |
0 |
unless ref(my $self = shift()) |
|
445
|
0 |
0 |
unless my $get_ticket = $self->db->prepare('SELECT ' . $self->conf->{'session_table'}{'ticket'} . ' FROM ' . $self->conf->{'session_table'}{'_table'} . ' WHERE ' . $self->conf->{'session_table'}{'login'} . ' = ' . $self->db->quote($login) . ' AND ' . $self->conf->{'session_table'}{'address'} . ' = ' . $self->db->quote($address)) |
|
457
|
0 |
0 |
unless $get_ticket->execute |
|
462
|
0 |
0 |
if ($local_ticket) { } |
|
464
|
0 |
0 |
unless $self->db->do('UPDATE ' . $self->conf->{'session_table'}{'_table'} . ' SET ' . $self->conf->{'session_table'}{'ticket'} . ' = ' . $self->db->quote($ticket) . ', ' . $self->conf->{'session_table'}{'point'} . ' = ' . $self->db->quote($point) . ' WHERE ' . $self->conf->{'session_table'}{'login'} . ' = ' . $self->db->quote($login) . ' AND ' . $self->conf->{'session_table'}{'address'} . ' = ' . $self->db->quote($address)) |
|
481
|
0 |
0 |
unless $self->db->do('INSERT INTO ' . $self->conf->{'session_table'}{'_table'} . ' (' . $self->conf->{'session_table'}{'login'} . ', ' . $self->conf->{'session_table'}{'address'} . ', ' . $self->conf->{'session_table'}{'ticket'} . ', ' . $self->conf->{'session_table'}{'point'} . ') VALUES (' . $self->db->quote($login) . ', ' . $self->db->quote($address) . ', ' . $self->db->quote($ticket) . ', ' . $self->db->quote($point) . ')') |
|
511
|
0 |
0 |
unless ref(my $self = shift()) |