User:Thomax:perl-xmlrpc


 * 1) !/usr/bin/perl

BEGIN { # because the opensim http server just accept old HTTP/1.0 protocol!!! $ENV{PERL_LWP_USE_HTTP_10} ||= 1; # default to http/1.0 }

use RPC::XML::Client;

my $client = new RPC::XML::Client('http://localhost:9000'); my $req = RPC::XML::request->new(           'admin_broadcast',            {                password => 'secret',                message => '2 + 3 = 23'            } );

my $res = $client->send_request($req); my %val = %$res; my $key;

foreach $key (keys %val) { print "$key --> ". $val{$key}->as_string ."\n"; }