← Back
Editing: save_ftpusers.cgi
#!/usr/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("");
Save File
Cancel