View Single Post
Old 16-08-2007, 13:11   #10
The Jackal
Inactive
 
Join Date: Oct 2006
Posts: 1,604
The Jackal has a bronzed appealThe Jackal has a bronzed appeal
The Jackal has a bronzed appealThe Jackal has a bronzed appealThe Jackal has a bronzed appealThe Jackal has a bronzed appealThe Jackal has a bronzed appealThe Jackal has a bronzed appealThe Jackal has a bronzed appealThe Jackal has a bronzed appealThe Jackal has a bronzed appeal
Re: Any Perl Experts?

Soz was away for lunch...

take a looksie @ perldoc RPC::XML::Client

use the following example to get up n running.


NAME
RPC::XML::Client - An XML-RPC client class

SYNOPSIS
require RPC::XML;
require RPC::XML::Client;

$cli = RPC::XML::Client->new('http://www.localhost.net/RPCSERV');
$resp = $cli->send_request('system.listMethods');

print ref $resp ? join(', ', @{$resp->value}) : "Error: $resp";

DESCRIPTION
This is an XML-RPC client built upon the RPC::XML data classes, and

---------- Post added at 14:11 ---------- Previous post was at 14:08 ----------

#!/usr/bin/perl

require RPC::XML;
require RPC::XML::Client;

$cli = RPC::XML::Client->new('http://www.localhost.net/RPCSERV');
$cli->send_request('authenticate',RPC_STRING('user'),RP C_STRING('pass'));
$resp = $cli->send_request('system.listMethods');

print ref $resp ? join(', ', @{$resp->value}) : "Error: $resp";

EDIT : I made up the authenticate line try it with and without the RPC_STRING wrapper
The Jackal is offline   Reply With Quote