From 87f635ce9f9a1e3fb016aea21c7e5951e09acb2f Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
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 <david@davidnind.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 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