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