Commit aa54baf1 authored by Kristin Wright's avatar Kristin Wright

changed linux group to derive from project, not eid

parent b46a0641
#!/usr/local/bin/perl -wT
###
### $Id: mkacct,v 1.21 2000-11-21 10:37:53 kwright Exp $
### $Id: mkacct,v 1.22 2000-11-21 10:49:47 kwright Exp $
###
### Address 'lkw' comments:
### Break up into subroutines, possibly libraries. We'll
......@@ -249,7 +249,7 @@ foreach $IP (@nodes) {
## will report it and move on.
print "Creating group $unix_gid on $IP.\n";
open(GROUPADD, "/usr/local/bin/sshtb $IP /usr/sbin/groupadd -g $unix_gid $eid 2>&1 |");
open(GROUPADD, "/usr/local/bin/sshtb $IP /usr/sbin/groupadd -g $unix_gid $group 2>&1 |");
while (<GROUPADD>) { print "$_"; }
close(GROUPADD);
my $i = 1;
......
#!/usr/local/bin/perl -wT
###
### $Id: rmacct,v 1.3 2000-11-21 10:38:16 kwright Exp $
### $Id: rmacct,v 1.4 2000-11-21 10:49:47 kwright Exp $
###
### rmacct - Removes accounts for all users in given experiment.
###
......@@ -214,7 +214,7 @@ foreach $IP (@nodes) {
}
print "Removing group $eid on $IP.\n";
open(GROUPDEL, "/usr/local/bin/sshtb $IP /usr/sbin/groupdel $eid 2>&1 |");
open(GROUPDEL, "/usr/local/bin/sshtb $IP /usr/sbin/groupdel $group 2>&1 |");
while (<GROUPDEL>) { print "$_"; }
close(GROUPDEL);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment