Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
emulab
emulab-devel
Commits
42b3ffbf
Commit
42b3ffbf
authored
Nov 29, 2000
by
Kristin Wright
Browse files
Added explicit exit(0)s to mkacct/rmacct because that's what tbdoit/tbstopit expect.
parent
ca64e11f
Changes
2
Hide whitespace changes
Inline
Side-by-side
tbsetup/mkacct
View file @
42b3ffbf
#!/usr/local/bin/perl -wT
###
### $Id: mkacct,v 1.2
3
2000-11-2
7
2
2
:3
4:2
3 kwright Exp $
### $Id: mkacct,v 1.2
4
2000-11-2
9
2
1
:3
5:3
3 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
);
tbsetup/rmacct
View file @
42b3ffbf
#!/usr/local/bin/perl -wT
###
### $Id: rmacct,v 1.
5
2000-11-2
8
2
3:11:12
kwright Exp $
### $Id: rmacct,v 1.
6
2000-11-2
9
2
1:35:33
kwright Exp $
###
### rmacct - Removes accounts for all users in given experiment.
###
...
...
@@ -280,3 +280,5 @@ foreach $user (@users) {
}
}
print
"
\n
";
exit
(
0
);
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment