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

Requires user input to install new modules.

Browse source
This commit is contained in:
Kaleb Murphy 2008-08-12 22:20:14 +00:00
parent 48408ac5be
commit 4669bd660d
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
sbin/testEnvironment.pl
View file

@ -373,8 +373,7 @@ sub prompt {
print "\n".$question." "; print "\n".$question." ";
print "{".join("|",@answers)."} " if ($#answers > 0); print "{".join("|",@answers)."} " if ($#answers > 0);
print "[".$default."] " if (defined $default); print "[".$default."] " if (defined $default);
# my $answer = <STDIN>; my $answer = <STDIN>;
my $answer = 'y';
chomp $answer; chomp $answer;
$answer = $default if ($answer eq ""); $answer = $default if ($answer eq "");
$answer = prompt($question,$default,@answers) if (($#answers > 0 && !(isIn($answer,@answers))) || $answer eq ""); $answer = prompt($question,$default,@answers) if (($#answers > 0 && !(isIn($answer,@answers))) || $answer eq "");