From bf34b09d19da14b3df5f60ea93e72fc3f4d1af50 Mon Sep 17 00:00:00 2001 From: Vicent Guardiola Date: Tue, 6 Sep 2005 09:35:37 +0000 Subject: Remove Encrytion type for AD with SFU (not tested) Change Label for AD Winbind (more explicit) --- perl-install/authentication.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/authentication.pm') diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm index 9d4f66694..4ff647ad9 100644 --- a/perl-install/authentication.pm +++ b/perl-install/authentication.pm @@ -115,7 +115,7 @@ sub ask_parameters { { label => N("Use Anonymous BIND "), val => \$anonymous, type => 'bool' }, { label => N("LDAP user allowed to browse the Active Directory"), val => \$AD_user, disabled => sub { $anonymous } }, { label => N("Password for user"), val => \$authentication->{AD_password}, disabled => sub { $anonymous } }, - { label => N("Encryption"), val => \$authentication->{sub_kind}, list => [ map { $_->[0] } group_by2(@sub_kinds) ], format => sub { $sub_kinds{$_[0]} } }, + #{ label => N("Encryption"), val => \$authentication->{sub_kind}, list => [ map { $_->[0] } group_by2(@sub_kinds) ], format => sub { $sub_kinds{$_[0]} } }, ]) or return; $authentication->{AD_user} = !$AD_user || $authentication->{sub_kind} eq 'anonymous' ? '' : $AD_user =~ /@/ ? $AD_user : "$AD_user\@$authentication->{AD_domain}"; @@ -147,7 +147,7 @@ The command 'wbinfo -t' will test whether your authentication secrets are good." $in->ask_from('', $kind eq 'SMBKRB' ? N("Authentication Active Directory") : N("Authentication Windows Domain"), [ if_($kind eq 'SMBKRB', - { label => N("Domain"), val => \$authentication->{AD_domain} } + { label => N("Active Directory Realm "), val => \$authentication->{AD_domain} } ), { label => N("Windows Domain"), val => \$authentication->{WINDOMAIN} }, { label => N("Domain Admin User Name"), val => \$authentication->{winuser} }, -- cgit v1.2.1