#!/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; } } } unless ($INPUT{action} eq "login") { @rawCookies = split(/;/,$ENV{'HTTP_COOKIE'}); foreach (@rawCookies) { ($cookieName, $cookieValue) = split(/=/,$_); $Cookies{$cookieName}=$cookieValue; } ($Cook{userid},$Cook{email}) = split(/\-/,$Cookies{userid}); if ($Cook{userid} eq "" || $Cook{userid} eq "none") { print qq~ ~; &header; print qq~ MY HOMES Account

You must have a MyHomes account to access this feature.
You may login to your existing account or create a FREE MuncieMLS.com MyHomes account below.


If you are new to MuncieMLS.com you must create a MyHomes account.

A MuncieMLS.com MyHomes account will enable you to save listings, save searches, view additions and updates to listings, and receive e-mail and wireless notifications when new listings meet your search criteria all for FREE!
ALREADY HAVE A
MYHOMES ACCOUNT?
You may login below

E-Mail Address:
Password:
Lost Your Password? Click Here
~; &footer; exit 0; } } 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; $sql_query = qq~select SQL_CALC_FOUND_ROWS Price,AddressNumber,AddressDirection,AddressStreet,City,Zip,Status,MLSNUM,AgentID,AgentName,ListingOffice1Name,ListingOffice1Phone,ListingOffice1ID from listings_lan3 where ~; if ($INPUT{City}) { $counter = "0"; $searchcity = "\("; @cities = split(/\,/,$INPUT{City}); foreach $place (@cities) { $sql_query .= qq~City = '$place' OR ~; } $sql_query =~ s/ OR $/\)/; } else { $sql_query .= qq~City LIKE '%'~; } if ($INPUT{County}) { $searchcounty = "AND \("; @whatcounty = split(/\,/,$INPUT{County}); foreach $place (@whatcounty) { $sql_query .= qq~County = \'$place\' OR ~; } $sql_query =~ s/ OR $/\)/; } if ($INPUT{MinPrice}) { $sql_query .= qq~ AND Price >= '$INPUT{MinPrice}' ~; } if ($INPUT{MaxPrice}) { $searchprice .= qq~ AND Price <= '$INPUT{MaxPrice}' ~; } if ($INPUT{citylimits}) { $sql_query .= qq~ AND CityLimits = '$INPUT{citylimits}'~; } if ($INPUT{tillable}) { $sql_query .= qq~ AND Tillable = '$INPUT{tillable}'~; } if ($INPUT{wooded}) { $sql_query .= qq~ AND Wooded = '$INPUT{wooded}'~; } if ($INPUT{MinSF} && $INPUT{MinSF} ne "0") { $sql_query .= qq~ AND TotalSqFt >= '$INPUT{MinSF}'~; } if ($INPUT{MaxSF}) { $sql_query .= qq~ AND TotalSqFt <= '$INPUT{MaxSF}'~; } if ($INPUT{Address}) { $INPUT{Address} =~ s/ /\%/gi; $sql_query .= qq~ AND AddressStreet LIKE '$INPUT{Address}'~; } if ($INPUT{Remarks}) { $INPUT{Remarks} =~ s/ /\%/gi; $sql_query .= qq~ AND Remarks LIKE '%$INPUT{Remarks}%'~; } if ($INPUT{sortby}) { $searchsort = "ORDER BY $INPUT{sortby}"; } if ($INPUT{orderby}) { $searchorder = " $INPUT{orderby}"; } if ($INPUT{Page} eq "" || $INPUT{Page} eq "0") { $thispage = "1"; $INPUT{Page} = "1"; } else { $thispage = "$INPUT{Page}"; } $thispage--; if ($thispage eq "0") { $limitnumber = "0"; } else { $limitnumber = ($INPUT{Show} * $thispage); } $sql_query .= qq~ AND Status = '1'~; $thelimitstatement = "$limitnumber\,$INPUT{Show}"; #print "$thelimitstatement
$thispage
"; if ($INPUT{showsqlquery} eq "yes") { print qq~$sql_query AND Status = 'Active' $searchsort $searchorder limit $thelimitstatement

~; } my $uasth = $dbh->prepare("$sql_query $searchsort $searchorder limit $thelimitstatement"); $uasth->execute; my $iasth = $dbh->prepare("select found_rows()"); $iasth->execute; $dbh->disconnect; while (($totalcount) = $iasth->fetchrow_array()) { $savetotalcount = $totalcount; } $tempcount = ($savetotalcount / $INPUT{Show}); #print "Before: $tempcount
"; $beforecount = $tempcount; #print "After: $tempcount
"; $tempcount = sprintf("%.0f",$tempcount); #print "Changed: $tempcount
"; if ($tempcount < $beforecount) { $tempcount++; } $nextpage = ($INPUT{Page}+1); $previouspage = ($INPUT{Page}-1); $searchstrings = "City=$INPUT{City}&County=$INPUT{County}&MinPrice=$INPUT{MinPrice}&MaxPrice=$INPUT{MaxPrice}&wooded=$INPUT{wooded}&tillable=$INPUT{tillable}&citylimits=$INPUT{citylimits}&Address=$INPUT{Address}&Remarks=$INPUT{Remarks}&Show=$INPUT{Show}&sortby=$INPUT{sortby}&orderby=$INPUT{orderby}&Page="; $searchwithpage = $searchstrings; $searchwithpage .= "$INPUT{Page}"; $nextlink = "$searchstrings$nextpage"; $prevlink = "$searchstrings$previouspage"; if ($INPUT{Page} eq "1") { $showprevcolor = ""; $showprevlink = "< Previous"; } else { $showprevcolor = ""; $showprevlink = "< Previous"; } if ($INPUT{Page} == $tempcount || $tempcount eq "0") { $shownextcolor = ""; $shownextlink = "Next >"; } else { $shownextcolor = ""; $shownextlink = "Next >"; } $cleanorderby = "$INPUT{orderby}"; $cleansortby = $INPUT{sortby}; if ($cleanorderby eq "ASC") { $cleanorderby = "Ascending"; } else { $cleanorderby = "Descending"; } if ($cleansortby eq "TotalSqFt") { $cleansortby = "SQFT."; } if ($tempcount eq "0") { $INPUT{Page} = "\-"; $tempcount = "\-"; } &header; print qq~ Land Search
"; print "
Search Results
We found $savetotalcount listings that meet your Search Criteria.
  Search Options:  Change Criteria  |  Save
$showprevlink    $INPUT{Page} of $tempcount    $shownextlink
View Listings Per Page, Order By in order
~; $resultcount = "0"; while (($Price,$AddressNumber,$AddressDirection,$AddressStreet,$City,$Zip,$Status,$MLSNUM,$AgentID,$AgentName,$ListingOffice1Name,$ListingOffice1Phone,$ListingOffice1ID) = $uasth->fetchrow_array()) { $resultcount++; $Price = &commas($Price); $TotalSqFt = &commas($TotalSqFt); if ($ListingOfficeID eq "130") { $tablewidth = "100"; $showbr = ""; $showoffice = "\"ERA\""; $showofficephone = $ListingOfficePhone; } else { $tablewidth = "290"; $showbr = "
"; $showofficephone = ""; $showoffice = ""; } $showpicture = &image_format("thumbnail","$MLSNUM"); if ($Cook{userid}) { $showsavelisting = "Save Listing To MyHomes"; } else { $showsavelisting = "Register To Save This Listing!"; } print qq|
  \$$Price $showsavelisting View Listing Details  
$AddressNumber $AddressDirection $AddressStreet
$ShowCity{$City}, IN $Zip
MLS $MLSNUM
 		|; if ($ListingOfficeID eq "130") { print qq| |; } print qq~
$showbr$showoffice Offered By:
$ListingOfficeName
$AgentName
$showofficephone


~; } if ($resultcount eq "0") { print "


No Results Found. Please go back and try again."; } print qq~
  Search Options:  Change Criteria  |  Save
$showprevlink    $INPUT{Page} of $tempcount    $shownextlink
View Listings Per Page, Order By in order
~; #print "
"; #print "
"; &footer; sub commas { local($_)=@_; 1 while s/(.*\d)(\d\d\d)/$1,$2/; $_; }