Commit 42b3ffbf authored by Kristin Wright's avatar Kristin Wright

Added explicit exit(0)s to mkacct/rmacct because that's what tbdoit/tbstopit expect.

parent ca64e11f
#!/usr/local/bin/perl -wT
###
### $Id: mkacct,v 1.23 2000-11-27 22:34:23 kwright Exp $
### $Id: mkacct,v 1.24 2000-11-29 21:35:33 kwright Exp $
###
### Address 'lkw' comments:
### Break up into subroutines, possibly libraries. We'll
......@@ -30,7 +30,9 @@ if ( !($eid =~ /^[A-Za-z0-9\.\-\_ ]+$/) ) {
}
##
## Check for valid user
## Check for valid user. This script is setuid tbroot but
## the effective userid must be a user in the experiment.
## Add check for latter. -lkw 11/29/00
##
open(WHO,"/usr/bin/whoami 2>&1 |");
chop($_ = <WHO>);
......@@ -168,9 +170,11 @@ while (@row = $sth->fetchrow_array) {
## IP address.
##
##push(@nodes, $control_node);
push(@nodes, "155.99.212.74");
print " 155.99.212.74";
print "\n";
## Note: Commented out on 11/28 because it was thought to
## be better to
#push(@nodes, "155.99.212.74");
#print " 155.99.212.74";
#print "\n";
##
......@@ -359,3 +363,4 @@ foreach $IP (@nodes) {
}
exit(0);
#!/usr/local/bin/perl -wT
###
### $Id: rmacct,v 1.5 2000-11-28 23:11:12 kwright Exp $
### $Id: rmacct,v 1.6 2000-11-29 21:35:33 kwright Exp $
###
### rmacct - Removes accounts for all users in given experiment.
###
......@@ -280,3 +280,5 @@ foreach $user (@users) {
}
}
print "\n";
exit(0);
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