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

Added $webguiRoot and BEGIN preamble to utility skeleton.

Browse source
This commit is contained in:
Ernesto Hernández-Novich 2008-06-09 15:24:49 +00:00
parent 8be24aec80
commit f289e77955
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
sbin/_utility.skeleton
View file

@ -8,7 +8,13 @@
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use lib "../lib";
our ($webguiRoot);
BEGIN {
$webguiRoot = "..";
unshift (@INC, $webguiRoot."/lib");
}
use strict;
use Pod::Usage;
use Getopt::Long;
@ -33,7 +39,7 @@ sub start {
GetOptions(
'configFile=s' => \$configFile,
);
my $session = WebGUI::Session->open("..",$configFile);
my $session = WebGUI::Session->open($webguiRoot,$configFile);
$session->user({userId=>3});
## If your script is adding or changing content you need these lines, otherwise leave them commented