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 #!/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: ### Address 'lkw' comments:
### Break up into subroutines, possibly libraries. We'll ### Break up into subroutines, possibly libraries. We'll
...@@ -30,7 +30,9 @@ if ( !($eid =~ /^[A-Za-z0-9\.\-\_ ]+$/) ) { ...@@ -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 |"); open(WHO,"/usr/bin/whoami 2>&1 |");
chop($_ = <WHO>); chop($_ = <WHO>);
...@@ -168,9 +170,11 @@ while (@row = $sth->fetchrow_array) { ...@@ -168,9 +170,11 @@ while (@row = $sth->fetchrow_array) {
## IP address. ## IP address.
## ##
##push(@nodes, $control_node); ##push(@nodes, $control_node);
push(@nodes, "155.99.212.74"); ## Note: Commented out on 11/28 because it was thought to
print " 155.99.212.74"; ## be better to
print "\n"; #push(@nodes, "155.99.212.74");
#print " 155.99.212.74";
#print "\n";
## ##
...@@ -359,3 +363,4 @@ foreach $IP (@nodes) { ...@@ -359,3 +363,4 @@ foreach $IP (@nodes) {
} }
exit(0);
#!/usr/local/bin/perl -wT #!/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. ### rmacct - Removes accounts for all users in given experiment.
### ###
...@@ -280,3 +280,5 @@ foreach $user (@users) { ...@@ -280,3 +280,5 @@ foreach $user (@users) {
} }
} }
print "\n"; 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