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 |
- |
|
|