oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

webgui for windows changes

Browse source
This commit is contained in:
JT Smith 2006-07-21 20:42:50 +00:00
parent db204ea1d1
commit 9f3ff77dbd
5 changed files with 123 additions and 120 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Session/Http.pm
View file

@ -16,8 +16,6 @@ package WebGUI::Session::Http;
use strict;
use Apache2::Cookie;
use APR::Request::Apache2;
=head1 NAME
@ -78,6 +76,8 @@ Retrieves the cookies from the HTTP header and returns a hash reference containi
sub getCookies {
my $self = shift;
if ($self->session->request) {
# Have to require this instead of using it otherwise it causes problems for command-line scripts on some platforms (namely Windows)
require APR::Request::Apache2;
my $jarHashRef = APR::Request::Apache2->handle($self->session->request)->jar();
return $jarHashRef if $jarHashRef;
return {};
@ -267,6 +267,7 @@ sub setCookie {
my $ttl = shift;
$ttl = (defined $ttl ? $ttl : '+10y');
if ($self->session->request) {
require Apache2::Cookie;
my $cookie = Apache2::Cookie->new($self->session->request,
-name=>$name,
-value=>$value,