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

replaced $session{cgi} with $session{req}

Browse source
This commit is contained in:
Matthew Wilson 2005-11-03 21:48:37 +00:00
parent 1b0adbb416
commit c01d7e49d5
33 changed files with 76 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

18
www/index.pl
View file

@ -13,16 +13,26 @@
our ($webguiRoot, $configFile);
BEGIN {
$configFile = "WebGUI.conf";
$configFile = "webgui.conf";
$webguiRoot = "/data/WebGUI";
unshift (@INC, $webguiRoot."/lib");
}
#-----------------DO NOT MODIFY BELOW THIS LINE--------------------
use CGI::Carp qw(fatalsToBrowser);
#use Devel::Profiler bad_pkgs => [qw(UNIVERSAL Time::HiRes B Carp Exporter Cwd Config CORE DynaLoader XSLoader AutoLoader Safe)];
#use CGI::Carp qw(fatalsToBrowser);
use strict;
use WebGUI;
print WebGUI::page($webguiRoot,$configFile);
# use Devel::DProfPP;
# my $pp = Devel::DProfPP->new;
#use Data::Dumper;
# print Devel::DProfPP->new(
# file => "tmon.out",
# enter => sub { my ($self, $sub_name) = shift;
# my $frame = ($self->stack)[-1];
# print "\t" x $frame->height, $frame->sub_name;
# }
# )->parse;
# print Dumper(\%hash);