#!/usr/local/bin/perl
# edit_ftpusers.cgi
# Lists users to be denied access

require './proftpd-lib.pl';
&header($text{'ftpusers_title'}, "");
print "<hr>\n";

print &text('ftpusers_desc', "<tt>$config{'ftpusers'}</tt>"),"<p>\n";
print "<form action=save_ftpusers.cgi method=post>\n";
print "<textarea wrap=on rows=5 cols=80 name=users>";
open(USERS, $config{'ftpusers'});
while(<USERS>) {
	s/\s+/ /g;
	print;
	}
close(USERS);
print "</textarea><br>\n";
print "<input type=submit value='$text{'save'}'></form>\n";

print "<hr>\n";
&footer("", $text{'index_return'});

