#!/usr/local/bin/perl -w

use strict;
use Frontier::Client;
use Data::Dumper;

my($server,$result,$url);

$url = 'http://localhost:8080/Xindice';
print "Hello World!\n";
$server = Frontier::Client->new('url'=>$url,'debug'=>5);
## try listing the collections
## look at org/apache/xindice/server/rpc/messages/*.java
## for the 'message' possibilities.  The parameters are there as well.
my $args = {};
$args->{'message'} = 'ListCollections';
$args->{'name'} = 'dv-test';
$args->{'collection'} = '/db';

$result = $server->call('run',$args);

print "\nresult returned:\n";
print Dumper($result);