summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorVicent Guardiola <vguardiola@mandriva.com>2004-07-20 02:10:52 +0000
committerVicent Guardiola <vguardiola@mandriva.com>2004-07-20 02:10:52 +0000
commit4c50c287b974b0b32ba55563410285812afd8cac (patch)
tree66257b913629fbdababca3daf6b0635177424d29 /perl-install
parent3b965081aba36a9095e32af0300a6423044f6b29 (diff)
downloaddrakx-4c50c287b974b0b32ba55563410285812afd8cac.tar
drakx-4c50c287b974b0b32ba55563410285812afd8cac.tar.gz
drakx-4c50c287b974b0b32ba55563410285812afd8cac.tar.bz2
drakx-4c50c287b974b0b32ba55563410285812afd8cac.tar.xz
drakx-4c50c287b974b0b32ba55563410285812afd8cac.zip
clean code
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/authentication.pm12
1 files changed, 8 insertions, 4 deletions
diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm
index 7e5120c5c..a21fbc4bd 100644
--- a/perl-install/authentication.pm
+++ b/perl-install/authentication.pm
@@ -9,7 +9,7 @@ sub kinds() {
}
sub kind2description {
my ($kind) = @_;
- ${{ local => N("Local files"), LDAP => N("LDAP"), NIS => N("NIS"), winbind => N("Windows Domain"), AD => N("Active Directory") }}{$kind};
+ ${{ local => N("Local file"), LDAP => N("LDAP"), NIS => N("NIS"), winbind => N("Windows Domain"), AD => N("Active Directory") }}{$kind};
}
sub to_kind {
my ($authentication) = @_;
@@ -171,6 +171,7 @@ sub set {
userPassword => 'msSFU30Password',
homeDirectory => 'msSFU30HomeDirectory',
LoginShell => 'msSFU30LoginShell',
+ gecos => 'name',
),
);
@@ -192,8 +193,7 @@ sub set {
$when_network_is_up->(sub {
run_program::rooted($::prefix, 'nisdomainname', $domain);
run_program::rooted($::prefix, 'service', 'ypbind', 'restart');
- }) if !$::isInstall;
-#- TODO: also do it during install since nis can be useful to resolve domain names. Not done because 9.2-RC
+ }) if !$::isInstall; #- TODO: also do it during install since nis can be useful to resolve domain names. Not done because 9.2-RC
} elsif ($kind eq 'winbind') {
my $domain = uc $netc->{WINDOMAIN};
@@ -205,6 +205,8 @@ sub set {
network::smb::write_smb_conf($domain);
run_program::rooted($::prefix, "chkconfig", "--level", "35", "winbind", "on");
mkdir_p("$::prefix/home/$domain");
+ run_program::rooted($::prefix, 'service', 'smb', 'restart');
+ run_program::rooted($::prefix, 'service', 'winbind', 'restart');
#- defer running smbpassword until the network is up
@@ -217,9 +219,11 @@ sub set {
my $realm = $authentication->{AD_domain};
configure_krb5_for_AD($authentication);
- $in->do_pkgs->install('samba-winbind', 'pam_krb5');
+ $in->do_pkgs->install('samba-winbind', 'pam_krb5', 'samba-server');
set_nsswitch_priority('winbind');
set_pam_authentication('winbind');
+ run_program::rooted($::prefix, 'service', 'smb', 'restart');
+ run_program::rooted($::prefix, 'service', 'winbind', 'restart');
require network::smb;