#!/usr/bin/perl

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


my $query = new CGI();
my $path = $query->param("path");

#my $client = new RPC::XML::Client('http://localhost:9500/');
my $client = new RPC::XML::Client('http://212.42.235.125:9500/');

$req = RPC::XML::request->new('oma.latest_at',$path);
$res = $client->send_request($req);
#print ref $res ? join(', ', @{$res->value}) : "Error: $res";
print "res: $res client: $client\n";
$set = $res->value;
print $query->header('text/xml');
print $set;

