quota/save_group_quota.cgi

   1 #!/usr/local/bin/perl
   2 # save_group_quota.cgi
   3 # Update the quota for some group
   4
   5 require './quota-lib.pl';
   6 &ReadParse();
   7 $bsize = &block_size($in{'filesys'});
   8
   9 &can_edit_group($in{'group'}) ||
  10         &error($text{'sgroup_egroup'});
  11 $access{'ro'} && &error($text{'sgroup_egroup'});
  12 &can_edit_filesys($in{'filesys'}) ||
  13         &error($text{'sgroup_efs'});
  14 if ($bsize) {
  15         $in{'sblocks'} = &quota_parse("sblocks", $bsize);
  16         $in{'hblocks'} = &quota_parse("hblocks", $bsize);
  17         }
  18 !$access{'maxblocks'} ||
  19         !$in{'sblocks_def'} && $in{'sblocks'} <= $access{'maxblocks'} &&
  20         !$in{'hblocks_def'} && $in{'hblocks'} <= $access{'maxblocks'} ||
  21                 &error(&text('suser_emaxblocks', $access{'maxblocks'}));
  22 !$access{'maxfiles'} ||
  23         !$in{'sfiles_def'} && $in{'sfiles'} <= $access{'maxfiles'} &&
  24         !$in{'hfiles_def'} && $in{'hfiles'} <= $access{'maxfiles'} ||
  25                 &error(&text('suser_emaxfiles', $access{'maxfiles'}));
  26 &edit_group_quota($in{'group'}, $in{'filesys'},
  27                   $in{'sblocks_def'} ? 0 : $in{'sblocks'},
  28                   $in{'hblocks_def'} ? 0 : $in{'hblocks'},
  29                   $in{'sfiles_def'} ? 0 : $in{'sfiles'},
  30                   $in{'hfiles_def'} ? 0 : $in{'hfiles'});
  31 &webmin_log("save", "group", $in{'group'}, \%in);
  32 if ($in{'source'}) {
  33         &redirect("group_filesys.cgi?group=".&urlize($in{'group'}));
  34         }
  35 else {
  36         &redirect("list_groups.cgi?dir=".&urlize($in{'filesys'}));
  37         }
  38