usermin/save_acl.cgi

   1 #!/usr/local/bin/perl
   2 # save_acl.cgi
   3 # Change visible usermin modules
   4
   5 require './usermin-lib.pl';
   6 $access{'acl'} || &error($text{'acl_ecannot'});
   7 &ReadParse();
   8 &lock_file(&usermin_acl_filename());
   9 @mods = split(/\0/, $in{'mod'});
  10 &save_usermin_acl("user", \@mods);
  11 &unlock_file(&usermin_acl_filename());
  12 &webmin_log("acl", undef, undef, \%in);
  13 &redirect("");
  14