ViciDial/ViciDialSVN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--custom-export=XXX option to AST_list_export.pl script

Browse Source 
git-svn-id: svn://192.168.202.10@3955 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2025-12-01 19:19:47 +00:00
parent 3ba9016a37
commit 452ea48f80
1 changed files with 106 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
agc_2-X/trunk/bin/AST_list_export.pl
+106 -16
View File
@@ -12,6 +12,7 @@
# CHANGES # CHANGES
# 151020-2043 - First version based upon AST_recording_export.pl # 151020-2043 - First version based upon AST_recording_export.pl
# 251128-1536 - Added --basic-export option # 251128-1536 - Added --basic-export option
# 251130-0006 - Added --custom-export=XXX option
# #
$txt = '.txt'; $txt = '.txt';
@@ -70,6 +71,7 @@ $TWOAMsec = ( ($secX - ($sec + ($min * 60) + ($hour * 3600) ) ) + 7200);
$TWOAMsecY = ($TWOAMsec - 86400); $TWOAMsecY = ($TWOAMsec - 86400);
$Q=0; $Q=0;
$basic_export=0; $basic_export=0;
$custom_fields='';
($Tsec,$Tmin,$Thour,$Tmday,$Tmon,$Tyear,$Twday,$Tyday,$Tisdst) = localtime($TWOAMsecY); ($Tsec,$Tmin,$Thour,$Tmday,$Tmon,$Tyear,$Twday,$Tyday,$Tisdst) = localtime($TWOAMsecY);
$Tyear = ($Tyear + 1900); $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 " [--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 " [--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 " [--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 " [--quiet] = quiet\n";
print " [--test] = test\n"; print " [--test] = test\n";
print " [--debug] = debugging messages\n"; print " [--debug] = debugging messages\n";
@@ -178,6 +181,19 @@ if (length($ARGV[0])>1)
$basic_export=1; $basic_export=1;
if ($Q < 1) {print "\n----- BASIC EXPORT ENABLED: |$basic_export| -----\n\n";} 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) if ($args =~ /--list=/i)
{ {
# print "\n|$ARGS|\n\n"; # 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"; $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 ##### ##### BEGIN check for campaign data #####
$custom_data = ''; $camp_data = "\t";
$stmtB = "SELECT campaign_id from vicidial_lists where list_id=$list_id;"; $stmtB = "SELECT campaign_id from vicidial_lists where list_id=$list_id;";
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr; $sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
$sthB->execute or die "executing: $stmtB ", $dbhB->errstr; $sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
@@ -349,11 +364,86 @@ sub basic_format_loop
if ($sthBrows > 0) if ($sthBrows > 0)
{ {
@aryB = $sthB->fetchrow_array; @aryB = $sthB->fetchrow_array;
$custom_data .= "\t$aryB[0]"; $camp_data = "\t$aryB[0]";
$call_data .= "$custom_data";
} }
$sthB->finish(); $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";} if ($DBX) {print "$TOTAL_LEADS $rec_countB $call_data\n";}
@@ -365,17 +455,17 @@ sub basic_format_loop
if ($DB > 0) if ($DB > 0)
{ {
if ($rec_count =~ /1000$/i) {print STDERR " G*THER $rec_count\r";} if ($rec_count =~ /100$/i) {print STDERR " G*THER $rec_count\r";}
if ($rec_count =~ /2000$/i) {print STDERR " GA*HER $rec_count\r";} if ($rec_count =~ /200$/i) {print STDERR " GA*HER $rec_count\r";}
if ($rec_count =~ /3000$/i) {print STDERR " GAT*ER $rec_count\r";} if ($rec_count =~ /300$/i) {print STDERR " GAT*ER $rec_count\r";}
if ($rec_count =~ /4000$/i) {print STDERR " GATH*R $rec_count\r";} if ($rec_count =~ /400$/i) {print STDERR " GATH*R $rec_count\r";}
if ($rec_count =~ /5000$/i) {print STDERR " GATHE* $rec_count\r";} if ($rec_count =~ /500$/i) {print STDERR " GATHE* $rec_count\r";}
if ($rec_count =~ /6000$/i) {print STDERR " GATH*R $rec_count\r";} if ($rec_count =~ /600$/i) {print STDERR " GATH*R $rec_count\r";}
if ($rec_count =~ /7000$/i) {print STDERR " GAT*ER $rec_count\r";} if ($rec_count =~ /700$/i) {print STDERR " GAT*ER $rec_count\r";}
if ($rec_count =~ /8000$/i) {print STDERR " GA*HER $rec_count\r";} if ($rec_count =~ /800$/i) {print STDERR " GA*HER $rec_count\r";}
if ($rec_count =~ /9000$/i) {print STDERR " G*THER $rec_count\r";} if ($rec_count =~ /900$/i) {print STDERR " G*THER $rec_count\r";}
if ($rec_count =~ /0000$/i) {print STDERR " *ATHER $rec_count\r";} if ($rec_count =~ /000$/i) {print STDERR " *ATHER $rec_count\r";}
if ($rec_count =~ /0000$/i) {print " |$rec_count|$TOTAL_LEADS| |$lead_id|\n";} if ($rec_count =~ /000$/i) {print " |$rec_count|$TOTAL_LEADS|$TOTAL_CUSTOM| |$lead_id|\n";}
} }
$rec_count++; $rec_count++;
} }