webmin/save_descs.cgi

   1 #!/usr/local/bin/perl
   2 # Save module description overrides
   3
   4 require './webmin-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'descs_err'});
   7
   8 for($i=0; defined($mod = $in{"mod_$i"}); $i++) {
   9         $desc = $in{"desc_$i"};
  10         next if (!$mod);
  11         %minfo = &get_module_info($mod);
  12         $desc =~ /\S/ || &error(&text('descs_edesc', $minfo{'realdesc'}));
  13         $descs{$mod} = $desc;
  14         }
  15 &lock_file("$config_directory/webmin.descs");
  16 &write_file("$config_directory/webmin.descs", \%descs);
  17 &unlock_file("$config_directory/webmin.descs");
  18 &flush_webmin_caches();
  19 &webmin_log("descs");
  20 &redirect("");
  21