#!/usr/bin/perl

#print "Content-type: application/rss+xml\n\n";
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;

$build_rss=qq~<!DOCTYPE rss PUBLIC "-//Netscape Communications//DTD RSS 0.91//EN" "http://www.rssboard.org/rss-0.91.dtd">
<rss version="0.91">
<channel>
<title>The ORR Team Listings</title>
<link>http://www.ORRHomes.com</link>
<description>Displaying The ORR Team's Listings</description>
<language>en-us</language>
~;
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 from listings_res3 WHERE Price > '75000' AND AgentID = '600' ORDER BY RAND() LIMIT 0,4");
$uasth->execute;

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

$image_url = &image_format("full",$MLSNUM);

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

if ($HalfBaths eq "None") {
$HalfBaths = "0";
}

$HalfBaths = $HalfBaths/2;
$Baths = ($FullBaths + $HalfBaths);

$build_rss.=qq~<item>
<title>Featured Listing: $AddressNumber $AddressDirection $AddressStreet Priced at \$$Price this $Bedrooms Bedroom, $Baths Bath Home features $TotalSqFt SQFT and $Acres Acres.  Click To View http://$MLSNUM.ORRHomes.com</title>
<description>Home</description>
<link>http://$MLSNUM.ORRHomes.com</link>
</item>
~;
}
$dbh->disconnect;

$build_rss.=qq~</channel>
</rss>\n~;

$data="gmail_listings.xml";

open FH, ">", $data;
print FH;
close FH;

open(DAT,">>$data") || die("Cannot Open File");
print DAT "$build_rss\n"; 
close(DAT);


print qq~
$data File Updated
~;