Changeset 27402 for gs2-extensions/tdb-edit/trunk/src/perllib/SocketsSwimmingThreadPoolClient.pm

Timestamp:

2013-05-23T13:43:54+12:00 (11 years ago)

Author:

jmt12

Message:

If a socket fails to be created, and if we are the first client, then it is more likely to be caused by the server being a bit slow to startup, rather than by the TCP port pool being exhausted

File:

• gs2-extensions/tdb-edit/trunk/src/perllib/SocketsSwimmingThreadPoolClient.pm (modified) (1 diff)

gs2-extensions/tdb-edit/trunk/src/perllib/SocketsSwimmingThreadPoolClient.pm

@@ -67 +67 @@
       return $socket;
     }
-    print "Failed to create client socket: $!\n";
-    print "=> Most likely cause - TCP ephemeral ports exhausted (stuck in TIME_WAITs)\n";
-    print "=> Retry in " . $retry_time . " seconds.\n";
-    sleep($retry_time);
+    # if we are the very first caller, and a socket didn't get created, then
+    # most likely the server is still starting up... wait a little longer
+    # before complaining
+    if ($self->{'firstcaller'})
+    {
+      print "* Still waiting...\n";
+    }
+    else
+    {
+      print "Failed to create client socket: $!\n";
+      print "=> Most likely cause - TCP ephemeral ports exhausted (stuck in TIME_WAITs)\n";
+      print "=> Retry in " . $retry_time . " seconds.\n";
+      sleep($retry_time);
+    }
     $retry_limit--;
   }