use strict;

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

my $_collection_name = 'pim';

die "usage: doupdate USERNAME" unless scalar(@ARGV) == 1;
my $username = $ARGV[0];

my $update_text = join('', <STDIN>);
$update_text =~ s/\$username/$username/g;

my $server = Frontier::Client->new(url => 'http://anthill:4080');
$server->{debug} = 1;

my $result = $server->call('db.queryCollection',
			   "/db/$_collection_name",
			   'XUpdate',
			   $update_text,
			   {X => "http://www.xmldb.org/xupdate"});
print "\nqueryCollection XUpdate result: " . Dumper($result) . "\n";

1;