mirror of
https://github.com/webmin/webmin.git
synced 2025-07-23 00:30:33 +00:00
16 lines
348 B
Perl
Executable File
16 lines
348 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# save_ftpusers.cgi
|
|
# Saves users to be denied access
|
|
|
|
require './proftpd-lib.pl';
|
|
&ReadParse();
|
|
@users = split(/\r?\n/, $in{'users'});
|
|
&open_lock_tempfile(USERS, ">$config{'ftpusers'}");
|
|
foreach $u (@users) {
|
|
&print_tempfile(USERS, $u,"\n");
|
|
}
|
|
&close_tempfile(USERS);
|
|
&webmin_log("ftpusers", undef, undef);
|
|
&redirect("");
|
|
|