Add a check (MAINSITE only) for excessive load (above 10) and return a

too busy error.

The test scripts will retry when it sees this error.

protogeni/xmlrpc/protogeni-wrapper.pl.in

@@ -98,6 +98,18 @@ if (NoLogins()) {
     XMLError(503, "CM temporarily offline; please try again later");
 }
 
+#
+# Check for excessive load
+#
+if ($MAINSITE) {
+    my $uptime = `uptime`;
+    if ($uptime =~ /load averages:\s+([\.\d]+),\s+([\.\d]+),\s+[\.\d]+/) {
+	if ($1 > 10.0) {
+	    XMLError(511, "Server is WAY too busy; please try again later");
+	}
+    }
+}
+
 #
 # Make sure the client presented a valid certificate that apache says
 # is okay.