Changeset 34 for server

Timestamp:

11/24/10 10:53:40 (14 years ago)

Author:

nanardon

Message:

• allow to pass server on commandline

File:

• server/trunk/admin/bin/sophie_admin (modified) (1 diff)

server/trunk/admin/bin/sophie_admin

@@ -4 +4 @@
 require RPC::XML;
 require RPC::XML::Client;
+use Getopt::Long;
+
+GetOptions(
+        's=s' => \my $server,
+) or die "Wrong options";
 
 require Data::Dumper;
-my $xmlcli = RPC::XML::Client->new('http://127.0.0.1:3000/rpc');
+my $xmlcli = RPC::XML::Client->new($server || 'http://127.0.0.1:3000/rpc');
 
 my $res = $xmlcli->send_request('login', 'admin', 'toto');