#!/usr/local/bin/perl -w
use strict;
use Frontier::Client;
use Data::Dumper;

my $server = new Frontier::Client(url=>'http://127.0.0.1:8888/xindice', debug=>1);
my $result;
my $args = {
    'message' => 'GetDocumentMeta',
    'collection' => '/db/test1',
    'name' => 'mydoc4'
    };
    
#$args->{'message'} = 'InsertDocument';
#local undef $/;
#open(IN, "C:\\xi-test.xml");
#$args->{'document'} = <IN>;
#$args->{'name'} = 'mydoc4';
#close(IN);

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

print "\n" . Dumper($result);
print "ALL DONE\n";