Re: RPC connection to eXist XML O.K how to print results to file

[ww]

As you said, after the last time the Monks provided links to the information about how to do this, " Hopefully some day I will be able to contribute. "

Gotta' agree w/AnonyMonk: you really should read and undertand the replies and information you already have, before posting another question bringing little more than embarrassment disgrace on your head.

[spencerr1]

Sorry about that I do have my challenges with printing to file. Sorry again

#!/usr/bin/perl

use RPC::XML;
use RPC::XML::Client;

# print "Please specify a document path as first argument";
# chomp($doc = <STDIN>);
chomp($doc = "/db/Shakespeare/hamlet.xml");

if(!$doc) {
    die "Please specify a document path as first argument!\n";
}

$URL = "http://admin:spencerr\@localhost:8080/exist/xmlrpc";
print "connecting to $URL...\n";
$client = new RPC::XML::Client $URL;

# Output options
$options = RPC::XML::struct->new(
    'indent' => 'yes', 
    'encoding' => 'UTF-8');
$req = RPC::XML::request->new("getDocument", $doc, $options);
$resp = $client->send_request($req);
if($resp->is_fault) {
    die "An error occurred: " . $resp->string . "\n";
}
$file = "C:/Results.xml";
open (XMLFILE, ">$file") || die "Can't open file: $!\n";
print XMLFILE $resp->value ."\n";
#print $resp->value . "\n";
close XMLFILE;