diff --git a/agc_2-X/trunk/bin/VICIDIAL_IN_new_leads_file.pl b/agc_2-X/trunk/bin/VICIDIAL_IN_new_leads_file.pl index fe7be26a..205fd020 100644 --- a/agc_2-X/trunk/bin/VICIDIAL_IN_new_leads_file.pl +++ b/agc_2-X/trunk/bin/VICIDIAL_IN_new_leads_file.pl @@ -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) )