webmin/save_assignment.cgi

   1 #!/usr/local/bin/perl
   2 require './webmin-lib.pl';
   3 &ReadParse();
   4
   5 &lock_file("$config_directory/webmin.cats");
   6 foreach $module (keys %in){
   7         my %minfo = &get_module_info($module);
   8         next if (!%minfo);
   9         if ($minfo{'realcategory'} ne $in{$module}) {
  10                 $cats{$module} = $in{$module};
  11                 }
  12         }
  13 &write_file("$config_directory/webmin.cats", \%cats);
  14 &unlock_file("$config_directory/webmin.cats");
  15 &webmin_log("assignment", undef, undef, \%in);
  16 &flush_webmin_caches();
  17
  18 &redirect("index.cgi?refresh=1");