Changeset 27398 for gs2-extensions/tdb-edit/trunk/src/perllib/TDBClient.pm

Timestamp:

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

Author:

jmt12

Message:

Adding a flag so we can indicate to a client that is it the first one trying to connect to a server - so we can suppress the 'TCP Exhausted' message, and instead just wait a little longer

File:

• gs2-extensions/tdb-edit/trunk/src/perllib/TDBClient.pm (modified) (2 diffs)

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

@@ -17 +17 @@
 sub new
 {
-  my ($class, $server_lockfile_path, $infodb_file) = @_;
+  my ($class, $server_lockfile_path, $infodb_file, $we_started_server) = @_;
   my $self = {};
 
@@ -46 +46 @@
     my $port = $2;
     # We now create a client that can connect to the specified port
-    print " * Creating TDBClient and connecting to " . $host . ":" . $port . "...\n";
-    $self->{'tdb_client_handle'} = SocketsSwimmingThreadPoolClient->new(host=>$host,port=>$port);
+    if ($debug)
+    {
+      print " * Creating Client and connecting to " . $host . ":" . $port . "...\n";
+    }
+    $self->{'tdb_client_handle'} = SocketsSwimmingThreadPoolClient->new(host=>$host, port=>$port, firstcaller=>$we_started_server);
   }
   else