#!/usr/bin/perl -w

# test_NTLM-9.pl

use strict;

use LWP::UserAgent;
use LWP::Debug qw(+);

my $page = "";
my $response = "";
my $ua = "";

my %reports = ();

my $url1 = "http://<some url>/reports.asp";
my $url2 = "http://<some url>.<some domain>.com:80/reports.asp";


{
 package RequestAgent;
 our @ISA = qw(LWP::UserAgent);

 sub get_basic_credentials
  { return ("<DOMAIN\\username>", "<passowrd>"); }
}


$ua = RequestAgent -> new (keep_alive => 1);

$response = $ua -> post ($url2, \%reports, ['report' => 'E911 Numbers']);

if ($response -> is_success)
  {
   print ("\nGOOD\n");
   $page = $response -> code;
  }
 else
  {
   print ("\nBAD\n");
   $page = $response -> code;
  }

if (defined ($page))
 {
  $page =~ s/<br>/\\\n/g;
  print ($page);
 }

exit;