From e9d69a898e79db064748bed5b714820846b3b39d Mon Sep 17 00:00:00 2001 From: cphillip Date: Mon, 11 Feb 2002 17:36:21 +0000 Subject: [PATCH] o Complete changes to default behaviour for boolean queries. --- setup/setup-openssh.pl | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) diff --git a/setup/setup-openssh.pl b/setup/setup-openssh.pl index 9faf25d..bf506c8 100644 --- a/setup/setup-openssh.pl +++ b/setup/setup-openssh.pl @@ -349,7 +349,7 @@ print "\n"; $response = query_boolean("Do you wish to continue with the setup package?","y"); -if ($response ne "y") +if ($response eq "n") { print "\n"; print "Okay.. exiting gsi_openssh setup.\n"; @@ -420,11 +420,24 @@ sub query_boolean $foo = ; ($bar) = split //, $foo; - if ($bar ne $nondefault) + if ( grep(/\s/, $bar) ) { + # this is debatable. all whitespace means 'default' + + $bar = $default; + } + elsif ($bar ne $default) + { + # everything else means 'nondefault'. + + $bar = $nondefault; + } + else + { + # extraneous step. to get here, $bar should be eq to $default anyway. + $bar = $default; } return $bar; } - -- 2.45.1