#!/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; }
}
}
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;
&checklogin;
if ($INPUT{action} eq "deletesearch") { &deletesearch; }
elsif ($INPUT{action} eq "myclientview") { &myclientview; }
elsif ($INPUT{action} eq "myclientremove") { &myclientremove; }
elsif ($INPUT{action} eq "myclientviewprint") { &myclientviewprint; }
elsif ($INPUT{action} eq "myemailer") { &myemailer; }
elsif ($INPUT{action} eq "myemailer_send") { &myemailer_send; }
elsif ($INPUT{action} eq "agentedit") { &agentedit; }
elsif ($INPUT{action} eq "agentdoedit") { &agentdoedit; }
elsif ($INPUT{action} eq "templateeditor") { &templateeditor; }
elsif ($INPUT{action} eq "massemail") { &massemail; }
elsif ($INPUT{action} eq "view_email") { &view_email; }
elsif ($INPUT{action} eq "overview_notes_show") { &overview_notes_show; }
else { &main; }
sub view_email {
my $emailsasth = $dbh->prepare("select emaildatetime,emailfrom,subject,message from emailstousers where emailid = '$INPUT{emailid}'");
$emailsasth->execute;
while (($emailtimedate,$emailfrom,$subject,$message) = $emailsasth->fetchrow_array()) {
print qq~
Sent on $emailtimedate by $emailfrom Subject: $subject
$message
~;
}
}
sub massemail {
################### TOP EMAIL PART ###################################################
my $mesth = $dbh->prepare("select id,name from emailer_templates where type = 'agent' AND accessid = '$INPUT{agent}'");
$mesth->execute;
while (($id,$name) = $mesth->fetchrow_array()) {
$printmessage .= "\n";
}
my $bmesth = $dbh->prepare("select id,name from emailer_templates where id = '$INPUT{message}'");
$bmesth->execute;
while (($id,$name) = $bmesth->fetchrow_array()) {
$rmessage = "\n\n";
}
if ($INPUT{searchtype} eq "clients") {
$rsearchtype = "\n\n";
}
elsif ($INPUT{searchtype} eq "leads") {
$rsearchtype = "\n\n";
}
print qq~
Eagle Real Estate, Inc. - Web Leads 2007 ver:1.1 - Connect.EagleSold.com
~;
&header;
print qq~
Launch Template Editor
~;
################### END EMAIL PART ###################################################
if ($INPUT{searchtype} eq "clients") {
$sql = "select userid,email,firstname,lastname,datestamp,lastlogin,emailsent_stamp from users WHERE myERAAgent = '$INPUT{agent}' AND users.email_block != 'n'";
$csql = "select COUNT(userid) from users WHERE myERAAgent = '$INPUT{agent}' AND users.email_block != 'n'";
}
elsif ($INPUT{searchtype} eq "leads") {
$sql = "select users.userid,users.email,users.firstname,users.lastname FROM users,leadtracking WHERE users.userid = leadtracking.userid and leadtracking.agentassigned = '$INPUT{agent}' and leadtracking.agentassigned != users.myeraagent AND users.email_block != 'n'";
$csql = "select count(users.userid) from users,leadtracking where users.userid = leadtracking.userid and users.myeraagent != leadtracking.agentassigned and leadtracking.agentassigned = '$INPUT{agent}' AND users.email_block != 'n'";
}
my $basth = $dbh->prepare("$csql");
$basth->execute;
while (($countuserid) = $basth->fetchrow_array()) {
$totalcount = $countuserid;
}
if ($INPUT{do} eq "Preview") {
print qq~
$totalcount E-Mails Will Be Sent!
~;
my $aasth = $dbh->prepare("$sql");
$aasth->execute;
while (($userid,$email,$firstname,$lastname,$datestamp,$lastlogin,$emailsent_stamp) = $aasth->fetchrow_array()) {
my $masth = $dbh->prepare("select id,template,subject from emailer_templates where id = '$INPUT{message}'");
$masth->execute;
while (($id,$template,$subject) = $masth->fetchrow_array()) {
$template =~ s/\$cemail/$email/g;
$template =~ s/\$cfirstname/$firstname/g;
$template =~ s/\$clastname/$lastname/g;
$subject =~ s/\$cemail/$email/g;
$subject =~ s/\$cfirstname/$firstname/g;
$subject =~ s/\$clastname/$lastname/g;
print qq~
To: $email From: $Cook{email} Subject: $subject Body Message:
$template
You may block further e-mails from this mailing by clicking here.
~;
}
}
print qq~
~;
}
elsif ($INPUT{do} eq "Send") {
print qq~
$totalcount E-Mails Successfully Sent! Return To Mass Mail Center
~;
my $aasth = $dbh->prepare("$sql");
$aasth->execute;
while (($userid,$email,$firstname,$lastname,$datestamp,$lastlogin,$emailsent_stamp) = $aasth->fetchrow_array()) {
my $masth = $dbh->prepare("select id,template,subject from emailer_templates where id = '$INPUT{message}'");
$masth->execute;
while (($id,$template,$subject) = $masth->fetchrow_array()) {
$template =~ s/\$cemail/$email/g;
$template =~ s/\$cfirstname/$firstname/g;
$template =~ s/\$clastname/$lastname/g;
$subject =~ s/\$cemail/$email/g;
$subject =~ s/\$cfirstname/$firstname/g;
$subject =~ s/\$clastname/$lastname/g;
open(MAIL,"|/usr/sbin/sendmail -t");
print MAIL "To: $email\n";
#print MAIL "To: ryan.orr\@eaglesold.com\n";
print MAIL "From: $Cook{email}\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-type: text/html\n\n";
print MAIL qq~
Official Eagle Real Estate, Inc. E-Mail
$template
You may block further e-mails from this mailing by clicking here.
~;
close(MAIL);
$send_body =qq~
Official Eagle Real Estate, Inc. E-Mail
$template
You may block further e-mails from this mailing by clicking here.
~;
######## RECORD COPY OF EMAIL IN DATABASE #################
@evariables = ("$userid","$Cook{email}","Mass E-Mail -> $subject","$send_body");
$esql_query = "INSERT INTO emailstousers values ('',?,now(),?,?,?)";
my $zzaasth = $dbh->do($esql_query, undef, @evariables);
###########################################################
print " --> Sent To $email - $firstname $lastname and recorded for future lookups. ";
}
}
}
else {
print "You need to build e-mail previews!";
}
$dbh->disconnect;
print "
";
&footer;
}
sub templateeditor {
print qq~
Eagle Real Estate, Inc. - Web Leads 2007 ver:1.1 - Connect.EagleSold.com
~;
&header;
print qq~
~;
my $aasth = $dbh->prepare("select agentid,mlsid,firstname,lastname,title,phone1name,phone1number,phone2name,phone2number,phone3name,phone3number,phone4name,phone4number,email,homepage,profile,image,leadsystem,display from agents WHERE mlsid = '$INPUT{agent}' LIMIT 0,1");
$aasth->execute;
if ($INPUT{save}) {
@variables = ($INPUT{name},$INPUT{display},$INPUT{subject},$INPUT{id});
$sql_query = "update emailer_templates set name = ?, template = ?, subject = ? WHERE id = ?";
my $aasth = $dbh->do($sql_query, undef, @variables);
print qq~
E-Mail Templates
Successfully Saved $INPUT{name}
Return To Template Center
~;
&footer;
exit 0;
}
elsif ($INPUT{launch}) {
my $masth = $dbh->prepare("select id,accessid,type,name,subject,template from emailer_templates where id = '$INPUT{launch}'");
$masth->execute;
print qq~
~;
while (($id,$accessid,$type,$name,$subject,$template) = $masth->fetchrow_array()) {
print qq~
Viewing Template $name Special Codes To Insert In Email To Show Actual User Information:
\$cemail \$cfirstname \$clastname
~;
}
&footer;
exit 0;
}
elsif ($INPUT{delete}) {
my $aasth = $dbh->do("DELETE FROM emailer_templates where id = '$INPUT{delete}'");
print qq~
E-Mail Templates
Successfully Deleted!
~;
my $baasth = $dbh->prepare("select id,name,subject,template from emailer_templates where type = 'agent' AND accessid = '$INPUT{agent}' ORDER BY id ASC");
$baasth->execute;
while (($id,$name,$subject,$template) = $baasth->fetchrow_array()) {
$templatesfound = "yes";
print qq~
$nameEditDelete
~;
}
if ($templatesfound ne "yes") {
print qq~
No Templates Setup Yet
~;
}
print qq~
~;
while (($agentid,$mlsid,$firstname,$lastname,$title,$phone1name,$phone1number,$phone2name,$phone2number,$phone3name,$phone3number,$phone4name,$phone4number,$email,$homepage,$profile,$image,$leadsystem,$display) = $aasth->fetchrow_array()) {
if ($phone2name) {
$checkphone2name = "";
}
if ($phone3name) {
$checkphone3name = "";
}
if ($phone4name) {
$checkphone4name = "";
}
print qq~
Update MuncieMLS.com ProfileYou may update the following form and press the save button at the bottom of this page when you are done updating.
~;
&footer;
}
if ($INPUT{send} eq "yes") {
$message =~ s/\"/\"/g;
open(MAIL,"|/usr/sbin/sendmail -t");
print MAIL "To: $mailto\n";
#print MAIL "To: ryan.orr\@eaglesold.com\n";
print MAIL "From: $mailfrom\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-type: text/html\n\n";
print MAIL qq~
Official Eagle Real Estate, Inc. E-Mail
$message
You may block further e-mails from this mailing by clicking here.
~;
close(MAIL);
$send_body =qq~
Official Eagle Real Estate, Inc. E-Mail
$message
You may block further e-mails from this mailing by clicking here.
~;
######## RECORD COPY OF EMAIL IN DATABASE #################
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;
@eevariables = ("$INPUT{userid}","$mailfrom","Direct E-Mail -> $subject","$send_body");
$eesql_query = "INSERT INTO emailstousers values ('',?,now(),?,?,?)";
my $zzzaasth = $dbh->do($eesql_query, undef, @eevariables);
###########################################################
print qq~
Eagle Real Estate, Inc. - Web Leads 2007 ver:1.1 - Connect.EagleSold.com
~;
&header;
print qq~
~;
&footer;
}
}
sub myemailer {
my $baasth = $dbh->prepare("select COUNT(mlsid) from agents where mlsid = '$INPUT{agent}'");
$baasth->execute;
while (($mlsidc) = $baasth->fetchrow_array()) {
$mlsidcount = "$mlsidc";
}
my $aasth = $dbh->prepare("select mlsid,firstname,lastname,email from agents where mlsid = '$INPUT{agent}'");
$aasth->execute;
my $casth = $dbh->prepare("select email,firstname,lastname from users where userid = '$INPUT{userid}' AND email_block != 'n'");
$casth->execute;
while (($email,$firstname,$lastname) = $casth->fetchrow_array()) {
$emailblocked = "yes";
$cemail = "$email";
$cfirstname = "$firstname";
$clastname = "$lastname";
}
if ($emailblocked ne "yes") {
$cemail = "THIS USER HAS BLOCKED EMAILS FROM MuncieMLS.com! Your E-Mail Will Not Be Received By This User!!!!!";
}
print qq~
Eagle Real Estate, Inc. - Web Leads 2007 ver:1.1 - Connect.EagleSold.com
~;
&header;
print qq~
~;
my $bcasth = $dbh->prepare("select COUNT(id) from emailer_templates where type = 'agent' AND accessid = '$INPUT{agent}'");
$bcasth->execute;
while (($idcount) = $bcasth->fetchrow_array()) {
$counttemp = "$idcount";
}
print qq~
We found $counttemp agent email templates for you. You may choose office or agent templates below to load into email now!
~;
#### PULL AVAILABLE TEMPLATES
print qq~
Choose Your Template To Load
~;
my $acasth = $dbh->prepare("select id,name,subject,template from emailer_templates where type = 'agent' AND accessid = '$INPUT{agent}' OR id = '1' ORDER BY id ASC");
$acasth->execute;
while (($id,$name,$subject,$template) = $acasth->fetchrow_array()) {
print qq~
~;
&footer;
}
sub myclientremove {
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{confirm}) {
my $aasth = $dbh->prepare("UPDATE users set myERAAgent = '' WHERE userid = '$INPUT{userid}'");
$aasth->execute;
my $baasth = $dbh->prepare("UPDATE leadtracking set agentassigned = '' WHERE userid = '$INPUT{userid}'");
$baasth->execute;
print qq~
REMOVING CLIENT
Please wait, Removing user as one of your clients or leads. You will be redirected back to your MyHomes when finished..
~;
my $emailsasth = $dbh->prepare("select emailid,emaildatetime,emailfrom,subject from emailstousers where userid = '$INPUT{userid}' order by emailid desc");
$emailsasth->execute;
while (($emailid,$emailtimedate,$emailfrom,$subject) = $emailsasth->fetchrow_array()) {
print qq~
~;
&footer;
$dbh->disconnect;
}
### UPDATED TO CONNECT.EAGLE ####
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;
print qq~
Eagle Real Estate, Inc. - Web Leads 2007 ver:1.1 - Connect.EagleSold.com
~;
&header;
print qq~
~;
$agentid = $INPUT{agent};
unless ($agentid < "1") {
my $dasth = $dbh->prepare("select count(users.userid) from users,leadtracking where users.userid = leadtracking.userid and users.myeraagent != leadtracking.agentassigned and leadtracking.agentassigned = '$agentid' order by lastname desc");
$dasth->execute;
while (($leadid) = $dasth->fetchrow_array()) {
$leadcount = "$leadid";
}
my $wasth = $dbh->prepare("");
#my $easth = $dbh->prepare("select COUNT(userid) FROM users WHERE myeraagent = '$agentid'");
my $easth = $dbh->prepare("select count(users.userid) from users,leadtracking where users.userid = leadtracking.userid and users.myeraagent = leadtracking.agentassigned and users.myeraagent = '$agentid' order by lastname desc");
$easth->execute;
while (($userid) = $easth->fetchrow_array()) {
$useridcount = "$userid";
}
if ($INPUT{action} eq "viewclients") {
$clientbutton = "Hide";
}
else {
$clientbutton = "Show";
}
if ($INPUT{action} eq "viewleads") {
$leadbutton = "Hide";
}
else {
$leadbutton = "Show";
}
print qq~
![](\"images/myhomes/hide.gif\")
";
}
else {
$clientbutton = "![](\"images/myhomes/show.gif\")
";
}
if ($INPUT{action} eq "viewleads") {
$leadbutton = "