--custom-export=XXX option to AST_list_export.pl script
git-svn-id: svn://192.168.202.10@3955 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
@@ -12,6 +12,7 @@
|
||||
# CHANGES
|
||||
# 151020-2043 - First version based upon AST_recording_export.pl
|
||||
# 251128-1536 - Added --basic-export option
|
||||
# 251130-0006 - Added --custom-export=XXX option
|
||||
#
|
||||
|
||||
$txt = '.txt';
|
||||
@@ -70,6 +71,7 @@ $TWOAMsec = ( ($secX - ($sec + ($min * 60) + ($hour * 3600) ) ) + 7200);
|
||||
$TWOAMsecY = ($TWOAMsec - 86400);
|
||||
$Q=0;
|
||||
$basic_export=0;
|
||||
$custom_fields='';
|
||||
|
||||
($Tsec,$Tmin,$Thour,$Tmday,$Tmon,$Tyear,$Twday,$Tyday,$Tisdst) = localtime($TWOAMsecY);
|
||||
$Tyear = ($Tyear + 1900);
|
||||
@@ -149,6 +151,7 @@ if (length($ARGV[0])>1)
|
||||
print " [--list=XXX] = List that sales will be pulled from. REQUIRED. For all leads, use ---ALL--- \n";
|
||||
print " [--temp-dir=XXX] = If running more than one instance at a time, specify a unique temp directory suffix\n";
|
||||
print " [--basic-export] = only include 8 fields: lead_id phone_number list_id status called_count entry_date last_local_call_time campaign_id \n";
|
||||
print " [--custom-export=XXX] = export only the defined custom fields, separated by a dash: business-siccode \n";
|
||||
print " [--quiet] = quiet\n";
|
||||
print " [--test] = test\n";
|
||||
print " [--debug] = debugging messages\n";
|
||||
@@ -178,6 +181,19 @@ if (length($ARGV[0])>1)
|
||||
$basic_export=1;
|
||||
if ($Q < 1) {print "\n----- BASIC EXPORT ENABLED: |$basic_export| -----\n\n";}
|
||||
}
|
||||
if ($args =~ /--custom-export=/i)
|
||||
{
|
||||
@data_in = split(/--custom-export=/,$args);
|
||||
$custom_fields = $data_in[1];
|
||||
$custom_fields =~ s/ .*$//gi;
|
||||
$custom_fields =~ s/-/,/gi;
|
||||
$count_CF = $custom_fields =~ tr/,//;
|
||||
$count_CF++;
|
||||
$custom_fieldsCHECK = ",$custom_fields,";
|
||||
$custom_fieldsCHECK =~ s/,/','/gi;
|
||||
$custom_fieldsCHECK =~ s/^\'|\'$//gi;
|
||||
if ($Q < 1) {print "\n----- custom EXPORT ENABLED: |$custom_fields| -----\n\n";}
|
||||
}
|
||||
if ($args =~ /--list=/i)
|
||||
{
|
||||
# print "\n|$ARGS|\n\n";
|
||||
@@ -339,8 +355,7 @@ sub basic_format_loop
|
||||
$call_data = "$lead_id\t$phone_number\t$list_id\t$status\t$called_count\t$entry_date\t$last_local_call_time";
|
||||
|
||||
##### BEGIN check for campaign data #####
|
||||
$custom_data = '';
|
||||
|
||||
$camp_data = "\t";
|
||||
$stmtB = "SELECT campaign_id from vicidial_lists where list_id=$list_id;";
|
||||
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
|
||||
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
|
||||
@@ -349,11 +364,86 @@ sub basic_format_loop
|
||||
if ($sthBrows > 0)
|
||||
{
|
||||
@aryB = $sthB->fetchrow_array;
|
||||
$custom_data .= "\t$aryB[0]";
|
||||
$call_data .= "$custom_data";
|
||||
$camp_data = "\t$aryB[0]";
|
||||
}
|
||||
$sthB->finish();
|
||||
##### END custom field data lookup #####
|
||||
$call_data .= "$camp_data";
|
||||
##### END campaign data lookup #####
|
||||
|
||||
if (length($custom_fields) > 0)
|
||||
{
|
||||
### BEGIN custom export ###
|
||||
$custom_data = '';
|
||||
$custom_columns = '';
|
||||
$temp_custom_fieldsCHECK = $custom_fieldsCHECK;
|
||||
|
||||
if ( (length($entry_list_id) > 1 ) && ($entry_list_id >= 99) )
|
||||
{
|
||||
$cols_found=0;
|
||||
$stmtB = "SHOW TABLES LIKE \"custom_$entry_list_id\";";
|
||||
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
|
||||
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
|
||||
$sthBcustrows=$sthB->rows;
|
||||
if ($DBX) {print "$sthBcustrows|$stmtB|\n";}
|
||||
$sthB->finish();
|
||||
if ($sthBcustrows > 0)
|
||||
{
|
||||
$stmtB = "describe custom_$entry_list_id;";
|
||||
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
|
||||
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
|
||||
$sthBcolrows=$sthB->rows;
|
||||
if ($DBX) {print "$sthBcolrows|$stmtB|\n";}
|
||||
$col_ct=0;
|
||||
while ($sthBcolrows > $col_ct)
|
||||
{
|
||||
@aryB = $sthB->fetchrow_array;
|
||||
$column_label = $aryB[0];
|
||||
if ($DBX) {print "$col_ct|$column_label| |$custom_fieldsCHECK|\n";}
|
||||
if ( ($col_ct > 0) && ($temp_custom_fieldsCHECK =~ /,\'$column_label\',/) )
|
||||
{
|
||||
$temp_custom_fieldsCHECK =~ s/\'$column_label\'/$column_label/gi;
|
||||
$custom_columns .= "$column_label,";
|
||||
$cols_found++;
|
||||
}
|
||||
$col_ct++;
|
||||
}
|
||||
$sthB->finish();
|
||||
$custom_columns =~ s/,$//gi;
|
||||
|
||||
if ($cols_found > 0)
|
||||
{
|
||||
$temp_custom_fieldsCHECK =~ s/^,|,$//gi;
|
||||
$stmtB = "SELECT $temp_custom_fieldsCHECK from custom_$entry_list_id where lead_id=$lead_id;";
|
||||
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
|
||||
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
|
||||
$sthBrows=$sthB->rows;
|
||||
if ($DBX) {print "$sthBrows|$stmtB|\n";}
|
||||
$rec_countB=0;
|
||||
while ($sthBrows > $rec_countB)
|
||||
{
|
||||
@aryB = $sthB->fetchrow_array;
|
||||
$field_ct=1;
|
||||
while ($count_CF > $field_ct)
|
||||
{
|
||||
$custom_data .= "\t$aryB[$field_ct]";
|
||||
$field_ct++;
|
||||
}
|
||||
$rec_countB++;
|
||||
|
||||
if (length($custom_data) > 0)
|
||||
{
|
||||
if ($DBX) {print "Custom data for $lead_id found in $entry_list_id: |$custom_data|\n";}
|
||||
$call_data .= "$custom_data";
|
||||
$TOTAL_CUSTOM++;
|
||||
}
|
||||
}
|
||||
$sthB->finish();
|
||||
}
|
||||
}
|
||||
}
|
||||
### END custom export ###
|
||||
}
|
||||
|
||||
|
||||
if ($DBX) {print "$TOTAL_LEADS $rec_countB $call_data\n";}
|
||||
|
||||
@@ -365,17 +455,17 @@ sub basic_format_loop
|
||||
|
||||
if ($DB > 0)
|
||||
{
|
||||
if ($rec_count =~ /1000$/i) {print STDERR " G*THER $rec_count\r";}
|
||||
if ($rec_count =~ /2000$/i) {print STDERR " GA*HER $rec_count\r";}
|
||||
if ($rec_count =~ /3000$/i) {print STDERR " GAT*ER $rec_count\r";}
|
||||
if ($rec_count =~ /4000$/i) {print STDERR " GATH*R $rec_count\r";}
|
||||
if ($rec_count =~ /5000$/i) {print STDERR " GATHE* $rec_count\r";}
|
||||
if ($rec_count =~ /6000$/i) {print STDERR " GATH*R $rec_count\r";}
|
||||
if ($rec_count =~ /7000$/i) {print STDERR " GAT*ER $rec_count\r";}
|
||||
if ($rec_count =~ /8000$/i) {print STDERR " GA*HER $rec_count\r";}
|
||||
if ($rec_count =~ /9000$/i) {print STDERR " G*THER $rec_count\r";}
|
||||
if ($rec_count =~ /0000$/i) {print STDERR " *ATHER $rec_count\r";}
|
||||
if ($rec_count =~ /0000$/i) {print " |$rec_count|$TOTAL_LEADS| |$lead_id|\n";}
|
||||
if ($rec_count =~ /100$/i) {print STDERR " G*THER $rec_count\r";}
|
||||
if ($rec_count =~ /200$/i) {print STDERR " GA*HER $rec_count\r";}
|
||||
if ($rec_count =~ /300$/i) {print STDERR " GAT*ER $rec_count\r";}
|
||||
if ($rec_count =~ /400$/i) {print STDERR " GATH*R $rec_count\r";}
|
||||
if ($rec_count =~ /500$/i) {print STDERR " GATHE* $rec_count\r";}
|
||||
if ($rec_count =~ /600$/i) {print STDERR " GATH*R $rec_count\r";}
|
||||
if ($rec_count =~ /700$/i) {print STDERR " GAT*ER $rec_count\r";}
|
||||
if ($rec_count =~ /800$/i) {print STDERR " GA*HER $rec_count\r";}
|
||||
if ($rec_count =~ /900$/i) {print STDERR " G*THER $rec_count\r";}
|
||||
if ($rec_count =~ /000$/i) {print STDERR " *ATHER $rec_count\r";}
|
||||
if ($rec_count =~ /000$/i) {print " |$rec_count|$TOTAL_LEADS|$TOTAL_CUSTOM| |$lead_id|\n";}
|
||||
}
|
||||
$rec_count++;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user