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

moving len's cookie fix to WebGUI::HTTP

Browse source
This commit is contained in:
JT Smith 2005-11-07 13:16:25 +00:00
parent f1dfaaa142
commit 2c7a475d40
2 changed files with 2 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI.pm
View file

@ -34,7 +34,6 @@ use Apache2::RequestRec ();
use Apache2::RequestIO (); use Apache2::RequestIO ();
use Apache2::Const -compile => qw(OK DECLINED); use Apache2::Const -compile => qw(OK DECLINED);
use Apache2::ServerUtil (); use Apache2::ServerUtil ();
use APR::Request::Apache2;
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub handler { sub handler {

9
lib/WebGUI/HTTP.pm
View file

@ -17,6 +17,7 @@ package WebGUI::HTTP;
use strict; use strict;
use Apache2::Cookie; use Apache2::Cookie;
use APR::Request::Apache2;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::Style; use WebGUI::Style;
@ -61,13 +62,7 @@ Retrieves the cookies from the HTTP header, persists them to the session, and re
=cut =cut
sub getCookies { sub getCookies {
my %cookies = Apache2::Cookie->fetch(); $WebGUI::Session::session{cookie} = APR::Request::Apache2->handle($session{req})->jar();
foreach my $key (keys %cookies) {
my $value = $cookies{$key};
$value =~ s/$key=//; # Strange... The Apache2::Cookie value also contains the key ????
# Must be a bug in Apache2::Cookie...
$WebGUI::Session::session{cookie}{$key} = $value;
}
return $WebGUI::Session::session{cookie}; return $WebGUI::Session::session{cookie};
} }