small bugfix to make logout work

This commit is contained in:
tipaul 2002-12-20 13:59:07 +00:00
parent 4844b4c717
commit d1a905a786

View file

@ -58,7 +58,8 @@ if ($sth->rows) {
}
}
$dbh->do("delete from sessions where sessionID=?", $sessionID);
my $sth=$dbh->prepare("delete from sessions where sessionID=?");
$sth->execute($sessionID);
open L, ">>/tmp/sessionlog";
my $time=localtime(time());
printf L "%20s from %16s logged out at %30s (manual log out).\n", $userid, $ip, $time;