ldap-client/fixpam.cgi

   1 #!/usr/local/bin/perl
   2 # Link PAM LDAP file to NSS file
   3
   4 require './ldap-client-lib.pl';
   5 &ReadParse();
   6
   7 if ($in{'ignore'}) {
   8         # Don't show message anymore
   9         $config{'nofixpam'} = 1;
  10         &save_module_config();
  11         }
  12 else {
  13         # Fix up
  14         &unlink_logged($config{'pam_ldap'});
  15         &symlink_logged($config{'auth_ldap'}, $config{'pam_ldap'});
  16         &webmin_log("fixpam");
  17         }
  18 &redirect("");
  19
  20