Added new inbound summary hourly report as well as several tweaks to the Inbound and service level reports.
Added two new formats to the VICIDIAL_IN_NEW_leads_file.pl script git-svn-id: svn://192.168.202.10@1198 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
+359
-244
@@ -21,6 +21,7 @@
|
||||
# 90627-0757 - Added time addition when transfer recordings is enabled
|
||||
# 90710-0514 - Fixes for data output formatting changes
|
||||
# 90721-1314 - Added rank and owner as vicidial_list fields
|
||||
# 90731-0555 - Added call time scheme restriction
|
||||
#
|
||||
|
||||
$txt = '.txt';
|
||||
@@ -98,6 +99,7 @@ if (length($ARGV[0])>1)
|
||||
print " NOTE: To include all statuses in the export, use \"--sale-statuses=---ALL---\"\n";
|
||||
print " [--output-format=XXX] = Format of file. Default \"pipe-standard\"\n";
|
||||
print " [--with-inbound=XXX-XXY] = include the following inbound groups\n";
|
||||
print " [--calltime=XXX] = filter results to only include those calls during this call time\n";
|
||||
print " [--ftp-transfer] = Send results file by FTP to another server\n";
|
||||
print " [--ftp-audio-transfer] = Send associated audio files to FTP server, dated directories\n";
|
||||
print " [--with-transfer-audio] = Different method for finding audio, also grabs transfer audio filenames\n";
|
||||
@@ -211,6 +213,13 @@ if (length($ARGV[0])>1)
|
||||
$with_inbound = $data_in[1];
|
||||
$with_inbound =~ s/ .*$//gi;
|
||||
}
|
||||
if ($args =~ /--calltime=/i)
|
||||
{
|
||||
# print "\n|$ARGS|\n\n";
|
||||
@data_in = split(/--calltime=/,$args);
|
||||
$call_time = $data_in[1];
|
||||
$call_time =~ s/ .*$//gi;
|
||||
}
|
||||
if ($args =~ /-ftp-transfer/i)
|
||||
{
|
||||
if (!$Q)
|
||||
@@ -392,6 +401,11 @@ $with_inboundSQL = $with_inbound;
|
||||
$with_inboundSQL =~ s/-/','/gi;
|
||||
$with_inboundSQL = "'$with_inboundSQL'";
|
||||
|
||||
if (length($campaignSQL) < 2)
|
||||
{$campaignSQL = "vicidial_log.campaign_id NOT IN('')";}
|
||||
else
|
||||
{$campaignSQL = "vicidial_log.campaign_id IN($campaignSQL)";}
|
||||
|
||||
if (!$Q)
|
||||
{
|
||||
print "\n\n\n\n\n\n\n\n\n\n\n\n-- AST_VDsales_export.pl --\n\n";
|
||||
@@ -426,16 +440,68 @@ $dbhB = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VA
|
||||
$TOTAL_SALES=0;
|
||||
|
||||
|
||||
|
||||
$stmtA = "SELECT call_time_id,call_time_name,call_time_comments,ct_default_start,ct_default_stop,ct_sunday_start,ct_sunday_stop,ct_monday_start,ct_monday_stop,ct_tuesday_start,ct_tuesday_stop,ct_wednesday_start,ct_wednesday_stop,ct_thursday_start,ct_thursday_stop,ct_friday_start,ct_friday_stop,ct_saturday_start,ct_saturday_stop,ct_state_call_times FROM vicidial_call_times where call_time_id='$call_time';";
|
||||
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||
$sthArows=$sthA->rows;
|
||||
if ($DBX) {print " $sthArows|$stmtA|\n";}
|
||||
if ($sthArows > 0)
|
||||
{
|
||||
@aryA = $sthA->fetchrow_array;
|
||||
$Gct_default_start = "$aryA[3]";
|
||||
$Gct_default_stop = "$aryA[4]";
|
||||
$Gct_sunday_start = "$aryA[5]";
|
||||
$Gct_sunday_stop = "$aryA[6]";
|
||||
$Gct_monday_start = "$aryA[7]";
|
||||
$Gct_monday_stop = "$aryA[8]";
|
||||
$Gct_tuesday_start = "$aryA[9]";
|
||||
$Gct_tuesday_stop = "$aryA[10]";
|
||||
$Gct_wednesday_start = "$aryA[11]";
|
||||
$Gct_wednesday_stop = "$aryA[12]";
|
||||
$Gct_thursday_start = "$aryA[13]";
|
||||
$Gct_thursday_stop = "$aryA[14]";
|
||||
$Gct_friday_start = "$aryA[15]";
|
||||
$Gct_friday_stop = "$aryA[16]";
|
||||
$Gct_saturday_start = "$aryA[17]";
|
||||
$Gct_saturday_stop = "$aryA[18]";
|
||||
$sthA->finish();
|
||||
|
||||
$CTstart = $Gct_default_start;
|
||||
$CTstop = $Gct_default_stop;
|
||||
|
||||
if ( ($Cwday == 0) && ( ($Gct_sunday_start > 0) && ($Gct_sunday_stop > 0) ) )
|
||||
{$CTstart = $Gct_sunday_start; $CTstop = $Gct_sunday_stop;}
|
||||
if ( ($Cwday == 1) && ( ($Gct_monday_start > 0) && ($Gct_monday_stop > 0) ) )
|
||||
{$CTstart = $Gct_monday_start; $CTstop = $Gct_monday_stop;}
|
||||
if ( ($Cwday == 2) && ( ($Gct_tuesday_start > 0) && ($Gct_tuesday_stop > 0) ) )
|
||||
{$CTstart = $Gct_tuesday_start; $CTstop = $Gct_tuesday_stop;}
|
||||
if ( ($Cwday == 3) && ( ($Gct_wednesday_start > 0) && ($Gct_wednesday_stop > 0) ) )
|
||||
{$CTstart = $Gct_wednesday_start; $CTstop = $Gct_wednesday_stop;}
|
||||
if ( ($Cwday == 4) && ( ($Gct_thursday_start > 0) && ($Gct_thursday_stop > 0) ) )
|
||||
{$CTstart = $Gct_thursday_start; $CTstop = $Gct_thursday_stop;}
|
||||
if ( ($Cwday == 5) && ( ($Gct_friday_start > 0) && ($Gct_friday_stop > 0) ) )
|
||||
{$CTstart = $Gct_friday_start; $CTstop = $Gct_friday_stop;}
|
||||
if ( ($Cwday == 6) && ( ($Gct_saturday_start > 0) && ($Gct_saturday_stop > 0) ) )
|
||||
{$CTstart = $Gct_saturday_start; $CTstop = $Gct_saturday_stop;}
|
||||
}
|
||||
else
|
||||
{
|
||||
if ($DB > 0) {print "CALL TIME NOT FOUND: $call_time\n";}
|
||||
$call_time='';
|
||||
}
|
||||
|
||||
|
||||
###########################################################################
|
||||
########### CURRENT DAY SALES GATHERING outbound-only: vicidial_log ######
|
||||
###########################################################################
|
||||
$stmtA = "select vicidial_log.user,first_name,last_name,address1,address2,city,state,postal_code,vicidial_list.phone_number,vicidial_list.email,security_phrase,vicidial_list.comments,call_date,vicidial_list.lead_id,vicidial_users.full_name,vicidial_log.status,vicidial_list.vendor_lead_code,vicidial_list.source_id,vicidial_log.list_id,title,address3,last_local_call_time,uniqueid,length_in_sec,vicidial_list.rank,vicidial_list.owner from vicidial_list,vicidial_log,vicidial_users where campaign_id IN($campaignSQL) $sale_statusesSQL and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' and vicidial_log.lead_id=vicidial_list.lead_id and vicidial_users.user=vicidial_log.user order by call_date;";
|
||||
$stmtA = "select vicidial_log.user,first_name,last_name,address1,address2,city,state,postal_code,vicidial_list.phone_number,vicidial_list.email,security_phrase,vicidial_list.comments,call_date,vicidial_list.lead_id,vicidial_users.full_name,vicidial_log.status,vicidial_list.vendor_lead_code,vicidial_list.source_id,vicidial_log.list_id,title,address3,last_local_call_time,uniqueid,length_in_sec,vicidial_list.list_id,vicidial_list.list_id,UNIX_TIMESTAMP(vicidial_log.call_date),vicidial_campaigns.campaign_name from vicidial_list,vicidial_log,vicidial_users,vicidial_campaigns where $campaignSQL $sale_statusesSQL and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' and vicidial_log.lead_id=vicidial_list.lead_id and vicidial_users.user=vicidial_log.user and vicidial_log.campaign_id=vicidial_campaigns.campaign_id order by call_date;";
|
||||
#$stmtA = "select vicidial_users.user,first_name,last_name,address1,address2,city,state,postal_code,phone_number,email,security_phrase,comments,last_local_call_time,lead_id,vicidial_users.full_name,status,vendor_lead_code,source_id,list_id,title,address3,last_local_call_time from vicidial_list,vicidial_users where list_id NOT IN('999','998') $sale_statusesSQL and called_count > 0 and vicidial_users.user=vicidial_list.user;";
|
||||
if ($DB) {print "|$stmtA|\n";}
|
||||
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||
$sthArows=$sthA->rows;
|
||||
$rec_count=0;
|
||||
if ($DB) {print "$sthArows|$stmtA|\n";}
|
||||
while ($sthArows > $rec_count)
|
||||
{
|
||||
@aryA = $sthA->fetchrow_array;
|
||||
@@ -466,7 +532,11 @@ while ($sthArows > $rec_count)
|
||||
$length_in_sec = $aryA[23];
|
||||
$rank = $aryA[24];
|
||||
$owner = $aryA[25];
|
||||
$epoch = $aryA[26];
|
||||
$did_name = $aryA[27];
|
||||
|
||||
$outbound = 'Y';
|
||||
$domestic = 'N';
|
||||
$queue_seconds = '0';
|
||||
$closer='';
|
||||
|
||||
@@ -481,11 +551,11 @@ if (length($with_inboundSQL)>3)
|
||||
###########################################################################
|
||||
########### CURRENT DAY SALES GATHERING inbound-only: vicidial_closer_log ######
|
||||
###########################################################################
|
||||
$stmtA = "select vicidial_closer_log.user,first_name,last_name,address1,address2,city,state,postal_code,vicidial_list.phone_number,vicidial_list.email,security_phrase,vicidial_list.comments,call_date,vicidial_list.lead_id,vicidial_users.full_name,vicidial_closer_log.status,vicidial_list.vendor_lead_code,vicidial_list.source_id,vicidial_closer_log.list_id,campaign_id,title,address3,last_local_call_time,xfercallid,closecallid,uniqueid,length_in_sec,queue_seconds,vicidial_list.rank,vicidial_list.owner from vicidial_list,vicidial_closer_log,vicidial_users where campaign_id IN($with_inboundSQL) $close_statusesSQL and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' and vicidial_closer_log.lead_id=vicidial_list.lead_id and vicidial_users.user=vicidial_closer_log.user order by call_date;";
|
||||
if ($DB) {print "|$stmtA|\n";}
|
||||
$stmtA = "select vicidial_closer_log.user,first_name,last_name,address1,address2,city,state,postal_code,vicidial_list.phone_number,vicidial_list.email,security_phrase,vicidial_list.comments,call_date,vicidial_list.lead_id,vicidial_users.full_name,vicidial_closer_log.status,vicidial_list.vendor_lead_code,vicidial_list.source_id,vicidial_closer_log.list_id,campaign_id,title,address3,last_local_call_time,xfercallid,closecallid,uniqueid,length_in_sec,queue_seconds,vicidial_list.list_id,vicidial_list.list_id,UNIX_TIMESTAMP(vicidial_closer_log.call_date) from vicidial_list,vicidial_closer_log,vicidial_users where campaign_id IN($with_inboundSQL) $close_statusesSQL and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' and vicidial_closer_log.lead_id=vicidial_list.lead_id and vicidial_users.user=vicidial_closer_log.user order by call_date;";
|
||||
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
|
||||
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
|
||||
$sthArows=$sthA->rows;
|
||||
if ($DB) {print "$sthArows|$stmtA|\n";}
|
||||
$rec_count=0;
|
||||
while ($sthArows > $rec_count)
|
||||
{
|
||||
@@ -520,7 +590,10 @@ if (length($with_inboundSQL)>3)
|
||||
$queue_seconds = $aryA[27];
|
||||
$rank = $aryA[28];
|
||||
$owner = $aryA[29];
|
||||
$epoch = $aryA[30];
|
||||
|
||||
$outbound = 'N';
|
||||
$domestic = 'N';
|
||||
$user = '';
|
||||
$agent_name='';
|
||||
|
||||
@@ -600,6 +673,11 @@ if ( (length($Ealert)>5) && (length($email_list) > 3) )
|
||||
# $VARREPORT_user = 'cron';
|
||||
# $VARREPORT_pass = 'test';
|
||||
# $VARREPORT_dir = '';
|
||||
$VARREPORT_host = 'ftp.aats-inc.com';
|
||||
$VARREPORT_port = '21';
|
||||
$VARREPORT_user = 'aats-inc.com';
|
||||
$VARREPORT_pass = '_dMujnvf_';
|
||||
$VARREPORT_dir = '';
|
||||
$NODATEDIR = 0; # Don't use dated directories for audio
|
||||
$YEARDIR = 1; # put dated directories in a year directory first
|
||||
|
||||
@@ -659,6 +737,7 @@ $secZm = ($secZ /60);
|
||||
|
||||
if (!$Q) {print "SALES EXPORT FOR $shipdate: $outfile\n";}
|
||||
if (!$Q) {print "TOTAL SALES: $TOTAL_SALES\n";}
|
||||
if (!$Q) {print "TOTAL EXCLUDED BY CALLTIME: $CALLTIME_KICK\n";}
|
||||
if (!$Q) {print "script execution time in seconds: $secZ minutes: $secZm\n";}
|
||||
|
||||
exit;
|
||||
@@ -670,43 +749,45 @@ exit;
|
||||
### Subroutine for formatting of the output ###
|
||||
sub select_format_loop
|
||||
{
|
||||
$str='';
|
||||
if ($T)
|
||||
{
|
||||
# $user = '1234';
|
||||
$agent_name = 'Joe Agent';
|
||||
# $closer = '4321';
|
||||
$closer_name = 'Jane Closer';
|
||||
$security = '4111111111111111';
|
||||
$comments = 'VISA';
|
||||
$phone_number =~ s/^\d\d\d\d\d/23456/gi;
|
||||
$address1 =~ s/^..../1234 /gi
|
||||
}
|
||||
$within_calltime = 1;
|
||||
|
||||
##### BEGIN standard audio lookup #####
|
||||
if ($with_transfer_audio < 1)
|
||||
if (length($call_time) > 0)
|
||||
{
|
||||
$ivr_id = '0';
|
||||
$ivr_filename = '';
|
||||
$CTtarget = ($secX - 10);
|
||||
($Csec,$Cmin,$Chour,$Cmday,$Cmon,$Cyear,$Cwday,$Cyday,$Cisdst) = localtime($epoch);
|
||||
if ($Chour < 10) {$Chour = "0$Chour";}
|
||||
if ($Cmin < 10) {$Cmin = "0$Cmin";}
|
||||
$CThourminute = "$Chour$Cmin";
|
||||
|
||||
$stmtB = "select recording_id,filename,location from recording_log where lead_id='$lead_id' and start_time > '$shipdate 00:00:01' and start_time < '$shipdate 23:59:59' order by length_in_sec desc limit 1;";
|
||||
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
|
||||
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
|
||||
$sthBrows=$sthB->rows;
|
||||
$rec_countB=0;
|
||||
while ($sthBrows > $rec_countB)
|
||||
if ( ($CThourminute < $CTstart) || ($CThourminute > $CTstop) )
|
||||
{
|
||||
@aryB = $sthB->fetchrow_array;
|
||||
$ivr_id = $aryB[0];
|
||||
$ivr_filename = $aryB[1];
|
||||
$ivr_location = $aryB[2];
|
||||
$rec_countB++;
|
||||
if ($DB > 0) {print "Call is outside of defined call time: $CThourminute|$Cwday| |$CTstart|$CTstop| \n";}
|
||||
$within_calltime=0;
|
||||
}
|
||||
$sthB->finish();
|
||||
|
||||
if (length($ivr_id)<3)
|
||||
}
|
||||
|
||||
if ($within_calltime > 0)
|
||||
{
|
||||
$str='';
|
||||
if ($T)
|
||||
{
|
||||
$stmtB = "select recording_id,filename,location from recording_log where lead_id='$lead_id' order by length_in_sec desc limit 1;";
|
||||
# $user = '1234';
|
||||
$agent_name = 'Joe Agent';
|
||||
# $closer = '4321';
|
||||
$closer_name = 'Jane Closer';
|
||||
$security = '4111111111111111';
|
||||
$comments = 'VISA';
|
||||
$phone_number =~ s/^\d\d\d\d\d/23456/gi;
|
||||
$address1 =~ s/^..../1234 /gi
|
||||
}
|
||||
|
||||
##### BEGIN standard audio lookup #####
|
||||
if ($with_transfer_audio < 1)
|
||||
{
|
||||
$ivr_id = '0';
|
||||
$ivr_filename = '';
|
||||
|
||||
$stmtB = "select recording_id,filename,location from recording_log where lead_id='$lead_id' and start_time > '$shipdate 00:00:01' and start_time < '$shipdate 23:59:59' order by length_in_sec desc limit 1;";
|
||||
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
|
||||
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
|
||||
$sthBrows=$sthB->rows;
|
||||
@@ -723,7 +804,7 @@ sub select_format_loop
|
||||
|
||||
if (length($ivr_id)<3)
|
||||
{
|
||||
$stmtB = "select recording_id,filename,location from recording_log where filename LIKE \"%$phone_number%\" order by length_in_sec desc limit 1;";
|
||||
$stmtB = "select recording_id,filename,location from recording_log where lead_id='$lead_id' order by length_in_sec desc limit 1;";
|
||||
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
|
||||
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
|
||||
$sthBrows=$sthB->rows;
|
||||
@@ -737,82 +818,51 @@ sub select_format_loop
|
||||
$rec_countB++;
|
||||
}
|
||||
$sthB->finish();
|
||||
|
||||
if (length($ivr_id)<3)
|
||||
{
|
||||
$stmtB = "select recording_id,filename,location from recording_log where filename LIKE \"%$phone_number%\" order by length_in_sec desc limit 1;";
|
||||
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
|
||||
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
|
||||
$sthBrows=$sthB->rows;
|
||||
$rec_countB=0;
|
||||
while ($sthBrows > $rec_countB)
|
||||
{
|
||||
@aryB = $sthB->fetchrow_array;
|
||||
$ivr_id = $aryB[0];
|
||||
$ivr_filename = $aryB[1];
|
||||
$ivr_location = $aryB[2];
|
||||
$rec_countB++;
|
||||
}
|
||||
$sthB->finish();
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if ( ($ftp_audio_transfer > 0) && (length($ivr_filename) > 3) && (length($ivr_location) > 5) )
|
||||
{
|
||||
@ivr_path = split(/\//,$ivr_location);
|
||||
$path_file = $ivr_path[$#ivr_path];
|
||||
`$wgetbin -q --output-document=$tempdir/$path_file $ivr_location `;
|
||||
}
|
||||
}
|
||||
##### END standard audio lookup #####
|
||||
|
||||
##### BEGIN transfer audio lookup #####
|
||||
else
|
||||
{
|
||||
$ivr_id = '0';
|
||||
$ivr_filename = '';
|
||||
$ivr_location = '';
|
||||
|
||||
$stmtB = "select recording_id,filename,location from recording_log where vicidial_id='$vicidial_id' and start_time > '$shipdate 00:00:01' and start_time < '$shipdate 23:59:59' order by start_time limit 10;";
|
||||
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
|
||||
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
|
||||
$sthBrows=$sthB->rows;
|
||||
$rec_countB=0;
|
||||
while ($sthBrows > $rec_countB)
|
||||
{
|
||||
@aryB = $sthB->fetchrow_array;
|
||||
if ($rec_countB > 0)
|
||||
if ( ($ftp_audio_transfer > 0) && (length($ivr_filename) > 3) && (length($ivr_location) > 5) )
|
||||
{
|
||||
$ivr_id .= "|";
|
||||
$ivr_filename .= "|";
|
||||
}
|
||||
$ivr_id .= "$aryB[0]";
|
||||
$ivr_location = "$aryB[2]";
|
||||
@ivr_path = split(/\//,$ivr_location);
|
||||
$path_file = $ivr_path[$#ivr_path];
|
||||
$ivr_filename .= "$path_file";
|
||||
$rec_countB++;
|
||||
if ($ftp_audio_transfer > 0)
|
||||
{
|
||||
`$wgetbin -q --output-document=$tempdir/$path_file $aryB[2] `;
|
||||
@ivr_path = split(/\//,$ivr_location);
|
||||
$path_file = $ivr_path[$#ivr_path];
|
||||
`$wgetbin -q --output-document=$tempdir/$path_file $ivr_location `;
|
||||
}
|
||||
}
|
||||
$sthB->finish();
|
||||
##### END standard audio lookup #####
|
||||
|
||||
### Look for other closer calls after this call
|
||||
$more_calls[0]='';
|
||||
$stmtB = "select closecallid,length_in_sec,queue_seconds from vicidial_closer_log where lead_id='$lead_id' and call_date > '$call_date' and call_date < '$shipdate 23:59:59' order by call_date limit 10;";
|
||||
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
|
||||
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
|
||||
$sthBrows=$sthB->rows;
|
||||
$rec_countB=0;
|
||||
while ($sthBrows > $rec_countB)
|
||||
##### BEGIN transfer audio lookup #####
|
||||
else
|
||||
{
|
||||
@aryB = $sthB->fetchrow_array;
|
||||
$more_calls[$rec_countB] = "$aryB[0]";
|
||||
$length_in_sec = ($length_in_sec + $aryB[1]);
|
||||
$queue_seconds = ($queue_seconds + $aryB[2]);
|
||||
$rec_countB++;
|
||||
}
|
||||
$sthB->finish();
|
||||
$ivr_id = '0';
|
||||
$ivr_filename = '';
|
||||
$ivr_location = '';
|
||||
|
||||
$u=0;
|
||||
while ($sthBrows > $u)
|
||||
{
|
||||
$closecallid = $more_calls[$u];
|
||||
|
||||
$stmtB = "select recording_id,filename,location from recording_log where vicidial_id='$closecallid' and start_time > '$shipdate 00:00:01' and start_time < '$shipdate 23:59:59' order by start_time limit 10;";
|
||||
$stmtB = "select recording_id,filename,location from recording_log where vicidial_id='$vicidial_id' and start_time > '$shipdate 00:00:01' and start_time < '$shipdate 23:59:59' order by start_time limit 10;";
|
||||
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
|
||||
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
|
||||
$sthBrowsR=$sthB->rows;
|
||||
$rec_countBR=0;
|
||||
while ($sthBrowsR > $rec_countBR)
|
||||
$sthBrows=$sthB->rows;
|
||||
$rec_countB=0;
|
||||
while ($sthBrows > $rec_countB)
|
||||
{
|
||||
@aryB = $sthB->fetchrow_array;
|
||||
if (length($ivr_id) > 1)
|
||||
if ($rec_countB > 0)
|
||||
{
|
||||
$ivr_id .= "|";
|
||||
$ivr_filename .= "|";
|
||||
@@ -822,7 +872,7 @@ sub select_format_loop
|
||||
@ivr_path = split(/\//,$ivr_location);
|
||||
$path_file = $ivr_path[$#ivr_path];
|
||||
$ivr_filename .= "$path_file";
|
||||
$rec_countBR++;
|
||||
$rec_countB++;
|
||||
if ($ftp_audio_transfer > 0)
|
||||
{
|
||||
`$wgetbin -q --output-document=$tempdir/$path_file $aryB[2] `;
|
||||
@@ -830,160 +880,225 @@ sub select_format_loop
|
||||
}
|
||||
$sthB->finish();
|
||||
|
||||
$u++;
|
||||
### Look for other closer calls after this call
|
||||
$more_calls[0]='';
|
||||
$stmtB = "select closecallid,length_in_sec,queue_seconds from vicidial_closer_log where lead_id='$lead_id' and call_date > '$call_date' and call_date < '$shipdate 23:59:59' order by call_date limit 10;";
|
||||
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
|
||||
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
|
||||
$sthBrows=$sthB->rows;
|
||||
$rec_countB=0;
|
||||
while ($sthBrows > $rec_countB)
|
||||
{
|
||||
@aryB = $sthB->fetchrow_array;
|
||||
$more_calls[$rec_countB] = "$aryB[0]";
|
||||
$length_in_sec = ($length_in_sec + $aryB[1]);
|
||||
$queue_seconds = ($queue_seconds + $aryB[2]);
|
||||
$rec_countB++;
|
||||
}
|
||||
$sthB->finish();
|
||||
|
||||
$u=0;
|
||||
while ($sthBrows > $u)
|
||||
{
|
||||
$closecallid = $more_calls[$u];
|
||||
|
||||
$stmtB = "select recording_id,filename,location from recording_log where vicidial_id='$closecallid' and start_time > '$shipdate 00:00:01' and start_time < '$shipdate 23:59:59' order by start_time limit 10;";
|
||||
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
|
||||
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
|
||||
$sthBrowsR=$sthB->rows;
|
||||
$rec_countBR=0;
|
||||
while ($sthBrowsR > $rec_countBR)
|
||||
{
|
||||
@aryB = $sthB->fetchrow_array;
|
||||
if (length($ivr_id) > 1)
|
||||
{
|
||||
$ivr_id .= "|";
|
||||
$ivr_filename .= "|";
|
||||
}
|
||||
$ivr_id .= "$aryB[0]";
|
||||
$ivr_location = "$aryB[2]";
|
||||
@ivr_path = split(/\//,$ivr_location);
|
||||
$path_file = $ivr_path[$#ivr_path];
|
||||
$ivr_filename .= "$path_file";
|
||||
$rec_countBR++;
|
||||
if ($ftp_audio_transfer > 0)
|
||||
{
|
||||
`$wgetbin -q --output-document=$tempdir/$path_file $aryB[2] `;
|
||||
}
|
||||
}
|
||||
$sthB->finish();
|
||||
|
||||
$u++;
|
||||
}
|
||||
}
|
||||
}
|
||||
##### END transfer audio lookup #####
|
||||
##### END transfer audio lookup #####
|
||||
|
||||
##### BEGIN DID lookup #####
|
||||
if ($with_did_lookup > 0)
|
||||
{
|
||||
$did_pattern = '';
|
||||
$did_name = '';
|
||||
$did_date = '';
|
||||
|
||||
$stmtB = "select did_pattern,did_description,call_date from vicidial_inbound_dids vid,vicidial_did_log vdl where uniqueid='$uniqueid' and call_date > '$shipdate 00:00:01' and call_date <= '$call_date' and vid.did_id=vdl.did_id order by call_date desc limit 1;";
|
||||
if ($DB > 0) {print "$stmtB\n";}
|
||||
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
|
||||
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
|
||||
$sthBrows=$sthB->rows;
|
||||
if ($sthBrows > 0)
|
||||
##### BEGIN DID lookup #####
|
||||
if ( ($with_did_lookup > 0) && ($outbound =~ /N/) )
|
||||
{
|
||||
@aryB = $sthB->fetchrow_array;
|
||||
$did_pattern = "$aryB[0]";
|
||||
$did_name = "$aryB[1]";
|
||||
$did_date = "$aryB[2]";
|
||||
$did_pattern = '';
|
||||
$did_name = '';
|
||||
$did_date = '';
|
||||
|
||||
$stmtB = "select did_pattern,did_description,call_date from vicidial_inbound_dids vid,vicidial_did_log vdl where uniqueid='$uniqueid' and call_date > '$shipdate 00:00:01' and call_date <= '$call_date' and vid.did_id=vdl.did_id order by call_date desc limit 1;";
|
||||
if ($DBX > 0) {print "$stmtB\n";}
|
||||
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
|
||||
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
|
||||
$sthBrows=$sthB->rows;
|
||||
if ($sthBrows > 0)
|
||||
{
|
||||
@aryB = $sthB->fetchrow_array;
|
||||
$did_pattern = "$aryB[0]";
|
||||
$did_name = "$aryB[1]";
|
||||
$did_date = "$aryB[2]";
|
||||
$sthB->finish();
|
||||
}
|
||||
}
|
||||
$sthB->finish();
|
||||
}
|
||||
##### BEGIN DID lookup #####
|
||||
##### BEGIN DID lookup #####
|
||||
|
||||
if ($status =~ /UPSELL/) {$UPSELL='L5';}
|
||||
else {$UPSELL='N';}
|
||||
if ($status =~ /UPSELL/) {$UPSELL='L5';}
|
||||
else {$UPSELL='N';}
|
||||
|
||||
if ($output_format =~ /^pipe-standard$/)
|
||||
{
|
||||
$str = "$first_name|$last_name|$address1|$address2|$city|$state|$postal_code|$phone_number|$email|$security|$comments|$call_date|$lead_id|$list_id|$user|$agent_name|$status|$vendor_id|$source_id|$campaign|$campaign_id|$ivr_id|$closer|$closer_name|$rank|$owner|\n";
|
||||
}
|
||||
|
||||
if ($output_format =~ /^csv-standard$/)
|
||||
{
|
||||
$str = "\"$first_name\",\"$last_name\",\"$address1\",\"$address2\",\"$city\",\"$state\",\"$postal_code\",\"$phone_number\",\"$email\",\"$security\",\"$comments\",\"$call_date\",\"$lead_id\",\"$list_id\",\"$user\",\"$agent_name\",\"$status\",\"$vendor_id\",\"$source_id\",\"$campaign\",\"$campaign_id\",\"$ivr_id\",\"$closer\",\"$closer_name\",\"$rank\",\"$owner\"\r\n";
|
||||
}
|
||||
|
||||
if ($output_format =~ /^tab-standard$/)
|
||||
{
|
||||
$str = "$first_name\t$last_name\t$address1\t$address2\t$city\t$state\t$postal_code\t$phone_number\t$email\t$security\t$comments\t$call_date\t$lead_id\t$list_id\t$user\t$agent_name\t$status\t$vendor_id\t$source_id\t$campaign\t$campaign_id\t$ivr_id\t$closer\t$closer_name\t$rank\t$owner\t\n";
|
||||
}
|
||||
|
||||
if ($output_format =~ /^pipe-triplep$/)
|
||||
{
|
||||
$str = "$user|$agent_name|$closer|$closer_name|$call_date|$status|$first_name|$last_name|$phone_number|$address1|$address2|$city|$state|$postal_code|$comments|$security|$email|$vendor_id|$source_id|$lead_id|$list_id|$campaign|$campaign_id|$ivr_id|\n";
|
||||
}
|
||||
|
||||
if ($output_format =~ /^pipe-vici$/)
|
||||
{
|
||||
$str = "VDAD|$agent_name|$first_name|$last_name|$address1|$address2|$city|$state|$postal_code|$phone_number|$ivr_id|DU|$UPSELL|N|||$security|$comments||||||$call_date|CBDISC|$email\r\n";
|
||||
}
|
||||
|
||||
if ($output_format =~ /^html-rec$/)
|
||||
{
|
||||
$str = "$user|$agent_name|$closer|$closer_name|$call_date|$status|$first_name|$last_name|$phone_number|$address1|$address2|$city|$state|$postal_code|$comments|$security|$email|$vendor_id|$source_id|$lead_id|$list_id|$campaign|$campaign_id|<a href=\"$ivr_location\">$ivr_id</a>|\n";
|
||||
}
|
||||
|
||||
if ($output_format =~ /^fixed-as400$/)
|
||||
{
|
||||
# 16884259 MRS. JEAN BROWN RISALPUR BROMSBERROW HEATYH LEDBURY HEREFORDSHIRE ENGLAND HR8 1PQ 01531650052 1209200809:52NI 3205UK
|
||||
$vendor_id = sprintf("%-10s",$vendor_id); while(length($vendor_id)>10) {$vendor_id =~ s/.$//gi;}
|
||||
$title = sprintf("%-10s",$title); while(length($title)>10) {$title =~ s/.$//gi;}
|
||||
$first_name = sprintf("%-15s",$first_name); while(length($first_name)>15) {$first_name =~ s/.$//gi;}
|
||||
$last_name = sprintf("%-20s",$last_name); while(length($last_name)>20) {$last_name =~ s/.$//gi;}
|
||||
$address1 = sprintf("%-30s",$address1); while(length($address1)>30) {$address1 =~ s/.$//gi;}
|
||||
$address2 = sprintf("%-30s",$address2); while(length($address2)>30) {$address2 =~ s/.$//gi;}
|
||||
$address3 = sprintf("%-30s",$address3); while(length($address3)>30) {$address3 =~ s/.$//gi;}
|
||||
$city = sprintf("%-50s",$city); while(length($city)>50) {$city =~ s/.$//gi;}
|
||||
$postal_code = sprintf("%-9s",$postal_code); while(length($postal_code)>9) {$postal_code =~ s/.$//gi;}
|
||||
$phone_number = sprintf("%-20s",$phone_number); while(length($phone_number)>20) {$phone_number =~ s/.$//gi;}
|
||||
@dtsplit = split(" ",$last_local_call_time);
|
||||
@datesplit = split("-",$dtsplit[0]);
|
||||
$timesplit = substr($dtsplit[1], 0, 5);
|
||||
$formatted_date = "$datesplit[1]$datesplit[2]$datesplit[0]$timesplit";
|
||||
$user = sprintf("%-4s",$user);
|
||||
if ($status =~ /^AA$/) {$status = 'A';}
|
||||
if ($status =~ /^A$/) {$status = 'A';}
|
||||
if ($status =~ /^B$/) {$status = 'B';}
|
||||
if ($status =~ /^N$/) {$status = 'N';}
|
||||
if ($status =~ /^NA$/) {$status = 'N';}
|
||||
if ($status =~ /^NP$/) {$status = 'N';}
|
||||
if ($status =~ /^PU$/) {$status = 'N';}
|
||||
if ($status =~ /^DROP$/) {$status = 'N';}
|
||||
if ($status =~ /^SALE$/) {$status = 'AP';}
|
||||
if ($status =~ /^A6$/) {$status = 'A6';}
|
||||
if ($status =~ /^DC$/) {$status = 'D';}
|
||||
if ($status =~ /^DNC$/) {$status = 'DC';}
|
||||
if ($status =~ /^DNCL$/) {$status = 'DC';}
|
||||
if ($status =~ /^DIED$/) {$status = 'DD';}
|
||||
if ($status =~ /^COMP$/) {$status = 'DD';}
|
||||
if ($status =~ /^DEC$/) {$status = 'DD';}
|
||||
if ($status =~ /^ERI$/) {$status = 'DD';}
|
||||
if ($status =~ /^INCALL$/) {$status = 'DD';}
|
||||
if ($status =~ /^SP$/) {$status = 'DD';}
|
||||
if ($status =~ /^WRON$/) {$status = 'DD';}
|
||||
if ($status =~ /^HBED$/) {$status = 'DD';}
|
||||
if ($status =~ /^CALLBK$/) {$status = 'A6';}
|
||||
if ($status =~ /^HAP1$/) {$status = 'NI';}
|
||||
if ($status =~ /^HAP2$/) {$status = 'NI';}
|
||||
if ($status =~ /^NI$/) {$status = 'NI';}
|
||||
|
||||
$status = sprintf("%-16s",$status); while(length($status)>16) {$status =~ s/.$//gi;}
|
||||
$user =~ s/VDAD/ /gi;
|
||||
$UK = 'UK';
|
||||
|
||||
$str = "$vendor_id$title$first_name$last_name$address1$address2$address3$city$postal_code$phone_number$formatted_date$status$user$UK\r\n";
|
||||
}
|
||||
|
||||
if ($output_format =~ /^tab-QMcustomUSA$/)
|
||||
{
|
||||
# 1245328655100219 2009-06-18 05:37:35 937 9375551212 8185551223 8106 35 255 0 DSAW - q8187-20090618-053939-1245328655.100219.WAV|q8186-20090618-053735-1245328655.100219.WAV
|
||||
# 1- unique number (digits only)
|
||||
# 2- date
|
||||
# 3- time
|
||||
# 4- CID arecode
|
||||
# 5- CID full
|
||||
# 6- DID
|
||||
# 7- user
|
||||
# 8- hold time (seconds)
|
||||
# 9- talk time (seconds)
|
||||
# 10- after call work time (seconds)
|
||||
# 11- application name, 4 characters
|
||||
# 12- order number (just a dash for now '-')
|
||||
# 13- call recording filenames
|
||||
|
||||
$uniqueid =~ s/\D//gi;
|
||||
@call_date_array = split(/ /,$call_date);
|
||||
while (length($phone_number)>10) {$phone_number =~ s/^.//gi;}
|
||||
$phone_areacode = substr($phone_number, 0, 3);
|
||||
if (length($closer) < 1) {$closer = $user;}
|
||||
$application = substr($did_name, 0, 4);
|
||||
$queue_seconds = int($queue_seconds + .5);
|
||||
$talk_seconds = ($length_in_sec - $queue_seconds);
|
||||
$dispo_time = 0;
|
||||
|
||||
if ($uniqueidLIST !~ /\|$uniqueid\|/)
|
||||
if ($output_format =~ /^pipe-standard$/)
|
||||
{
|
||||
$str = "$uniqueid\t$call_date_array[0]\t$call_date_array[1]\t$phone_areacode\t$phone_number\t$did_pattern\t$closer\t$queue_seconds\t$talk_seconds\t$dispo_time\t$application\t-\t$ivr_filename\t\n";
|
||||
|
||||
$uniqueidLIST .= "$uniqueid|";
|
||||
if ($DB > 0) {print "UNIQUE: -----$uniqueidLIST-----$uniqueid";}
|
||||
$str = "$first_name|$last_name|$address1|$address2|$city|$state|$postal_code|$phone_number|$email|$security|$comments|$call_date|$lead_id|$list_id|$user|$agent_name|$status|$vendor_id|$source_id|$campaign|$campaign_id|$ivr_id|$closer|$closer_name|$rank|$owner|\n";
|
||||
}
|
||||
|
||||
if ($output_format =~ /^csv-standard$/)
|
||||
{
|
||||
$str = "\"$first_name\",\"$last_name\",\"$address1\",\"$address2\",\"$city\",\"$state\",\"$postal_code\",\"$phone_number\",\"$email\",\"$security\",\"$comments\",\"$call_date\",\"$lead_id\",\"$list_id\",\"$user\",\"$agent_name\",\"$status\",\"$vendor_id\",\"$source_id\",\"$campaign\",\"$campaign_id\",\"$ivr_id\",\"$closer\",\"$closer_name\",\"$rank\",\"$owner\"\r\n";
|
||||
}
|
||||
|
||||
if ($output_format =~ /^tab-standard$/)
|
||||
{
|
||||
$str = "$first_name\t$last_name\t$address1\t$address2\t$city\t$state\t$postal_code\t$phone_number\t$email\t$security\t$comments\t$call_date\t$lead_id\t$list_id\t$user\t$agent_name\t$status\t$vendor_id\t$source_id\t$campaign\t$campaign_id\t$ivr_id\t$closer\t$closer_name\t$rank\t$owner\t\n";
|
||||
}
|
||||
|
||||
if ($output_format =~ /^pipe-triplep$/)
|
||||
{
|
||||
$str = "$user|$agent_name|$closer|$closer_name|$call_date|$status|$first_name|$last_name|$phone_number|$address1|$address2|$city|$state|$postal_code|$comments|$security|$email|$vendor_id|$source_id|$lead_id|$list_id|$campaign|$campaign_id|$ivr_id|\n";
|
||||
}
|
||||
|
||||
if ($output_format =~ /^pipe-vici$/)
|
||||
{
|
||||
$str = "VDAD|$agent_name|$first_name|$last_name|$address1|$address2|$city|$state|$postal_code|$phone_number|$ivr_id|DU|$UPSELL|N|||$security|$comments||||||$call_date|CBDISC|$email\r\n";
|
||||
}
|
||||
|
||||
if ($output_format =~ /^html-rec$/)
|
||||
{
|
||||
$str = "$user|$agent_name|$closer|$closer_name|$call_date|$status|$first_name|$last_name|$phone_number|$address1|$address2|$city|$state|$postal_code|$comments|$security|$email|$vendor_id|$source_id|$lead_id|$list_id|$campaign|$campaign_id|<a href=\"$ivr_location\">$ivr_id</a>|\n";
|
||||
}
|
||||
|
||||
if ($output_format =~ /^fixed-as400$/)
|
||||
{
|
||||
# 16884259 MRS. JEAN BROWN RISALPUR BROMSBERROW HEATYH LEDBURY HEREFORDSHIRE ENGLAND HR8 1PQ 01531650052 1209200809:52NI 3205UK
|
||||
$vendor_id = sprintf("%-10s",$vendor_id); while(length($vendor_id)>10) {$vendor_id =~ s/.$//gi;}
|
||||
$title = sprintf("%-10s",$title); while(length($title)>10) {$title =~ s/.$//gi;}
|
||||
$first_name = sprintf("%-15s",$first_name); while(length($first_name)>15) {$first_name =~ s/.$//gi;}
|
||||
$last_name = sprintf("%-20s",$last_name); while(length($last_name)>20) {$last_name =~ s/.$//gi;}
|
||||
$address1 = sprintf("%-30s",$address1); while(length($address1)>30) {$address1 =~ s/.$//gi;}
|
||||
$address2 = sprintf("%-30s",$address2); while(length($address2)>30) {$address2 =~ s/.$//gi;}
|
||||
$address3 = sprintf("%-30s",$address3); while(length($address3)>30) {$address3 =~ s/.$//gi;}
|
||||
$city = sprintf("%-50s",$city); while(length($city)>50) {$city =~ s/.$//gi;}
|
||||
$postal_code = sprintf("%-9s",$postal_code); while(length($postal_code)>9) {$postal_code =~ s/.$//gi;}
|
||||
$phone_number = sprintf("%-20s",$phone_number); while(length($phone_number)>20) {$phone_number =~ s/.$//gi;}
|
||||
@dtsplit = split(" ",$last_local_call_time);
|
||||
@datesplit = split("-",$dtsplit[0]);
|
||||
$timesplit = substr($dtsplit[1], 0, 5);
|
||||
$formatted_date = "$datesplit[1]$datesplit[2]$datesplit[0]$timesplit";
|
||||
$user = sprintf("%-4s",$user);
|
||||
if ($status =~ /^AA$/) {$status = 'A';}
|
||||
if ($status =~ /^A$/) {$status = 'A';}
|
||||
if ($status =~ /^B$/) {$status = 'B';}
|
||||
if ($status =~ /^N$/) {$status = 'N';}
|
||||
if ($status =~ /^NA$/) {$status = 'N';}
|
||||
if ($status =~ /^NP$/) {$status = 'N';}
|
||||
if ($status =~ /^PU$/) {$status = 'N';}
|
||||
if ($status =~ /^DROP$/) {$status = 'N';}
|
||||
if ($status =~ /^SALE$/) {$status = 'AP';}
|
||||
if ($status =~ /^A6$/) {$status = 'A6';}
|
||||
if ($status =~ /^DC$/) {$status = 'D';}
|
||||
if ($status =~ /^DNC$/) {$status = 'DC';}
|
||||
if ($status =~ /^DNCL$/) {$status = 'DC';}
|
||||
if ($status =~ /^DIED$/) {$status = 'DD';}
|
||||
if ($status =~ /^COMP$/) {$status = 'DD';}
|
||||
if ($status =~ /^DEC$/) {$status = 'DD';}
|
||||
if ($status =~ /^ERI$/) {$status = 'DD';}
|
||||
if ($status =~ /^INCALL$/) {$status = 'DD';}
|
||||
if ($status =~ /^SP$/) {$status = 'DD';}
|
||||
if ($status =~ /^WRON$/) {$status = 'DD';}
|
||||
if ($status =~ /^HBED$/) {$status = 'DD';}
|
||||
if ($status =~ /^CALLBK$/) {$status = 'A6';}
|
||||
if ($status =~ /^HAP1$/) {$status = 'NI';}
|
||||
if ($status =~ /^HAP2$/) {$status = 'NI';}
|
||||
if ($status =~ /^NI$/) {$status = 'NI';}
|
||||
|
||||
$status = sprintf("%-16s",$status); while(length($status)>16) {$status =~ s/.$//gi;}
|
||||
$user =~ s/VDAD/ /gi;
|
||||
$UK = 'UK';
|
||||
|
||||
$str = "$vendor_id$title$first_name$last_name$address1$address2$address3$city$postal_code$phone_number$formatted_date$status$user$UK\r\n";
|
||||
}
|
||||
|
||||
if ($output_format =~ /^tab-QMcustomUSA$/)
|
||||
{
|
||||
# 1245328655100219 2009-06-18 05:37:35 937 9375551212 8185551223 8106 35 255 0 DSAW - q8187-20090618-053939-1245328655.100219.WAV|q8186-20090618-053735-1245328655.100219.WAV
|
||||
# 1- unique number (digits only)
|
||||
# 2- date
|
||||
# 3- time
|
||||
# 4- CID arecode
|
||||
# 5- CID full
|
||||
# 6- DID
|
||||
# 7- user
|
||||
# 8- hold time (seconds)
|
||||
# 9- talk time (seconds)
|
||||
# 10- after call work time (seconds)
|
||||
# 11- application name, 4 characters
|
||||
# 12- order number (just a dash for now '-')
|
||||
# 13- call recording filenames
|
||||
|
||||
$uniqueid =~ s/\D//gi;
|
||||
@call_date_array = split(/ /,$call_date);
|
||||
while (length($phone_number)>10) {$phone_number =~ s/^.//gi;}
|
||||
$phone_areacode = substr($phone_number, 0, 3);
|
||||
if (length($closer) < 1) {$closer = $user;}
|
||||
if ($closer =~ /VDCL|VDAD/) {$closer='-';}
|
||||
$application = substr($did_name, 0, 4);
|
||||
$queue_seconds = int($queue_seconds + .5);
|
||||
$talk_seconds = ($length_in_sec - $queue_seconds);
|
||||
$dispo_time = 0;
|
||||
|
||||
if ($uniqueidLIST !~ /\|$uniqueid\|/)
|
||||
{
|
||||
$str = "$uniqueid\t$call_date_array[0]\t$call_date_array[1]\t$phone_areacode\t$phone_number\t$did_pattern\t$closer\t$queue_seconds\t$talk_seconds\t$dispo_time\t$application\t-\t$ivr_filename\t$outbound\t$domestic\t\n";
|
||||
|
||||
$uniqueidLIST .= "$uniqueid|";
|
||||
if ($DBX > 0) {print "UNIQUE: -----$uniqueidLIST-----$uniqueid";}
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
$Ealert .= "$str";
|
||||
|
||||
print out "$str";
|
||||
if ($DBX) {print "$str\n";}
|
||||
}
|
||||
else
|
||||
{$CALLTIME_KICK++;}
|
||||
|
||||
$Ealert .= "$str";
|
||||
|
||||
print out "$str";
|
||||
if ($DBX) {print "$str\n";}
|
||||
|
||||
if ($DB > 0)
|
||||
{
|
||||
if ($rec_count =~ /10$/i) {print STDERR "0 $rec_count\r";}
|
||||
if ($rec_count =~ /20$/i) {print STDERR "+ $rec_count\r";}
|
||||
if ($rec_count =~ /30$/i) {print STDERR "| $rec_count\r";}
|
||||
if ($rec_count =~ /40$/i) {print STDERR "\\ $rec_count\r";}
|
||||
if ($rec_count =~ /50$/i) {print STDERR "- $rec_count\r";}
|
||||
if ($rec_count =~ /60$/i) {print STDERR "/ $rec_count\r";}
|
||||
if ($rec_count =~ /70$/i) {print STDERR "| $rec_count\r";}
|
||||
if ($rec_count =~ /80$/i) {print STDERR "+ $rec_count\r";}
|
||||
if ($rec_count =~ /90$/i) {print STDERR "0 $rec_count\r";}
|
||||
if ($rec_count =~ /00$/i) {print "$rec_count|$TOTAL_SALES|$CALLTIME_KICK| |$phone_number|\n";}
|
||||
}
|
||||
$rec_count++;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user