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 %oldconfig = %config;
  19
  20 $mdir = &module_root_directory($m);
  21 if (-r "$mdir/config_info.pl") {
  22         # Module has a custom config editor
  23         &foreign_require($m, "config_info.pl");
  24         local $fn = "${m}::config_form";
  25         if (defined(&$fn)) {
  26                 local $pkg = $m;
  27                 $pkg =~ s/[^A-Za-z0-9]/_/g;
  28                 eval "\%${pkg}::in = \%in";
  29                 $func++;
  30                 &foreign_call($m, "config_save", \%config);
  31                 }
  32         }
  33 if (!$func) {
  34         # Use config.info to parse config inputs
  35         &parse_config(\%config, "$mdir/config.info", $m);
  36         }
  37 &write_file("$config_directory/$m/config", \%config);
  38 &unlock_file("$config_directory/$m/config");
  39
  40 # Call any post-config save function
  41 local $pfn = "${m}::config_post_save";
  42 if (defined(&$pfn)) {
  43         &foreign_call($m, "config_post_save", \%config, \%oldconfig);
  44         }
  45
  46 &webmin_log("_config_", undef, undef, \%in, $m);
  47 &redirect("/$m/");
  48