[1552] in Moira
grouper.pl changes
daemon@ATHENA.MIT.EDU (Garry Zacheiss)
Tue May 30 17:54:11 2000
Message-Id: <200005302153.RAA19280@sweet-transvestite.mit.edu>
To: moiradev@MIT.EDU
Date: Tue, 30 May 2000 17:53:57 -0400
From: Garry Zacheiss <zacheiss@MIT.EDU>
This implements the changes to the grouper lists requested by
Tom McGovern recently.
Garry
Index: grouper.pl
===================================================================
RCS file: /afs/athena.mit.edu/astaff/project/moiradev/repository/moira/regtape/grouper.pl,v
retrieving revision 1.4
diff -c -r1.4 grouper.pl
*** grouper.pl 2000/04/20 22:54:49 1.4
--- grouper.pl 2000/05/30 21:50:02
***************
*** 58,73 ****
$base = "\L$term-$class";
$staff = "$base-staff";
! # check_list(name, owner, export, parent, desc)
!
! &check_list($base, "registrar", 1, "",
! "Automatically-created class participants list for $class");
! &check_list("$base-reg", "registrar", 0, $base,
! "Automatically-generated registered students list for $class");
! &check_list($staff, $staff, 0, $base,
! "Automatically-created teaching staff list for $class");
! &check_list("$base-others", $staff, 0, $base,
! "Automatically-created non-registered students and miscellaneous people list for $class");
}
# Now fill in -reg lists
--- 58,77 ----
$base = "\L$term-$class";
$staff = "$base-staff";
! # check_list(name, owner, export, desc)
! &check_list($staff, $staff, 0,
! "Teaching staff list for $class");
! &check_list("$base-reg", $staff, 0,
! "*** DO NOT MODIFY *** Automatically-created registered students list for $class");
! &check_list("$base-others", $staff, 0,
! "Non-registered students and miscellaneous people list for $class");
! &check_list($base, $staff, 1,
! "*** DO NOT MODIFY *** Automatically-created participants list for $class");
! if (!$lists{$base}) {
! &add_member($staff, LIST, $base);
! &add_member("$base-reg", LIST, $base);
! &add_member("$base-others", LIST, $base);
! }
}
# Now fill in -reg lists
***************
*** 128,140 ****
exit 0;
sub check_list {
! my ( $name, $owner, $export, $parent, $desc ) = @_;
if (!$lists{$name}) {
print LOG "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);
- }
}
}
--- 132,141 ----
exit 0;
sub check_list {
! my ( $name, $owner, $export, $desc ) = @_;
if (!$lists{$name}) {
print LOG "Creating $name\n";
print MRTEST "qy alis $name 1 0 1 $export $export \"create unique GID\" 0 LIST $owner \"$desc\"\n";
}
}
