#!/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; }
}
}
if ($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(/=/,$_);
$cookieName =~ s/ //gi;
$Cookies{$cookieName}=$cookieValue;
}
if ($Cookies{userid} =~ /\|/) {
($Cook{userid},$Cook{email}) = split(/\|/,$Cookies{userid});
}
else {
($Cook{userid},$Cook{email}) = split(/\-/,$Cookies{userid});
}
if ($Cook{userid} eq "" || $Cook{userid} eq "none") {
print qq~
Login to Connect.EagleSold.com
~;
exit 0;
}
}
if ($INPUT{action} eq "create") {
$divider = "$INPUT{divider}";
$fileextension = "$INPUT{fileextension}";
$d_name = "muncieml_db1";
$d_username = "muncieml_db1";
$d_pass = "\@rockdb1";
##############################################################
@days = ('Sunday','Monday','Tuesday','Wednesday',
'Thursday','Friday','Saturday');
@months = ('January','February','March','April','May','June','July',
'August','September','October','November','December');
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
if ($hour eq "13") {
$hour = "1";
$pm = "y";
}if ($hour eq "14") {
$hour = "2";
$pm = "y";
}if ($hour eq "15") {
$hour = "3";
$pm = "y";
}if ($hour eq "16") {
$hour = "4";
$pm = "y";
}if ($hour eq "17") {
$hour = "5";
$pm = "y";
}if ($hour eq "18") {
$hour = "6";
$pm = "y";
}if ($hour eq "19") {
$hour = "7";
$pm = "y";
}if ($hour eq "20") {
$hour = "8";
$pm = "y";
}if ($hour eq "21") {
$hour = "9";
$pm = "y";
}if ($hour eq "22") {
$hour = "10";
$pm = "y";
}if ($hour eq "23") {
$hour = "11";
$pm = "y";
}if ($hour eq "0" || $hour eq "" || $hour eq "24") {
$hour = "12";
}
$newyear = $year+1900;
$time = sprintf("%02d:%02d",$hour,$min);
$tdate = "$days[$wday], $months[$mon] $mday, $newyear";
$mon = $mon + 1;
if ($pm eq "y") {
$tm = "pm";
}
else {
$tm = "am";
}
if ($mon < "10") {
$mon = "0$mon";
}
if ($mday < "10") {
$mday = "0$mday";
}
$actdate = "$newyear\_$mon\_$mday";
print "Content-type: application/octetstream\n";
print "Content-Disposition: filename=\"connect\_prospects\_$actdate\.$fileextension\"\n";
print "Pragma: no-cache\n";
print "Expires: 0\n\n";
$fieldformat .= "Initial Contact $divider Last Contact $divider Next Contact $divider Source $divider $contacttype $divider Firstname and Spouse $divider Lastname $divider Address $divider City $divider State $divider Zip $divider Phone1 $divider Phone2 $divider Phone3 $divider Fax $divider E-Mail $divider OutlookCategoryName $divider Notes\r\n";
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;
$sql_query =qq~select id,agent,type,firstname,lastname,address,spouse,city,state,zip,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,contacttype,DATE_FORMAT(initial_contactdate, '%b %D %Y'),DATE_FORMAT(last_contactdate, '%b %D %Y'),DATE_FORMAT(next_contactdate, '%b %D %Y'),source,notes from trans_boardprospect where agent = '$INPUT{agent}' order by initial_contactdate DESC~;
@search_vars = ();
if ($INPUT{contacttype}) {
$sql_query .= "AND (";
(@contacttype) = split(/\,/, $INPUT{contacttype});
foreach $contact (@contacttype) {
$sql_query .= "contacttype LIKE ? $INPUT{matchtype} ";
#push @search_vars, $contact;
push @search_vars, '%' . $contact . '%';
}
$sql_query .= "ENDOFFIELD";
$sql_query =~ s/ $INPUT{matchtype} ENDOFFIELD//gi;
$sql_query .= ") ";
}
my $uasth = $dbh->prepare("$sql_query");
$uasth->execute(@search_vars);
while (($id,$agent,$type,$firstname,$lastname,$address,$spouse,$city,$state,$zip,$phone1type,$phone1number,$phone2type,$phone2number,$phone3type,$phone3number,$faxnumber,$email,$emailtwo,$contacttype,$initial_contactdate,$last_contactdate,$next_contactdate,$source,$notes) = $uasth->fetchrow_array()) {
$firstname =~ s/\,//gi;
$lastname =~ s/\,//gi;
$spouse =~ s/\,//gi;
$city =~ s/\,//gi;
$state =~ s/\,//gi;
$zip =~ s/\,//gi;
$contacttype =~ s/\,/ | /gi;
$phone1number =~ s/\,//gi;
$phone2number =~ s/\,//gi;
$phone3number =~ s/\,//gi;
$faxnumber =~ s/\,//gi;
$email =~ s/\,//gi;
$notes =~ s/\,//gi;
$notes =~ s/\r\n/\;/g;
#$notes =~ s/\r\n/\=0D\=0A/g;
if ($spouse ne "") {
$spouse = " and $spouse";
}
else {
$spouse = "";
}
my $basth = $dbh->prepare("select noteid,prospectid,DATE_FORMAT(datetime, '%b %D, %Y at %h\:%i%p'),addedby,note from trans_boardprospectnotes WHERE prospectid = '$id' ORDER by datetime DESC");
$basth->execute;
while (($noteid,$prospectid,$datetime,$addedby,$note) = $basth->fetchrow_array()) {
$note =~ s/\,//gi;
$note =~ s/\r\n/\;/g;
$addedby =~ s/\,//gi;
$addedby =~ s/\r\n/\;/g;
$datetime =~ s/\,//gi;
$datetime =~ s/\r\n/\;/g;
$fullnotes .= "$note Added by $addedby on $datetime -- ";
}
#########################
$fieldformat .= "$initial_contactdate$divider$last_contactdate$divider$next_contactdate$divider$source$divider$contacttype$divider$firstname$spouse$divider$lastname$divider$address$divider$city$divider$state$divider$zip$divider$phone1number$divider$phone2number$divider$phone3number$divider$faxnumber$divider$email$divider Auto Transaction System Controlled$divider ::::FILE DETAILS:::: NOTES: $notes -- $fullnotes ::::END OF FILE::::\r\n";
$fullnotes = "";
#########################
}
print "$fieldformat";
$dbh->disconnect;
}
else {
print "Content-type: text/html\n\n";
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. - Export Prospects - Connect.EagleSold.com
~;
&header;
print qq~
Export Your Prospects
~;
&footer;
}
