#!/usr/bin/perl -w

use Frontier::Daemon;
use Frontier::Client;
use xmlBlaster::Exception ;
use xmlBlaster::XmlBlaster ;
use xmlBlaster::MessageUnit ;
use xmlBlaster::EraseRetQos ;


sub do_update {
	print "GOT AN UPDATE\n";
	return "<qos><state>OK</state></qos>";
}

sub do_ping {
	print "got ping\n";
	return "<qos><state>OK</state></qos>";
}

my $local_url="http://127.0.0.1:9091/RPC2";

Frontier::Daemon->new(
	    LocalPort => 9091,
	    methods => {
		        'update'   => \&do_update,
		        'ping'   => \&do_ping
	    });