proftpd/edit_ftpusers.cgi

   1 #!/usr/local/bin/perl
   2 # edit_ftpusers.cgi
   3 # Lists users to be denied access
   4
   5 require './proftpd-lib.pl';
   6 &ui_print_header(undef, $text{'ftpusers_title'}, "",
   7         undef, undef, undef, undef, &restart_button());
   8
   9 print &text('ftpusers_desc', "<tt>$config{'ftpusers'}</tt>"),"<p>\n";
  10 print &ui_form_start("save_ftpusers.cgi", "post");
  11 print &ui_table_start(undef, undef, 2);
  12 print &ui_table_row(undef,
  13         &ui_textarea("users", &read_file_contents($config{'ftpusers'}), 10, 80),
  14         2);
  15 print &ui_table_end();
  16 print &ui_form_end([ [ undef, $text{'save'} ] ]);
  17
  18 &ui_print_footer("", $text{'index_return'});
  19