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
bdd09770
Commit
bdd09770
authored
Jan 23, 2001
by
Mac Newbold
Browse files
Don't die when the account already exists.
parent
9fd70424
Changes
1
Hide whitespace changes
Inline
Side-by-side
tbsetup/mkacct-ctrl.in
View file @
bdd09770
...
...
@@ -150,7 +150,7 @@ sub dowork() {
# Create group on paper.
#
system
("
/usr/sbin/pw groupadd
$project
-g
$group_number
")
==
0
or
die
(
"
Could not add group
$project
with gid
$group_number
to paper
"
)
;
print
STDERR
"
Could not add group
$project
with gid
$group_number
to paper
\n
";
#
# Make user on paper. We don't give them a password.
...
...
@@ -158,7 +158,7 @@ sub dowork() {
print
"
Adding user
$user
to paper.
\n
";
system
("
/usr/sbin/pw useradd
$user
-u
$user_number
-c
\"
$fullname
\"
"
.
"
-k /usr/share/skel -m -d /users/
$user
-g
$project
-s
$PBAG
")
==
0
or
die
(
"
Could not add user
$user
to paper
"
)
;
or
print
STDERR
"
Could not add user
$user
to paper
\n
";
#
# Make group on control node.
...
...
@@ -166,8 +166,8 @@ sub dowork() {
print
"
Adding group
$project
to
$control_node
.
\n
";
system
("
/usr/local/bin/sshtb
$control_node
/usr/sbin/pw
"
.
"
groupadd
$project
-g
$group_number
")
==
0
or
die
(
"
Could not add group
$project
with gid
$group_number
to
"
.
"
$control_node
"
)
;
print
STDERR
"
Could not add group
$project
with gid
$group_number
to
"
.
"
$control_node
\n
";
#
# Make user on control node. Note that we cannot get back any output from
...
...
@@ -180,11 +180,11 @@ sub dowork() {
"
/usr/sbin/pw useradd
$user
-u
$user_number
-c '
\"
$fullname
\"
'
"
.
"
-k /usr/share/skel -m -d /users/
$user
-g
$project
"
.
"
-s /bin/tcsh
")
==
0
or
die
(
"
Could not add user
$user
to
$control_node
.
"
)
;
or
print
STDERR
"
Could not add user
$user
to
$control_node
.
\n
";
system
("
/usr/local/bin/sshtb
$control_node
"
.
"
/usr/bin/chpass -p
$pswd
$user
")
==
0
or
die
(
"
Could not change password for user
$user
on
$control_node
.
"
)
;
or
print
STDERR
"
Could not change password for user
$user
on
$control_node
.
\n
";
#
# Set up the ssh key
...
...
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