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

Ready to start thinking about IO bound delayed response

Browse source
This commit is contained in:
Patrick Donelan 2010-03-13 11:31:32 -05:00
parent 7603fce565
commit 5f549b1305
4 changed files with 74 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/Session.pm
View file

@ -70,6 +70,7 @@ B<NOTE:> It is important to distinguish the difference between a WebGUI session
$session->os
$session->privilege
$session->request
$session->response
$session->scratch
$session->setting
$session->stow
@ -457,7 +458,8 @@ sub open {
my $config = WebGUI::Config->new($webguiRoot,$configFile);
my $self = {_config=>$config };
bless $self , $class;
$self->{_request} = $request if (defined $request);
$self->{_request} = $request if defined $request;
$self->{_response} = $request->new_response( 200 ) if defined $request;
my $sessionId = shift || $self->http->getCookies->{$config->getCookieName} || $self->id->generate;
$sessionId = $self->id->generate unless $self->id->valid($sessionId);
my $noFuss = shift;
@ -541,7 +543,7 @@ sub quick {
=head2 request ( )
Returns the Plack::Request object, or undef if it doesn't exist.
Returns the L<Plack::Request> object, or undef if it doesn't exist.
=cut
@ -552,6 +554,19 @@ sub request {
#-------------------------------------------------------------------
=head2 response ( )
Returns the L<Plack::Response> object, or undef if it doesn't exist.
=cut
sub response {
my $self = shift;
return $self->{_response};
}
#-------------------------------------------------------------------
=head2 scratch ( )
Returns a WebGUI::Session::Scratch object.