#!/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 "activity_log") { &activity_log; }
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;
### GET AGENT ID FOR COOKIE
my $vasth = $dbh->prepare("select agentid from users where userid = '$userid' AND email = '$INPUT{Email}'");
$vasth->execute;
while (($mymlsid) = $vasth->fetchrow_array()) {
$agent_id = $mymlsid;
}
### END GET AGENT ID FOR COOKIE
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}\|$agent_id\; 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~
Login to The ORR Home Selling Team CONNECT Real Estate Management System
~;
}
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 $tdatebasth = $dbh->prepare("select DATE_FORMAT(now(), '%Y-%m-%d')");
$tdatebasth->execute;
while (($todaydate) = $tdatebasth->fetchrow_array()) {
$today = "$todaydate";
}
my $dateaasth = $dbh->prepare("select DATE_FORMAT(DATE_ADD(now(), INTERVAL -7 DAY), '%Y-%m-%d')");
$dateaasth->execute;
while (($newbackdate) = $dateaasth->fetchrow_array()) {
$findsdate = "$newbackdate";
}
#### CHECK EXPIREDS IN NEXT TWO WEEKS AND DISPLAY LIST ######
my $datebasth = $dbh->prepare("select DATE_FORMAT(DATE_ADD(now(), INTERVAL 14 DAY), '%Y-%m-%d')");
$datebasth->execute;
while (($newstartdate) = $datebasth->fetchrow_array()) {
$findldate = "$newstartdate";
}
my $aasth = $dbh->prepare("select count(id) from trans_board where (expiredate BETWEEN '$today' AND '$findldate') AND (status = 'Active' or status = 'Pending') AND agent = '$Cook{agentid}'");
$aasth->execute;
while (($temp_expiretwoweeks) = $aasth->fetchrow_array()) {
$expired_twoweeks = $temp_expiretwoweeks;
}
my $nameaasth = $dbh->prepare("select id,agent,addressnumber,addressstreet,city from trans_board where (expiredate BETWEEN '$today' AND '$findldate') AND (status = 'Active' or status = 'Pending') AND agent = '$Cook{agentid}'");
$nameaasth->execute;
while (($id,$agent,$addressnumber,$addressstreet,$city) = $nameaasth->fetchrow_array()) {
$expired_twoweeks_list .= "$addressnumber $addressstreet, $city ";
}
my $aeasth = $dbh->prepare("select count(id) from trans_board where expiredate < '$today' AND status = 'Active' AND agent = '$Cook{agentid}'");
$aeasth->execute;
while (($temp_expireddate) = $aeasth->fetchrow_array()) {
$expired_listings = $temp_expireddate;
}
my $aelasth = $dbh->prepare("select id,agent,addressnumber,addressstreet,city from trans_board where expiredate < '$today' AND status = 'Active' AND agent = '$Cook{agentid}'");
$aelasth->execute;
while (($id,$agent,$addressnumber,$addressstreet,$city) = $aelasth->fetchrow_array()) {
$expired_listings_list .= "$addressnumber $addressstreet, $city ";
}
#### END CHECK EXPIREDS #####
### GET NUMBER OF ACTIVE LISTINGS ###
my $active_listings = $dbh->prepare("select count(id) from trans_board where status = 'Active' AND agent = '$Cook{agentid}'");
$active_listings->execute;
while (($temp_active_listings) = $active_listings->fetchrow_array()) {
$active_listings_number = $temp_active_listings;
}
$active_listings_number = ($active_listings_number-$expired_listings);
### END GET NUMBER OF ACTIVE LISTINGS ####
### GET NUMBER OF PENDING LISTINGS AND DETAILS OF PENDING TYPE ####
my $pending_listings = $dbh->prepare("select count(id) from trans_board where status = 'Pending' AND agent = '$Cook{agentid}'");
$pending_listings->execute;
while (($temp_pending_listings) = $pending_listings->fetchrow_array()) {
$pending_listings_total = $temp_pending_listings;
}
my $pending_listings_list = $dbh->prepare("select count(id) from trans_board where status = 'Pending' AND type = 'Listing' AND agent = '$Cook{agentid}'");
$pending_listings_list->execute;
while (($temp_pending_listings_list) = $pending_listings_list->fetchrow_array()) {
$pending_listings_list_num = $temp_pending_listings_list;
}
my $pending_listings_bsp = $dbh->prepare("select count(id) from trans_board where status = 'Pending' AND type = 'BSP' AND agent = '$Cook{agentid}'");
$pending_listings_bsp->execute;
while (($temp_pending_listings_bsp) = $pending_listings_bsp->fetchrow_array()) {
$pending_listings_bsp_num = $temp_pending_listings_bsp;
}
my $pending_listings_bp = $dbh->prepare("select count(id) from trans_board where status = 'Pending' AND type = 'BP' AND agent = '$Cook{agentid}'");
$pending_listings_bp->execute;
while (($temp_pending_listings_bp) = $pending_listings_bp->fetchrow_array()) {
$pending_listings_bp_num = $temp_pending_listings_bp;
}
### END GET NUMBER OF PENDING LISTINGS ####
print qq~
The ORR Home Selling Team - Connect.EagleSold.com
~;
&header;
print qq~
~;
print qq~
My Listing and Prospect Tasks
Expired Listing Reminders You Have $expired_twoweeks Listings That Will Expire In The Next 2 Weeks!
$expired_twoweeks_list You Have $expired_listings Listings That Have Expired!
$expired_listings_list
My Statistics
You have $active_listings_number Active Listings!
You have $pending_listings_total Pending Sales!
$pending_listings_list_num List | $pending_listings_bp_num Buyer | $pending_listings_bsp_num List&Buyer
Showing & Listing ReportView Report
* For Use when setting up after hours showings.
Treasurers
765-348-2504 - Blackford Co
765-747-7808 - Delaware Co NEW Delaware Co Beacon
765-529-4404 - Henry Co
260-726-7007 - Jay Co
765-641-9645 - Madison Co
765-584-0704 - Randolph Co
Recent Account Activity
~;
&footer;
}
sub activity_log {
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;
### START ACTIVITY LOG ###
$activity_log .= "
";
$trcolor = "1";
$trcolor2 = "2";
my $activity_log_db = $dbh->prepare("select note,name,DATE_FORMAT(date, '%b %D, %Y at %h\:%i%p') from trans_boardactivity where agent = '$Cook{agentid}' order by date DESC");
$activity_log_db->execute;
while (($activity_note,$activity_name,$activity_date) = $activity_log_db->fetchrow_array()) {
if ($trcolor eq $trcolor2) {
$trcolor = "1";
$setcolor = "#FFFF99";
}
else {
$setcolor = "#FFFFFF";
$trcolor++;
}
$activity_log .=qq~
$activity_note By $activity_name on $activity_date
