From a60101bea074fdd81434c8f047ed7d3a0de8ebce Mon Sep 17 00:00:00 2001 From: Paul Poulain 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