#!/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;

##</code><code>##


$cgi = bless( {
                '.r' => bless( do{\(my $o = '94118860562256')}, 'Apache2::RequestRec' ),
                'param' => {
                             'POSTDATA' => [
                                             'test'
                                           ],
                             'XForms:Model' => [
                                                 'test'
                                               ]
                           },
                'use_tempfile' => 1,
                '.fieldnames' => {},
                '.charset' => 'ISO-8859-1',
                'escape' => 1,
                '.parameters' => [
                                   'XForms:Model',
                                   'POSTDATA'
                                 ]
              }, 'CGI' );
$input = 'test';
$cgi_header = '';
$cgi_full_header = '';
$q = bless( {
              '.parameters' => [
                                 'XForms:Model',
                                 'POSTDATA'
                               ],
              'escape' => 1,
              '.fieldnames' => {},
              '.charset' => 'ISO-8859-1',
              'use_tempfile' => 1,
              '.r' => bless( do{\(my $o = '94118860562256')}, 'Apache2::RequestRec' ),
              'param' => {
                           'POSTDATA' => [
                                           ''
                                         ],
                           'XForms:Model' => [
                                               ''
                                             ]
                         }
            }, 'CGI' );
$q_header = '';
$q_full_header = '';


##</code><code>##

#!/perl/bin/perl
use strict;
use warnings;

use DBI;
use URI;
use LWP::UserAgent;
use Data::Dumper::Names;


my $ua  = LWP::UserAgent->new;

$ua->max_size( 131072 );
$ua->agent('test_xml_pusher');
$ua->ssl_opts(verify_hostname => 0);

my $url = URI->new;
$url->scheme('https');
$url->host('xxxxxxxxxxxxxxxxxxxxxxxxx');
$url->port(443);
$url->path_segments('test.cgi');


# Yes, I know...  it's not valid xml...  don't care for the purposes of this test.
#
my $xml = 'test';

my $response = $ua->post( $url, Content => $xml, 'Content-Type' => 'application/xml' );


print Dumper($response);

my $status_line = $response->status_line;

print Dumper($status_line);

my $content = $response->content;

print Dumper($content);