Minor fix uncovered by elabinelab build; make sure EUID is not zero

when firing off a subscript that cares about such things.

db/update_permissions.in

@@ -69,4 +69,7 @@ usage()
 #
 # Its all in the library ...
 #
-exit(TBUpdateNodeTypeXpidPermissions());
+exit(0)
+    if (TBUpdateNodeTypeXpidPermissions());
+exit(1);
+

tbsetup/mkproj.in

@@ -2,7 +2,7 @@
 
 #
 # EMULAB-COPYRIGHT
-# Copyright (c) 2000-2003 University of Utah and the Flux Group.
+# Copyright (c) 2000-2003, 2005 University of Utah and the Flux Group.
 # All rights reserved.
 #
 
@@ -259,9 +259,13 @@ if ($query_result->num_rows) {
 		fatal("Unknown remote type $type!");
 	    }
 	    print "$type\n";
-	    
+
+	    $EUID = $UID;
+
 	    system("$GRANTTYPE -p $pid $type") == 0 or
 		fatal("Could not grant permission to use type $type!");
+
+	    $EUID = 0;
 	}
     }
 }

utils/grantnodetype.in

@@ -32,7 +32,7 @@ my $pid;
 #
 if ($UID == 0) {
     die("*** $0:\n".
-	"    Please do not run this as root! Its already setuid!\n");
+	"    Please do not run this as root!\n");
 }
 
 #