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

Take a --configFile of either absolute path or relative to etc. Maybe.

Browse source
This commit is contained in:
Scott Walters 2010-12-02 18:18:50 -05:00
parent 9b0dcf2b68
commit 922e4cef37
1 changed files with 12 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

20
sbin/installClass.pl
View file

@ -15,17 +15,17 @@ use strict;
use File::Basename (); use File::Basename ();
use File::Spec; use File::Spec;
use Getopt::Long;
use Pod::Usage;
use WebGUI::Pluggable;
use WebGUI::Session;
my $webguiRoot; my $webguiRoot;
BEGIN { BEGIN {
$webguiRoot = File::Spec->rel2abs(File::Spec->catdir(File::Basename::dirname(__FILE__), File::Spec->updir)); $webguiRoot = File::Spec->rel2abs(File::Spec->catdir(File::Basename::dirname(__FILE__), File::Spec->updir));
unshift @INC, File::Spec->catdir($webguiRoot, 'lib'); unshift @INC, File::Spec->catdir($webguiRoot, 'lib');
} }
use Getopt::Long;
use Pod::Usage;
use WebGUI::Pluggable;
use WebGUI::Session;
$|++; $|++;
# Get options # Get options
@ -51,11 +51,15 @@ pod2usage( -verbose => 2 )
pod2usage("$0: Must specify a configFile") pod2usage("$0: Must specify a configFile")
if !$configFile; if !$configFile;
die "Config file '$configFile' does not exist!\n" if( ! -e $configFile ) {
if !-f '../etc/' . $configFile; my $possible_configFile = File::Spec->catfile($webguiRoot, 'etc', $configFile);
$configFile = $possible_configFile if -e $possible_configFile;
}
die "Config file '$configFile' does not exist!\n" if ! -e $configFile;
# Open the session # Open the session
my $session = WebGUI::Session->open( "..", $configFile ); my $session = WebGUI::Session->open( $webguiRoot, $configFile );
$session->user( { userId => 3 } ); $session->user( { userId => 3 } );
# Install or uninstall the asset # Install or uninstall the asset