#!/usr/bin/perl
use strict;
use warnings;
{
    package Four51Listener;
    use HTTP::Server::Simple::CGI;
    use base qw( HTTP::Server::Simple::CGI );
    use EGA::Utils qw( TimeStamp ); # a set of custom functions

    my %dispatch = (
	'/toMFF'    => \&toMFF,
    );

    sub handle_request {
	my ( $self, $cgi )  = @_;
	my $path    = $cgi->path_info();
	my $handler = $dispatch{ $path };

	if ( ref( $handler ) eq 'CODE' ) {
	    $handler->( $cgi );
	    print $cgi->header( -type => 'text/xml', -charset => 'ascii' ), response_ok();
	}
    }

    sub toMFF {
	my $cgi	= shift;
	my $xml = $cgi->param( 'POSTDATA' );
    }

    sub response_ok {
	my $timestamp   = TimeStamp();
	$timestamp	=~ s/\s/T/;
	my $response    = <<EOF;
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE cXML SYSTEM "http://xml.cXML.org/schemas/cXML/1.1.009/cXML.dtd">
<cXML payloadID="foo&commat;ceprinter.com" xml:lang="en-US" timestamp="$timestamp">
    <Response>
	<Status code="200" text="OK" />
    </Response>
</cXML>
EOF
	return $response;
    }
}

my $pid	= Four51Listener->new(8888)->background();
print "Kill $pid to stop server.\n";