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

added --noprompt for testEnvironment

Browse source
This commit is contained in:
Doug Bell 2009-05-17 22:44:19 +00:00
parent 280dff8bff
commit 77a273c954
1 changed files with 18 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

23
sbin/testEnvironment.pl
View file

@ -25,11 +25,12 @@ use Pod::Usage;
use Cwd ();
my ($os, $prereq, $dbi, $dbDrivers, $simpleReport, $help);
my ($os, $prereq, $dbi, $dbDrivers, $simpleReport, $help, $noprompt);
GetOptions(
'noprompt' => \$noprompt,
'simpleReport'=>\$simpleReport,
'help'=>\$help
'help'=>\$help,
);
pod2usage( verbose => 2 ) if $help;
@ -130,6 +131,7 @@ checkModule('Business::Tax::VAT::Validation', '0.20' );
checkModule('Crypt::SSLeay', '0.57' );
checkModule('Scope::Guard', '0.03' );
checkModule('Digest::SHA', '5.47' );
checkModule('Catalyst', );
failAndExit("Required modules are missing, running no more checks.") if $missingModule;
@ -249,8 +251,13 @@ sub checkModule {
# if we're an admin let's offer to install it
elsif (isRootRequirementMet()) {
my $installThisModule = prompt ("$currentVersion is installed, but we need at least "
."$version, do you want to upgrade it now?", "y", "y", "n");
my $installThisModule = defined $noprompt ? "y" : "n";
if ( $installThisModule eq "n" ) {
$installThisModule
= prompt ("$currentVersion is installed, but we need at least "
. "$version, do you want to upgrade it now?", "y", "y", "n");
}
# does the user wish to install it
if ($installThisModule eq "y") {
@ -287,7 +294,13 @@ sub checkModule {
# if we're root lets try and install it
elsif ( isRootRequirementMet()) {
my $installThisModule = prompt ("Not installed, do you want to install it now?", "y", "y", "n");
my $installThisModule = defined $noprompt ? "y" : "n";
if ( $installThisModule eq "n" ) {
$installThisModule
= prompt ("Not installed, do you want to install it now?",
"y", "y", "n"
);
}
# user wishes to upgrade
if ($installThisModule eq "y") {