#!/usr/bin/perl
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 "logoff" || $INPUT{action} eq "login") {
print "Content-type: text/html\n\n";
}
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~
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.
|
|
~;
&footer;
exit 0;
}
}
if ($INPUT{'action'} eq "verify") { &verify; }
elsif ($INPUT{'action'} eq "delete") { &delete; }
else { &html; }
sub html {
&header;
print qq~
Please Accept Updated Terms of Service to Proceed.
|
|
~;
&footer;
}
sub verify {
my $uasth = $dbh->do("update users set tos_agreement = now() where userid = '$Cook{userid}'");
print qq~
Loading MyHomes...
~;
}
sub delete {
my $aasth = $dbh->do("delete from users where userid = '$Cook{userid}'");
$pusers = "Cleaned up users table!";
my $basth = $dbh->do("delete from search_fav where userid = '$Cook{userid}'");
$psearch_fav = "Cleaned up search_fav table!";
my $casth = $dbh->do("delete from home_fav where userid = '$Cook{userid}'");
$phome_fav = "Cleaned up home_fav table!";
my $dasth = $dbh->do("delete from leadtracking where userid = '$Cook{userid}'");
$pleadtracking = "Cleaned up leadtracking table!";
my $dasth = $dbh->do("delete from emailstousers where userid = '$Cook{userid}'");
$pemails = "Cleaned up saved emails table!";
$dbh->disconnect;
print qq~
Loading MyHomes...
~;
}
