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

Added Apache CGI/FCGI/mod_perl examples

Browse source
This commit is contained in:
Patrick Donelan 2009-10-11 01:07:08 +11:00
parent e9893b25f4
commit 784e0bd73c
5 changed files with 39 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -47,12 +47,17 @@ sub headers_out { shift->{headers_out} }
sub protocol { shift->{request}->protocol(@_) }
sub status { shift->{response}->status(@_) }
sub sendfile { $_[0]->{sendfile} = $_[1] }
sub content_type { shift->{response}->content_type(@_) }
sub server { shift->{server} }
sub method { shift->{request}->method }
sub upload { shift->{request}->upload(@_) }
sub status_line { }
sub auth_type { } # should we support this?
sub handler { 'perl-script' } # or not..?
sub content_type {
my ($self, $ct) = @_;
$self->{headers_out}->set( 'Content-Type' => $ct );
}
# These two cookie subs are called from our wG Plack-specific code
sub get_request_cookies {