summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/authentication.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm
index c085adc35..df9eeb2d4 100644
--- a/perl-install/authentication.pm
+++ b/perl-install/authentication.pm
@@ -64,14 +64,13 @@ sub set {
log::l("authentication::set $kind with $val");
if ($kind eq 'LDAP') {
+ $in->do_pkgs->install(qw(openldap-clients nss_ldap pam_ldap autofs));
my $domain = $netc->{LDAPDOMAIN} || do {
my $s = run_program::rooted_get_stdout($::prefix, 'ldapsearch', '-x', '-h', $val, '-b', '', '-s', 'base', '+');
first($s =~ /namingContexts: (.+)/);
} or log::l("no ldap domain found on server $val"), return;
- $in->do_pkgs->install(qw(openldap-clients nss_ldap pam_ldap autofs));
-
set_nsswitch_priority('ldap');
set_pam_authentication('ldap');
set_ldap_conf($domain, $val, 1);
@@ -116,7 +115,7 @@ sub pam_modules() {
'pam_ldap', 'pam_winbind', 'pam_mkhomedir';
}
sub pam_module_from_path {
- $_[0] && $_[0] =~ m|/lib/security/(pam_.*)\.so| && $1;
+ $_[0] && $_[0] =~ m|(/lib/security/)?(pam_.*)\.so| && $2;
}
sub pam_module_to_path {
"/lib/security/$_[0].so";