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.

tbsetup/mkacct-ctrl.in

@@ -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};
 

tbsetup/rmacct-ctrl.in

@@ -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.");