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

Caching is breaking something

Browse source
This commit is contained in:
Patrick Donelan 2009-10-10 12:11:22 +11:00
parent e04b1ebc9d
commit 5982b2728c
3 changed files with 51 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -19,7 +19,7 @@ sub new {
require Plack::Response;
my $request = Plack::Request->new( $p{env} );
my $response = $request->new_response;
my $response = $request->new_response(200);
my $self = bless {
%p,
@ -59,10 +59,17 @@ sub protocol { shift->request->protocol(@_) }
sub status { shift->response->status(@_) }
sub status_line {}
sub auth_type {
# should we support this?
}
# TODO: I suppose this should do some sort of IO::Handle thing
my @body;
sub print { shift; push @body, @_ }
my $sendfile;
sub sendfile { shift; $sendfile = shift; }
sub dir_config {
my $self = shift;
my $c = shift;
@ -100,7 +107,11 @@ sub push_handlers {
sub finalize {
my $self = shift;
$self->response->body(\@body);
if ($sendfile && open my $fh, '<', $sendfile) {
$self->response->body( $fh );
} else {
$self->response->body( $sendfile || \@body);
}
return $self->response->finalize;
}