# twig_client_parse
use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $server_endpoint = "http://localhost/cgi-bin/RnD/twig/twig_rcvr_server.cgi";

# set custom HTTP Request header fields
my $xml;
my $req = HTTP::Request->new(POST => $server_endpoint);
$req->header('content-type' => 'text/xml');

my @files = glob( "*.xml" );
#print "@files\n";
for my $test ( @files )
{
    #print "this element: $test \n ";
    my $xml = do { local( @ARGV, $/ ) = $test; <> };
    $req->content( $xml );
    my $resp = $ua->request( $req );
    if ( $resp->is_success )
    {
        my $message = $resp->decoded_content;
        print "Received reply:\n $message\n";
    }
    else
    {
        print "HTTP POST error code: ", $resp->code, "\n";
        print "HTTP POST error message: ", $resp->message, "\n";
    }
}