From 7846a436540b647f24b0141b9191ea690fb3fe12 Mon Sep 17 00:00:00 2001 From: MJ Ray Date: Fri, 5 Jun 2009 16:46:15 +0100 Subject: [PATCH] Use strftime to format sessionlog times --- C4/Auth.pm | 9 +++++---- 1 files changed, 5 insertions(+), 4 deletions(-) diff --git a/C4/Auth.pm b/C4/Auth.pm index 86ba9de..8f6a388 100644 --- a/C4/Auth.pm +++ b/C4/Auth.pm @@ -32,6 +32,7 @@ use C4::Members; use C4::Koha; use C4::Branch; # GetBranches use C4::VirtualShelves; +use POSIX qw/strftime/; # use utf8; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap); @@ -549,7 +550,7 @@ sub checkauth { $session->flush; $session->delete(); C4::Context->_unset_userenv($sessionID); - _session_log(sprintf "%20s from %16s logged out at %30s (manually).\n", $userid,$ip,localtime); + _session_log(sprintf "%20s from %16s logged out at %30s (manually).\n", $userid,$ip,(strftime "%c",localtime)); $sessionID = undef; $userid = undef; } @@ -558,7 +559,7 @@ sub checkauth { $info{'timed_out'} = 1; $session->delete(); C4::Context->_unset_userenv($sessionID); - _session_log(sprintf "%20s from %16s logged out at %30s (inactivity).\n", $userid,$ip,localtime); + _session_log(sprintf "%20s from %16s logged out at %30s (inactivity).\n", $userid,$ip,(strftime "%c",localtime)); $userid = undef; $sessionID = undef; } @@ -569,7 +570,7 @@ sub checkauth { $info{'different_ip'} = 1; $session->delete(); C4::Context->_unset_userenv($sessionID); - _session_log(sprintf "%20s from %16s logged out at %30s (ip changed to %16s).\n", $userid,$ip,localtime, $info{'newip'}); + _session_log(sprintf "%20s from %16s logged out at %30s (ip changed to %16s).\n", $userid,$ip,(strftime "%c",localtime), $info{'newip'}); $sessionID = undef; $userid = undef; } @@ -596,7 +597,7 @@ sub checkauth { my $password = $query->param('password'); my ( $return, $cardnumber ) = checkpw( $dbh, $userid, $password ); if ($return) { - _session_log(sprintf "%20s from %16s logged in at %30s.\n", $userid,$ENV{'REMOTE_ADDR'},localtime); + _session_log(sprintf "%20s from %16s logged in at %30s.\n", $userid,$ENV{'REMOTE_ADDR'},(strftime "%c",localtime)); if ( $flags = haspermission( $dbh, $userid, $flagsrequired ) ) { $loggedin = 1; } -- 1.5.3.7