Bill Akins <[EMAIL PROTECTED]> wrote:
:
: while (($type ne "Windows") || ($type ne "Linux")) {
This will always be true. Try:
while ( $type ne 'Windows' && $type ne 'Linux' ) {
^^
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
my $server_type = query_server_type()
or die "Cannot query server type";
sub query_server_type {
# fail after ten unsuccessful tries
foreach ( 1 .. 10 ) {
print
'Enter TYPE of server to build. ',
'Linux or Windoze ( [L]inux or [W]indows ): ';
chomp( my $type = lc <STDIN> );
return 'Linux' if $type eq 'linux' or $type eq 'l';
return 'Windows' if $type eq 'windows' or $type eq 'w';
print "\nYour answer was invalid\n\n";
}
return;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
