diff options
| author | Stew Benedict <stewb@mandriva.org> | 2002-07-18 19:21:29 +0000 |
|---|---|---|
| committer | Stew Benedict <stewb@mandriva.org> | 2002-07-18 19:21:29 +0000 |
| commit | 76400d0960607e02acb13f0b4a10fde59bce15b1 (patch) | |
| tree | 24b0ed1a008b0822ed7dfde770ca896f2752e5e2 /perl-install/install_steps_interactive.pm | |
| parent | bf5c1abc529fb5c9858f7652b66157ae09152708 (diff) | |
| download | drakx-76400d0960607e02acb13f0b4a10fde59bce15b1.tar drakx-76400d0960607e02acb13f0b4a10fde59bce15b1.tar.gz drakx-76400d0960607e02acb13f0b4a10fde59bce15b1.tar.bz2 drakx-76400d0960607e02acb13f0b4a10fde59bce15b1.tar.xz drakx-76400d0960607e02acb13f0b4a10fde59bce15b1.zip | |
add support/option for Windows(tm) authentication via winbind
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index bafde238c..3aebfe8ed 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -1079,6 +1079,7 @@ sub setRootPassword { my $sup = $o->{superuser} ||= {}; my $auth = ($o->{authentication}{LDAP} && __("LDAP") || $o->{authentication}{NIS} && __("NIS") || + $o->{authentication}{winbind} && __("Windows PDC") || __("Local files")); $sup->{password2} ||= $sup->{password} ||= ""; @@ -1101,7 +1102,7 @@ sub setRootPassword { { label => _("Password"), val => \$sup->{password}, hidden => 1 }, { label => _("Password (again)"), val => \$sup->{password2}, hidden => 1 }, if_($::expert, -{ label => _("Authentication"), val => \$auth, list => [ __("Local files"), __("LDAP"), __("NIS") ], format => \&translate }, +{ label => _("Authentication"), val => \$auth, list => [ __("Local files"), __("LDAP"), __("NIS"), __("Windows PDC") ], format => \&translate }, ), ]) or return; @@ -1122,6 +1123,16 @@ sub setRootPassword { { label => _("NIS Server"), val => \$o->{authentication}{NIS}, list => ["broadcast"], not_edit => 0 }, ]) or goto &setRootPassword; } else { $o->{authentication}{NIS} = '' } + if ($auth eq __("Windows PDC")) { + #- maybe we should browse the network like diskdrake --smb and get the 'doze server names in a list + #- but networking isn't setup yet necessarily + $o->ask_from('', + _("Authentication Windows PDC"), + [ { label => _("Windows Domain"), val => \ ($o->{netc}{WINDOMAIN} ||= $o->{netc}{DOMAINNAME}) }, + { label => _("PDC Server Name"), val => \$o->{authentication}{winbind} }, + ]) or goto &setRootPassword; + $o->ask_warn('', _("For this to work for a W2K PDC, you will probably need to have the admin run: C:\>net localgroup \"Pre-Windows 2000 Compatible Access\" everyone /add and reboot the server")); + } else { $o->{authentication}{winbind} = '' } install_steps::setRootPassword($o); } |