User:Thomax:perl-xmlrpc - Revision history

Makopoppo: Users:Thomax:perl-xmlrpc moved to User:Thomax:perl-xmlrpc: wrong namespace

2011-05-04T02:22:00Z

Users:Thomax:perl-xmlrpc moved to User:Thomax:perl-xmlrpc: wrong namespace

Ideia Boa at 00:42, 22 May 2009

2009-05-22T00:42:39Z

Thomax at 11:53, 3 May 2009

2009-05-03T11:53:52Z

Thomax: New page: `#!/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::Cli...`


2009-05-03T11:51:39Z
New page: <code> #!/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::Cli...
New page
<code>

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

}

</code>

← Older revision		Revision as of 00:42, 22 May 2009
Line 1:		Line 1:
		+	__NOTOC__
		+	{{Template:Quicklinks}}
		+	<br />
		+
	<pre>		<pre>
	#!/usr/bin/perl		#!/usr/bin/perl

User:Thomax:perl-xmlrpc - Revision history

Makopoppo: Users:Thomax:perl-xmlrpc moved to User:Thomax:perl-xmlrpc: wrong namespace

Ideia Boa at 00:42, 22 May 2009

Thomax at 11:53, 3 May 2009

Thomax: New page: #!/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::Cli...

Thomax: New page: `#!/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::Cli...`