|
Lines 714-720
sub checkauth {
Link Here
|
| 714 |
logout_cas($query); |
714 |
logout_cas($query); |
| 715 |
} |
715 |
} |
| 716 |
} |
716 |
} |
| 717 |
elsif ( $lasttime && ($lasttime < time() - $timeout) ) { |
717 |
elsif ( !$lasttime || ($lasttime < time() - $timeout) ) { |
| 718 |
# timed logout |
718 |
# timed logout |
| 719 |
$info{'timed_out'} = 1; |
719 |
$info{'timed_out'} = 1; |
| 720 |
$session->delete() if $session; |
720 |
$session->delete() if $session; |
|
Lines 838-844
sub checkauth {
Link Here
|
| 838 |
my $retuserid; |
838 |
my $retuserid; |
| 839 |
( $return, $cardnumber, $retuserid ) = |
839 |
( $return, $cardnumber, $retuserid ) = |
| 840 |
checkpw( $dbh, $userid, $password, $query ); |
840 |
checkpw( $dbh, $userid, $password, $query ); |
| 841 |
$userid = $retuserid if ( $retuserid ne '' ); |
841 |
$userid = $retuserid if ( $retuserid ); |
| 842 |
} |
842 |
} |
| 843 |
if ($return) { |
843 |
if ($return) { |
| 844 |
#_session_log(sprintf "%20s from %16s logged in at %30s.\n", $userid,$ENV{'REMOTE_ADDR'},(strftime '%c', localtime)); |
844 |
#_session_log(sprintf "%20s from %16s logged in at %30s.\n", $userid,$ENV{'REMOTE_ADDR'},(strftime '%c', localtime)); |
| 845 |
- |
|
|