| 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) |