| files >> /usr/libexec/webmin/pam/ |
| files >> //usr/libexec/webmin/pam/delete_pam.cgi |
#!/usr/bin/perl
# delete_pam.cgi
# Delete a PAM service
require './pam-lib.pl';
&ReadParse();
@pam = &get_pam_config();
$f = $pam[$in{'idx'}]->{'file'};
&lock_file($f);
unlink($f);
&unlock_file($f);
&webmin_log("delete", "pam", $pam[$in{'idx'}]->{'name'}, $pam);
&redirect("");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`