samba/save_gsync.cgi

   1 #!/usr/local/bin/perl
   2 # save_gsync.cgi
   3 # Save unix-samba group synchronisation options
   4
   5 require './samba-lib.pl';
   6
   7 $access{'maint_gsync'} || &error($text{'gsync_ecannot'});
   8 &ReadParse();
   9
  10 &lock_file("$module_config_directory/config");
  11 foreach $s ("add", "change", "delete", "type", "priv") {
  12         if ($in{$s}) { $config{"gsync_$s"} = $in{$s}; }
  13         else { delete($config{"gsync_$s"}); }
  14         }
  15 &write_file("$module_config_directory/config", \%config);
  16 &unlock_file("$module_config_directory/config");
  17 &webmin_log("gsync");
  18 &redirect("");
  19