summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-07-09 16:18:35 +0000
committerFrancois Pons <fpons@mandriva.com>2001-07-09 16:18:35 +0000
commit07cd2d9012319aeb02a0a769bf9a951e5441a9a9 (patch)
tree4450a32c184fb1d26988a75ca770c328f72405ac /perl-install/install_steps_interactive.pm
parent891df31b373eefcdbe92c394c14435eac5bef5c5 (diff)
downloaddrakx-backup-do-not-use-07cd2d9012319aeb02a0a769bf9a951e5441a9a9.tar
drakx-backup-do-not-use-07cd2d9012319aeb02a0a769bf9a951e5441a9a9.tar.gz
drakx-backup-do-not-use-07cd2d9012319aeb02a0a769bf9a951e5441a9a9.tar.bz2
drakx-backup-do-not-use-07cd2d9012319aeb02a0a769bf9a951e5441a9a9.tar.xz
drakx-backup-do-not-use-07cd2d9012319aeb02a0a769bf9a951e5441a9a9.zip
added LDAP support for password authentication, updated root password window look.
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm23
1 files changed, 16 insertions, 7 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 2fff56552..f5ac81839 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -930,14 +930,14 @@ sub configurePrinter {
sub setRootPassword {
my ($o, $clicked) = @_;
my $sup = $o->{superuser} ||= {};
- my $nis = $o->{authentication}{NIS};
+ my $auth = ($o->{authentication}{LDAP} && __("LDAP") ||
+ $o->{authentication}{NIS} && __("NIS") ||
+ __("Local files"));
$sup->{password2} ||= $sup->{password} ||= "";
return if $o->{security} < 1 && !$clicked;
- $::isInstall and $o->set_help("setRootPassword",
- if_($::expert, "setRootPasswordMd5"),
- if_($::expert, "setRootPasswordNIS"));
+ $::isInstall and $o->set_help("setRootPassword", if_($::expert, "setRootPasswordAuth"));
$o->ask_from_entries_refH_powered(
{
@@ -954,14 +954,23 @@ sub setRootPassword {
{ label => _("Password"), val => \$sup->{password}, hidden => 1 },
{ label => _("Password (again)"), val => \$sup->{password2}, hidden => 1 },
if_($::expert,
-{ label => _("Use NIS"), val => \$nis, type => 'bool', text => _("yellow pages") },
+{ label => _("Authentication"), val => \$auth, list => [ __("Local files"), __("LDAP"), __("NIS") ], format => \&translate },
),
]) or return;
- if ($nis) {
+ if ($auth eq __("LDAP")) {
+ $o->{authentication}{LDAP} ||= "localhost"; #- any better solution ?
+ $o->{netc}{LDAPDOMAIN} ||= join (',', map { "dc=$_" } split /\./, $o->{netc}{DOMAINNAME});
+ $o->ask_from_entries_refH('',
+ _("Authentication LDAP"),
+ [ { label => _("LDAP Base dn"), val => \$o->{netc}{LDAPDOMAIN} },
+ { label => _("LDAP Server"), val => \$o->{authentication}{LDAP} },
+ ]);
+ } else { $o->{authentication}{LDAP} = '' }
+ if ($auth eq __("NIS")) {
$o->{authentication}{NIS} ||= 'broadcast';
$o->ask_from_entries_refH('',
- _("Authentification NIS"),
+ _("Authentication NIS"),
[ { label => _("NIS Domain"), val => \ ($o->{netc}{NISDOMAIN} ||= $o->{netc}{DOMAINNAME}) },
{ label => _("NIS Server"), val => \$o->{authentication}{NIS}, list => ["broadcast"], not_edit => 0 },
]);