#!/usr/bin/perl

use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use Time::HiRes qw(tv_interval gettimeofday);
use Time::HiRes qw(tv_interval gettimeofday);

my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my ($totaltime, $success, $error, $requests, $process);


my $debug = 1;
$totaltime = 0;
$success = 0;
$error = 0;

$mon=$mon+1;
if ($mon < 10) { $mon = "0$mon"; }
if ($day < 10) { $day = "0$day"; }
if ($hour < 10) { $hour = "0$hour"; }
if ($min < 10) { $min = "0$min"; }
$year=$year+1900;

open (LOG, ">>/root/gdsresponsetimelog.log");

sub do_work() {
my ($starttime, $time);
my $ua = LWP::UserAgent->new(agent => 'responsetime tracker');

my $request = "<?xml version='1.0'?>
<soap:Envelope soap:encodingStyle=\"http://www.w3.org/2001/12/soap-encoding\" xmlns:soap=\"http://www.w3.org/2001/12/soap-envelope\">
<soap:Body>
    <authentication>
      <affiliate>CD61</affiliate>
    </authentication>
    <query>
      <show_rooms>yes</show_rooms>
      <command>Search Multiple hotels</command>
      <hotels>
        <hotel>
          <id>192</id>
        </hotel>
        <hotel>
          <id>1801</id>
        </hotel>
        <hotel>
          <id>2978</id>
        </hotel>
      </hotels>
      <nr_adults>2</nr_adults>
      <nr_children/>
      <arrival>2009-09-22</arrival>
      <departure>2009-09-23</departure>
</query>
  </soap:Body>
</soap:Envelope>";

$starttime = [gettimeofday];
my $response = $ua->request(POST 'http://xml.site.net/xml/',
Content_Type => 'application/x-www-form-urlencoded',
Content => ['query' => $request]);

++$success if !$response->is_success;
++$error if $response->is_success;
print $response->as_string if $debug;
$time = tv_interval($starttime, [gettimeofday]);
$totaltime = $totaltime + $time;
return ($totaltime, $error, $success);
}

($totaltime, $success, $error) = do_work;

if ($success) {
        print LOG "$mon$day$hour$min -- OK -- TOTAL TIME: $totaltime\n";
} elsif ($error) {
        print LOG "$mon$day$hour$min -- ERROR -- TOTAL TIME: $totaltime\n";
}

close (LOG);