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 4deda70d6171034b7ec425a16b75383d73912b87..4d9bfd29b48c6e7966ec9ec8becfc27126b1ec83 100644 (file)
--- a/incremental/afs_create.pl
+++ b/incremental/afs_create.pl
@@ -16,7 +16,7 @@ die "Usage: $0 locker type cell path user group\n" if (@ARGV != 6);
 
 # Lookup volume type
 ($c = $cell) =~ s/\./_/g;
-$vtype = eval "\$vtypes_$c{$type}";
+$vtype = eval "\$vtypes_${c}{$type}";
 die "Cannot create $type volumes in $cell\n" unless $vtype;
 $vname = $vtype . "." . $locker;
 $vname =~ s/[^-A-Za-z0-9_.]//g;                # strip out illegal characters
@@ -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";