View | Details | Raw Unified | Return to bug 3295
Collapse All | Expand All

(-)a/C4/Auth.pm (-5 / +5 lines)
Lines 32-37 use C4::Members; Link Here
32
use C4::Koha;
32
use C4::Koha;
33
use C4::Branch; # GetBranches
33
use C4::Branch; # GetBranches
34
use C4::VirtualShelves;
34
use C4::VirtualShelves;
35
use POSIX qw/strftime/;
35
36
36
# use utf8;
37
# use utf8;
37
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap);
38
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap);
Lines 549-555 sub checkauth { Link Here
549
            $session->flush;      
550
            $session->flush;      
550
            $session->delete();
551
            $session->delete();
551
            C4::Context->_unset_userenv($sessionID);
552
            C4::Context->_unset_userenv($sessionID);
552
            _session_log(sprintf "%20s from %16s logged out at %30s (manually).\n", $userid,$ip,localtime);
553
            _session_log(sprintf "%20s from %16s logged out at %30s (manually).\n", $userid,$ip,(strftime "%c",localtime));
553
            $sessionID = undef;
554
            $sessionID = undef;
554
            $userid    = undef;
555
            $userid    = undef;
555
        }
556
        }
Lines 558-564 sub checkauth { Link Here
558
			$info{'timed_out'} = 1;
559
			$info{'timed_out'} = 1;
559
			$session->delete();
560
			$session->delete();
560
			C4::Context->_unset_userenv($sessionID);
561
			C4::Context->_unset_userenv($sessionID);
561
			_session_log(sprintf "%20s from %16s logged out at %30s (inactivity).\n", $userid,$ip,localtime);
562
			_session_log(sprintf "%20s from %16s logged out at %30s (inactivity).\n", $userid,$ip,(strftime "%c",localtime));
562
			$userid    = undef;
563
			$userid    = undef;
563
			$sessionID = undef;
564
			$sessionID = undef;
564
		}
565
		}
Lines 569-575 sub checkauth { Link Here
569
			$info{'different_ip'} = 1;
570
			$info{'different_ip'} = 1;
570
			$session->delete();
571
			$session->delete();
571
			C4::Context->_unset_userenv($sessionID);
572
			C4::Context->_unset_userenv($sessionID);
572
			_session_log(sprintf "%20s from %16s logged out at %30s (ip changed to %16s).\n", $userid,$ip,localtime, $info{'newip'});
573
			_session_log(sprintf "%20s from %16s logged out at %30s (ip changed to %16s).\n", $userid,$ip,(strftime "%c",localtime), $info{'newip'});
573
			$sessionID = undef;
574
			$sessionID = undef;
574
			$userid    = undef;
575
			$userid    = undef;
575
		}
576
		}
Lines 596-602 sub checkauth { Link Here
596
        	my $password = $query->param('password');
597
        	my $password = $query->param('password');
597
        	my ( $return, $cardnumber ) = checkpw( $dbh, $userid, $password );
598
        	my ( $return, $cardnumber ) = checkpw( $dbh, $userid, $password );
598
        	if ($return) {
599
        	if ($return) {
599
            	_session_log(sprintf "%20s from %16s logged in  at %30s.\n", $userid,$ENV{'REMOTE_ADDR'},localtime);
600
            	_session_log(sprintf "%20s from %16s logged in  at %30s.\n", $userid,$ENV{'REMOTE_ADDR'},(strftime "%c",localtime));
600
            	if ( $flags = haspermission( $dbh, $userid, $flagsrequired ) ) {
601
            	if ( $flags = haspermission( $dbh, $userid, $flagsrequired ) ) {
601
					$loggedin = 1;
602
					$loggedin = 1;
602
            	}
603
            	}
603
- 

Return to bug 3295