proftpd/save_global.cgi

   1 #!/usr/local/bin/perl
   2 # save_global.cgi
   3 # Save some type of global options
   4
   5 require './proftpd-lib.pl';
   6 &ReadParse();
   7 &lock_proftpd_files();
   8 $conf = &get_config();
   9 $gconf = &get_or_create_global($conf);
  10 @edit = &editable_directives($in{'type'}, 'root');
  11 @gedit = &editable_directives($in{'type'}, 'global');
  12
  13 &error_setup(&text('efailed', $text{"type_$in{'type'}"}));
  14 &parse_inputs(\@edit, $conf, $conf);
  15 &parse_inputs(\@gedit, $gconf, $conf);
  16 &unlock_proftpd_files();
  17 &webmin_log("global", $in{'type'}, undef, \%in);
  18
  19 &redirect("");
  20