line |
true |
false |
branch |
66
|
0 |
0 |
if (-r 'configuration.pl') |
75
|
0 |
0 |
if ($ENV{'HTTPS'} ne 'on') |
107
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '' and param('keywords') eq 'logout') |
111
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '') |
115
|
0 |
0 |
if ($Request_type eq 'Login') { } |
|
0 |
0 |
elsif ($Request_type eq 'Send_Password') { } |
|
0 |
0 |
elsif ($Request_type eq 'Reset_Password') { } |
119
|
0 |
0 |
if (not &login($email, $password)) { } |
150
|
0 |
0 |
if (exists $args{-'redirect'} and $args{-'redirect'} ne '' and $args{-'redirect'} ne $ENV{'SCRIPT_NAME'}) |
153
|
0 |
0 |
if (exists $args{-'back'} and $args{-'back'}) |
157
|
0 |
0 |
if ($CGI::AuthRegister::SessionId eq '') |
158
|
0 |
0 |
if ($ENV{'SCRIPT_NAME'} eq $defaultcgi) |
169
|
0 |
0 |
if ($redirect ne '') { } |
170
|
0 |
0 |
if ($CGI::AuthRegister::SessionId eq '') { } |
177
|
0 |
0 |
if ($CGI::AuthRegister::SessionId eq '') { } |
194
|
0 |
0 |
if ($c eq '') |
196
|
0 |
0 |
unless ($CGI::AuthRegister::SessionId =~ /^[\w.:-]+$/ and $CGI::AuthRegister::Ticket =~ /^\w+$/) |
201
|
0 |
0 |
unless (-f $sessioninfofile) |
203
|
0 |
0 |
if (not ref $se or $CGI::AuthRegister::Ticket ne $$se{'Ticket'}) |
208
|
0 |
0 |
if ($CGI::AuthRegister::Error ne '') |
216
|
0 |
0 |
if $pwstore eq '' |
218
|
0 |
0 |
unless (-f 'db/passwords') |
220
|
0 |
0 |
unless (&lock_mkdir('db/passwords')) |
221
|
0 |
0 |
unless open PH, 'db/passwords' |
225
|
0 |
0 |
if $e ne $email |
229
|
0 |
0 |
if ($pwstore eq 'raw') { } |
|
0 |
0 |
elsif ($pwstore eq 'md5') { } |
243
|
0 |
0 |
unless $n > 0 |
251
|
0 |
0 |
if ($CGI::AuthRegister::Session eq '') |
252
|
0 |
0 |
if (not -d "db/sessions.d/$CGI::AuthRegister::SessionId") { } |
264
|
0 |
0 |
unless ($email =~ /@/) |
265
|
0 |
0 |
if ($email ne '') { } |
266
|
0 |
0 |
unless (&emailcheckok($email)) |
270
|
0 |
0 |
if ($u eq '') |
274
|
0 |
0 |
if ($userid eq '') |
277
|
0 |
0 |
if ($u eq '') |
282
|
0 |
0 |
unless (password_check($CGI::AuthRegister::User, $password)) |
292
|
0 |
0 |
unless -d 'db' |
293
|
0 |
0 |
unless -d 'db/sessions.d' |
297
|
0 |
0 |
unless (mkdir "db/sessions.d/$sessionid", 448) |
299
|
0 |
0 |
if $cnt == 100 |
312
|
0 |
0 |
if ($pwstored =~ /^raw:/) |
313
|
0 |
0 |
$pwstored eq $password ? : |
314
|
0 |
0 |
if ($pwstored =~ /^md5:/) |
315
|
0 |
0 |
$pwstored eq md5_base64($password) ? : |
322
|
0 |
0 |
unless (-f $pwfile) |
323
|
0 |
0 |
unless (&lock_mkdir($pwfile)) |
324
|
0 |
0 |
unless (open PH, $pwfile) |
329
|
0 |
0 |
if ($e eq $email) |
336
|
0 |
0 |
unless $n > 0 |
342
|
0 |
0 |
if ($#_ >= -1) |
343
|
0 |
0 |
if $CGI::AuthRegister::LogReport eq '' |
344
|
0 |
0 |
if ($CGI::AuthRegister::SendLogs) |
355
|
0 |
0 |
if ($email eq '') |
357
|
0 |
0 |
unless (emailcheckok($email)) |
360
|
0 |
0 |
if ($user eq '') |
371
|
0 |
0 |
if ($email eq '') |
373
|
0 |
0 |
unless (emailcheckok($email)) |
376
|
0 |
0 |
if ($user eq '') |
379
|
0 |
0 |
if ($pw =~ /^raw:/) { } |
|
0 |
0 |
elsif ($pw ne '') { } |
403
|
0 |
0 |
if $CGI::AuthRegister::Email_bcc eq '' |
405
|
0 |
0 |
unless $CGI::AuthRegister::Email_from eq '' |
412
|
0 |
0 |
unless &emailcheckok($email) |
414
|
0 |
0 |
unless ($subject =~ /^Subject: /) |
418
|
0 |
0 |
unless $CGI::AuthRegister::Email_from eq '' |
420
|
0 |
0 |
unless $CGI::AuthRegister::Email_bcc eq '' |
427
|
0 |
0 |
unless (-x $CGI::AuthRegister::Sendmail) |
430
|
0 |
0 |
unless (open S, "|$CGI::AuthRegister::Sendmail -ti") |
440
|
0 |
0 |
if ($email =~ /^[a-zA-Z][\w\.+-]*[a-zA-Z0-9+-]@
[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$/x) |
447
|
0 |
0 |
if $userid =~ /^[a-zA-Z0-9-]+$/ |
455
|
0 |
0 |
unless (-f 'db/users.db') |
458
|
0 |
0 |
if (lc $email eq lc $$r{'email'}) |
464
|
0 |
0 |
unless (-f 'db/users.db') |
467
|
0 |
0 |
if ($userid eq $$r{'userid'}) |
473
|
0 |
0 |
unless (-f 'db/users.db') |
477
|
0 |
0 |
if (exists $$r{$k} and $v eq $$r{$k}) |
485
|
0 |
0 |
unless (-f 'db/users.db') |
489
|
0 |
0 |
if ($k eq '' or $v eq '') |
493
|
0 |
0 |
unless exists $$r{$k} |
495
|
0 |
0 |
unless $v eq $v1 |
496
|
0 |
0 |
if ($u eq '') |
499
|
0 |
0 |
unless $u eq '' |
506
|
0 |
0 |
if ($arg =~ /^file=/) |
507
|
0 |
0 |
unless (&lock_mkdir($f)) |
508
|
0 |
0 |
unless open F, $f |
516
|
0 |
0 |
if ($arg =~ /\n\n+/) { } |
522
|
0 |
0 |
unless $record =~ /^([^\n:]*):(.*)\n/ |
524
|
0 |
0 |
if (exists $$r{$k}) |
539
|
0 |
0 |
if ($arg =~ /^file=/) |
540
|
0 |
0 |
unless open F, $f |
546
|
0 |
0 |
if ($arg =~ /\n\n+/) { } |
552
|
0 |
0 |
unless $record =~ /^([^\n:]*):(.*)\n/ |
554
|
0 |
0 |
if (exists $$r{$k}) |
566
|
0 |
0 |
unless (open F, ">$f") |
578
|
0 |
0 |
if (not -e $lockd and $locked = mkdir($lockd, 448)) |
583
|
0 |
0 |
unless -e $lockd |
584
|
0 |
0 |
if ($locked) |
593
|
0 |
0 |
unless (-e $lockd) |
594
|
0 |
0 |
if (-d $lockd) |
595
|
0 |
0 |
if (-f $lockd or -l $lockd) |