proftpd/edit_global.cgi

   1 #!/usr/local/bin/perl
   2 # edit_global.cgi
   3 # Display a form for editing some kind of global options
   4
   5 require './proftpd-lib.pl';
   6 &ReadParse();
   7 $conf = &get_config();
   8 $global = &find_directive_struct("Global", $conf);
   9 if ($global) {
  10         $gconf = $global->{'members'};
  11         }
  12 &ui_print_header(undef, $text{"type_$in{'type'}"}, "",
  13         undef, undef, undef, undef, &restart_button());
  14
  15 print "<form method=post action=save_global.cgi>\n";
  16 print "<input type=hidden name=type value=$in{'type'}>\n";
  17 print "<table border width=100%>\n";
  18 print "<tr $tb> <td><b>",$text{"type_$in{'type'}"},"</b></td> </tr>\n";
  19 print "<tr $cb> <td><table>\n";
  20 @dirs = &editable_directives($in{'type'}, 'root');
  21 &generate_inputs(\@dirs, $conf);
  22 @gdirs = &editable_directives($in{'type'}, 'global');
  23 if (@dirs && @gdirs) {
  24         print "<tr> <td colspan=4><hr></td> </tr>\n";
  25         }
  26 &generate_inputs(\@gdirs, $gconf);
  27 print "</table></td> </tr></table>\n";
  28 print "<input type=submit value=\"$text{'save'}\"></form>\n";
  29
  30 &ui_print_footer("", $text{'index_return'});
  31
  32