# Using Basic Authentication, no cookies required
$cookie=$query->cookie(-name => 'sessionID',
-value => '',
- -expires => '+1y');
+ -expires => '');
$loggedin = 1;
} elsif ($sessionID=$query->cookie('sessionID')) {
my ($ip , $lasttime);
} else {
$cookie=$query->cookie(-name => 'sessionID',
-value => $sessionID,
- -expires => '+1y');
+ -expires => '');
$dbh->do("UPDATE sessions SET lasttime=? WHERE sessionID=?",
undef, (time(), $sessionID));
$flags = haspermission($dbh, $userid, $flagsrequired);
close L;
$cookie=$query->cookie(-name => 'sessionID',
-value => $sessionID,
- -expires => '+1y');
+ -expires => '');
if ($flags = haspermission($dbh, $userid, $flagsrequired)) {
$loggedin = 1;
} else {
unless ($cookie) {
$cookie=$query->cookie(-name => 'sessionID',
-value => '',
- -expires => '+1y');
+ -expires => '');
}
return ($userid, $cookie, $sessionID, $flags);
}
$template->param(\%info);
$cookie=$query->cookie(-name => 'sessionID',
-value => $sessionID,
- -expires => '+1y');
+ -expires => '');
print $query->header(
-type => guesstype($template->output),
-cookie => $cookie