string check user comments & signature

[moira.git] / incremental / afs_create.pl

diff --git a/incremental/afs_create.pl b/incremental/afs_create.pl
index e48d1f9ad15457bc202ab83a85da8f9f2b01d932..a8214f341724bedde853c80c438190fadb95e16a 100644 (file)
--- a/incremental/afs_create.pl
+++ b/incremental/afs_create.pl
@@ -16,7 +16,8 @@ $quota=1;
      "PROJECT", "project",
      "REF", "ref",
      "SW", "sw",
-     "SYSTEM", "sw",
+     "SYSTEM", "system",
+     "UROP", "urop",
      );
 
 %proc =
@@ -110,21 +111,22 @@ sub athena_proc
     # REF       <user> all system:anyuser rl
     # SW        <user> all system:swmaint all system:authuser rl
     # SYSTEM    system:administrators all system:anyuser rl
+    # UROP     <user> all <group> all system:facdev all system:authuser rl
     #
     # Notes:
     # 1. All directories also have "system:expunge ld".
 
     @acl=("system:expunge ld");
-    push(@acl,"system:facdev all") if ($type =~ /^(COURSE)/);
+    push(@acl,"system:facdev all") if ($type =~ /^(COURSE|UROP)/);
     push(@acl,"system:swmaint all") if ($type =~ /^(SW)/);
     push(@acl,"system:administrators all") if ($type =~ /^(SYSTEM)/);
     push(@acl,"$user all")
-       if ($uid != 0 && $type =~ /^(ACTIVITY|APROJ|AREF|CONTRIB|COURSE|HOMEDIR|PROJECT|REF|SW)/);
+       if ($uid != 0 && $type =~ /^(ACTIVITY|APROJ|AREF|CONTRIB|COURSE|HOMEDIR|PROJECT|REF|SW|UROP)/);
     push(@acl,"system:$group all")
-       if ($gid != 0 && $type =~ /^(ACTIVITY|APROJ|COURSE|PROJECT)/);
+       if ($gid != 0 && $type =~ /^(ACTIVITY|APROJ|COURSE|PROJECT|UROP)/);
     push(@acl,"system:$group rl") if ($gid != -1 && $type =~ /^(AREF)/);
     push(@acl,"system:authuser rl")
-       if ($type =~ /^(COURSE|SW)/);
+       if ($type =~ /^(COURSE|SW|UROP)/);
     push(@acl,"system:anyuser rl")
        if ($type =~ /^(ACTIVITY|APROJ|CONTRIB|REF|SYSTEM)/);