Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
cli-xml-rpc.pl	3.09 KB	-rw-r--r--
example-cli-input	187 B	-rw-r--r--
rpc-client.pl	2.18 KB	-rw-r--r--
states-client.pl	871 B	-rw-r--r--
states-daemon.pl	1.5 KB	-rw-r--r--
validator1-daemon.pl	1.48 KB	-rw-r--r--

Code Editor : rpc-client.pl

#
# Copyright (C) 1998 Ken MacLeod
# See the file COPYING for distribution terms.
#
# $Id: rpc-client.pl,v 1.3 1999/09/02 20:16:49 kmacleod Exp $
#

=head1 NAME

rpc-client -- example XML RPC client

=head1 SYNOPSIS

rpc-client [--debug] [--encoding ENCODING] [--proxy PROXY] \
     URL METHOD ["ARGLIST"]

=head1 DESCRIPTION

`C<rpc-client>' exercises an XML RPC server.  I<URL> is the URL of the
RPC server to contact, including a path if necessary, like `C</RPC2>'.
I<METHOD> is the procedure to call on the remote server.

`C<"I<ARGLIST>">' is the argument list to be sent to the remote server.
I<ARGLIST> may include Perl array and hash constructors and should
always be quoted.

The result returned from the XML RPC server is displayed using Perl's
`dumpvar.pl' utility, showing the internal structure of the objects
returned from the server.

The `C<--debug>' option will cause the client to print the XML request
sent to and XML response received from the server.

The `C<--encoding>' option will supply an alternate encoding for the
XML request.  The default is none, which uses XML 1.0's default of
UTF-8.

The `C<--proxy>' option is a URL of an HTTP proxy to pass the request
through.

=head1 EXAMPLES

rpc-client http://betty.userland.com/RPC2 examples.getStateName "41"

rpc-client http://betty.userland.com/RPC2 \
   examples.getStateList "[12, 28, 33, 39, 46]"

rpc-client http://betty.userland.com/RPC2 \
   examples.getStateStruct "{state1 => 18, state2 => 27, state3 => 48}"

=cut

use Frontier::Client;
use Getopt::Long;

my $debug = 0;
my $encoding = undef;
my $proxy = undef;

GetOptions( 'debug' => \$debug,
            'encoding=s' => \$encoding,
            'proxy=s' => \$proxy );

die "usage: rpc-client URL METHOD [\"ARGLIST\"]\n"
    if ($#ARGV != 1 && $#ARGV != 2);

my $url = shift @ARGV;
my $method = shift @ARGV;
my $arglist = shift @ARGV;

$server = Frontier::Client->new( 'url' => $url,
                                 'debug' => $debug,
                                 'encoding' => $encoding,
                                 'proxy' => $proxy );

my @arglist;
eval "\@arglist = ($arglist)";

$result = $server->call ($method, @arglist);

require 'dumpvar.pl';
dumpvar ('main', 'result');

${this.title}

Code Editor : rpc-client.pl