-system("$zwrite","-c","afsadm","-m",
- "Changed quota on volume $vname ($asrv:$apart) from $oldq to $newq")
- if (($newq-$oldq > 39999) || ($oldq-$newq > 39999));
+if ($dusage > (0.9 * $dtotal)) {
+ system("$zwrite","-c","afsadm","-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","-c","afsadm","-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","-c","afsadm","-m",
+ "Increased quota on volume $vname ($asrv:$apart) from $oldq to $newq");
+}