#!/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;
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{action} eq "activity_log") { &activity_log; }
elsif ($INPUT{action} eq "delete") { &delete; }
else { &main; }
sub delete {
if ($INPUT{delete} eq "yes") {
#DELETE CODE
@variables = ($INPUT{id});
$sql_query = "DELETE FROM trans_callleadtracker WHERE id = ?";
my $aasth = $dbh->do($sql_query, undef, @variables);
print qq~
Making Changes to Datebase
Removing Call / Lead
You will be redirected to when finished. If not Click Here.
~;
}
else {
print qq~
Delete
~;
}
}
sub main {
unless ($INPUT{view}) { $INPUT{view} = "na"; }
print qq~
Connect.EagleSold.com - ORRTEAM CALL LEAD CENTER
~;
&header;
print qq~
~;
print qq~
~;
&footer;
}
sub getcalldata {
unless ($INPUT{view}) { $INPUT{view} = "all"; }
my $usrdasth = $dbh->prepare("select firstname from users where userid = '$Cook{userid}'");
$usrdasth->execute;
while (($afirstname) = $usrdasth->fetchrow_array()) {
if ($afirstname eq 'Aaron') {
$byname = substr(lc($afirstname),0,2);
}
else {
$byname = substr(lc($afirstname),0,1);
}
}
print qq~
~;
if ($INPUT{view} eq "na") { $sql = "WHERE accepted = 'n'"; } elsif ($INPUT{view} eq "accepted") { $sql = "WHERE accepted = 'y'"; } elsif ($INPUT{view} eq "attempted") { $sql = "WHERE accepted = 'n' AND accepted_type = 'Attempted'"; } else { $sql = ""; }
my $asqlcall = $dbh->prepare("select id,DATE_FORMAT(datetime, '%b %D, %Y at %h\:%i%p'),from_msg,subject,body,accepted,accepted_by,accepted_type from trans_callleadtracker $sql ORDER BY id DESC limit 0,100");
$asqlcall->execute;
while (($id,$datetime,$from_msg,$subject,$body,$accepted,$accepted_by,$accepted_type) = $asqlcall->fetchrow_array()) {
if ($accepted eq "y") { $setdarkcolor = "#009900"; $setlightcolor = "#ccffcc"; } elsif ($accepted_type eq "Attempted") { $setdarkcolor = "#0066ff"; $setlightcolor = "#99ccff"; } else { $setdarkcolor = "#ff0000"; $setlightcolor = "#ffcccc"; }
if ($accepted eq "n" && $accepted_type eq "Attempted") {
$acceptcall =qq~
~;
}
elsif ($accepted eq "n") {
$acceptcall =qq~
~;
}
else {
$acceptcall = "";
}
#$body = substr $body, 38;
#$body =~ s/-//g;
#$body =~ s/=//g;
$body =~ s/www.ORRHomes.com\/includes\/style.css/\/\/connect.eaglesold.com\/includes\/style.css/g;
print qq~
#$id
|
$datetime $from_msg
|
|
Delete |
$acceptcall $accepted_type $subject $body
|
|
~;
}
print qq~
~;
} | 
