Changeset 34 for server/trunk/admin/bin
- Timestamp:
- 11/24/10 10:53:40 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
server/trunk/admin/bin/sophie_admin
r4 r34 4 4 require RPC::XML; 5 5 require RPC::XML::Client; 6 use Getopt::Long; 7 8 GetOptions( 9 's=s' => \my $server, 10 ) or die "Wrong options"; 6 11 7 12 require Data::Dumper; 8 my $xmlcli = RPC::XML::Client->new( 'http://127.0.0.1:3000/rpc');13 my $xmlcli = RPC::XML::Client->new($server || 'http://127.0.0.1:3000/rpc'); 9 14 10 15 my $res = $xmlcli->send_request('login', 'admin', 'toto');
Note: See TracChangeset
for help on using the changeset viewer.