|
Lines 734-740
sub checkauth {
Link Here
|
| 734 |
} |
734 |
} |
| 735 |
elsif ( !$lasttime || ($lasttime < time() - $timeout) ) { |
735 |
elsif ( !$lasttime || ($lasttime < time() - $timeout) ) { |
| 736 |
# timed logout |
736 |
# timed logout |
| 737 |
$info{'timed_out'} = 1; |
737 |
$info{'timed_out'} = 1 if $lasttime; |
| 738 |
if ($session) { |
738 |
if ($session) { |
| 739 |
$session->delete(); |
739 |
$session->delete(); |
| 740 |
$session->flush; |
740 |
$session->flush; |
|
Lines 992-1003
sub checkauth {
Link Here
|
| 992 |
|
992 |
|
| 993 |
} |
993 |
} |
| 994 |
else { |
994 |
else { |
|
|
995 |
## if we got here, it is an unsuccessfull login attempt |
| 995 |
if ($userid) { |
996 |
if ($userid) { |
| 996 |
$info{'invalid_username_or_password'} = 1; |
997 |
$info{'invalid_username_or_password'} = 1; |
| 997 |
C4::Context->_unset_userenv($sessionID); |
|
|
| 998 |
} |
998 |
} |
| 999 |
$session->param('lasttime',time()); |
999 |
if ($session) { |
| 1000 |
$session->param('ip',$session->remote_addr()); |
1000 |
$session->delete(); |
|
|
1001 |
$session->flush; |
| 1002 |
} |
| 1003 |
C4::Context->_unset_userenv($sessionID) if $sessionID; |
| 1004 |
$userid = undef; |
| 1005 |
$sessionID = undef; |
| 1006 |
## probably not a good idea (at least not without setting up 'sessiontype' to 'anon' as well ?) |
| 1007 |
# $session->param('lasttime',time()); |
| 1008 |
# $session->param('ip',$session->remote_addr()); |
| 1001 |
} |
1009 |
} |
| 1002 |
} # END if ( $userid = $query->param('userid') ) |
1010 |
} # END if ( $userid = $query->param('userid') ) |
| 1003 |
elsif ($type eq "opac") { |
1011 |
elsif ($type eq "opac") { |
| 1004 |
- |
|
|