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

lots of changes.

Browse source
This commit is contained in:
Matthew Wilson 2005-12-08 03:17:48 +00:00
parent 2825a11907
commit a8c99a2b9c
11 changed files with 209 additions and 164 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/HTTP.pm
View file

@ -75,7 +75,7 @@ Generates an HTTP header.
=cut
sub getHeader {
return undef if ($session{http}{noHeader});
return undef if ($session{http}{noHeader});
my %params;
if (isRedirect()) {
$session{req}->headers_out->set(Location => $session{http}{location});
@ -83,16 +83,14 @@ sub getHeader {
} else {
$session{req}->content_type($session{http}{mimetype} || "text/html");
if ($session{setting}{preventProxyCache}) {
$params{"-expires"} = "-1d";
}
$params{"-expires"} = "-1d";
}
if ($session{http}{filename}) {
$params{"-attachment"} = $session{http}{filename};
}
}
$params{"-cookie"} = $session{http}{cookie};
my $status = getStatus();
# $session{req}->custom_response($status, '<!-- '.$session{http}{statusDescription}.' -->' );
$session{req}->status($status);
$session{req}->status_line(getStatus().' '.$session{http}{statusDescription}) if $session{req};
return;
}
@ -119,6 +117,7 @@ Returns the current HTTP status code, if one has been set.
=cut
sub getStatus {
$session{http}{statusDescription} = $session{http}{statusDescription} || "OK";
return $session{http}{status} || "200";
}