samba/save_sync.cgi

   1 #!/usr/local/bin/perl
   2 # save_sync.cgi
   3 # Save unix-samba synchronisation options
   4
   5 require './samba-lib.pl';
   6 &ReadParse();
   7 # check acls
   8
   9 &error_setup("<blink><font color=red>$text{'eacl_aviol'}</font></blink>");
  10 &error("$text{'eacl_np'} $text{'eacl_pmsync'}")
  11         unless $access{'maint_sync'};
  12 # save
  13 $in{'gid_def'} || $in{'gid'} =~ /^\S+$/ || &error($text{'esync_egid'});
  14 &lock_file($module_config_file);
  15 foreach $s ("add", "change", "delete", "delete_profile", "change_profile") {
  16         if ($in{$s}) { $config{"sync_$s"} = 1; }
  17         else { delete($config{"sync_$s"}); }
  18         }
  19 $config{'sync_gid'} = $in{'gid_def'} ? undef : $in{'gid'};
  20 &save_module_config();
  21 &unlock_file($module_config_file);
  22 &webmin_log("sync");
  23 &redirect("");
  24