Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- diff --git a/sbin/installClass.pl b/sbin/installClass.pl
- index aba80ca..9bf2fe7 100755
- --- a/sbin/installClass.pl
- +++ b/sbin/installClass.pl
- @@ -15,17 +15,17 @@ use strict;
- use File::Basename ();
- use File::Spec;
- -use Getopt::Long;
- -use Pod::Usage;
- -use WebGUI::Pluggable;
- -use WebGUI::Session;
- -
- my $webguiRoot;
- BEGIN {
- $webguiRoot = File::Spec->rel2abs(File::Spec->catdir(File::Basename::dirname(__FILE__), File::Spec->updir));
- unshift @INC, File::Spec->catdir($webguiRoot, 'lib');
- }
- +use Getopt::Long;
- +use Pod::Usage;
- +use WebGUI::Pluggable;
- +use WebGUI::Session;
- +
- $|++;
- # Get options
- @@ -51,17 +51,12 @@ pod2usage( -verbose => 2 )
- pod2usage("$0: Must specify a configFile")
- if !$configFile;
- -$configFile = File::Spec->catfile($webguiRoot, $configFile) if ! -e $configFile;
- -$configFile = File::Spec->catfile('/data/WebGUI/etc/', $configFile) if ! -e $configFile;
- -$configFile = File::Spec->rel2abs( '', $configFile ) if ! -e $configFile;
- -
- -die "Config file '$configFile' does not exist!\n" if ! -e $configFile;
- -
- -my ($volume, $directories, undef) = File::Spec->splitpath( $configFile );
- -my $configDir = File::Spec->canonpath( File::Spec->catfile( $volume, $directories, File::Spec->updir ) );
- +if (-e $configFile) {
- + $configFile = File::Spec->abs2rel($configFile, File::Spec->catdir($webguiRoot, 'etc'));
- +}
- # Open the session
- -my $session = WebGUI::Session->open( $configDir, $configFile );
- +my $session = WebGUI::Session->open( $webguiRoot, $configFile );
- $session->user( { userId => 3 } );
- # Install or uninstall the asset
Add Comment
Please, Sign In to add comment