quota/save_gsync.cgi

   1 #!/usr/local/bin/perl
   2 # save_gsync.cgi
   3 # Save default quotas for groups
   4
   5 require './quota-lib.pl';
   6 &ReadParse();
   7 $access{'default'} && &can_edit_filesys($in{'filesys'}) ||
   8         &error($text{'ssync_ecannot'});
   9 $bsize = &block_size($in{'filesys'});
  10 &lock_file("$module_config_directory/config");
  11 $v = join(' ', &quota_parse("sblocks", $bsize),
  12                &quota_parse("hblocks", $bsize),
  13                ($in{'sfiles_def'} ? 0 : $in{'sfiles'}),
  14                ($in{'hfiles_def'} ? 0 : $in{'hfiles'}) );
  15 $k = "gsync_$in{'filesys'}";
  16 if ($v eq "0 0 0 0") { delete($config{$k}); }
  17 else { $config{$k} = $v; }
  18 &write_file("$module_config_directory/config", \%config);
  19 &unlock_file("$module_config_directory/config");
  20 &webmin_log("sync", "group", $in{'filesys'}, \%in);
  21 &redirect("list_groups.cgi?dir=".&urlize($in{'filesys'}));
  22