From a60101bea074fdd81434c8f047ed7d3a0de8ebce Mon Sep 17 00:00:00 2001
From: Paul Poulain <paul.poulain@biblibre.com>
Date: Fri, 6 Jan 2012 14:22:59 +0100
Subject: [PATCH] Bug 6627 follow-up

in installer, some lines where forgotten, and can also be commented
---
 installer/InstallAuth.pm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/installer/InstallAuth.pm b/installer/InstallAuth.pm
index ccdcbcb10d..5b99c1f13b 100644
--- a/installer/InstallAuth.pm
+++ b/installer/InstallAuth.pm
@@ -276,10 +276,10 @@ sub checkauth {
             $userid    = undef;
 	   # Commented out due to its lack of usefulness
            # open L, ">>/tmp/sessionlog";
-            my $time = localtime( time() );
-            printf L "%20s from %16s logged out at %30s (manually).\n", $userid,
-              $ip, $time;
-            close L;
+           # my $time = localtime( time() );
+           # printf L "%20s from %16s logged out at %30s (manually).\n", $userid,
+           #   $ip, $time;
+           # close L;
         }
     }
     unless ($userid) {
@@ -293,11 +293,11 @@ sub checkauth {
         my ( $return, $cardnumber ) = checkpw( $userid, $password );
         if ($return) {
             $loggedin = 1;
-            open L, ">>/tmp/sessionlog";
-            my $time = localtime( time() );
-            printf L "%20s from %16s logged in  at %30s.\n", $userid,
-              $ENV{'REMOTE_ADDR'}, $time;
-            close L;
+            # open L, ">>/tmp/sessionlog";
+            # my $time = localtime( time() );
+            # printf L "%20s from %16s logged in  at %30s.\n", $userid,
+            #  $ENV{'REMOTE_ADDR'}, $time;
+            # close L;
             $cookie = $query->cookie( CGISESSID => $sessionID );
             if ( $return == 2 ) {
 
-- 
2.39.5