Document new blanche exit status semantics. (Don't claim success

[moira.git] / incremental / afs_create.pl

diff --git a/incremental/afs_create.pl b/incremental/afs_create.pl
index 1d104f61d9cf651c561af104ae5248203b29e913..09d9c7a3f1e81d2bb2aa2486069fd9848e424e3a 100644 (file)
--- a/incremental/afs_create.pl
+++ b/incremental/afs_create.pl
@@ -71,7 +71,8 @@ if ($tmp[$#tmp] !~ /user\../) {
        &fatal("Can't release $tmp[$#tmp] in cell $cell");
 }
 
-&afs_quota_adj($cell,$asrv,$apart,$quota);
+# Update the quota records.
+&afs_quota_adj($cell,$asrv,$apart,$quota,0);
 exit(0);
 
 sub fatal
@@ -130,15 +131,17 @@ sub athena_proc
     }
 
     if ($type =~ /ACTIVITY|APROJ|PROJECT/) {
-       chown($gid,0,$path) ||
-           die "Unable to set volume ownership\n";
+       system("/moira/bin/uchown $path $gid");
+       die "Unable to set volume ownership\n" if ($?);
     } elsif ($type =~ /HOMEDIR|UROP/) {
        chown($uid,0,$path) ||
            die "Unable to set volume ownership\n";
     }
 
     if ($type eq "ORG") {
-       mkdir("$path/www",0755) || die "Unable to create subdirectories\n";
+       mkdir("$path/www",0755) &&
+           chown(0,0,"$path/www") || 
+               die "Unable to create subdirectories\n";
        system("$fs sa $path/www @acl system:anyuser rl -clear") &&
            die "Unable to set acl on www directory\n";