mirror of
https://github.com/webmin/webmin.git
synced 2025-07-23 00:30:33 +00:00
23 lines
609 B
Perl
Executable File
23 lines
609 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# edit_ftpusers.cgi
|
|
# Lists users to be denied access
|
|
|
|
require './proftpd-lib.pl';
|
|
&ui_print_header(undef, $text{'ftpusers_title'}, "",
|
|
undef, undef, undef, undef, &restart_button());
|
|
|
|
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";
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|
|
|