Guest User

Untitled

a guest
Jul 16th, 2018
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.54 KB | None | 0 0
  1. diff --git a/sbin/installClass.pl b/sbin/installClass.pl
  2. index aba80ca..9bf2fe7 100755
  3. --- a/sbin/installClass.pl
  4. +++ b/sbin/installClass.pl
  5. @@ -15,17 +15,17 @@ use strict;
  6. use File::Basename ();
  7. use File::Spec;
  8.  
  9. -use Getopt::Long;
  10. -use Pod::Usage;
  11. -use WebGUI::Pluggable;
  12. -use WebGUI::Session;
  13. -
  14. my $webguiRoot;
  15. BEGIN {
  16. $webguiRoot = File::Spec->rel2abs(File::Spec->catdir(File::Basename::dirname(__FILE__), File::Spec->updir));
  17. unshift @INC, File::Spec->catdir($webguiRoot, 'lib');
  18. }
  19.  
  20. +use Getopt::Long;
  21. +use Pod::Usage;
  22. +use WebGUI::Pluggable;
  23. +use WebGUI::Session;
  24. +
  25. $|++;
  26.  
  27. # Get options
  28. @@ -51,17 +51,12 @@ pod2usage( -verbose => 2 )
  29. pod2usage("$0: Must specify a configFile")
  30. if !$configFile;
  31.  
  32. -$configFile = File::Spec->catfile($webguiRoot, $configFile) if ! -e $configFile;
  33. -$configFile = File::Spec->catfile('/data/WebGUI/etc/', $configFile) if ! -e $configFile;
  34. -$configFile = File::Spec->rel2abs( '', $configFile ) if ! -e $configFile;
  35. -
  36. -die "Config file '$configFile' does not exist!\n" if ! -e $configFile;
  37. -
  38. -my ($volume, $directories, undef) = File::Spec->splitpath( $configFile );
  39. -my $configDir = File::Spec->canonpath( File::Spec->catfile( $volume, $directories, File::Spec->updir ) );
  40. +if (-e $configFile) {
  41. + $configFile = File::Spec->abs2rel($configFile, File::Spec->catdir($webguiRoot, 'etc'));
  42. +}
  43.  
  44. # Open the session
  45. -my $session = WebGUI::Session->open( $configDir, $configFile );
  46. +my $session = WebGUI::Session->open( $webguiRoot, $configFile );
  47. $session->user( { userId => 3 } );
  48.  
  49. # Install or uninstall the asset
Add Comment
Please, Sign In to add comment