Changeset 26988 for gs2-extensions

Timestamp:

2013-03-05T10:25:42+13:00 (11 years ago)

Author:

jmt12

Message:

Replaced hardcoded 'localhost' with hostname as variable

File:

• gs2-extensions/tdb-edit/trunk/src/bin/script/TDBClient.pl (modified) (1 diff)

gs2-extensions/tdb-edit/trunk/src/bin/script/TDBClient.pl

@@ -46 +46 @@
 
 use SocketsSwimmingThreadPoolClient;
-my $port= shift;
-my $message= shift;
-die "Usage: perl client.pl <port> <string>\n" unless defined($message) && defined($port);
-my $c= SocketsSwimmingThreadPoolClient->new(host=>'localhost',
+my $host = shift;
+my $port = shift;
+my $message = shift;
+die "Usage: perl client.pl <host> <port> <string>\n" unless defined($message) && defined($port);
+my $c= SocketsSwimmingThreadPoolClient->new(host=>$host,
                                             port=>$port
                                            );
-print "Contacting server on localhost:$port\n";
+print "Contacting server on $host:$port\n";
 print "Sent: |$message|\n";
 print "Recv: |" . $c->query($message) . "|\n\n";