#!/usr/local/bin/perl
use HTTP::Request::Common qw(POST);
use HTTP::Request;
use LWP::UserAgent;
use HTTP::Cookies;
use LWP::Debug '+';
use strict;

my $DEBUG 	 = 1;
my $VERBOSE = 1;


my $ua = LWP::UserAgent->new;
   $ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)');

my $cookie_jar = HTTP::Cookies->new();
   $ua->cookie_jar($cookie_jar);

my $req = new HTTP::Request ( 'GET', 'http://www.aa.com' );
my $res = $ua->request($req);

   $cookie_jar->extract_cookies($res);

my $content = $res->content; 
my $session_id = $content;
   $session_id =~ s/.*(jsessionid=.*?)".*/$1/gis;

my $submit_url 	= "http://www.aa.com/apps/reservations/FlightSearchResults.jhtml;$session_id";

my $ua   = new LWP::UserAgent;
   $req  =   POST $submit_url, 
   	[	'_DARGS'		=>	'/apps/modules/makeReservation.jhtml.8',
		'currentCalForm'	=>	'dep',
		'currentCodeForm'	=>	'',
		'tripType'		=>	'roundTrip',
		'_D:tripType'		=>	' ',
		'origin'		=>	'DFW',
		'_D:origin'		=>	' ',
		'departureMonth'	=>	'11',
		'_D:departureMonth'	=>	' ',
		'departureDay'		=>	'24',
		'_D:departureDay'	=>	' ',
		'departureTime'		=>	'1',
		'_D:departureTime'	=>	' ',
		'departureYear'		=>	'',
		'destination'		=>	'LGA',
		'_D:destination'	=>	' ',
		'returnMonth'		=>	'12',
		'_D:returnMonth'	=>	' ',
		'returnDay'		=>	'3',
		'_D:returnDay'		=>	' ',
		'returnTime'		=>	'1',
		'_D:returnTime'		=>	' ',
		'returnYear'		=>	'',
		'numAdultPassengers'	=>	'2',
		'_D:numAdultPassengers'	=>	' ',
		'numChildPassengers'	=>	'0',
		'_D:numChildPassengers'	=>	' ',
		'searchType'		=>	'schedule',
		'_D:searchType'		=>	'',
		'/aa/travelinfo/SearchFlightsFormHandler.submit'	=> '',
		'_D:/aa/travelinfo/SearchFlightsFormHandler.submit'	=> ' ',
	];
	## DEBUG THE HEADERS	
	debug ( $req->content );

	## MAKE THE ACTUAL REQUEST
	$res = $ua->request($req);

	#$loc = $res->headers->header('location');
	debug ( $res->content ) if $VERBOSE;

################ DEBUG FUCTION ###################################################################################
sub debug { 
	if ($DEBUG) {
		my $spacer = '|' x 80;
		print "\n\n$spacer DEBUG $spacer\n";
		print @_;
		print "\n$spacer <END>DEBUG $spacer\n";
	}
}