#!/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; }
}
}
if ($Cook{userid}) {
$buttoncode = " ";
}
else {
$buttoncode = "You Must Be Logged Into Your MyHomes Account To Access The Search Click Here To Login Or Create A Free Account ";
}
if ($INPUT{type} eq "Residential") { &Residential; }
elsif ($INPUT{type} eq "Commercial") { &Commercial; }
elsif ($INPUT{type} eq "Investment") { &Investment; }
elsif ($INPUT{type} eq "Land") { &Land; }
elsif ($INPUT{type} eq "MobileHomes") { &MobileHomes; }
else { &Residential; }
sub Commercial {
## CHECK TOS
my $iasth = $dbh->prepare("select tos_agreement from users where userid = '$Cook{userid}'");
$iasth->execute;
while (($usr_tos) = $iasth->fetchrow_array()) {
if ($usr_tos eq "0000-00-00 00:00:00") {
print qq~
Loading TOS...
~;
exit 0;
}
}
print <<"STARTOFTHEPAGE";
MuncieMLS.com - Your best source for homes located throughout East Central Indiana!
STARTOFTHEPAGE
&header;
print <<"ALLTHISSTUFF";
ALLTHISSTUFF3
&footer;
}
sub MobileHomes {
## CHECK TOS
my $iasth = $dbh->prepare("select tos_agreement from users where userid = '$Cook{userid}'");
$iasth->execute;
while (($usr_tos) = $iasth->fetchrow_array()) {
if ($usr_tos eq "0000-00-00 00:00:00") {
print qq~
Loading TOS...
~;
exit 0;
}
}
print <<"STARTOFTHEPAGE";
MuncieMLS.com - Your best source for homes located throughout East Central Indiana!
STARTOFTHEPAGE
&header;
print <<"ALLTHISSTUFF";
ALLTHISSTUFF3
&footer;
}
sub Land {
## CHECK TOS
my $iasth = $dbh->prepare("select tos_agreement from users where userid = '$Cook{userid}'");
$iasth->execute;
while (($usr_tos) = $iasth->fetchrow_array()) {
if ($usr_tos eq "0000-00-00 00:00:00") {
print qq~
Loading TOS...
~;
exit 0;
}
}
print <<"STARTOFTHEPAGE";
MuncieMLS.com - Your best source for homes located throughout East Central Indiana!
STARTOFTHEPAGE
&header;
print <<"ALLTHISSTUFF";
ALLTHISSTUFF3
&footer;
}
sub Investment {
## CHECK TOS
my $iasth = $dbh->prepare("select tos_agreement from users where userid = '$Cook{userid}'");
$iasth->execute;
while (($usr_tos) = $iasth->fetchrow_array()) {
if ($usr_tos eq "0000-00-00 00:00:00") {
print qq~
Loading TOS...
~;
exit 0;
}
}
print <<"STARTOFTHEPAGE";
MuncieMLS.com - Your best source for homes located throughout East Central Indiana!
STARTOFTHEPAGE
&header;
print <<"ALLTHISSTUFF";
ALLTHISSTUFF3
&footer;
}
sub Residential {
## CHECK TOS
my $iasth = $dbh->prepare("select tos_agreement from users where userid = '$Cook{userid}'");
$iasth->execute;
while (($usr_tos) = $iasth->fetchrow_array()) {
if ($usr_tos eq "0000-00-00 00:00:00") {
print qq~
Loading TOS...
~;
exit 0;
}
}
print <<"STARTOFTHEPAGE";
MuncieMLS.com - Your best source for homes located throughout East Central Indiana!
STARTOFTHEPAGE
&header;
print <<"ALLTHISSTUFF";
