#!/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; }
}
}
&checklogin;
if ($INPUT{action} eq "deletesearch") { &deletesearch; }
elsif ($INPUT{action} eq "login") { &login; }
elsif ($INPUT{action} eq "logoff") { &logout; }
else { &main; }
sub login {
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 $fasth = $dbh->prepare("select userid from users where email = '$INPUT{Email}' AND password = PASSWORD('$INPUT{Password}') AND agentid != ''");
$fasth->execute;
while (($uid) = $fasth->fetchrow_array()) {
$userid = $uid;
my $uasth = $dbh->do("update users set lastlogin = now() where userid = '$userid'");
my $pasth = $dbh->prepare("select DATE_FORMAT(DATE_ADD(NOW(), INTERVAL 1 DAY), '%a\, %d\-%b\-%Y %T')");
$pasth->execute;
while (($nextmonthsdate) = $pasth->fetchrow_array()) {
$setcookiedate = "$nextmonthsdate";
}
print "Set-cookie: userid=$userid\|$INPUT{Email}; expires=$setcookiedate GMT\n";
print "Content-type: text/html\n\n";
print qq~
Loading Your MY HOMES Data...
~;
$dbh->disconnect;
exit 0;
}
print "Set-cookie: userid=\n";
print "Content-type: text/html\n\n";
print qq~
Connect.EagleSold.com
~;
&header;
print qq~
Sorry, An Authorization Error Has Occured....
|
|
~;
&footer;
}
sub logout {
print "Set-cookie: userid=\n";
print "Content-type: text/html\n\n";
print qq~
Logging out...
You Are Now Being Logged out....
|
~;
}
sub main {
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 $dateaasth = $dbh->prepare("select DATE_FORMAT(now(), '%m/%d/%Y')");
$dateaasth->execute;
while (($newdate) = $dateaasth->fetchrow_array()) {
$today = "$newdate";
}
my $aasth = $dbh->prepare("select id,agent,status,type,listingclass,mlsnumber,addressnumber,addressdirection,addressstreet,city,zip,listingprice,showinginstructions,listingdate,expiredate from trans_board WHERE (status = 'Active' or status = 'Pending') and (type = 'Listing' or type = 'BSP') ORDER BY addressstreet ASC");
$aasth->execute;
$trcolor = "1";
$trcolor2 = "2";
while (($id,$agent,$status,$type,$class,$mlsnumber,$addressnumber,$addressdirection,$addressstreet,$city,$zip,$listingprice,$showinginstructions,$listingdate,$expiredate ) = $aasth->fetchrow_array()) {
my $casth = $dbh->prepare("select firstname,lastname from agents WHERE mlsid = '$agent' order by agentid ASC LIMIT 0,1");
$casth->execute;
while (($firstname,$lastname) = $casth->fetchrow_array()) {
$agentname = "$firstname $lastname";
}
my $basth = $dbh->prepare("select Bedrooms,FullBaths,HalfBaths,TotalSqFt,YearBuilt,EstimatedAnnualTax from listings_res3 WHERE MLSNUM = '$mlsnumber'");
$basth->execute;
while (($bedrooms,$fullbaths,$halfbaths,$sqft,$yrbuilt,$esttaxes) = $basth->fetchrow_array()) {
$beds = $bedrooms;
$fbaths = $fullbaths;
$hbaths = $halfbaths;
$tsqft = $sqft;
$yrb = $yrbuilt;
$taxes = $esttaxes;
}
###RUN CHECKS
unless ($status) { $status = "N/A"; }
unless ($type) { $type = "N/A"; }
unless ($agent) { $agent = "N/A"; }
unless ($class) { $class = "N/A"; }
unless ($beds) { $beds = "N/A"; }
unless ($fbaths || $hbaths) { $baths = "N/A"; } else { $baths = "$fbaths Full / $hbaths Half"; }
unless ($tsqft) { $tsqft = "N/A"; }
unless ($yrb) { $yrb = "N/A"; }
unless ($taxes) { $taxes = "N/A"; }
if ($trcolor eq $trcolor2) {
$trcolor = "1";
$setcolor = "#FFFF99";
}
else {
$setcolor = "#FFFFFF";
$trcolor++;
}
$print_list .=qq~
| $id |
$status |
$type |
$class |
$mlsnumber |
$addressnumber $addressdirection $addressstreet |
$city |
\$$listingprice |
$beds |
$baths |
$tsqft |
$yrb |
$taxes |
$agentname ($agent) |
$listingdate |
$expiredate |
$showinginstructions |
~;
##CLEAR OUT VARIBLES
$agentname = "";
$beds = "";
$fbaths = "";
$hbaths = "";
$tsqft = "";
$yrb = "";
$taxes = "";
}
print qq~
Showing Report - Connect.EagleSold.com
~;
#&header;
print qq~
The ORR Home Selling Team RE/MAX - Showing & Listing Information
CONFIDENTIAL FOR ORR TEAM AGENT & STAFF USE ONLY!
Updated As Of $today
~;
}
