package PoxPost;

use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use CGI;
use CGI::Carp qw ( fatalsToBrowser );
use XML::Simple;

my $esbhost = "http://5.0.10.212:8280/services/";
my $query;

######################################################################
# PostESB
######################################################################
sub PostESB
 {
	my $servicename = $_[0];
	my $payload = $_[1];
	
	my $userAgent = LWP::UserAgent->new(agent => 'perl post');
	my $message = "<tag>".$payload."</tag>";
	my $link = $esbhost.$servicename;
	my $response = $userAgent->request(POST $link,
		Content_Type => 'application/xml',
		Content => $message);

	if ($response->is_success){
		return 1;
	}
	else{
		return 0;
	}
}