summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-04-16 15:15:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-04-16 15:15:20 +0000
commit2d4331ab3efc9e10132b553024b5bf2bb380b32c (patch)
tree6bd5391ed4941bdf8bc412492b78348fa51f1027 /perl-install/install_steps_interactive.pm
parent6635b0fc27731865352f7c159c71545cf74c5611 (diff)
downloaddrakx-backup-do-not-use-2d4331ab3efc9e10132b553024b5bf2bb380b32c.tar
drakx-backup-do-not-use-2d4331ab3efc9e10132b553024b5bf2bb380b32c.tar.gz
drakx-backup-do-not-use-2d4331ab3efc9e10132b553024b5bf2bb380b32c.tar.bz2
drakx-backup-do-not-use-2d4331ab3efc9e10132b553024b5bf2bb380b32c.tar.xz
drakx-backup-do-not-use-2d4331ab3efc9e10132b553024b5bf2bb380b32c.zip
handle "Cancel" on NIS / LDAP server dialog box
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e0750031a..bf9dbbafd 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1096,7 +1096,7 @@ sub setRootPassword {
_("Authentication LDAP"),
[ { label => _("LDAP Base dn"), val => \$o->{netc}{LDAPDOMAIN} },
{ label => _("LDAP Server"), val => \$o->{authentication}{LDAP} },
- ]);
+ ]) or goto &setRootPassword;
} else { $o->{authentication}{LDAP} = '' }
if ($auth eq __("NIS")) {
$o->{authentication}{NIS} ||= 'broadcast';
@@ -1104,7 +1104,7 @@ sub setRootPassword {
_("Authentication NIS"),
[ { label => _("NIS Domain"), val => \ ($o->{netc}{NISDOMAIN} ||= $o->{netc}{DOMAINNAME}) },
{ label => _("NIS Server"), val => \$o->{authentication}{NIS}, list => ["broadcast"], not_edit => 0 },
- ]);
+ ]) or goto &setRootPassword;
} else { $o->{authentication}{NIS} = '' }
install_steps::setRootPassword($o);
}