pam/delete_pam.cgi

   1 #!/usr/local/bin/perl
   2 # delete_pam.cgi
   3 # Delete a PAM service
   4
   5 require './pam-lib.pl';
   6 &ReadParse();
   7 @pam = &get_pam_config();
   8 $f = $pam[$in{'idx'}]->{'file'};
   9 &lock_file($f);
  10 unlink($f);
  11 &unlock_file($f);
  12 &webmin_log("delete", "pam", $pam[$in{'idx'}]->{'name'}, $pam);
  13 &redirect("");
  14