#!/usr/bin/perl -w

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

my $XMLRPCSERVER = "";
my $METHOD      = "";
my $ARGUMENT    = "";
my $client      = "";
my $response    = "";
my $output      = "";


GetOptions( "server=s" => \$XMLRPCSERVER,
            "method=s" => \$METHOD,
            "arg=s" => \$ARGUMENT);

$client = Frontier::Client->new(
        url             => $XMLRPCSERVER,
        use_objects     => 0,
        debug           => 1);

$response = $client -> call ($METHOD, $ARGUMENT);

print "\n\n $XMLRPCSERVER replied: \n\n $response \n\n";

__END__


=head1 NAME

testclient.pl

=head1 SYNOPSIS

A command line perl tool to test xml-rpc servers

=head1 DESCRIPTION

weblogscom.pl uses command line options, so invoke it like this...

perl weblogscom.pl --server=THE SERVER URL HERE --method=METHOD.NAME.H
+ERE --arg=ARGUMENT.HERE

=head1 AUTHOR

Ben Hammersley, ben@benhammersley.com

=head1 BUGS

probably

=head1 SEE ALSO

http://www.xmlrpc.com/
http://www.benhammersley.com/

=head1 COPYRIGHT

Copyright 2002, Ben Hammersley, All Rights Reserved.
This program is free software. You may copy or redistribute it however
+ you like. I'd prefer it if you kept my name on it, though.
[download]