Branch Coverage

blib/lib/CGI/AuthRegister.pm
Criterion Covered Total %
branch 0 202 0.0


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)