$session->param('emailaddress'),
$session->param('branchprinter')
);
- $cookie = $query->cookie( CGISESSID => $session->id );
+ $cookie = $query->cookie(
+ -name => 'CGISESSID',
+ -value => $session->id,
+ -HttpOnly => 1,
+ );
$loggedin = 1;
$userid = $session->param('cardnumber');
}
$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) {
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;
- $cookie = $query->cookie( CGISESSID => $sessionID );
+ # 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(
+ -name => 'CGISESSID',
+ -value => $sessionID,
+ -HttpOnly => 1,
+ );
if ( $return == 2 ) {
#Only superlibrarian should have access to this page.
$cookie = $query->cookie(
-name => 'CGISESSID',
-value => '',
+ -HttpOnly => 1,
-expires => ''
);
}
$cookie = $query->cookie(
-name => 'CGISESSID',
-value => $sessionID,
+ -HttpOnly => 1,
-expires => ''
);
- print $query->header(
- -type => 'text/html; charset=utf-8',
- -cookie => $cookie
- ),
- $template->output;
+
+ output_html_with_http_headers $query, $cookie, $template->output;
exit;
}