add a cast from unsigned char * to char * for Irix n32 cc

[moira.git] / incremental / afs_create.pl

diff --git a/incremental/afs_create.pl b/incremental/afs_create.pl
index a8d2a9147f42eac18e4fa2be1c98e5aca864b6b5..4d9bfd29b48c6e7966ec9ec8becfc27126b1ec83 100644 (file)
--- a/incremental/afs_create.pl
+++ b/incremental/afs_create.pl
@@ -100,7 +100,7 @@ sub athena_proc
     # COURSE    <user> all <group> all system:facdev all system:authuser rl
     # HOMEDIR   <user> all
     # LEASE    <user> all
-    # ORG      <user> all <group> all system:cwisfac all
+    # ORG      <user> all <group> all system:cwisfac all system:anyuser rl
     # PROJECT   <user> all <group> all
     # REF       <user> all system:anyuser rl
     # SW        <user> all system:swmaint all system:authuser rl
@@ -123,7 +123,7 @@ sub athena_proc
     push(@acl,"system:authuser rl")
        if ($type =~ /^(COURSE|SW|UROP)/);
     push(@acl,"system:anyuser rl")
-       if ($type =~ /^(ACTIVITY|APROJ|CONTRIB|REF|SYSTEM)/);
+       if ($type =~ /^(ACTIVITY|APROJ|CONTRIB|ORG|REF|SYSTEM)/);
 
     if ($type !~ /^(AREF|ORG|SYSTEM)/) {
        system("$fs mkm $path/OldFiles $vname.backup");
@@ -138,7 +138,7 @@ sub athena_proc
            die "Unable to set volume ownership\n";
     }
 
-    if ($type =~ /^(ORG|COURSE)/) {
+    if ($type eq "COURSE") {
        mkdir("$path/www",0755) &&
            chown(0,0,"$path/www") ||
                die "Unable to create subdirectories\n";