specify path to synctree

[moira.git] / incremental / afs_quota.pl

diff --git a/incremental/afs_quota.pl b/incremental/afs_quota.pl
index 444a932f473984d79a89c387425cc3084f292221..3a25816d811fd18e3498b562f03185d816e8cd56 100644 (file)
--- a/incremental/afs_quota.pl
+++ b/incremental/afs_quota.pl
@@ -1,8 +1,7 @@
 #!/afs/athena/contrib/perl/perl
 # Usage: afs_quota path quota
 
-$incdir = "/mit/moiradev/src/incremental";
-require "$incdir/afs_utils.pl";
+require "/moira/bin/afs_utils.pl";
 
 die "Usage: $0 path quota\n" unless (@ARGV==2);
 
@@ -52,26 +51,21 @@ $dusage = $dtotal - $tmp[5];
 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);