#!/usr/bin/perl

use strict;
use URI;
use IO::Socket;
####use HTTP::Daemon;
use HTTP::Status;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new (
   agent => 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; Trident/4.0)',
   keep_alive  => 1
);

my $request = HTTP::Request->new('GET');

sub sas_main
{
  my $x=shift;
  my $y=shift;
  my $z=shift;
  my $q=shift;
  
  my $f = 'http://stg.lbsp.navteq.com/satellite/6.0/images/?token=LBSP_DEV_ALL&profile=Recency&quadkey=' . $q;
  
  ##  
  $request->uri($f);
  
  ##  

  my $response = $ua->request($request);
  
  if ($response->is_success) {
    ## done
    my @ret = ();
    push @ret, ($response->code); ## http result code
    push @ret, ($response->content_length); ## content size
    push @ret, ($response->content_type); ## content type
    push @ret, ($response->headers_as_string); ## headers
    push @ret, ($response->content); ## body
    return \@ret;
  }
  else {
    ## failed
    return ($response->code);
  }
}
