gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 6627 follow-up 

in installer, some lines where forgotten, and can also be commented
This commit is contained in:
Paul Poulain 2012-01-06 14:22:59 +01:00
parent 00290e8619
commit a60101bea0
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
installer/InstallAuth.pm
View File

@ -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 ) {