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