Commit 5624dafa authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

Fix up setuid problem by moving call to genelists after the point

where UID==EUID so that perl is not unhappy about a setuid script
being invoked when EUID!=UID.
parent be5c253e
......@@ -107,13 +107,6 @@ if ($UID && !TBAdmin($UID) && ($me ne $user)) {
}
}
#
# Run genelists to update the email lists. This is a convenient
# spot to do this. Errors are non-fatal; the testbed list will
# will find out about problems via email from genelists.
#
system("$GENELISTS");
#
# Get the user info (the user being created).
#
......@@ -185,6 +178,15 @@ my $control_node = $CONTROL;
#
$UID = $EUID;
#
# Run genelists to update the email lists. This is a convenient
# spot to do this. Errors are non-fatal; the testbed list will
# will find out about problems via email from genelists. Note that
# this command must be run when EUID==UID==0 because its a setuid
# PERL script.
#
system("$GENELISTS");
foreach my $group ( @groupnames ) {
my $group_number = $groupnumbers{$group};
......
......@@ -98,13 +98,6 @@ if ($UID && !TBAdmin($UID)) {
}
}
#
# Run genelists to update the email lists. This is a convenient
# spot to do this. Errors are non-fatal; the testbed list will
# will find out about problems via email from genelists.
#
system("$GENELISTS");
#
# Note hardwired control node.
#
......@@ -117,6 +110,15 @@ my $control_node = $CONTROL;
#
$UID = $EUID;
#
# Run genelists to update the email lists. This is a convenient
# spot to do this. Errors are non-fatal; the testbed list will
# will find out about problems via email from genelists. Note that
# this command must be run when EUID==UID==0 because its a setuid
# PERL script.
#
system("$GENELISTS");
print "Removing user $user from local node.\n";
if (system("$USERDEL $user")) {
fatal("Could not remove user $user from local node.");
......
Supports Markdown
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