All new accounts created on Gitlab now require administrator approval. If you invite any collaborators, please let Flux staff know so they can approve the accounts.

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