Files
webmin/ldap-client/fixpam.cgi
2008-03-02 19:13:40 +00:00

21 lines
367 B
Perl
Executable File

#!/usr/local/bin/perl
# Link PAM LDAP file to NSS file
require './ldap-client-lib.pl';
&ReadParse();
if ($in{'ignore'}) {
# Don't show message anymore
$config{'nofixpam'} = 1;
&save_module_config();
}
else {
# Fix up
&unlink_logged($config{'pam_ldap'});
&symlink_logged($config{'auth_ldap'}, $config{'pam_ldap'});
&webmin_log("fixpam");
}
&redirect("");