[1520] in Moira
grouper.pl change
daemon@ATHENA.MIT.EDU (Garry Zacheiss)
Mon Apr 10 15:58:17 2000
Message-Id: <200004101958.PAA06199@sweet-transvestite.mit.edu>
To: moiradev@MIT.EDU
Date: Mon, 10 Apr 2000 15:58:11 -0400
From: Garry Zacheiss <zacheiss@MIT.EDU>
To deal with the new version of alis.
Index: grouper.pl
===================================================================
RCS file: /afs/athena.mit.edu/astaff/project/moiradev/repository/moira/regtape/grouper.pl,v
retrieving revision 1.2
diff -c -r1.2 grouper.pl
*** grouper.pl 2000/03/16 22:18:56 1.2
--- grouper.pl 2000/04/10 19:57:22
***************
*** 128,134 ****
my ( $name, $owner, $export, $parent, $desc ) = @_;
if (!$lists{$name}) {
print "Creating $name\n";
! print MRTEST "qy alis $name 1 0 1 $export $export \"create unique GID\" LIST $owner \"$desc\"\n";
if ($parent) {
&add_member($name, LIST, $parent);
}
--- 128,134 ----
my ( $name, $owner, $export, $parent, $desc ) = @_;
if (!$lists{$name}) {
print "Creating $name\n";
! print MRTEST "qy alis $name 1 0 1 $export $export \"create unique GID\" 0 LIST $owner \"$desc\"\n";
if ($parent) {
&add_member($name, LIST, $parent);
}
