NAME

XML::RPC -- Pure Perl implementation for an XML-RPC client and server.

SYNOPSIS

make a call to an XML-RPC server:

    use XML::RPC;
    my $xmlrpc = XML::RPC->new('http://betty.userland.com/RPC2');
    my $result = $xmlrpc->call( 'examples.getStateStruct', { state1 => 12, state2 => 28 } );

create an XML-RPC service:

    use XML::RPC;
    use CGI;
    my $q      = new CGI;
    my $xmlrpc = XML::RPC->new();
    my $xml    = $q->param('POSTDATA');
    print $q->header( -type => 'text/xml', -charset => 'UTF-8' );
    print $xmlrpc->receive( $xml, \&handler );
    sub handler {
        my ( $methodname, @params ) = @_;
        return { you_called => $methodname, with_params => \@params };
    }

WARNING

Very little maintainance goes into this module. While it continues to work, is has certain quirks that may or may not be fixable without breaking backward compatibility.

I strongly recommend that, before deciding what to use in a new project, you look into Randy Ray's RPC::XML module. This seems to be a much more modern approach.

DESCRIPTION

XML::RPC module provides simple Pure Perl methods for XML-RPC communication. It's goals are simplicity and flexibility. XML::RPC uses XML::TreePP for parsing.

This version of XML::RPC merges the changes from XML::RPC::CustomUA.

CONSTRUCTOR AND OPTIONS

$xmlrpc = XML::RPC->new();

This constructor method returns a new XML::RPC object. Usable for XML-RPC servers.

$xmlrpc = XML::RPC->new( 'http://betty.userland.com/RPC2', %options );

Its first argument is the full URL for your server. The second argument is for options passing to XML::TreePP, for example: output_encoding => 'ISO-8859-1' (default is UTF-8).

You can also define the UserAgent string, for example:

    my $rpcfoo = XML::RPC->new($apiurl, ('User-Agent' => 'Baz/3000 (Mozilla/1.0; FooBar phone app)'));

METHODS

$xmlrpc->credentials( 'username', 'password );

Set Credentials for HTTP Basic Authentication. This is only secure over HTTPS.

Please, please, please do not use this over unencrypted connections!

$xmlrpc->call( 'method_name', @arguments );

This method calls the provides XML-RPC server's method_name with @arguments. It will return the server method's response.

$xmlrpc->receive( $xml, \&handler );

This parses an incoming XML-RPC methodCall and call the \&handler subref with parameters: $methodName and @parameters.

$xmlrpc->errstr();

Returns the last HTTP status code (200 when no remote call has happened yet). Can return 999 for some internal errors

$xmlrpc->xml_in();

Returns the last XML that went in the client.

$xmlrpc->xml_out();

Returns the last XML that went out the client.

$xmlrpc->indent(indentsize);

Sets the xmlout indentation

CUSTOM TYPES

$xmlrpc->call( 'method_name', { data => sub { { 'base64' => encode_base64($data) } } } );

When passing a CODEREF to a value XML::RPC will simply use the returned hashref as a type => value pair.

TYPECASTING

Sometimes a value type might not be clear from the value alone, typecasting provides a way to "force" a value to a certain type

as_string

Forces a value to be cast as string.

    $xmlrpc->call( 'gimmeallyourmoney', { cardnumber => as_string( 12345 ) } );

as_int

Forces a value to be cast as int

as_i4

Forces a value to be cast as i4

as_double

Forces a value to be cast as double

as_boolean

Forces a value to be cast as boolean

as_base64

Forces a value to be cast as base64

as_dateTime_iso8601

Forces a value to be cast as ISO8601 Datetime

ERROR HANDLING

To provide an error response you can simply die() in the \&handler function. Also you can set the $XML::RPC::faultCode variable to a (int) value just before dieing.

PROXY SUPPORT

Default XML::RPC will try to use LWP::Useragent for requests, you can set the environment variable: CGI_HTTP_PROXY to set a proxy.

LIMITATIONS

XML::RPC will not create "bool", "dateTime.iso8601" or "base64" types automatically. They will be parsed as "int" or "string". You can use the CODE ref to create these types.

AUTHOR

Original author: Niek Albers, http://www.daansystems.com/ Current author: Rene Schickbauer, https://cavac.at

COPYRIGHT AND LICENSE

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.