#!/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=\"muncieml\_$actdate\.$fileextension\"\n";
print "Pragma: no-cache\n";
print "Expires: 0\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;
$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_boardcontact where agent = '$INPUT{agent}'~;
@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;
$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,contactid,DATE_FORMAT(datetime, '%b %D, %Y at %h\:%i%p'),addedby,note from trans_boardcontactnotes WHERE contactid = '$id' ORDER by datetime DESC");
$basth->execute;
while (($noteid,$contactid,$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 -- ";
}
####### GET TRANSACTIONS CLIENT IS PART OF #####################
my $cbbaasth = $dbh->prepare("select transid,type from trans_boardtranstocontact WHERE contactid = '$id'");
$cbbaasth->execute;
while (($temptransid,$temptype) = $cbbaasth->fetchrow_array()) {
my $aasth = $dbh->prepare("select id,agent,selleragent,sellercoagent,buyeragent,buyercoagent,type,status,addressnumber,addressdirection,addressstreet,city,state,zip,pendingdate,estimatedclosingdate from trans_board WHERE id = '$temptransid' ORDER BY type");
$aasth->execute;
while (($transid,$transagent,$selleragent,$sellercoagent,$buyeragent,$buyercoagent,$type,$status,$addressnumber,$addressdirection,$addressstreet,$tcity,$tstate,$tzip,$pendingdate,$estimatedclosingdate) = $aasth->fetchrow_array()) {
$type =~ s/\,//gi;
$type =~ s/\r\n/\;/g;
$status =~ s/\,//gi;
$status =~ s/\r\n/\;/g;
$addressnumber =~ s/\,//gi;
$addressnumber =~ s/\r\n/\;/g;
$addressdirection =~ s/\,//gi;
$addressdirection =~ s/\r\n/\;/g;
$addressstreet =~ s/\,//gi;
$addressstreet =~ s/\r\n/\;/g;
$addresscity =~ s/\,//gi;
$addresscity =~ s/\r\n/\;/g;
$temptype =~ s/\,//gi;
$temptype =~ s/\r\n/\;/g;
$fulltrans .= "$type $status $addressnumber $addressdirection $addressstreet $tcity Involved As $temptype";
}
}
####### END GET TRANSACTIONS CLIENT IS PART OF #################
#########################
$fieldformat = "$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 -- TRANSACTION HISTORY: $fulltrans -- ::::END OF FILE::::\r\n";
#########################
print "$fieldformat";
$fullnotes = "";
$fulltrans = "";
}
$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 Contacts - Connect.EagleSold.com
~;
&header;
print qq~
Export Your Contacts
~;
&footer;
}
