#!/usr/bin/perl

print "Content-type: text/xml\n\n";

require "config.idx";

$long = $ENV{'QUERY_STRING'};

if ($long) {
	@pairs=split(/&/,$long);
	foreach $item(@pairs) {
		($name,$content)=split (/=/,$item,2);
		$content=~tr/+/ /;
		$content=~ s/%(..)/pack("c",hex($1))/ge;
		if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$content; }
		else { $INPUT{$name} = $content; }
	}
}
else {
	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; }
		else { $INPUT{$name} = $value; }
	}
}



use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;

print qq~<?xml version="1.0"?>
<properties>~;
my $uasth = $dbh->prepare("SELECT Price,AddressNumber,AddressDirection,AddressStreet,City,Zip,County,ListingOffice1Name,AgentName,AgentPhone,AgentID,MLSNUM,Bedrooms,YearBuilt,TotalSqFt,FullBaths,HalfBaths,Acres,AgentID,Remarks,UsesFeaturesDataToChoose from listings_res3 WHERE ListingOffice1ID = '48'");
$uasth->execute;

while (($Price,$AddressNumber,$AddressDirection,$AddressStreet,$City,$Zip,$County,$ListingOffice1Name,$AgentName,$AgentPhone,$AgentID,$MLSNUM,$Bedrooms,$YearBuilt,$TotalSqFt,$FullBaths,$HalfBaths,$Acres,$AgentID,$Remarks,$UsesFeaturesDataToChoose) = $uasth->fetchrow_array()) {

$Remarks =~ s/\'//gi;
$Remarks =~ s/\’//gi;
$Remarks =~ s/\"//gi;
$Remarks =~ s/\&//gi;
$Remarks =~ s/\<//gi;
$Remarks =~ s/\>//gi;

$Remarks .= "For More Information Visit http://$MLSNUM.MuncieMLS.com";

@thefeatures = split(/\|/,$UsesFeaturesDataToChoose);

foreach $one (@thefeatures) {

$yasth = $dbh->prepare("select featurename,categoryname from features where codenum = ?");
$yasth->execute($one);

while (($featurename,$categoryname) = $yasth->fetchrow_array()) {

$categoryname = lc($categoryname);
$featurename = lc($featurename);

$categoryname =~ s/\'//gi;
$categoryname =~ s/\’//gi;
$categoryname =~ s/\"//gi;
$categoryname =~ s/\&//gi;
$categoryname =~ s/\<//gi;
$categoryname =~ s/\>//gi;
$featurename =~ s/\'//gi;
$featurename =~ s/\’//gi;
$featurename =~ s/\"//gi;
$featurename =~ s/\&//gi;
$featurename =~ s/\<//gi;
$featurename =~ s/\>//gi;


$showfeaturestable .= "$categoryname $featurename|";


}
}


if ($AgentID eq "122") {
$AgentName = "The ORR Home Selling Team";
$AgentPhone = "765-212-1111";
$setsiteurl = "www.ORRHomes.com";
$setsitename = "ORRHomes.com";
$setemail =  "Ryan\@ORRHomes.com";
}
else {
$setsiteurl = "www.MuncieMLS.com";
$setsitename = "MuncieMLS.com";
$setemail =  "Info\@EagleSold.com";
}
print qq~      
      <property>
        <location>
          <street-address>$AddressNumber $AddressDirection $AddressStreet</street-address>
          <city-name>$City</city-name>
          <county>$County</county>
          <state-code>IN</state-code>
          <zipcode>$Zip</zipcode>
          <display-address>yes</display-address>
        </location>
        <details>
          <price>$Price</price>
          <year-built>$YearBuilt</year-built>
          <num-bedrooms>$Bedrooms</num-bedrooms>
          <num-full-bathrooms>$FullBaths</num-full-bathrooms>
          <num-half-bathrooms>$HalfBaths</num-half-bathrooms>
          <apartment-number></apartment-number>
          <lot-size>$Acres</lot-size>
          <square-feet>$TotalSqFt</square-feet>
          <date-listed></date-listed>
          <date-sold></date-sold>
          <description>$Remarks</description>
          <mlsId>$MLSNUM</mlsId>
        </details>
        <agent>
          <broker-name>$ListingOffice1Name</broker-name>
          <agent-name>$AgentName</agent-name>
          <phone-number>$AgentPhone</phone-number>
          <email>$setemail</email>
        </agent>
        <status>For Sale</status>
        <property-type>Single Family Home</property-type>
        <site>
          <site-url>$setsiteurl</site-url>
          <site-name>$setsitename</site-name>
        </site>
		<features>
			$showfeaturestable
		</features>
        <pictures>
          <picture>
            <picture-url>http://media2.idxnow.com/meiar/thumbnail/meiarmls$MLSNUM.jpg</picture-url>
          </picture>
        </pictures>
        <landing-page>
          <lp-url>http://$MLSNUM.$setsitename</lp-url>
          <has-virtual-tour>false</has-virtual-tour>
        </landing-page>
      </property>
~;
}
$dbh->disconnect;

print qq~</properties>~;