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

experimental caching

Browse source
This commit is contained in:
Patrick Donelan 2009-10-15 09:48:40 +11:00
parent b9bff5a2f6
commit cde333e931
5 changed files with 29 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/WebGUI.pm
View file

@ -162,15 +162,17 @@ The Apache2::RequestRec object passed in by Apache's mod_perl.
sub handler {
my $request = shift; # either apache request object or PSGI env hash
my $server;
my ($server, $config);
if ($request->isa('WebGUI::Session::Plack')) {
$server = $request->server;
$config = WebGUI->config;
} else {
$request = Apache2::Request->new($request);
$server = Apache2::ServerUtil->server; #instantiate the server api
my $configFile = shift || $request->dir_config('WebguiConfig'); #either we got a config file, or we'll build it from the request object's settings
$config = WebGUI::Config->new($server->dir_config('WebguiRoot'), $configFile); #instantiate the config object
}
my $configFile = shift || $request->dir_config('WebguiConfig'); #either we got a config file, or we'll build it from the request object's settings
my $config = WebGUI::Config->new($server->dir_config('WebguiRoot'), $configFile); #instantiate the config object
my $error = "";
my $matchUri = $request->uri;
my $gateway = $config->get("gateway");
@ -231,5 +233,19 @@ sub handle_psgi {
return $plack->finalize;
}
# Experimental speed boost
my ($root, $config_file, $config);
sub init {
my $class = shift;
my %opts = @_;
$root = $opts{root};
$config_file = $opts{config};
$config = WebGUI::Config->new($root, $config_file);
warn 'INIT';
}
sub config { $config }
sub root { $root }
sub config_file { $config_file }
1;