usermin/save_defacl.cgi

   1 #!/usr/local/bin/perl
   2 # save_defacl.cgi
   3 # Save global ACL options for usermin
   4
   5 require './usermin-lib.pl';
   6 $access{'defacl'} || &error($text{'acl_ecannot'});
   7 &ReadParse();
   8 &error_setup($text{'defacl_err'});
   9
  10 &get_usermin_miniserv_config(\%miniserv);
  11 do "$miniserv{'root'}/acl_security.pl";
  12 &lock_file("$config{'usermin_dir'}/user.acl");
  13 &read_file("$miniserv{'root'}/defaultacl", \%acl);
  14 &read_file("$config{'usermin_dir'}/user.acl", \%acl);
  15 &acl_security_save(\%acl);
  16 &write_file("$config{'usermin_dir'}/user.acl", \%acl);
  17 &unlock_file("$config{'usermin_dir'}/user.acl");
  18 &webmin_log("defacl", undef, undef, \%in);
  19 &redirect("");
  20