Eagle Real Estate, Inc. - http://OpenHouses.MuncieMLS.com

#!/usr/bin/perl print "Content-type: text/html\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; my $abasth = $dbh->prepare("select id,status,house,agent,DATE_FORMAT(date, '%W %b %D, %Y'),start_timehour,start_timeminute,start_ap,end_timehour,end_timeminute,end_ap FROM openhouses WHERE status = 'a' AND date >= now() order by date ASC"); $abasth->execute; print qq~ Eagle Real Estate, Inc. - http://OpenHouses.MuncieMLS.com ~; &header; print qq~

~; $trcount = "1"; $totalperrow = "3"; # Number of agents per row while (($id,$status,$house,$agent,$date,$start_timehour,$start_timeminute,$start_ap,$end_timehour,$end_timeminute,$end_ap) = $abasth->fetchrow_array()) { $found = "yes"; my $aasth = $dbh->prepare("select Price,AddressNumber,AddressDirection,AddressStreet,City,Zip,MLSNUM,AgentID,Directions FROM listings_res3 where MLSNUM = '$house'"); $aasth->execute; my $basth = $dbh->prepare("select agentid,firstname,lastname from agents WHERE agentid = '$agent'"); $basth->execute; while (($Price,$AddressNumber,$AddressDirection,$AddressStreet,$City,$Zip,$MLSNUM,$AgentID,$Directions) = $aasth->fetchrow_array()) { $showpicture = &image_format("thumbnail","$MLSNUM"); if (-e "/home/muncieml/public_html/pdf/$house\.pdf") { $showpdf = "

View Full Color
PDF Brochure

"; } else { $showpdf = ""; } while (($agentid,$firstname,$lastname) = $basth->fetchrow_array()) { print qq~ $date
$start_timehour:$start_timeminute $start_ap to $end_timehour:$end_timeminute $end_ap
Hosted By:
$firstname $lastname

$AddressNumber $AddressDirection $AddressStreet
$City, IN $Zip

Directions: $Directions$DirectionsContinued
$showpdf
~; } if ($trcount eq $totalperrow) { print ""; $trcount = "1"; } else { $trcount++; } } } if ($found ne "yes") { print qq~ Visit Our IDEAL Models! See below:
~; } print qq~

~; &footer;