usermin/save_configs.cgi

   1 #!/usr/local/bin/perl
   2 # config_save.cgi
   3 # Save inputs from edit_configs.cgi
   4
   5 require './usermin-lib.pl';
   6 require '../config-lib.pl';
   7 $access{'configs'} || &error($text{'acl_ecannot'});
   8 &ReadParse();
   9 &can_use_module($in{'mod'}) || &error($text{'configs_ecannot'});
  10 $m = $in{'mod'};
  11 &error_setup($text{'config_err'});
  12 &get_usermin_miniserv_config(\%miniserv);
  13
  14 mkdir("$config{'usermin_dir'}/$m", 0700);
  15 &lock_file("$config{'usermin_dir'}/$m/config");
  16 &read_file("$config{'usermin_dir'}/$m/config", \%mconfig);
  17
  18 &parse_config(\%mconfig, "$miniserv{'root'}/$m/config.info");
  19
  20 &write_file("$config{'usermin_dir'}/$m/config", \%mconfig);
  21 &unlock_file("$config{'usermin_dir'}/$m/config");
  22 &webmin_log("config", undef, undef, \%in);
  23 &redirect("list_configs.cgi");
  24