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

added FastCGI support

Browse source
This commit is contained in:
JT Smith 2004-08-30 20:59:11 +00:00
parent a11a5d73b4
commit 13002676db
5 changed files with 44 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Session.pm
View file

@ -285,7 +285,7 @@ sub getScratch {
#-------------------------------------------------------------------
=head2 open ( webguiRoot [ , configFile ] )
=head2 open ( webguiRoot, configFile [ , fastcgi ] )
Opens a closed ( or new ) WebGUI session.
@ -299,6 +299,10 @@ The path to the WebGUI files.
The filename of the config file that WebGUI should operate from.
=item fastcgi
A pointer to a Fast CGI object.
=back
=cut
@ -306,6 +310,7 @@ The filename of the config file that WebGUI should operate from.
sub open {
my $webguiRoot = shift;
my $configFile = shift;
my $fastcgi = shift;
my ($key);
###----------------------------
### operating system specific things
@ -338,7 +343,7 @@ sub open {
###----------------------------
### CGI object
$CGI::POST_MAX=1024 * $session{setting}{maxAttachmentSize};
$session{cgi} = CGI->new();
$session{cgi} = $fastcgi || CGI->new();
if ($session{cgi}->cgi_error =~ /^413/) {
$session{http}{status} = $session{cgi}->cgi_error;
WebGUI::ErrorHandler::warn("File upload too big. May need to adjust Max File Size setting.");