| line |
true |
false |
branch |
|
83
|
0 |
0 |
if (-r 'configuration.pl') |
|
92
|
0 |
0 |
if ($ENV{'HTTPS'} ne 'on') |
|
110
|
0 |
0 |
if ($querystring eq '' and param('querystring')) |
|
112
|
0 |
0 |
if ($querystring eq 'cas-all.css') |
|
113
|
0 |
0 |
if ($querystring eq 'cas-mobile.css') |
|
115
|
0 |
0 |
if (param('rt') ne '' and param('rt') eq 'verify') |
|
119
|
0 |
0 |
if ($r ne '' and $r->{'stoken'} eq $stoken and $r->{'userid'} eq $username) |
|
121
|
0 |
0 |
if ($CGI::AuthRegister::DebugLevel > 5) |
|
124
|
0 |
0 |
if ($ans ne 'ok') |
|
126
|
0 |
0 |
if ($CGI::AuthRegister::DebugLevel > 5) |
|
134
|
0 |
0 |
if (param('redirect_uri') ne '') { } |
|
|
0 |
0 |
elsif (param('r') ne '') { } |
|
141
|
0 |
0 |
if ($redirect_uri ne '') |
|
155
|
0 |
0 |
if ($redirect_uri ne '') |
|
162
|
0 |
0 |
if ($redirect_uri ne '') { } |
|
165
|
0 |
0 |
unless (-f $f or &check_db_files) |
|
167
|
0 |
0 |
unless (-f $f) |
|
169
|
0 |
0 |
if ($CGI::AuthRegister::Error ne '') |
|
187
|
0 |
0 |
if ($redirect_uri ne '' and not $redirect_uri =~ m[^https://(\w|[-.~/])+]i and not $redirect_uri =~ m[^http://(\w|[-.~/:])+]i) |
|
207
|
0 |
0 |
if ($querystring eq 'forgotpwd' or param('rt') eq 'forgotpwd') |
|
208
|
0 |
0 |
if ($CGI::AuthRegister::LinkForgotpwd) |
|
236
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '' and param('keywords') eq 'logout') |
|
239
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '') |
|
243
|
0 |
0 |
if ($Request_type eq 'Login') { } |
|
|
0 |
0 |
elsif ($Request_type eq 'Send_Password') { } |
|
247
|
0 |
0 |
if (not &login($username, $password)) { } |
|
250
|
0 |
0 |
if ($redirect_uri ne '') |
|
286
|
0 |
0 |
if exists $args{'-cas'} |
|
291
|
0 |
0 |
$a =~ /password/i ? : |
|
299
|
0 |
0 |
$CGI::AuthRegister::AllowSignup ? : |
|
317
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '' and param('keywords') eq 'logout') |
|
321
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '') |
|
323
|
0 |
0 |
if (param('keywords') eq 'signup' and $CGI::AuthRegister::AllowSignup) { } |
|
|
0 |
0 |
elsif (param('confirmation_code')) { } |
|
333
|
0 |
0 |
if ($Request_type eq 'Login') { } |
|
|
0 |
0 |
elsif ($Request_type eq 'Send_Password') { } |
|
|
0 |
0 |
elsif ($Request_type eq 'Reset_Password') { } |
|
|
0 |
0 |
elsif ($Request_type eq 'Register' and $CGI::AuthRegister::AllowSignup) { } |
|
337
|
0 |
0 |
if (not &login($email, $password)) { } |
|
381
|
0 |
0 |
if exists $args{'-return_status'} |
|
389
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '' and param('keywords') eq 'logout') |
|
391
|
0 |
0 |
if ($retStatus) |
|
394
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '') |
|
396
|
0 |
0 |
if ($header_no_print) |
|
400
|
0 |
0 |
if ($request_type ne 'Proceed') |
|
401
|
0 |
0 |
if ($retStatus) |
|
405
|
0 |
0 |
if ($username eq '' or $stoken eq '') |
|
406
|
0 |
0 |
if ($retStatus) |
|
409
|
0 |
0 |
unless ($casurl =~ m[^https://]i) |
|
418
|
0 |
0 |
if ($resp->is_success) { } |
|
420
|
0 |
0 |
if ($message eq 'answer:ok') { } |
|
426
|
0 |
0 |
if ($result ne 'ok') |
|
429
|
0 |
0 |
if ($retStatus) |
|
431
|
0 |
0 |
$CGI::AuthRegister::AddAuthenticatedUser ? : |
|
433
|
0 |
0 |
if ($u eq '') |
|
436
|
0 |
0 |
if ($retStatus) |
|
448
|
0 |
0 |
if (exists $args{'-redirect'} and $args{'-redirect'} ne '' and $args{'-redirect'} ne $ENV{'SCRIPT_NAME'}) |
|
451
|
0 |
0 |
if (exists $args{'-back'} and $args{'-back'}) |
|
455
|
0 |
0 |
if ($CGI::AuthRegister::SessionId eq '') |
|
456
|
0 |
0 |
if ($ENV{'SCRIPT_NAME'} eq $defaultcgi) |
|
467
|
0 |
0 |
if ($redirect ne '') { } |
|
468
|
0 |
0 |
if ($CGI::AuthRegister::SessionId eq '') { } |
|
475
|
0 |
0 |
if ($CGI::AuthRegister::SessionId eq '') { } |
|
492
|
0 |
0 |
if ($CGI::AuthRegister::DebugLevel > 5) |
|
493
|
0 |
0 |
if ($c eq '') |
|
495
|
0 |
0 |
unless ($CGI::AuthRegister::SessionId =~ /^[\w.:-]+$/ and $CGI::AuthRegister::Ticket =~ /^\w+$/) |
|
500
|
0 |
0 |
unless (-f $sessioninfofile) |
|
502
|
0 |
0 |
if (not ref $se or $CGI::AuthRegister::Ticket ne $se->{'Ticket'}) |
|
506
|
0 |
0 |
if ($CGI::AuthRegister::UserEmail =~ /@/) { } |
|
|
0 |
0 |
elsif ($CGI::AuthRegister::UserId ne '') { } |
|
509
|
0 |
0 |
if ($CGI::AuthRegister::UserId ne '' and $CGI::AuthRegister::User->{'userid'} ne $CGI::AuthRegister::UserId) |
|
511
|
0 |
0 |
if ($CGI::AuthRegister::Error ne '') |
|
514
|
0 |
0 |
if ($CGI::AuthRegister::Error ne '') |
|
525
|
0 |
0 |
unless ($reg_userid =~ /^(\w|[.-])+$/) |
|
528
|
0 |
0 |
unless (&emailcheckok($reg_email)) |
|
529
|
0 |
0 |
if ($reg_password eq '') |
|
530
|
0 |
0 |
if ($reg_password ne $reg_password2) |
|
534
|
0 |
0 |
unless (-f $dbf or &check_db_files) |
|
535
|
0 |
0 |
unless (&lock_mkdir($dbf)) |
|
537
|
0 |
0 |
if (ref $db_ref ne 'ARRAY') |
|
544
|
0 |
0 |
if ($u->{'userid'} eq $reg_userid) |
|
545
|
0 |
0 |
if ($u->{'email'} eq $reg_email) |
|
553
|
0 |
0 |
if ($CGI::AuthRegister::Error) |
|
569
|
0 |
0 |
unless (-f $dbf or &check_db_files) |
|
570
|
0 |
0 |
unless (&lock_mkdir($dbf)) |
|
572
|
0 |
0 |
if (ref $db_ref ne 'ARRAY') |
|
576
|
0 |
0 |
if (defined $u->{'status'} and $u->{'status'} =~ /^disabled, waiting for confirmation code (\S+)/ and $1 eq $confirmation_code) |
|
582
|
0 |
0 |
unless ($flag) |
|
595
|
0 |
0 |
if $pwstore eq '' |
|
597
|
0 |
0 |
unless (-f $pwdf) |
|
598
|
0 |
0 |
unless (&lock_mkdir($pwdf)) |
|
599
|
0 |
0 |
unless open PH, $pwdf |
|
603
|
0 |
0 |
if $e ne $email |
|
607
|
0 |
0 |
if ($pwstore eq 'raw') { } |
|
|
0 |
0 |
elsif ($pwstore eq 'md5') { } |
|
618
|
0 |
0 |
if $pwstoretype eq '' |
|
620
|
0 |
0 |
unless (&check_db_files) |
|
621
|
0 |
0 |
unless (&lock_mkdir($pwdf)) |
|
622
|
0 |
0 |
unless open PH, $pwdf |
|
624
|
0 |
0 |
if ($pwstoretype eq 'md5') { } |
|
629
|
0 |
0 |
if ($e eq $email) { } |
|
641
|
0 |
0 |
unless $n > 0 |
|
649
|
0 |
0 |
if ($CGI::AuthRegister::Session eq '') |
|
650
|
0 |
0 |
if (not -d "$CGI::AuthRegister::DBdir/$CGI::AuthRegister::DBsessions/$CGI::AuthRegister::SessionId") { } |
|
663
|
0 |
0 |
unless ($email =~ /@/) |
|
664
|
0 |
0 |
if ($email ne '') { } |
|
665
|
0 |
0 |
unless (&emailcheckok($email)) |
|
669
|
0 |
0 |
if ($u eq '') |
|
673
|
0 |
0 |
if ($userid eq '') |
|
674
|
0 |
0 |
if ($CGI::AuthRegister::LDAPuse and $CGI::AuthRegister::LDAPaddUsers) |
|
677
|
0 |
0 |
if ($u eq '') |
|
684
|
0 |
0 |
unless (password_check($CGI::AuthRegister::User, $password)) |
|
694
|
0 |
0 |
unless (&password_check_ldap($userid, $password)) |
|
697
|
0 |
0 |
if ($u eq '') |
|
710
|
0 |
0 |
unless ($email =~ /@/ or $userid =~ /\w/) |
|
713
|
0 |
0 |
unless (-d $sDir or &check_db_files) |
|
719
|
0 |
0 |
unless (mkdir "$sDir/$sessionid", 448) |
|
721
|
0 |
0 |
if $cnt == 100 |
|
726
|
0 |
0 |
if $email ne '' |
|
727
|
0 |
0 |
if $userid ne '' |
|
732
|
0 |
0 |
unless ref $CGI::AuthRegister::Session |
|
739
|
0 |
0 |
if (defined $u->{'status'} and $u->{'status'} =~ /^\s*disabled\b/) |
|
741
|
0 |
0 |
if ($CGI::AuthRegister::LDAPuse) |
|
743
|
0 |
0 |
if ($pwstored =~ /^raw:/) |
|
744
|
0 |
0 |
$pwstored eq $password ? : |
|
745
|
0 |
0 |
if ($pwstored =~ /^md5:/) |
|
746
|
0 |
0 |
$pwstored eq md5_base64($password) ? : |
|
754
|
0 |
0 |
if ($username eq '' or $CGI::AuthRegister::LDAPserver eq '' or $CGI::AuthRegister::LDAPdn eq '') |
|
757
|
0 |
0 |
if ($@) |
|
760
|
0 |
0 |
unless my $ldap = 'Net::LDAP'->new("ldaps://$CGI::AuthRegister::LDAPserver") |
|
762
|
0 |
0 |
if ($mesg->code == 0) |
|
776
|
0 |
0 |
unless (-f $pwfile or &check_db_files) |
|
777
|
0 |
0 |
unless (&lock_mkdir($pwfile)) |
|
778
|
0 |
0 |
unless (open PH, $pwfile) |
|
782
|
0 |
0 |
if ($e eq $email) |
|
792
|
0 |
0 |
unless $n > 0 |
|
801
|
1 |
0 |
unless $n > 0 |
|
807
|
0 |
0 |
if ($#_ >= -1) |
|
808
|
0 |
0 |
if $CGI::AuthRegister::LogReport eq '' |
|
809
|
0 |
0 |
if ($CGI::AuthRegister::SendLogs) |
|
820
|
0 |
0 |
if ($email eq '') |
|
822
|
0 |
0 |
unless (emailcheckok($email)) |
|
825
|
0 |
0 |
if ($user eq '') |
|
836
|
0 |
0 |
if ($email eq '') |
|
839
|
0 |
0 |
if ($email =~ /@/) { } |
|
841
|
0 |
0 |
if ($user eq '') |
|
844
|
0 |
0 |
unless (emailcheckok($email)) |
|
847
|
0 |
0 |
if ($pw =~ /^raw:/) { } |
|
|
0 |
0 |
elsif ($pw ne '') { } |
|
871
|
0 |
0 |
if $CGI::AuthRegister::Email_bcc eq '' |
|
873
|
0 |
0 |
unless $CGI::AuthRegister::Email_from eq '' |
|
880
|
0 |
0 |
unless &emailcheckok($email) |
|
882
|
0 |
0 |
unless ($subject =~ /^Subject: /) |
|
886
|
0 |
0 |
unless $CGI::AuthRegister::Email_from eq '' |
|
888
|
0 |
0 |
unless $CGI::AuthRegister::Email_bcc eq '' |
|
895
|
0 |
0 |
unless (-x $CGI::AuthRegister::Sendmail) |
|
898
|
0 |
0 |
unless (open S, "|$CGI::AuthRegister::Sendmail -ti") |
|
930
|
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) |
|
937
|
0 |
0 |
if $userid =~ /^[a-zA-Z0-9-]+$/ |
|
943
|
0 |
0 |
unless (-f $f) |
|
948
|
0 |
0 |
unless $k =~ /^k=/ |
|
950
|
0 |
0 |
if (ref $db_ref ne 'ARRAY') |
|
954
|
0 |
0 |
if (exists $r->{$k} and $v eq $r->{$k}) |
|
961
|
0 |
0 |
if (ref $db_ref ne 'ARRAY') |
|
967
|
0 |
0 |
if (exists $r->{$k} and $v eq $r->{$k}) |
|
974
|
0 |
0 |
if (ref $db_ref ne 'ARRAY') |
|
978
|
0 |
0 |
if (lc $email eq lc $r->{'email'}) |
|
987
|
0 |
0 |
unless (-f $f or &check_db_files) |
|
991
|
0 |
0 |
unless exists $r->{'userid'} |
|
993
|
0 |
0 |
unless $v1 eq $userid |
|
994
|
0 |
0 |
if ($u eq '') |
|
997
|
0 |
0 |
unless $u eq '' |
|
1006
|
0 |
0 |
unless (-f $f or &check_db_files) |
|
1009
|
0 |
0 |
if ($k eq '' or $v eq '') |
|
1013
|
0 |
0 |
unless exists $r->{$k} |
|
1015
|
0 |
0 |
unless $v eq $v1 |
|
1016
|
0 |
0 |
if ($u eq '') |
|
1019
|
0 |
0 |
unless $u eq '' |
|
1025
|
0 |
0 |
unless (-d $CGI::AuthRegister::DBdir) |
|
1026
|
0 |
0 |
unless ($ret) |
|
1027
|
0 |
0 |
unless (-f $pwfile) |
|
1028
|
0 |
0 |
unless (-f $pwfile) |
|
1031
|
0 |
0 |
unless (-f $f) |
|
1033
|
0 |
0 |
unless (-f $f) |
|
1035
|
0 |
0 |
unless (-d $f) |
|
1036
|
0 |
0 |
unless ($ret) |
|
1047
|
0 |
0 |
if ($arg =~ /^file=/) |
|
1048
|
0 |
0 |
if $file eq '' |
|
1049
|
0 |
0 |
unless open F, $file |
|
1057
|
0 |
0 |
if ($arg =~ /^(\s*\n|[ \t]*#.*\n)*/) |
|
1059
|
0 |
0 |
if ($arg =~ /\n(\n+)/) { } |
|
1061
|
0 |
0 |
if ($dbi > $#{$db;}) |
|
1065
|
0 |
0 |
if ($record =~ /^.*/) |
|
1068
|
0 |
0 |
unless $record =~ /^([^\n:]*):(.*)\n/ |
|
1071
|
0 |
0 |
if (exists $r->{$k}) |
|
1077
|
0 |
0 |
if (exists $db->[$dbi]{$k} and $db->[$dbi]{$k} eq $v) { } |
|
|
0 |
0 |
elsif (exists $db->[$dbi]{$k}) { } |
|
1086
|
0 |
0 |
unless (exists $savedkeys{$k}) |
|
1103
|
0 |
0 |
if ($file ne '') { } |
|
1104
|
0 |
0 |
if ($argcopy ne $arg_save) |
|
1114
|
0 |
0 |
unless $kdel =~ /^k=/ |
|
1115
|
0 |
0 |
unless (&lock_mkdir($dbf)) |
|
1116
|
0 |
0 |
unless (open F, $dbf) |
|
1123
|
0 |
0 |
if ($arg =~ /^([ \t\r]*(#.*)?\n)+/) |
|
1125
|
0 |
0 |
if $arg eq '' |
|
1126
|
0 |
0 |
if ($arg =~ /([ \t\r]*\n){2,}/) { } |
|
1131
|
0 |
0 |
unless $record =~ /^[ \t]*([^\n:]*?)[ \t]*:/ |
|
1135
|
0 |
0 |
unless $record =~ /^[ \t]*(.*?)[ \t\r]*\n/ |
|
1137
|
0 |
0 |
if (exists $r->{$k}) |
|
1144
|
0 |
0 |
if (exists $r->{$kdel} and $r->{$kdel} eq $vdel) { } |
|
1148
|
0 |
0 |
if ($argcopy ne $arg_save) |
|
1149
|
0 |
0 |
unless (open F, ">$dbf.lock/new") |
|
1159
|
0 |
0 |
if ($arg =~ /^file=/) |
|
1160
|
0 |
0 |
unless (&lock_mkdir($f)) |
|
1162
|
0 |
0 |
unless (open F, $f) |
|
1171
|
0 |
0 |
if ($arg =~ /\n\n+/) { } |
|
1175
|
0 |
0 |
if ($record =~ /^#.*\n?/) |
|
1178
|
0 |
0 |
unless $record =~ /^([^\n:]*):(.*)\n/ |
|
1180
|
0 |
0 |
if (exists $r->{$k}) |
|
1196
|
0 |
0 |
unless (&lock_mkdir($fdb)) |
|
1197
|
0 |
0 |
unless (open F, ">>$fdb") |
|
1206
|
0 |
0 |
if ($arg =~ /^file=/) |
|
1207
|
0 |
0 |
unless open F, $f |
|
1213
|
0 |
0 |
if ($arg =~ /\n\n+/) { } |
|
1219
|
0 |
0 |
unless $record =~ /^([^\n:]*):(.*)\n/ |
|
1221
|
0 |
0 |
if (exists $r->{$k}) |
|
1234
|
0 |
0 |
if $n < 1 |
|
1241
|
0 |
0 |
unless (open F, ">$f") |
|
1247
|
0 |
0 |
unless (open F, "<$f") |
|
1250
|
0 |
0 |
wantarray ? : |
|
1261
|
0 |
0 |
if (not -e $lockd and $locked = mkdir($lockd, 448)) |
|
1266
|
0 |
0 |
unless -e $lockd |
|
1267
|
0 |
0 |
if ($locked) |
|
1276
|
0 |
0 |
unless (-e $lockd) |
|
1277
|
0 |
0 |
if (-d $lockd) |
|
1278
|
0 |
0 |
if (-f $lockd or -l $lockd) |
|
1483
|
0 |
0 |
if ($CGI::AuthRegister::GenCasPageCustom ne '') |
|
1491
|
0 |
0 |
if (param('redirect_uri') ne '') { } |
|
|
0 |
0 |
elsif (param('r') ne '') { } |
|
1500
|
0 |
0 |
if ($forgotpassword) |
|
1502
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '') |
|
1507
|
0 |
0 |
if ($removerighthandside) { } |
|
1519
|
0 |
0 |
if ($par eq 'cas-all.css') { } |
|
|
0 |
0 |
elsif ($par eq 'cas-mobile.css') { } |
|
2134
|
0 |
0 |
unless $CGI::AuthRegister::DebugLevel > 5 |