delete_user.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# delete_user.cgi
# Delete a webmin user

require './acl-lib.pl';
&ReadParse();
$whatfailed = "Failed to delete user";
if ($ENV{'REMOTE_USER'} eq $in{'user'}) {
	&error("you cannot delete yourself");
	}
&delete_user($in{'user'});
&restart_miniserv();
&redirect("");