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

convert WebGUI to a mod perl handler

Browse source
This commit is contained in:
JT Smith 2005-11-03 09:14:23 +00:00
parent ec9d561c5a
commit 9b23c24a6a
13 changed files with 198 additions and 101 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lib/WebGUI.pm
View file

@ -28,7 +28,32 @@ use WebGUI::SQL;
use WebGUI::Style;
use WebGUI::URL;
use WebGUI::PassiveProfiling;
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::Const -compile => qw(OK DECLINED);
our $s;
our $r;
sub handler {
$s = Apache2::ServerUtil->server;
$r = shift;
my $config = WebGUI::Config::getConfig($s->dir_config('WebguiRoot'),$r->dir_config('WebguiConfig'));
my $extras = $config->{extrasURL};
my $uploads = $config->{uploadsURL};
unless ($r->uri =~ m/^$extras/ || $r->uri =~ m/^$uploads/) {
$r->handler('perl-script');
$r->set_handlers(PerlResponseHandler => \&contentHandler);
}
return Apache2::Const::DECLINED;
}
sub contentHandler {
WebGUI::Session::open($s->dir_config('WebguiRoot'),$r->dir_config('WebguiConfig'),$r);
$r->print(page(undef,undef,1)); # Use existing session
WebGUI::Session::close();
return Apache2::Const::OK;
}
#-------------------------------------------------------------------
sub _processOperations {