#!/usr/local/bin/perl
# save_ftpusers.cgi
# Saves users to be denied access

require './proftpd-lib.pl';
&ReadParse();
@users = split(/\s+/, $in{'users'});
&lock_file($config{'ftpusers'});
open(USERS, ">$config{'ftpusers'}");
foreach $u (@users) {
	print USERS $u,"\n";
	}
close(USERS);
&unlock_file($config{'ftpusers'});
&webmin_log("ftpusers", undef, undef);
&redirect("");

