Now rcp'ing with encryption, and actually checking that backup succeeded.

[moira.git] / incremental / afs_create.pl

diff --git a/incremental/afs_create.pl b/incremental/afs_create.pl
index d453a5f1bbaf24b6df4f0131caee06f8cd32a413..59e0cfed6bc88575355ae7e2a2f3287d4a3f5b32 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
@@ -124,7 +125,7 @@ sub athena_proc
     push(@acl,"system:anyuser rl")
        if ($type =~ /^(ACTIVITY|APROJ|CONTRIB|REF|SYSTEM)/);
 
-    if ($type !~ /^(AREF|SYSTEM)/) {
+    if ($type !~ /^(AREF|ORG|SYSTEM)/) {
        system("$fs mkm $path/OldFiles $vname.backup");
        warn "$locker: Unable to create OldFiles mountpoint\n" if ($?);
     }
@@ -138,12 +139,15 @@ sub athena_proc
     }
 
     if ($type eq "ORG") {
-       mkdir("$path/www",0755) || die "Unable to create subdirectories\n";
-       system("$fs sa $path @acl system:anyuser rl -clear") &&
+       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";
 
        system("$fs sa $path @acl system:anyuser l -clear") &&
            die "Unable to set acl on top-level directory\n";
+       return;
     }
 
     if ($type eq "HOMEDIR") {