ViciDial/agc_2-X
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added t2r26csv format to CLI lead loader

Browse Source 
git-svn-id: svn://192.168.202.10@2578 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2016-08-09 15:17:57 +00:00
parent 4c0176726c
commit 6e8828f276
1 changed files with 54 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/VICIDIAL_IN_new_leads_file.pl
+54 -2
View File
@@ -62,9 +62,10 @@
# 160602-1411 - Added t2r25csv format
# 160628-1435 - Added t2r25xcsv format
# 160729-0811 - Added t2r27csv format
# 160809-1113 - Added t2r26csv format
#
$version = '160729-0811';
$version = '160809-1113';
$secX = time();
$MT[0]='';
@@ -232,7 +233,9 @@ if (length($ARGV[0])>1)
print "1,2,last_name,province,first_name,phone_number,7,address1,city,state,postal_code,12,address2,email,15,16,address3,18,19,20,21,comments,23,24,25\n";
print "x,x,Smith,sale,Bob,3125551212,x,1234 Main St.,Chicago,IL,60987,x,mid-block,bob@asdf.com,x,x,2nd floor,x,x,x,x,last purchase,x,x,x\n\n";
print "t2r25xcsv:\n";
print "phone_number,x,last_name,x,province,first_name,x,x,address1,city,state,postal_code,address2,email,x,x,x,x,x,x,comments,x,x,x,address3\n\n";
print "phone_number,x,last_name,x,province,first_name,x,x,address1,city,state,postal_code,address2,email,x,x,x,x,x,x,comments,x,x,x,address3\n\n";
print "t2r26csv:\n";
print "phone_number,x,last_name,x,x,x,x,province,first_name,x,address1,city,state,postal_code,address2,email,x,x,x,x,x,comments,x,x,x,address3\n\n";
print "t2r27csv:\n";
print "phone_number,x,last_name,x,x,x,x,province,first_name,x,address1,city,state,postal_code,address2,email,x,x,x,x,x,x,comments,x,x,x,address3\n\n";
print "twotab:\n";
@@ -1133,6 +1136,55 @@ foreach(@FILES)
}
# This is the format for the t2r26csv lead files
# phone_number,x,last_name,x,x,x,x,province,first_name,x,address1,city,state,postal_code,address2,email,x,x,x,x,x,comments,x,x,x,address3
if ( ($format =~ /t2r26csv/) && ($format_set < 1) )
{
@name=@MT;
$number = $raw_number;
chomp($number);
$number =~ s/"(.+?[^\\])"/($ret = $1) =~ (s#,##g); $ret/ge;
$number =~ s/\t/\|/gi;
$number =~ s/&/and/gi;
$number =~ s/,/\|/gi;
$number =~ s/|\t|\r|\n|\l//gi;
@m = split(/\|/, $number);
$vendor_lead_code = '';
$source_id = '';
$list_id = '995';
$phone_code = '1';
$phone_number = $m[0]; chomp($phone_number); $phone_number =~ s/\D//gi;
$USarea = substr($phone_number, 0, 3);
$title = '';
$first_name = $m[8]; chomp($first_name);
$last_name = $m[2];
$middle_initial = '';
$address1 = $m[10];
$address2 = $m[14];
$address3 = $m[25];
$city = $m[11];
$state = $m[12];
$province = $m[7];
$postal_code = $m[13];
$country = 'USA';
$gender = '';
$date_of_birth = '';
$alt_phone = '';
$email = $m[15];
$security_phrase = '';
$comments = $m[21];
$rank = '0';
$owner = '';
$called_count = 0;
$status = 'NEW';
$format_set++;
}
# This is the format for the fixed254 lead files
#"9185551212ROSE SMITHS 155 TIGER MOUNTAIN RD. RR 1 BOX 107 HENRYETTA OK74437-941DEMG 226555 0 "
if ( ($format =~ /fixed254/) && ($format_set < 1) )