#!/perl/bin/perl

use strict;
use warnings;

use Data::Dumper::Names;
use CGI qw(:standard);

use Apache2::Connection ();
use Apache2::RequestRec ();

$| = 1;

# Grab the request object provided by mod_perl.
#
our $request_obj = shift;
our $connection  = $request_obj->connection;
our $remote_ip   = $connection->client_ip();


my $cgi = CGI->new($request_obj->args());

print STDERR Dumper($cgi);

my $input = $cgi->param('POSTDATA');

print STDERR Dumper($input);

my $cgi_header = $cgi->header();

print STDERR Dumper($cgi_header);

#my $cgi_full_header = $cgi->header(-type => 'application/xml', -status => '400 Bad Request' );
my $cgi_full_header = $cgi->header(-type => 'application/xml');

print STDERR Dumper($cgi_full_header);




my $q = CGI->new({});

print STDERR Dumper($q);

my $q_header = $q->header();

print STDERR Dumper($q_header);

#my $q_full_header = $q->header(-type => 'application/xml', -status => '400 Bad Request' );
my $q_full_header = $q->header(-type => 'application/xml' );

print STDERR Dumper($q_full_header);


exit;