#!/usr/bin/perl -w

use strict;
use Frontier::Client;

my $server_url = 'http://vendorserver.com/service.php';
my $server = Frontier::Client->new('url' => $server_url, 'encoding' => 'ISO-8859-1', 'debug' => 0);

my @params = 
          {
            'tot-bed-lo' => '1',
            'page' => '1',
            'state' => 'ut',
            'city' => 'Somecity',
            'report-type' => 'long',
            'method' => 'searchres',
            'price-hi' => '950000',
            'home-type' => [
                             '1'
                           ],
            'price-lo' => '100000',
            'sort-by' => 'price asc',
            'zip' => [
                       '55555',
                       '55554'
                     ],
            'dev-tag' => '12345',
            'report-struct' => 'all',
            'tot-bath-lo' => '1'
          }
;

my $result = $server->call('searchres', @params);

use Data::Dumper;
print Dumper(\$result);

##</code><code>##

request ----
<?xml version="1.0" encoding="ISO-8859-1"?>
<methodCall>
<methodName>searchres</methodName>
<params>
<param><value><struct>
<member><name>home-type</name><value><array><data>
<value><i4>1</i4></value></data></array></value>
</member>
<member><name>price-lo</name><value><i4>100000</i4></value></member>
<member><name>page</name><value><i4>1</i4></value></member>
<member><name>tot-bed-lo</name><value><i4>1</i4></value></member>
<member><name>sort-by</name><value><string>price asc</string></value></member>
<member><name>state</name><value><string>ut</string></value></member>
<member><name>zip</name><value><array><data>
<value><i4>55555</i4></value><value><i4>55554</i4></value></data></array></value>
</member>
<member><name>city</name><value><string>Somecity</string></value></member>
<member><name>dev-tag</name><value><string>12345</string></value></member>
<member><name>report-type</name><value><string>long</string></value></member>
<member><name>report-struct</name><value><string>all</string></value></member>
<member><name>method</name><value><string>searchres</string></value></member>
<member><name>tot-bath-lo</name><value><i4>1</i4></value></member>
<member><name>price-hi</name><value><i4>950000</i4></value></member>
</struct></value>
</param>
</params>
</methodCall>
---- response ----
<br />
<b>Warning</b>:  htmlspecialchars() expects parameter 1 to be string, array given in <b>/web/xml/include/helper.inc</b> on line <b>242</b><br />

... (a bunch of these warnings, that's from their server) ...

<br />
<b>Warning</b>:  htmlspecialchars() expects parameter 1 to be string, array given in <b>/web/xml/include/helper.inc</b> on line <b>242</b><br />
<br />
<b>Warning</b>:  Cannot modify header information - headers already sent by (output started at /web/xml/include/helper.inc:242) in <b>/web/xml/htdocs/service.php</b> on line <b>71</b><br />
<?xml version="1.0" encoding="iso-8859-1"?>
<methodResponse>
<params>
 <param>
  <value>
   <array>
    <data>
     <value>
      <int>327</int>
     </value>
     <value>
      <int>1</int>
     </value>
     <value>
      <int>33</int>
     </value>
     <value>
      <double>0.272385</double>
     </value>