config_save.cgi

   1 #!/usr/local/bin/perl
   2 # config_save.cgi
   3 # Save inputs from config.cgi
   4
   5 require './web-lib.pl';
   6 require './config-lib.pl';
   7 &init_config();
   8 &ReadParse();
   9 $m = $in{'module'};
  10 &error_setup($text{'config_err'});
  11 &foreign_available($m) || &error($text{'config_eaccess'});
  12 %access = &get_module_acl(undef, $m);
  13 $access{'noconfig'} && &error($text{'config_ecannot'});
  14
  15 mkdir("$config_directory/$m", 0700);
  16 &lock_file("$config_directory/$m/config");
  17 &read_file("$config_directory/$m/config", \%config);
  18
  19 $mdir = &module_root_directory($m);
  20 if (-r "$mdir/config_info.pl") {
  21         # Module has a custom config editor
  22         &foreign_require($m, "config_info.pl");
  23         local $fn = "${m}::config_form";
  24         if (defined(&$fn)) {
  25                 local $pkg = $m;
  26                 $pkg =~ s/[^A-Za-z0-9]/_/g;
  27                 eval "\%${pkg}::in = \%in";
  28                 $func++;
  29                 &foreign_call($m, "config_save", \%config);
  30                 }
  31         }
  32 if (!$func) {
  33         # Use config.info to parse config inputs
  34         &parse_config(\%config, "$mdir/config.info", $m);
  35         }
  36 &write_file("$config_directory/$m/config", \%config);
  37 &unlock_file("$config_directory/$m/config");
  38 &webmin_log("_config_", undef, undef, \%in, $m);
  39 &redirect("/$m/");
  40