usermin/save_assignment.cgi

   1 #!/usr/local/bin/perl
   2
   3 require './usermin-lib.pl';
   4 $access{'assignment'} || &error($text{'acl_ecannot'});
   5 &ReadParse();
   6
   7 &lock_file("$config{'usermin_dir'}/webmin.cats");
   8 @modules = &list_modules();
   9 foreach $module (keys %in){
  10         local ($minfo) = grep { $_->{'dir'} eq $module } @modules;
  11         next if (!$minfo);
  12         if ($minfo->{'realcategory'} ne $in{$module}) {
  13                 $cats{$module} = $in{$module};
  14                 }
  15         }
  16 &write_file("$config{'usermin_dir'}/webmin.cats", \%cats);
  17 &unlock_file("$config{'usermin_dir'}/webmin.cats");
  18 &webmin_log("assignment", undef, undef, \%in);
  19 &flush_modules_cache();
  20
  21 &redirect("");