#!/usr/bin/perl
#use strict;
use SOAP::Lite +debug;
my $luser="my_user";
my $pass="my_pass";
my $mls_schema="NWMLSStandardXML";
my $mls_status="A";
my $mls_county="lewis";
my $mls_start="2004-11-26T00:00:00";
my $mls_stop="2004-11-27T10:30:00";
my $query="$luser
$pass
$mls_schema
$mls_status
$mls_county
$mls_start
$mls_stop
";
print "Current Query: $query\n";
my ($uri,$server,$endpoint,$soapaction,$method,$method_urn);
$uri="http://www.nwmls.com/EverNetServices";
$server='http://evernet.nwmls.com';
$endpoint="$server/evernetqueryservice/evernetquery.asmx";
$method='RetrieveListingData';
my $soap=SOAP::Lite->new(uri =>$uri, proxy => $endpoint) ->on_action(sub { sprintf '"%s/%s"', shift,shift }) ;
my $response=$soap->call(SOAP::Data->name($method)
->attr({xmlns=>$uri})
=> SOAP::Data->name(v_strXMLQuery=>$query));
if ($response->fault){
printf "A fault (%s) occurred: %s\n",
$response->faultcode,$response->faultstring. join ("\n\t",@_)."\n";
}
else
{print "$response->result\n";}
exit;