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

perltidy

Browse source
This commit is contained in:
Doug Bell 2008-11-03 18:38:39 +00:00
parent a8247aa1c5
commit 9dd6295b84
2 changed files with 111 additions and 113 deletions
Download patch file Download diff file Expand all files Collapse all files

39
sbin/installClass.pl
View file

@ -11,16 +11,16 @@ $|++;
# Get options
my ( $configFile, $remove, $check, $upgrade, $help, $man );
GetOptions(
'configFile=s' => \$configFile,
'remove' => \$remove,
'check' => \$check,
'upgrade' => \$upgrade,
'help' => \$help,
'man' => \$man,
'configFile=s' => \$configFile,
'remove' => \$remove,
'check' => \$check,
'upgrade' => \$upgrade,
'help' => \$help,
'man' => \$man,
);
# Get arguments
my $class = $ARGV[0];
my $class = $ARGV[0];
pod2usage( -verbose => 1 )
if $help;
@ -28,49 +28,48 @@ pod2usage( -verbose => 1 )
pod2usage( -verbose => 2 )
if $man;
pod2usage( "$0: Must specify a configFile" )
pod2usage("$0: Must specify a configFile")
if !$configFile;
die "Config file '$configFile' does not exist!\n"
if !-f '../etc/' . $configFile;
# Open the session
my $session = WebGUI::Session->open("..",$configFile);
$session->user({ userId => 3 });
my $session = WebGUI::Session->open( "..", $configFile );
$session->user( { userId => 3 } );
# Install or uninstall the asset
WebGUI::Pluggable::load( $class );
if ( $check ) {
if ( $class->isInstalled( $session ) ) {
WebGUI::Pluggable::load($class);
if ($check) {
if ( $class->isInstalled($session) ) {
print "$class is installed!\n";
}
else {
print "$class is NOT installed!\n";
}
}
elsif ( $remove ) {
elsif ($remove) {
print "Removing $class... ";
if ( !$class->isInstalled( $session ) ) {
if ( !$class->isInstalled($session) ) {
die "Can't remove $class because: Not installed\n";
}
$class->uninstall( $session );
$class->uninstall($session);
print "DONE!\n";
print "Please restart Apache.\n";
}
elsif ( $upgrade || $class->isInstalled( $session ) ) {
elsif ( $upgrade || $class->isInstalled($session) ) {
print "Upgrading $class... ";
$class->upgrade( $session );
$class->upgrade($session);
print "DONE!\n";
print "Please restart Apache.\n";
}
else {
print "Installing $class... ";
$class->install( $session );
$class->install($session);
print "DONE!\n";
print "Please restart Apache.\n";
}
# End the session
$session->var->end;
$session->close;