User:Thomax:perl-xmlrpc

Latest revision as of 18:22, 3 May 2011

 

Home

 

Download

 

News

 

Support

 

Admin

 

Dev

 

Screen Shots

 

Grid List

 

Bugs

Languages:

English

#!/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";
}