system("$fs","sq",$path,$newq);
die "Unable to change quota on $path\n" if ($?);
-&afs_quota_adj($cell,$asrv,$apart,$newq-$oldq);
+&afs_quota_adj($cell,$asrv,$apart,$newq-$oldq,$dusage);
if ($dusage > (0.9 * $dtotal)) {
- system("$zwrite","-q","-n","-c","afsadm","-m",
+ system("$zwrite","-q","-n","-c","afsadm","-i","moira","-m",
"WARNING: Disk usage on $asrv:$apart is greater than 90%
Used $dusage K out of $dtotal K");
}
elsif (($dusage + ($newq-$vusage)) > (0.9 * $dtotal)) {
- system("$zwrite","-q","-n","-c","afsadm","-m",
+ system("$zwrite","-q","-n","-c","afsadm","-i","moira","-m",
"Quota change on volume $vname, if used completely will cause
$asrv:$apart to be over 90% used.
Current volume usage: $vusage, old quota $oldq, new quota $newq");
}
elsif ($newq-$oldq > 39999) {
- system("$zwrite","-q","-n","-c","afsadm","-m",
+ system("$zwrite","-q","-n","-c","afsadm","-i","moira","-m",
"Increased quota on volume $vname ($asrv:$apart) from $oldq to $newq");
}
-
-#$stat_fs = $?;
-#$stat_qa = &afs_quota_adj($cell,$asrv,$apart,($stat_fs ? 0 : $newq-$oldq));
-#die "Unable to change quota on $path\n" if ($stat_fs && $stat_qa);
-#warn "Unable to change quota on $path\n" if ($stat_fs);