| line |
true |
false |
branch |
|
82
|
0 |
0 |
if (-r 'configuration.pl') |
|
91
|
0 |
0 |
if ($ENV{'HTTPS'} ne 'on') |
|
109
|
0 |
0 |
if ($querystring eq '' and param('querystring')) |
|
111
|
0 |
0 |
if ($querystring eq 'cas-all.css') |
|
112
|
0 |
0 |
if ($querystring eq 'cas-mobile.css') |
|
114
|
0 |
0 |
if (param('rt') ne '' and param('rt') eq 'verify') |
|
118
|
0 |
0 |
if ($r ne '' and $r->{'stoken'} eq $stoken and $r->{'userid'} eq $username) |
|
120
|
0 |
0 |
if ($CGI::AuthRegister::DebugLevel > 5) |
|
123
|
0 |
0 |
if ($ans ne 'ok') |
|
125
|
0 |
0 |
if ($CGI::AuthRegister::DebugLevel > 5) |
|
133
|
0 |
0 |
if (param('redirect_uri') ne '') { } |
|
|
0 |
0 |
elsif (param('r') ne '') { } |
|
140
|
0 |
0 |
if ($redirect_uri ne '') |
|
154
|
0 |
0 |
if ($redirect_uri ne '') |
|
161
|
0 |
0 |
if ($redirect_uri ne '') { } |
|
164
|
0 |
0 |
unless (-f $f or &check_db_files) |
|
166
|
0 |
0 |
unless (-f $f) |
|
168
|
0 |
0 |
if ($CGI::AuthRegister::Error ne '') |
|
186
|
0 |
0 |
if ($redirect_uri ne '' and not $redirect_uri =~ m[^https://(\w|[-.~/])+]i and not $redirect_uri =~ m[^http://(\w|[-.~/:])+]i) |
|
206
|
0 |
0 |
if ($querystring eq 'forgotpwd' or param('rt') eq 'forgotpwd') |
|
207
|
0 |
0 |
if ($CGI::AuthRegister::LinkForgotpwd) |
|
235
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '' and param('keywords') eq 'logout') |
|
238
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '') |
|
242
|
0 |
0 |
if ($Request_type eq 'Login') { } |
|
|
0 |
0 |
elsif ($Request_type eq 'Send_Password') { } |
|
246
|
0 |
0 |
if (not &login($username, $password)) { } |
|
249
|
0 |
0 |
if ($redirect_uri ne '') |
|
285
|
0 |
0 |
if exists $args{'-cas'} |
|
307
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '' and param('keywords') eq 'logout') |
|
311
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '') |
|
315
|
0 |
0 |
if ($Request_type eq 'Login') { } |
|
|
0 |
0 |
elsif ($Request_type eq 'Send_Password') { } |
|
|
0 |
0 |
elsif ($Request_type eq 'Reset_Password') { } |
|
319
|
0 |
0 |
if (not &login($email, $password)) { } |
|
358
|
0 |
0 |
if exists $args{'-return_status'} |
|
366
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '' and param('keywords') eq 'logout') |
|
368
|
0 |
0 |
if ($retStatus) |
|
371
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '') |
|
373
|
0 |
0 |
if ($header_no_print) |
|
377
|
0 |
0 |
if ($request_type ne 'Proceed') |
|
378
|
0 |
0 |
if ($retStatus) |
|
382
|
0 |
0 |
if ($username eq '' or $stoken eq '') |
|
383
|
0 |
0 |
if ($retStatus) |
|
386
|
0 |
0 |
unless ($casurl =~ m[^https://]i) |
|
395
|
0 |
0 |
if ($resp->is_success) { } |
|
397
|
0 |
0 |
if ($message eq 'answer:ok') { } |
|
403
|
0 |
0 |
if ($result ne 'ok') |
|
406
|
0 |
0 |
if ($retStatus) |
|
408
|
0 |
0 |
$CGI::AuthRegister::AddAuthenticatedUser ? : |
|
410
|
0 |
0 |
if ($u eq '') |
|
413
|
0 |
0 |
if ($retStatus) |
|
423
|
0 |
0 |
if (exists $args{'-redirect'} and $args{'-redirect'} ne '' and $args{'-redirect'} ne $ENV{'SCRIPT_NAME'}) |
|
426
|
0 |
0 |
if (exists $args{'-back'} and $args{'-back'}) |
|
430
|
0 |
0 |
if ($CGI::AuthRegister::SessionId eq '') |
|
431
|
0 |
0 |
if ($ENV{'SCRIPT_NAME'} eq $defaultcgi) |
|
442
|
0 |
0 |
if ($redirect ne '') { } |
|
443
|
0 |
0 |
if ($CGI::AuthRegister::SessionId eq '') { } |
|
450
|
0 |
0 |
if ($CGI::AuthRegister::SessionId eq '') { } |
|
467
|
0 |
0 |
if ($CGI::AuthRegister::DebugLevel > 5) |
|
468
|
0 |
0 |
if ($c eq '') |
|
470
|
0 |
0 |
unless ($CGI::AuthRegister::SessionId =~ /^[\w.:-]+$/ and $CGI::AuthRegister::Ticket =~ /^\w+$/) |
|
475
|
0 |
0 |
unless (-f $sessioninfofile) |
|
477
|
0 |
0 |
if (not ref $se or $CGI::AuthRegister::Ticket ne $se->{'Ticket'}) |
|
481
|
0 |
0 |
if ($CGI::AuthRegister::UserEmail =~ /@/) { } |
|
|
0 |
0 |
elsif ($CGI::AuthRegister::UserId ne '') { } |
|
484
|
0 |
0 |
if ($CGI::AuthRegister::UserId ne '' and $CGI::AuthRegister::User->{'userid'} ne $CGI::AuthRegister::UserId) |
|
486
|
0 |
0 |
if ($CGI::AuthRegister::Error ne '') |
|
489
|
0 |
0 |
if ($CGI::AuthRegister::Error ne '') |
|
498
|
0 |
0 |
if $pwstore eq '' |
|
500
|
0 |
0 |
unless (-f $pwdf) |
|
501
|
0 |
0 |
unless (&lock_mkdir($pwdf)) |
|
502
|
0 |
0 |
unless open PH, $pwdf |
|
506
|
0 |
0 |
if $e ne $email |
|
510
|
0 |
0 |
if ($pwstore eq 'raw') { } |
|
|
0 |
0 |
elsif ($pwstore eq 'md5') { } |
|
523
|
0 |
0 |
unless $n > 0 |
|
531
|
0 |
0 |
if ($CGI::AuthRegister::Session eq '') |
|
532
|
0 |
0 |
if (not -d "$CGI::AuthRegister::DBdir/$CGI::AuthRegister::DBsessions/$CGI::AuthRegister::SessionId") { } |
|
545
|
0 |
0 |
unless ($email =~ /@/) |
|
546
|
0 |
0 |
if ($email ne '') { } |
|
547
|
0 |
0 |
unless (&emailcheckok($email)) |
|
551
|
0 |
0 |
if ($u eq '') |
|
555
|
0 |
0 |
if ($userid eq '') |
|
556
|
0 |
0 |
if ($CGI::AuthRegister::LDAPuse and $CGI::AuthRegister::LDAPaddUsers) |
|
559
|
0 |
0 |
if ($u eq '') |
|
566
|
0 |
0 |
unless (password_check($CGI::AuthRegister::User, $password)) |
|
576
|
0 |
0 |
unless (&password_check_ldap($userid, $password)) |
|
579
|
0 |
0 |
if ($u eq '') |
|
592
|
0 |
0 |
unless ($email =~ /@/ or $userid =~ /\w/) |
|
595
|
0 |
0 |
unless (-d $sDir or &check_db_files) |
|
601
|
0 |
0 |
unless (mkdir "$sDir/$sessionid", 448) |
|
603
|
0 |
0 |
if $cnt == 100 |
|
608
|
0 |
0 |
if $email ne '' |
|
609
|
0 |
0 |
if $userid ne '' |
|
614
|
0 |
0 |
unless ref $CGI::AuthRegister::Session |
|
621
|
0 |
0 |
if ($CGI::AuthRegister::LDAPuse) |
|
623
|
0 |
0 |
if ($pwstored =~ /^raw:/) |
|
624
|
0 |
0 |
$pwstored eq $password ? : |
|
625
|
0 |
0 |
if ($pwstored =~ /^md5:/) |
|
626
|
0 |
0 |
$pwstored eq md5_base64($password) ? : |
|
634
|
0 |
0 |
if ($username eq '' or $CGI::AuthRegister::LDAPserver eq '' or $CGI::AuthRegister::LDAPdn eq '') |
|
637
|
0 |
0 |
if ($@) |
|
640
|
0 |
0 |
unless my $ldap = 'Net::LDAP'->new("ldaps://$CGI::AuthRegister::LDAPserver") |
|
642
|
0 |
0 |
if ($mesg->code == 0) |
|
656
|
0 |
0 |
unless (-f $pwfile or &check_db_files) |
|
657
|
0 |
0 |
unless (&lock_mkdir($pwfile)) |
|
658
|
0 |
0 |
unless (open PH, $pwfile) |
|
662
|
0 |
0 |
if ($e eq $email) |
|
672
|
0 |
0 |
unless $n > 0 |
|
681
|
1 |
0 |
unless $n > 0 |
|
687
|
0 |
0 |
if ($#_ >= -1) |
|
688
|
0 |
0 |
if $CGI::AuthRegister::LogReport eq '' |
|
689
|
0 |
0 |
if ($CGI::AuthRegister::SendLogs) |
|
700
|
0 |
0 |
if ($email eq '') |
|
702
|
0 |
0 |
unless (emailcheckok($email)) |
|
705
|
0 |
0 |
if ($user eq '') |
|
716
|
0 |
0 |
if ($email eq '') |
|
719
|
0 |
0 |
if ($email =~ /@/) { } |
|
721
|
0 |
0 |
if ($user eq '') |
|
724
|
0 |
0 |
unless (emailcheckok($email)) |
|
727
|
0 |
0 |
if ($pw =~ /^raw:/) { } |
|
|
0 |
0 |
elsif ($pw ne '') { } |
|
751
|
0 |
0 |
if $CGI::AuthRegister::Email_bcc eq '' |
|
753
|
0 |
0 |
unless $CGI::AuthRegister::Email_from eq '' |
|
760
|
0 |
0 |
unless &emailcheckok($email) |
|
762
|
0 |
0 |
unless ($subject =~ /^Subject: /) |
|
766
|
0 |
0 |
unless $CGI::AuthRegister::Email_from eq '' |
|
768
|
0 |
0 |
unless $CGI::AuthRegister::Email_bcc eq '' |
|
775
|
0 |
0 |
unless (-x $CGI::AuthRegister::Sendmail) |
|
778
|
0 |
0 |
unless (open S, "|$CGI::AuthRegister::Sendmail -ti") |
|
810
|
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) |
|
817
|
0 |
0 |
if $userid =~ /^[a-zA-Z0-9-]+$/ |
|
823
|
0 |
0 |
unless (-f $f) |
|
828
|
0 |
0 |
unless $k =~ /^k=/ |
|
830
|
0 |
0 |
if (ref $db_ref ne 'ARRAY') |
|
834
|
0 |
0 |
if (exists $r->{$k} and $v eq $r->{$k}) |
|
841
|
0 |
0 |
if (ref $db_ref ne 'ARRAY') |
|
847
|
0 |
0 |
if (exists $r->{$k} and $v eq $r->{$k}) |
|
854
|
0 |
0 |
if (ref $db_ref ne 'ARRAY') |
|
858
|
0 |
0 |
if (lc $email eq lc $r->{'email'}) |
|
867
|
0 |
0 |
unless (-f $f or &check_db_files) |
|
871
|
0 |
0 |
unless exists $r->{'userid'} |
|
873
|
0 |
0 |
unless $v1 eq $userid |
|
874
|
0 |
0 |
if ($u eq '') |
|
877
|
0 |
0 |
unless $u eq '' |
|
886
|
0 |
0 |
unless (-f $f or &check_db_files) |
|
889
|
0 |
0 |
if ($k eq '' or $v eq '') |
|
893
|
0 |
0 |
unless exists $r->{$k} |
|
895
|
0 |
0 |
unless $v eq $v1 |
|
896
|
0 |
0 |
if ($u eq '') |
|
899
|
0 |
0 |
unless $u eq '' |
|
905
|
0 |
0 |
unless (-d $CGI::AuthRegister::DBdir) |
|
906
|
0 |
0 |
unless ($ret) |
|
907
|
0 |
0 |
unless (-f $pwfile) |
|
908
|
0 |
0 |
unless (-f $pwfile) |
|
911
|
0 |
0 |
unless (-f $f) |
|
913
|
0 |
0 |
unless (-f $f) |
|
915
|
0 |
0 |
unless (-d $f) |
|
916
|
0 |
0 |
unless ($ret) |
|
923
|
0 |
0 |
unless $kdel =~ /^k=/ |
|
924
|
0 |
0 |
unless (&lock_mkdir($dbf)) |
|
925
|
0 |
0 |
unless (open F, $dbf) |
|
932
|
0 |
0 |
if ($arg =~ /^([ \t\r]*(#.*)?\n)+/) |
|
934
|
0 |
0 |
if $arg eq '' |
|
935
|
0 |
0 |
if ($arg =~ /([ \t\r]*\n){2,}/) { } |
|
940
|
0 |
0 |
unless $record =~ /^[ \t]*([^\n:]*?)[ \t]*:/ |
|
944
|
0 |
0 |
unless $record =~ /^[ \t]*(.*?)[ \t\r]*\n/ |
|
946
|
0 |
0 |
if (exists $r->{$k}) |
|
953
|
0 |
0 |
if (exists $r->{$kdel} and $r->{$kdel} eq $vdel) { } |
|
957
|
0 |
0 |
if ($argcopy ne $arg_save) |
|
958
|
0 |
0 |
unless (open F, ">$dbf.lock/new") |
|
968
|
0 |
0 |
if ($arg =~ /^file=/) |
|
969
|
0 |
0 |
unless (&lock_mkdir($f)) |
|
971
|
0 |
0 |
unless (open F, $f) |
|
980
|
0 |
0 |
if ($arg =~ /\n\n+/) { } |
|
984
|
0 |
0 |
if ($record =~ /^#.*\n?/) |
|
987
|
0 |
0 |
unless $record =~ /^([^\n:]*):(.*)\n/ |
|
989
|
0 |
0 |
if (exists $r->{$k}) |
|
1005
|
0 |
0 |
unless (&lock_mkdir($fdb)) |
|
1006
|
0 |
0 |
unless (open F, ">>$fdb") |
|
1015
|
0 |
0 |
if ($arg =~ /^file=/) |
|
1016
|
0 |
0 |
unless open F, $f |
|
1022
|
0 |
0 |
if ($arg =~ /\n\n+/) { } |
|
1028
|
0 |
0 |
unless $record =~ /^([^\n:]*):(.*)\n/ |
|
1030
|
0 |
0 |
if (exists $r->{$k}) |
|
1042
|
0 |
0 |
unless (open F, ">$f") |
|
1054
|
0 |
0 |
if (not -e $lockd and $locked = mkdir($lockd, 448)) |
|
1059
|
0 |
0 |
unless -e $lockd |
|
1060
|
0 |
0 |
if ($locked) |
|
1069
|
0 |
0 |
unless (-e $lockd) |
|
1070
|
0 |
0 |
if (-d $lockd) |
|
1071
|
0 |
0 |
if (-f $lockd or -l $lockd) |
|
1276
|
0 |
0 |
if ($CGI::AuthRegister::GenCasPageCustom ne '') |
|
1284
|
0 |
0 |
if (param('redirect_uri') ne '') { } |
|
|
0 |
0 |
elsif (param('r') ne '') { } |
|
1293
|
0 |
0 |
if ($forgotpassword) |
|
1295
|
0 |
0 |
if ($CGI::AuthRegister::SessionId ne '') |
|
1300
|
0 |
0 |
if ($removerighthandside) { } |
|
1312
|
0 |
0 |
if ($par eq 'cas-all.css') { } |
|
|
0 |
0 |
elsif ($par eq 'cas-mobile.css') { } |
|
1927
|
0 |
0 |
unless $CGI::AuthRegister::DebugLevel > 5 |