summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS3
-rw-r--r--perl-install/authentication.pm8
2 files changed, 7 insertions, 4 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index e39fc83f3..76aee8132 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- drakauth:
+ o handle pam_tcb instead of (deprecated) pam_unix (#42471)
+
Version 11.16 - 19 August 2008
- share new advanced icon with standalone tools
diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm
index ab62af40f..48a7829e7 100644
--- a/perl-install/authentication.pm
+++ b/perl-install/authentication.pm
@@ -483,7 +483,7 @@ sub get_pam_authentication_kinds() {
sub sufficient {
my ($ccreds, $module, $type) = @_;
- $ccreds && member($module, 'pam_unix' , 'pam_winbind') ?
+ $ccreds && member($module, 'pam_tcb' , 'pam_winbind') ?
'sufficient' :
$ccreds && member($module, 'pam_ldap', 'pam_krb5') && $type eq 'account' ?
'[authinfo_unavail=ignore default=done]' :
@@ -548,7 +548,7 @@ sub set_pam_authentication {
#- first removing previous config
$_ = '';
}
- if ($module eq 'pam_unix' && $special{$type}) {
+ if ($module eq 'pam_tcb' && $special{$type}) {
my @para_for_last =
member($type, 'auth', 'account') ? qw(use_first_pass) : @{[]};
@para = difference2(\@para, \@para_for_last);
@@ -560,7 +560,7 @@ sub set_pam_authentication {
}
my @l = ((map { [ "pam_$_" ] } @$before_noask),
- [ 'pam_unix', @para ],
+ [ 'pam_tcb', @para ],
(map { [ "pam_$_" ] } @$ask),
);
push @{$l[-1]}, @para_for_last;
@@ -588,7 +588,7 @@ sub set_pam_authentication {
if (my $s = delete $before_first{$type}) {
$_ = $s . $_;
}
- if ($control eq 'required' && member($module, 'pam_deny', 'pam_permit', 'pam_unix')) {
+ if ($control eq 'required' && member($module, 'pam_deny', 'pam_permit', 'pam_tcb')) {
if (my $s = delete $after_deny{$type}) {
$_ .= $s;
}