From 87f635ce9f9a1e3fb016aea21c7e5951e09acb2f Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 16 Jun 2021 15:28:01 +0200 Subject: [PATCH] Bug 28571: Remove C4::Auth::_session_log It's not used and must be removed Test plan: % git grep _session_log must not return any result. Signed-off-by: David Nind Signed-off-by: Marcel de Rooy Signed-off-by: Jonathan Druart Signed-off-by: Kyle M Hall --- C4/Auth.pm | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/C4/Auth.pm b/C4/Auth.pm index 2d9bad4c58..47c4ee1539 100644 --- a/C4/Auth.pm +++ b/C4/Auth.pm @@ -777,13 +777,6 @@ sub _version_check { } } -sub _session_log { - (@_) or return 0; - open my $fh, '>>', "/tmp/sessionlog" or warn "ERROR: Cannot append to /tmp/sessionlog"; - printf $fh join( "\n", @_ ); - close $fh; -} - sub _timeout_syspref { my $default_timeout = 600; my $timeout = C4::Context->preference('timeout') || $default_timeout; @@ -926,7 +919,6 @@ sub checkauth { $session->flush; C4::Context->_unset_userenv($sessionID); - #_session_log(sprintf "%20s from %16s logged out at %30s (manually).\n", $userid,$ip,(strftime "%c",localtime)); $sessionID = undef; $userid = undef; @@ -949,7 +941,6 @@ sub checkauth { } C4::Context->_unset_userenv($sessionID); - #_session_log(sprintf "%20s from %16s logged out at %30s (inactivity).\n", $userid,$ip,(strftime "%c",localtime)); $userid = undef; $sessionID = undef; } @@ -963,7 +954,6 @@ sub checkauth { $session->flush; C4::Context->_unset_userenv($sessionID); - #_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; } @@ -1124,7 +1114,6 @@ sub checkauth { # $return: 1 = valid user if ($return) { - #_session_log(sprintf "%20s from %16s logged in at %30s.\n", $userid,$ENV{'REMOTE_ADDR'},(strftime '%c', localtime)); if ( $flags = haspermission( $userid, $flagsrequired ) ) { $loggedin = 1; } -- 2.39.5