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

more minor progress

Browse source
This commit is contained in:
Patrick Donelan 2009-10-09 22:37:18 +11:00
parent da75a8b207
commit d8e6256da8
3 changed files with 19 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -92,6 +92,10 @@ Retrieves the cookies from the HTTP header and returns a hash reference containi
sub getCookies {
my $self = shift;
if ($self->session->request) {
if ($self->session->request->isa('WebGUI::Session::Plack')) {
return $self->session->request->request->cookies;
}
# 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();

6
lib/WebGUI/Session/Plack.pm
View file

@ -48,6 +48,12 @@ sub AUTOLOAD {
sub uri { shift->request->request_uri(@_) }
sub headers_in { shift->request->headers(@_) }
sub param { shift->request->param(@_) }
sub params { shift->request->params(@_) }
# TODO: I suppose this should do some sort of IO::Handle thing
my @body;
sub print { shift; push @body, @_ }
sub pnotes {
my ($self, $key) = (shift, shift);