#!/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; }
}
}
@rawCookies = split(/;/,$ENV{'HTTP_COOKIE'});
foreach (@rawCookies) {
($cookieName, $cookieValue) = split(/=/,$_);
$cookieName =~ s/ //gi;
$Cookies{$cookieName}=$cookieValue;
}
if ($INPUT{script}) {
if ($INPUT{action} eq "save") { &save; }
else { &main; }
}
else {
if ($INPUT{action} eq "save") { &listingsave; }
elsif ($INPUT{action} eq "savelistingfinished") { &savelistingfinished; }
else { &listingmain; }
}
sub savelistingfinished {
print <<"PAGE";
Saved Listing
Your Listing has been successfully saved to your MyHomes account. You may access it by clicking on the MyHomes Link.
[ Close Window ]
|
PAGE
}
sub save {
$INPUT{name} =~ s/\'/CHR1/gi;
$INPUT{name} =~ s/\"/CHR2/gi;
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;
if ($INPUT{status} eq "on") {
$activatenotifications = "1";
my $pasth = $dbh->do("insert into search_fav values ('$Cook{userid}','','$INPUT{string}','$INPUT{name}','$INPUT{script}','$activatenotifications','$INPUT{email}','$INPUT{wireless}')");
}
else {
my $pasth = $dbh->do("insert into search_fav values ('$Cook{userid}','','$INPUT{string}','$INPUT{name}','$INPUT{script}','','','n')");
}
$dbh->disconnect;
print qq~
Saving new search...
~;
}
sub main {
&header;
print <<"THEPAGECONTENT";
      
|
THEPAGECONTENT
&footer;
}
sub listingsave {
$INPUT{notes} =~ s/\"/CHR2/gi;
$INPUT{notes} =~ s/\'/CHR1/gi;
$INUPT{notes} =~ s/\n/
/gi;
if ($INPUT{type} eq "res") {
$ftype = "res3";
}
if ($INPUT{type} eq "lan") {
$ftype = "lan3";
}
if ($INPUT{type} eq "com") {
$ftype = "com3";
}
if ($INPUT{type} eq "inv") {
$ftype = "inv3";
}
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;
$oasth = $dbh->do("insert into home_fav values ('$Cook{userid}','','$INPUT{mlsnumber}','$ftype','$INPUT{notes}')");
$dbh->disconnect;
print qq~
Saving new home...
~;
}
sub listingmain {
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 $iasth = $dbh->prepare("select AddressNumber,AddressDirection,AddressStreet,City,Zip,MLSNUM,Price from listings_$INPUT{type}3 where MLSNUM = '$INPUT{mlsnumber}'");
$iasth->execute;
$dbh->disconnect;
while (($AddressNumber,$AddressDirection,$AddressStreet,$City,$Zip,$MLSNUM,$Price) = $iasth->fetchrow_array()) {
$Price = &commas($Price);
if (-e "/home/muncieml/public_html/images/photos/thumbnail/meiarmls$INPUT{mlsnumber}.jpg") {
$showpicture = "images/photos/thumbnail/meiarmls$INPUT{mlsnumber}.jpg";
}
else {
$showpicture = "images/photos/search_nophoto.gif";
}
print <<"THEPAGECONTENT";
Save $MLSNUM
THEPAGECONTENT
}
}
sub commas {
local($_)=@_;
1 while s/(.*\d)(\d\d\d)/$1,$2/;
$_;
}
