From 6bb93a725311d93ccf548b40baf9a677d434c76d Mon Sep 17 00:00:00 2001 From: mattf Date: Wed, 7 Jul 2010 03:10:01 +0000 Subject: [PATCH] Added third generation web-based lead loader capable of loading more data file types and optionally loading all of them with custom list fields. You must install the following perl modules on your web server for this new lead loader to work: cpan> install Spreadsheet::XLSX cpan> install Spreadsheet::Read To get to the new lead loader, click to: Lists -> Load New Leads -> 3rd Gen Lead Loader Here is a list of the file formats(by file extension) that are now supported by the third generation web lead loader: TXT - tab or pipe delimited CSV - comma separated values XLS - MS Excel 2000/XP XLSX - MS Excel 2007+ SXC - OpenOffice.org First Generation Spreadsheet ODS - OpenOffice.org OpenDocument Spreadsheet git-svn-id: svn://192.168.202.10@1472 3d104415-ff17-0410-8863-d5cf3c621b8a --- UPGRADE | 22 +- extras/testMULTI_VICIDIAL_lead_file.ods | Bin 0 -> 11702 bytes extras/testMULTI_VICIDIAL_lead_file.xlsx | Bin 0 -> 10873 bytes www/vicidial/admin_listloader_third_gen.php | 2166 +++++++++++++++++++ www/vicidial/new_listloader_superL.php | 2 +- www/vicidial/sheet2tab.pl | 123 ++ 6 files changed, 2311 insertions(+), 2 deletions(-) create mode 100644 extras/testMULTI_VICIDIAL_lead_file.ods create mode 100644 extras/testMULTI_VICIDIAL_lead_file.xlsx create mode 100644 www/vicidial/admin_listloader_third_gen.php create mode 100644 www/vicidial/sheet2tab.pl diff --git a/UPGRADE b/UPGRADE index ba7f1bfd..803baca6 100644 --- a/UPGRADE +++ b/UPGRADE @@ -184,7 +184,9 @@ OTHER CHANGES: can import custom field data through the web-based lead loader in TXT and CSV format(you must set a list ID override and you must select Custom Format). You can also use the non-agent API add_lead function, - (see the NON-AGENT_API.txt doc for more info). + (see the NON-AGENT_API.txt doc for more info). You can also use the + third gen lead loader to import leads with custom fieles in several + other formats. 44. Added more options to agi-AGENT_route.agi to allow it to prompt for user IDs as well as set the number of digits to collect and check whether a user @@ -192,6 +194,24 @@ OTHER CHANGES: option in CallMenus as well as in the custom dialplan. Look at the comments in the code for more info. +45. Added third generation web-based lead loader capable of loading more data + file types and optionally loading all of them with custom list fields. + You must install the following perl modules on your web server for this + new lead loader to work: + cpan> install Spreadsheet::XLSX + cpan> install Spreadsheet::Read + To get to the new lead loader, click to: + Lists -> Load New Leads -> 3rd Gen Lead Loader + Here is a list of the file formats(by file extension) that are now + supported by the third generation web lead loader: + TXT - tab or pipe delimited + CSV - comma separated values + XLS - MS Excel 2000/XP + XLSX - MS Excel 2007+ + SXC - OpenOffice.org First Generation Spreadsheet + ODS - OpenOffice.org OpenDocument Spreadsheet + + diff --git a/extras/testMULTI_VICIDIAL_lead_file.ods b/extras/testMULTI_VICIDIAL_lead_file.ods new file mode 100644 index 0000000000000000000000000000000000000000..1561a04a9600ad5cadf6f467a318565727743db9 GIT binary patch literal 11702 zcma)C1z1#Dw5GcqkZwe&p}R}EyI~kgU}zAKMi7vc1}Txwp*y6dOIjMFQA+B8_j>i- zcklb&I?UnhSpQyo?KykaxAw0h503zVfkAv$0lC_N?Oj-$9h|_X=FV1Nu#3vyFz;ag z65_ij35dOgwWX`m4>V_XptFmqi>tGlsT1%IJrop_AGZ9ZboW62FM6gR5ZD%c2Lo{e zf?S=P?v3!UvxSFIkw?C_9R}|Hb|?RB4&hzvKh3eQg_yd4e;V`CF+YI*y#3oG93T#^ z4tIWV{c{rkrbqfOqd7Q1ES4MT_i``TS&pI3>^<84 zX8*JT(PPS(rjKg7tc=$8!=va=jj>RK1)S)i=dMf?>B#72N{b62Vh32JD?Ovd*pbCP z*i!bp7o$#7t@StKN#B;zZ(Q(z1TEq3jdtHth2<}IJ956JI_l#L zprTg)qO^)26+B&KBZLnEGY1JHyj}=)oJ`I3nw?0VoAO?^`xL|M6M=f*J6BP-irkwcl0|e z0w{$E+1hbg(dTefKXD4%>tjBV>(mb-QO10C*r%(=O8qg2j79mQg}7#hp3ed^iRJWy zQx9h&V<^dHGHYpGf7`RS4De-NNW>dv9ewCG(pET?hZA<4Sh z*Q>lN66;tqW)GKV6Sz2`)A&0l(2Zxi>OqVf`_K&*jCrT-RfoBEYyu|i=o6akt z;KUpcbRDctroI>z*18uE5~lR3mYB4g7B zd6Tu8plf|XjFgp^d5Er+Of(iV5*z zL=PXqCO?k!DcczEil7VASz{XSouz*V;U2lgx+s)dQBPz(5$N^Sy|CtVIe2tTRIUo~ zsiq4vHo=QC=D~zcZ3cQ#0)m$wEN~fgc@qh~D%d?=933>gh_3B?Q|X_7KrEi8065YK zpL{LGr$e5bDFhOWeyQ4eSjX+LZtZ059$Fza z<1BTK?(P1gjswZ5E=f*q1L7-p|KRi1Jz=!8NBwh_J;si!0KC(`D{xx`viT_oDQ#-;h9-rWJ45=y9MiCq)erY0H-Pn1-@wmq3A_ZTG< zcUuU2jldEU^W57^xy)lJadZV;DrgA8QaXGQ?mM)U;ma%1_<0x}LFmSPnWN-8f(DlG zT-!JAScF3=Y$1vyNY(l17|IOdN->2=;G(clp{>5MZ8ouT)E=IWR;&FR$OGpr`j+7} z^4VZLz#Hue)DPY?dQH7~U*PrHI5UG0m$ZscHeom7I^mzk5?(QtUH5|Mbqq8rC0{$f zcpn5x8*7V7+JHlPx7am@+0fzGU;yqM{;oUdx7I!b2JY zfg;$3GTVMz3}fP5l+4{FvX1w%;nf$xij>mfdyG}vh5hU+efb+hLa&-uxlhT-Yn$-2 zLIo?uL*KqNhd*o{CHKZcTTLy=^h_n9Lq8?s_8~bGUEk5t}QMVQ-y(UAY9@yzs%p=TaF%w z51H%*@w|xO+fj)9+n$L1$BHDL+LbGesgd zMIt*TkWkEX_ZL&VDKoV?J?w-yfFC<5P)k>=MT?@gHuxR5=`FTS(AjS!BYG+a2TY7S z4Pm~{2bZ~1dbPvPFdBLKRmz9juEET374*eYG^Ob*m2ag#L?)+b_2zfO_*nX>CZZom z!vkmTxgHY3Dl;Q+5fY?}*S}cIRL^z`C+pN-O3Q?vmUJP1YA&%h2gc8zjr3OB4g+}! z62JDtL>kN8%*d6$!7roU&i0kpzH<3`*>&NC$OpzwU%c8l?(7*@+>ElMnB8tYe`^M{ z}ZCIGKF4PTQKo3mPc*%c4{rs5FyL+?Z}@Jqn@W z!OAUq%4S%BwB2wZGPLPyU}P+7Scze}ryLeR{F(qrXXFsl1;o$grA^G4tkLcX?l=GwQG+J7tQ9KSl z@x^F$L}RS?Nu&Ma^7N?`x9jUo7C0lLWjOV5|3II`pWzV4mfa;D8R*WFKw*Yu4k@6E=~U@6<0cgDS~q`49$c}d_xzWc_<#svqsXrmkjc{ZB@nl60lwouWA*u+kZcvpt2hBIX7&f&^aP+{Bu%#zZYWRF z3@rb6NBB-w2c}H-18{qESikm6z>@<8^}?pn>SF5z;uDRfHNzRuNQ}^$NoSW54y1Iv zv4C)D>>1If-mU)wz^4Wzg<(2zyj>`&VbNAUQD+ap8LqcS0I#QkukD8BVM%yvRHRb)XGdOWb+P>?rP6g>zkf>9L_6OJ$~L?TU4X{SmYrZ{QH zhIJ>)E(uZ%sIM^CKL`o&X5dI2R*`lbZ!!>ryHWw#nbssh*bF{C8Lup4UY|9{leeuI z)3QmT{#ukf9aOc;Ks!OHVM6iEVC4ZUA~ZgSAT=11ewmc}HG%F5)_Q6Dn*e`>v*$;Si5n+r2_3 zhQp*>#B=pI!BtEPd#ain2=I1tol%+vNxJu$WRxI!xwvIhKSLcyXQU*SYVU-QeD z1gZwMs~sRZd97tpvMfB+PdN0@Dc?-mTNwc4g!iAuv^8E9*a5M#da(S-i2XGuw_06y z7xgW*lDn{RtGsn2Ub=&|D|4%_WoEGtaHM2SQ0J!Fc;?#OM}3k$lhgPFiG^??fw?JS zbUEfDS&Aq}&PDlIvQgSC9=BhKvQm12{WKH;O9~XA7*^`3 z^=$>c_R-jauXM+Dp*_KU!jK1|O{=W>1U=I3@nw6{_k-iDcMIQoH*b6? z)=SA1>n|SW%%9hi4olXvMe(gZ|Hip3@*rv>YGZVzbs#5>{7I|%4*#=$W+au;Tg-AH zLt(0In=<=BsE*9jW+G&Rw{_6w$K1moTGumc7oSGI)xG5?CreD+d37sZ$&e!Sw)k`) z?&SHygNnMer;UP}>w1oxM;K{0!)dh@O_8RckYtwI&?U5GP7+pZ7;Zggeb zoO%bUD;qXSSG~eVxD~h1-B3nlvuw$7tXC1s{RQ6*fo7jfS0G(_$XJbe0UTt(O87d@ z`)eF4S5(g4?-;Yj=Cx(KXBG0+z+qq^W|OZIMB0d1(E;?}O5-Wi1s3!wOMIgM!uMiJ zPdC7aCAq6NnV?>fc+Y9aj5H>FtuwO-oz0;f9B`avR(e5nGiHNiJ%xp6kr+Eq^;ke! zIOgdZh(^>aAyiJOR@G{US)5rY=#cPbuFULNCc7V9maJod68Tv$>FenF<5rGp!J!F#B@!X({}TgET1 zoZwKa<3Dop?y_Tc_bo&5F9u*jo8+=SKM6eqIPo{hX671m*SR&QVeiAG9MnOW= znc^vX51Zk8AXKrJlD=cljhkJ^s#@GVlUX%!7NqjXalk2krLtbjxJzng*dyGLp}GD} zxOW0)WHgGzF`uF8w;a*33BK7Q(XR!hc3eW(6L(ic=U=B^GQQ>#?^VDvu}m!LL7#M=`Hyz#hQz06p=Jruhkhfz4rdm4~EXu0^h zAw4jrBR~zfQ{&{VwR#>CkfzrlCZ5;%tcFJ&dJWwe6uA#C&M9Ec=Mb#m`*H ztHY8^@w+6^{pUxr3+!TgA6y8E+}$YMz)sG0=`JB^HWpTDO0Yc$Vs343DMYQQAWWa&G>)s z&HrPdKWaQ|t?i!)QCqpVIPe33?(Xg^?i?%-Crcn3A0Hp^M=SN8Lz#pA>gV9cMk>R zU}LpokM@H`N-m6Z@H&+DKdV2nc>A1gx4S45GN7a`4|s0+Gh&rT5v+)A*Kq~|7gX}Cn+46 z%<7I+YpzFxnd+qQfx3st%(es2X{WSwHgWyjTV(0>^QDLPVyo?eVcGP_tgGSh^w*1s zMiX}>n~)VO928ox>rEB>As+_ZE58qvZM9UBXDpP_E*X>C>WTIu>4R)hnk~f>yO%>N zO+C1KcDcaZF5>GB(p442?^*1?2YCDRMrY^X109S?RYVGXP6q^E3Ae_Opc-f#XKrhY ztW=SoDKneU>(l{Gk1(!guKI-Lh9$uUCB%VkLbL5F1tgH_F9Q?9Tx$@ ztl)zq@QdKMvxZ@zlp6ko%sF}ER0zrAs=j$jUw9u-3GlRj)7-H#=h0ZYm!)_r?M{?E zHzT6mj>5EQP@Qvhdju^D$zt($ zxDm#AvU8p)#Hy*Q3(P7iC>omYPnNDJ$H0&2Z80(|U0uq|3MhLvPy1H$sTx6zCi-L4 z-X}jreIJIbwfW_XJ%!X4$)Q@Ca*Jfmxw*IHecDJE{ECf(T;!=`UmJ6b^xRtI5cOU#=h)2d zo9Rz}{Qjk~?4oeb0=cS0Iefv@z9t z-543{8ltjGFD9z?8>|Utv%*6Ki6XD0=Tn{*3QSQwg|b$vuZ}+vMjjjtat+$eX6eg{ z5Oeb=kW5aOTx;FZzu-wuwu?X~HC8?rDnB;y4YxZg!p<*ErKtl?mmh!>72Sx2Q7)(G z%@Su_cGmjKquvU6O;t6{J$@yf0|sBZ%SNV*OeT z!33?NMtQrU38yPcNR_>S5WVKSN&3z&?J|9n<2L@b{ZzX)Bz1LGFN=TQWt@kfuHkuY z5uEOmQ_vf9vA7(smtJz|+KsNSPco`ZSaOFA`!Zsa3*2_)`7{V-w+OZ`7VB!<&?Ni{ zl9Q5X30+C{46Lnr2uIE6Ek3nU!slS9eu>mWF3)rE?&HDM)(uQP7rmNfwgCqul1UB+ zl#yP(uMEqc&cN>X2Ql)XtC7W^Ie*OLC$OtHvkA!A-WLRIiw~DUtQZ`)r|bj$)D5rB z&GqAB2Jw>(2IDr^fk;FCiAy^~NN=9)F&i>uR<&mDa3_4z^W_56^`Q&G=M4ANJRIg= zu;D(IfNFcdl_kLNlr=26p&mt!8ikGdS*z^B4Sn_by10piudJPc^n`a{!^^9=x=|e< z3>hmgV5&iAriZfY+2GT{Nv{p99UaiIYWj45Nj6}a%p?%X>A9Z06dpl8F zNE`jhLPSnHHH~iBSv7aAoyl0k&5G0oX$ox;#2UqBkNVQvysZ=%qmWchD}t$sv>rPG zeOL2TE6V2~?0B@v^jG!T%2sh|@+?K-sPi2B`UEM!gOgxcWi#{{Vg*K>mNR^6j{q&T zZLzHcfae2>S*6WR!BEYX4+=i}hy>Xj6{(o(#Oe(1&XF5wN*l%NVZ-Ld*=;T6T&4PO zMvS994-rQm#&n`6nDWHZO7~E)oy|-sA!u?Hgd-%@RgxdLBmMFzQI5b$$=X(ryM?#%$}`{uR|nYr&Vh=tQ-_iLnwz%lSyY5+6n z({;=p!)z`R{GC^X3iP_I*xa>ViO_Y?r43(Cfb(H4O$wnyC?5cDh`QUw^bbVaeNOY$ z&@LtJer^*@J^B}2%K#;gz*ppmZz7QS}E` z$Ti_Y6TW;QX^xbJvWl4-itKaw$&c5;@3}e4=5$Y_=&(PcSy{J`>vXBf#(r*ARhB^p zZinngc|s?sA0Xk`cbwKGdNMrI#Ga}XTDLIbxlEB>zvW;hJRGs?SXD_MefpgD?;rU) zZ+L1qt_P6ktfL`j2=uZk1Un@wScsD?uqicsLuAE15GmBYcb`^tTo_vWqaVej1DBnPFMKOa9%~l;qZ4aVc-+UG}`d!+s4{ z@+!KD3yn2u0pZh;>}=9%u4|4j9)(&8+zeA_Zbo0ccE^s{?XH3Uxu)5glgXL(4CF15id3iXi7bbyHLg_@1U4V(l&2wn?>_oqc|*= z?17IrepH7bAZKMG4C7&~vmZs^q!}O69`NKVsr24nj0Q7T%1gTs6P?2f7cLLm#ljvC zk5>)JD;@1p5Z0-sN@4pz_TfM8MU@2e<%B)p0T{f6y`#2=PjhZYQH_R5f6m9t2Q6`m<#Xg;&(Hh@Td zf*^P9@WW3OTs3lp;#)0JI$W@L;n`V)6f*l=Kh2y+P3fkiL89M!-`y*ATG6@KH8Em_ zSN=}%t6Ao=8*)|yjaU&8rXnoR{21!MAw9vF@EK(d7^x1L4LzzCpu}B%E(Zj^vJ!fU zqKcbIcBL(I@}N8LhL4Crly5ecD%N{~K-gd1;NY#tXSkQ@r{YTDg=NvgH2knbCydJauQp{hB&@fE93?2ut>>H3YvjLt0ZA{k8^RrgrC z^BD$gX&WMcM*+i7;mcQ-_5$KY);n}$J^)QLH9>6P`ZWKE;q zzKl;X*@#es&^}lyX0|!8;iDx{CtpN7x?W4h(v)vke%d-qM{;RdHASKb7!+c?@PUsD zyLWbLUsQP20QQ-Kv@vCep2`vS2>JUjccsG)$JfOXFJ*-w4LDr|!5lr>XBhAA9nozK z+`OoPC=!VVJ9=|`d%#z94ummGHZ%-I{zkYH1*o&phq;nzzObr2c8(iiCt_tDl&yM?8QvR}?H74mC`5IOx5y((9wFUC4XaOzL%1c& zc}!DEzz3&ZlpMK~9rTt^Flt0!l9>0h+53^VJkPeelL&j0$dJRgJOdgzjcoW>3-33) zn@BmQ@OIl0Of=!JlanVhd8FfptqBVQ9OiJxZ3y2nJ^VkKiLLAuxCR-U=~TQ z1VfEJw9J+#t+BMxVkD=@X(jaRlg}SNIT0O|wiAN*AZ5+#8}pN*lo8{e(w!a2p0`D) zVVfP{o#Ze`!dzWc9M{V;_~Cz}wBL`#U<(nWhG~T{_eKUPtF2;$t3UC?APnp>MQ(;@o5o@GzT@IQlAGkxpVJI-qX5RsVwHb6r=Ft%`(BfZKkAL; z4qgMVpyJN8HqNIX3=Li6JImQhu%6jJ?U5tn!cv zdtn5*GzIU?n7X+HaC1!VWux@tx?o8)YsZzqsyEL}VFV2=N``9^I%4U85yzXQZ0Zc< z3LIhCfm??#T@$t$>FLP>qb`Nv-r{*+DLUx16xE8c*inFFa&Ea&k*oQm+t=N4eO%)% z5k@v4-%h+X8DaaB;}{M>bDUaHpvi`p1lEI3Bz;RP)=K6KzRJ*%acrSe(qKfms4&9` z$<(uZmN77QSS|BcvaBzppm390O%+B>dE<2mXQTy? zyin3B9bKj)00Un3p0ex7(YYWHHhYv`vnYbBq=#`wk)F$s4$`5$Yj{ydG@~4K+SXEa z$)k)Bdd8WBAs4hx3Bck15Nmy| zGKj5J^s}0;F0JS*2jm;F!iJFy#6dR+{Akb@7@{zY6w{`P+4MS^t2(eZ39Z@1)k6Mwg^H(f!5FkA_E={3^VvMz?oPL_7LWa7Ump~~?9B7J=XF5Y%h)QQ z?5(S;r@Weo1~27D%w#3}$<>3CWzE)}^qV-}QZ9LpZ{(Oz9%>Nv^7&SP6Ey)?<(kqY z92s>b_OaUa9F~P7j`j|}s0a?_YI*+E;j@7?bsi?+Kh|W{l->yhJ637uOM&GRl>u-VBPW7{yU+CfA_8{N@<8O%PL9Vopae+ zTY#N^@bIeR#q2vNaiq@pg1Z*q4;EIgNZRDSr4(vIh$5rK2qns1JMD^zt+UhMil6Zh zUb>7BDxW1qRwreRcB{c1o{W1u!Z2+!$Fl;uG-?SQ^sFFm`-1gqXCPDNK(|4O1UImR zEc*Ryho1(tF#YKqKR$Amfv=%))ccd{I)4GXas~9xg1Wx)NtNS15KWs`4!%SG6YQFj zp;DW|{9fdsgws$a`{=%ngt#6<&iCKiE~RCtD8igFjyG)cE(wQlt)IN|r`e-iYY$Yj zVpTMZW_Za;Ksm|V$QYiPS3`JvdJ3r!Wz`n+n3k{A6p7ml6sx62wq(H4qgc)o|{Ko^kDU}&b31qdQ2_F zNMgN-v=&dDJ2#n`*zfPf%jr+ye{JUd*X~FzsibQv={3puq49@??x#w{H64igh`5UA2zmfhvuke3C`o-}4 z|Dv@23(7CX=YONzb3T8`*}tItF9zrzU_ZYFzjHY5IiSCU^X|*>8zc1RO8->+{dDG@ z;_*u&?~1<&A3yc}>+I&2-X7i^ZTT)Ye}9tmQ|sqwzlSe>_rK=dKK5UE`G2DPzA@g1 tI=_UU_V0nuKQ(`Ujqf+kU-Ibje{7>F@`ya~0_ea&PZ=e00U8SZ72ag9p1Rw(d04hLH;`h`*7ytkd5dgpi zEW+qY+Sx+Dwh#kNcYCmt9-EtuHD&G`48v;xEcEyP9{<}sFsRvY+rfd=@?=+3s#Uv7 zte~_MhaVzPFE@(GaU{lqvv7=tciS4TrdBd8$3yy3KB3z#-5j)Tqa#IvY>}bdO?eQ3 zY`s-mHK5r%qW|(6wZvoXvJM@&ZVa_Z*_kK()}LW$^ldot1z!2Y;?$5T1XZ0Fejn%v zdW0&{I2Y-kkBEb25=WeRo%xs}OYD%8^P< zz{ID0N4fL9yTkOgUOn3bK^Y1$%R!i87GnxD?qEi&Do#AdgyyOpLmnwy{B5noLCS_8 zS{K087fLhCOsPpjKKze|fpSf-Z@H&RmLF~Vy{B3NAY_^ETlsQUmYe&&Kbq|r&C>Ir zr(i4J8m?f=RG12Wr`bae;Y;*o<^c}pZFD#j0JQQRZfBXxA)BtG=-~1ZzCG5TApm=k zxJ=tWi=y$?MMM|0y$g#zXgaoYH+%!T&3GhV-F)G46TQfrY{JJ)xN_}BdTw9WnDeSy zWI{F@N~XIzIDp#UBC<}4gXRo+M+q8msDNP@14pp66Fb|FZ_3<{|3>2fnh1=H8&T=x zKzz zm|dl_kwLtQ+t_2~g_AM{t zWR*yr22J23TnJnS=uXhylnjZr1F-=YYWPrEihd0w}=P_P)^s6XVw%O ziup@A_%!%*syJOs6`s-NhSMPg&mHFHj~iApI*{9BOtPJ(nLHrgadw|Z|0t~7z;!+4 zYh1_}o#=00&P%Bh5Hoyd)zoOK=;^R&9+Oo0w9k%k*c3}3e0P+RIprB`Z$Eul7iDGV z248T0vSBqzr>P>x!b79JZQm)OkQ9l=@)y(k{_fB4gG1PYy;0Dj&f;#?)6Pj%f$Rq+ zjJ>Y&AsLItN2tGhTCStLKrn=|!U6iU#Dr1<%Amh;C-U(CG{&%+X^t?H4tc_^e6^LC zsKieFV;T16y3%_}O=RmO=RcTd7Uv*iWVp--Js63sc}~VGEz&M%2~mhwR|0N-LN58n z=(Q}o_(^?Dc*dVOkE#G<4@uNBVAVCjr05|<#<55qAHRBuEzQQBvu11hV)PwjWW~GQ zu>+bXx+@)tfY!&@5$igd4keZ&Z{Oana!6A-xpBB__?4gc%>eQhB|&(y~R%R?bG=CN1fMGz5HL9#If zFG5QF39VcqS39ancmt-%hs145Y_z;CtZ}ao3DfjmS5b`ash(cIM&0<5BS9u#<>hCT zk>;Tk;IQ=KuUH#A0wNps<&L1iyHAsGl$)A$}u>jkE*?)d>{s`th9aXyp zUc3*Ov#yj7I~!0v36gX8Y*l)NGD(+h2)Siy(o>CGv2l4XlKFLCn9fF{WSFLX4r}I7 z*d|Cey>3Va+$H|GoI*9xfZ{kJ$@El+6t$1%-SRq(^VxhrXpST`?WV&*nckb1pD@R0JQh9vgW9T=c<{pJznCvh= zdgTm!M4_x{9*JRaG7u7~vj8Vz;>|;gnGiyhghD^BKXu*wae4}6Nr{lN&e+CCZ~1!M zdB^_OoZIfJYX1+Lk)MaGB7%n3zSFlK@o!!b*#E-G~?yYm} z+t#U9G+n^noYAG~W~vm8DS)e_(ECKDlfRNonR$5(wUfkl^Cf*f8+K_}fP6(XJsP6( zyi+LCaXmuB<04i~9-Ys*@m6>gqQt+z8e|9X%uDMaWC#rwZsdso#!Qtyjri)tb_p02 z3&xLnl?F2P_X=HOi>9s=0mJWr{TY<*5V-W+?1pscxY#nB#%jry`O%ja(QyTuYxb zEG`SGu?Y6;>+`+-h)R*0o2Fj6uQq6?ZbRZgsR{TyZ4RZtx zKNsLm77E!)g@76O9fm`c>l3jf1~~ofMORa@K;uFS;Aaw}4Zt^kb22ssbbHAYrl)TF z5dn@{#@bzEhMrG*nj%bk>soYRwYX6gde0YQ`Hc^_NtsDwQyB6;UnIoh>>sG_&N|0j z`YVd4Z<9-tDJd#*<d_}qzijVG%TlQ9|ul@Oj^mA3FuMjaJ*%r=M)z(8cFqZ@w-f)sFOwL#2>9TB( z83bAL+;N@sr4GJY@^z^{4kjDrXE7Fy)j(E{Jb%v=aOl7%c`9@P)62Z*m5kH7SVZVA z#A7e@3_dg~6}Yd+FsX7AWpVA=ouXdc!;83tzh2*fuB)M=u$RTqUS@yS-q93bek9`e z)L_YNX=>5cdB)?*mxI#hB35;Jcu$L48r|P|Rqe#(B`O~Wa`CD;$=E7PfD~t0dc24x zzYM~>+6XD64eYIbC-hFtum%zMMkJSsG?3qqylKml+D}Oy35V`^$J{Vl^7ypd_C(^N z2fU}L?bC2!Q{)s2tIm%y$j}|R%m#pi-?>d{-vBcb=PnZy7>aKM2VXoZ=5{K3Fs4-E z^lphRd*1fQ$hyUS#EkddZmZOKw35Q~B{8*210tml zK;SB4HaJQb1<(8u_oAm2Z50LmtuPHW{3U&FTK)C5TKJA06SSkU?=(Mp70tp%4~iI5 zU$A;OO-z35Fn&&NUmn!U08^>Bcwt1)wisI(h<>FJKWF;ABfUb2lMnd9Uc+d=HUF&! z5)RcAMp6zsI(K3)AmSm2`R*Cq;7fIsSvenc#%VrEqT7dzZP9P6`b{M~wID7=QVYYa zg#`&Cc-R5s!2A7E5qf#qdqPm>bc|AI`xK~LHJ^_4?|(=h#(_qus}}8 zw4oLh7klXi6BSTGhQ(@6hB|?zX`gLw~$f8qx7t^M3rn507SWZg@QnJrIw_0 znkiA9bfA|+s|ZXDWeR1+Wj+rj#o?WN__pMm3uX}3ZedzJxNSwHC;KYPY?NVCS%q^s zgE;Q6g%{~|XSkQ1n_+X>Xkyg#d_Vjqrj;MEG`?bh_3^HEargy}x$ac_m|q zK*KZLsw5tLE7J}?!sLg+?afpQE8|EzqHpiiSGlhoB^XdQ^TmvJ`2 zv23v}_V7{hWVP-2@;VcR74h}Y>U9k4i_%XX8CkQ=>0EoMn0y{e9T@KKj^J^5VbnYA zVqH+uUIWs=3#OkF@8R$9oMQ5JTg$sz*(Q6pmd#10%+YR6=a+Lvnj-AG(Lg#hUh(0# zDND$POR*h#M*^xLXnv)vANs+`0t|*Y{UJtwHhyNWpHeh1raioa15f%J+^wXWNBndU znxqCF^*gQ4aK@MOhzrTF-|%icYDmFto169{o4n~)!X+eT7_V3+8)1VsOb9LBe)X7V z{UBb&zxxRf$SNFbG{M%I2B)H;5Y`*}6d$!JNS*eEsMEV^t|}T>5-YMbCm-g{(f>Vy zWVF2Wh0U=6QZ2hm-66|{*OLIjM~`)G_oBThgl+Ra49gvl1j-A<8j9q~3G_+tANv}M ze{ns}vhu=!FSHpPI5`LYE@{70P-Ml0j=ll{GKuki%o2W!ZpiW@&Nbbe`NT)q)AzBO2V@?ew==UfgV!Uv#CQeJ3W62EuwN zW*&K=AKERHd0>Sl9wyMmJoGg2cXo1DCu2OA@a>}(y3p)wBh`Lf=pt71SRBU7j7PeN zzjJl~kGj|Nm&kQ!Eua>P=Q-mu4Dy9lEKbJXdwmvlX~GMJG`=H za?O|#rt=<E@r0vZyEVB8Y9!joaXtlLYD2eZjoY^*$v^S`r!q;<%zkKLCKT- zHK_D%C@D3W`7IxAwUfk}L{sg(ETTlT$KQxVsylz*nR&U{0tP1%roW=dfOxSl42HY6 zx-7wSL#Knjx+j7LQdEH?3d>%RPRG-20*?I0niP?a4 zrZ%XXcL7TWZ&R>h2mF1!q#m3!oc{W(6xXGxDAPI3&U3L-`n%6113`pmk{*7|jB|a7 zGYDL-V3p=mH`tIU+M4mXOH)EWl~v~U^U9jQ_EqK)nEO;CtL4eweAxs=%p6nt)LaJB ziidO6O&aSigKmY)E&jt|O&`2&Rs07N9*sOQQ&Pp8<2soiz?X|LJkd{XCeX^>SPl+* zt9iGiw<&96U5%%kN1QrqiQ*kL=-gJ9Thhbfi!f`S>R&GCey$aRTh=Z5kmj>|;@*Dk$vHBjDv?p5NytvBp_+;taHa19v+)FRimf z{4jCnOT*LH<`?vD*jzGCMKj!Gi%ebGZIi2N$Nf7L}?Q5|umQCjGB~rsseZ& z%uZg2AT?yP!5jgN#?S*jDO+(q_do`D@%QGx-A)dNNiQ?LSiOc0KrUnmSsK zg~{fqWaOxHMeo1|1yR#ByH192%YtBR=7Lmq9db9D-q<<&kE^i2;yhT}Hk}s-ExzRC zx0(r~cY$`xTK^en_;nnoIn1EX_OO#!@5`3gynSU;PAb`H7xJ0wCxp<=KdIZ27+Nv%W%~Yh#XNJGb2Z}EBZUs6--c9 zK>N`Pb;V+kYNtzf@H9xy#TYxb533incyN)Qj`>{*R|wh_UUn~!wO^1D$^uf^{F2%H zsD@q#&e1j^M;r_raONCCvc|oh{v8tdI7>o<-~J2r#YySr)xqE;JW%(IkYZ=* zY%#8ova&7Akb>3*=?jC_(1Ifo0+u_VWMCLpV;Ej3bggut8@Yt_QMhMybP7s_?ZPjhOQ8SBl)ydWcwl;52 z5>>cMpZW`=HpU6huYBZ3o!UT)lZj_QWV$FictL!;AsnnJ9IQp^VugA74bp17OIDodO1ak*NH-+P3UKm_8B>I*NF}%9U@oMdtdjdMM*^- z@b}2NlHpFi@q;MYe5@BXM=)F06+m=Kdm79zPc_3iK_Q4p()#uj-{dk6VmzXNE1>CEt4@D zi48vN9sWWmo0~TqnS#*{+x#+Li%rx_i)E`}8!i2)YThZ_|73V#D)*Uou86@&XQ2uEy!|o!gAZzZW*Wm6<#ghbq%oxk) z?#OE!^=WY0Olw2_xeqFAS(%NB*TwFhYUaq^mt*Sem}{;qq@kU}8_w(_pWn*iQw@ltrLDQs5B&leU$hON!~?8c(Rml%Kb>c1+lh|(}Ewhowz}@K*9;KV(G9p?tcs&?R++#Mq5%F*M z`IMDC70mM)1G|bfTX#IP*e*4Yzp& zbl}mO9oT|i>r8WtWRMk+N_+*n_@Z?V={I0Lp8x8+uz_HuCOVn|m`NAhS0=1%P~Ay> z=|;A^iiwdecs;hty*&r>(JfBkbkKPVFigtLa_cHX=6#YNNxoGKbearYoD5{$f=Hy= z%w&e$tQ=AN*1bj#Z`(dV-TNNuUi3fQ3vssw|MY8uM*E8m4zw2bQ;NvL3iIH4NHXms z7BrUHf>E8>GF+ht0oF*m59n_$Kgy?>s_g3<>%7X!%G%gFvi8e_g!VLL*xB)BSUzzF zKaW585OQ+{XO3N)c#VvKpYU;L2E-=6ccY}a`*R+Zoj=JhDMx;)W3 zOl@jCNg894T1`$m9jvCIE&ZpKr0mu6LXqXinUcnw0^uyJHSzGr*6$grKL%i;0kcBU z$Uzn4G~S9FU=GIeq-inHM%R8$ju#t`8~+oU0&FW@N;&qu4V9?cr4Z9NYcBNx)gfSh>bGT#7a&|pv$Dz0@>3fG_dJ< zCOlWSd5@`@P$Ht6BJSlA1H){qEy1RS3)#&KvrMTAo|0Gnq(?o99R_((v&^%!(|4WK zPLI|NOqXx3G0Fro`|E>l3u+25u8gJ%r-B?z}42&)}ERpyAa$0_G!VyKE5`?cIUGL zbfjyz0sI5Qg9m$q-a-wj)&wB_4n~(MNgEWpjjCw(a>FoIbX4%Lw&g-6)l7dW<%6*e zF<6ewq?eh&Zb&p^T#B{=|+bP%5d%Q(HQg!ts5#wgrxp-;Nj#K;u?`Rv?V`~E7~H|eI+ z1(t#{CNkifZU+wHOKN?QgEKJI8>>Nt^t5pwC1h^mZB0Z?+dYbCJt>M33>KYRB1>^I z@xOQQub{4EdxPM1fdsS94pi#55{`Gel|DLN`_rDhSMa*Q{~aqV9$4c1s5Iz6S1Yig z>s_XHCTfm$_D<|3c8=g5&sNIZf0wzS(E^B!Q&;TdzzbSNxRdPnNHS@DZ;c?)G)R(a=2K8jP}dqykti* zcJ&S6nYfv#U{bR794!a0L|~_s$!b3@VtHkov|m0MF1@VBA$sR**dvC6xRp`yPrTX= z6j?4I=!6uWNNzHHq|9HRJB~OYMGnbHf%5Ta#y#g7k>vbx5E15ulyJj+n#s!@eRxkl zc9k&s@E8?od}7oM7bjgrdJ@%BZxheEZxVQo_rZod`$}tF!Lu_<_;70Fl&TEywBW#MhyYa%vGkPfQ%Zodn0Mr4&WARG1m5waFqZb+sf$`M&Q&7wF-y zCgDDn1>2qSZg1O1a=^kv#B+}P8RGPAt4&Ky@I}I9Qw^hWIm1u0zaEE%PCY|X1qO;MP^D{jDK<+>7O z|G2~b;%t)Lu+Q0^6xF55v*PZj*NmsCTi|QLm#rzA&B4izdyMY4FqeeTDfz`@7+6-Q z8vXs2wg1fAf3CmTz^117cYwd|u=$VSk82z>JpQuZ=Dy+Iw=4YB&>Ony`QL9|xQ}yx z(fUuMHt4RrdrR2&jqfkA{%NcX)f!Oa`%A9(0q&Q){{(>Mr2qW)|62k4KH&Wd@}GdP zIQIentSA4^Q52zT$$vQIk8b_E{4A#4N4Z}+{If3!(D#|&p!}>P-bcCr8uTX$Ch1R< zf4mgkN4T%_|3t7Q`-Sjdy8piEed+k8=~L)i1#}4agya48Pa%09^zX{!Pe=g3mI?s) ohYq=K{`dUxSM$#_e=+|fo2V%wK;r=bz<~Z$Lqn>H{zvQo0CC{D*#H0l literal 0 HcmV?d00001 diff --git a/www/vicidial/admin_listloader_third_gen.php b/www/vicidial/admin_listloader_third_gen.php new file mode 100644 index 00000000..56562bf8 --- /dev/null +++ b/www/vicidial/admin_listloader_third_gen.php @@ -0,0 +1,2166 @@ + LICENSE: AGPLv2 +# +# ViciDial web-based lead loader from formatted file +# +# CHANGES +# 50602-1640 - First version created by Joe Johnson +# 51128-1108 - Removed PHP global vars requirement +# 60113-1603 - Fixed a few bugs in Excel import +# 60421-1624 - check GET/POST vars lines with isset to not trigger PHP NOTICES +# 60616-1240 - added listID override +# 60616-1604 - added gmt lookup for each lead +# 60619-1651 - Added variable filtering to eliminate SQL injection attack threat +# 60822-1121 - fixed for nonwritable directories +# 60906-1100 - added filter of non-digits in alt_phone field +# 61110-1222 - added new USA-Canada DST scheme and Brazil DST scheme +# 61128-1149 - added postal code GMT lookup and duplicate check options +# 70417-1059 - Fixed default phone_code bug +# 70510-1518 - Added campaign and system duplicate check and phonecode override +# 80428-0417 - UTF8 changes +# 80514-1030 - removed filesize limit and raised number of errors to be displayed +# 80713-0023 - added last_local_call_time field default of 2008-01-01 +# 81011-2009 - a few bug fixes +# 90309-1831 - Added admin_log logging +# 90310-2128 - Added admin header +# 90508-0644 - Changed to PHP long tags +# 90522-0506 - Security fix +# 90721-1339 - Added rank and owner as vicidial_list fields +# 91112-0616 - Added title/alt-phone duplicate checking +# 100118-0543 - Added new Australian and New Zealand DST schemes (FSO-FSA and LSS-FSA) +# 100621-1026 - Added admin_web_directory variable +# 100630-1609 - Added a check for invalid ListIds and filtered out ' " ; ` \ from the field +# 100705-1507 - Added custom fields to field chooser, only when liast_id_override is used and only with TXT and CSV file formats +# 100706-1250 - Forked script to create new script that will only load TXT(tab- +# delimited files) and use a perl script to convert others to TXT +# + +$version = '2.4-37'; +$build = '100706-1250'; + + +require("dbconnect.php"); + + +$US='_'; + +$PHP_AUTH_USER=$_SERVER['PHP_AUTH_USER']; +$PHP_AUTH_PW=$_SERVER['PHP_AUTH_PW']; +$PHP_SELF=$_SERVER['PHP_SELF']; +$leadfile=$_FILES["leadfile"]; + $LF_orig = $_FILES['leadfile']['name']; + $LF_path = $_FILES['leadfile']['tmp_name']; +if (isset($_GET["submit_file"])) {$submit_file=$_GET["submit_file"];} + elseif (isset($_POST["submit_file"])) {$submit_file=$_POST["submit_file"];} +if (isset($_GET["submit"])) {$submit=$_GET["submit"];} + elseif (isset($_POST["submit"])) {$submit=$_POST["submit"];} +if (isset($_GET["SUBMIT"])) {$SUBMIT=$_GET["SUBMIT"];} + elseif (isset($_POST["SUBMIT"])) {$SUBMIT=$_POST["SUBMIT"];} +if (isset($_GET["leadfile_name"])) {$leadfile_name=$_GET["leadfile_name"];} + elseif (isset($_POST["leadfile_name"])) {$leadfile_name=$_POST["leadfile_name"];} +if (isset($_FILES["leadfile"])) {$leadfile_name=$_FILES["leadfile"]['name'];} +if (isset($_GET["file_layout"])) {$file_layout=$_GET["file_layout"];} + elseif (isset($_POST["file_layout"])) {$file_layout=$_POST["file_layout"];} +if (isset($_GET["OK_to_process"])) {$OK_to_process=$_GET["OK_to_process"];} + elseif (isset($_POST["OK_to_process"])) {$OK_to_process=$_POST["OK_to_process"];} +if (isset($_GET["vendor_lead_code_field"])) {$vendor_lead_code_field=$_GET["vendor_lead_code_field"];} + elseif (isset($_POST["vendor_lead_code_field"])) {$vendor_lead_code_field=$_POST["vendor_lead_code_field"];} +if (isset($_GET["source_id_field"])) {$source_id_field=$_GET["source_id_field"];} + elseif (isset($_POST["source_id_field"])) {$source_id_field=$_POST["source_id_field"];} +if (isset($_GET["list_id_field"])) {$list_id_field=$_GET["list_id_field"];} + elseif (isset($_POST["list_id_field"])) {$list_id_field=$_POST["list_id_field"];} +if (isset($_GET["phone_code_field"])) {$phone_code_field=$_GET["phone_code_field"];} + elseif (isset($_POST["phone_code_field"])) {$phone_code_field=$_POST["phone_code_field"];} +if (isset($_GET["phone_number_field"])) {$phone_number_field=$_GET["phone_number_field"];} + elseif (isset($_POST["phone_number_field"])) {$phone_number_field=$_POST["phone_number_field"];} +if (isset($_GET["title_field"])) {$title_field=$_GET["title_field"];} + elseif (isset($_POST["title_field"])) {$title_field=$_POST["title_field"];} +if (isset($_GET["first_name_field"])) {$first_name_field=$_GET["first_name_field"];} + elseif (isset($_POST["first_name_field"])) {$first_name_field=$_POST["first_name_field"];} +if (isset($_GET["middle_initial_field"])) {$middle_initial_field=$_GET["middle_initial_field"];} + elseif (isset($_POST["middle_initial_field"])) {$middle_initial_field=$_POST["middle_initial_field"];} +if (isset($_GET["last_name_field"])) {$last_name_field=$_GET["last_name_field"];} + elseif (isset($_POST["last_name_field"])) {$last_name_field=$_POST["last_name_field"];} +if (isset($_GET["address1_field"])) {$address1_field=$_GET["address1_field"];} + elseif (isset($_POST["address1_field"])) {$address1_field=$_POST["address1_field"];} +if (isset($_GET["address2_field"])) {$address2_field=$_GET["address2_field"];} + elseif (isset($_POST["address2_field"])) {$address2_field=$_POST["address2_field"];} +if (isset($_GET["address3_field"])) {$address3_field=$_GET["address3_field"];} + elseif (isset($_POST["address3_field"])) {$address3_field=$_POST["address3_field"];} +if (isset($_GET["city_field"])) {$city_field=$_GET["city_field"];} + elseif (isset($_POST["city_field"])) {$city_field=$_POST["city_field"];} +if (isset($_GET["state_field"])) {$state_field=$_GET["state_field"];} + elseif (isset($_POST["state_field"])) {$state_field=$_POST["state_field"];} +if (isset($_GET["province_field"])) {$province_field=$_GET["province_field"];} + elseif (isset($_POST["province_field"])) {$province_field=$_POST["province_field"];} +if (isset($_GET["postal_code_field"])) {$postal_code_field=$_GET["postal_code_field"];} + elseif (isset($_POST["postal_code_field"])) {$postal_code_field=$_POST["postal_code_field"];} +if (isset($_GET["country_code_field"])) {$country_code_field=$_GET["country_code_field"];} + elseif (isset($_POST["country_code_field"])) {$country_code_field=$_POST["country_code_field"];} +if (isset($_GET["gender_field"])) {$gender_field=$_GET["gender_field"];} + elseif (isset($_POST["gender_field"])) {$gender_field=$_POST["gender_field"];} +if (isset($_GET["date_of_birth_field"])) {$date_of_birth_field=$_GET["date_of_birth_field"];} + elseif (isset($_POST["date_of_birth_field"])) {$date_of_birth_field=$_POST["date_of_birth_field"];} +if (isset($_GET["alt_phone_field"])) {$alt_phone_field=$_GET["alt_phone_field"];} + elseif (isset($_POST["alt_phone_field"])) {$alt_phone_field=$_POST["alt_phone_field"];} +if (isset($_GET["email_field"])) {$email_field=$_GET["email_field"];} + elseif (isset($_POST["email_field"])) {$email_field=$_POST["email_field"];} +if (isset($_GET["security_phrase_field"])) {$security_phrase_field=$_GET["security_phrase_field"];} + elseif (isset($_POST["security_phrase_field"])) {$security_phrase_field=$_POST["security_phrase_field"];} +if (isset($_GET["comments_field"])) {$comments_field=$_GET["comments_field"];} + elseif (isset($_POST["comments_field"])) {$comments_field=$_POST["comments_field"];} +if (isset($_GET["rank_field"])) {$rank_field=$_GET["rank_field"];} + elseif (isset($_POST["rank_field"])) {$rank_field=$_POST["rank_field"];} +if (isset($_GET["owner_field"])) {$owner_field=$_GET["owner_field"];} + elseif (isset($_POST["owner_field"])) {$owner_field=$_POST["owner_field"];} +if (isset($_GET["list_id_override"])) {$list_id_override=$_GET["list_id_override"];} + elseif (isset($_POST["list_id_override"])) {$list_id_override=$_POST["list_id_override"];} + $list_id_override = (preg_replace("/\D/","",$list_id_override)); +if (isset($_GET["lead_file"])) {$lead_file=$_GET["lead_file"];} + elseif (isset($_POST["lead_file"])) {$lead_file=$_POST["lead_file"];} +if (isset($_GET["dupcheck"])) {$dupcheck=$_GET["dupcheck"];} + elseif (isset($_POST["dupcheck"])) {$dupcheck=$_POST["dupcheck"];} +if (isset($_GET["postalgmt"])) {$postalgmt=$_GET["postalgmt"];} + elseif (isset($_POST["postalgmt"])) {$postalgmt=$_POST["postalgmt"];} +if (isset($_GET["phone_code_override"])) {$phone_code_override=$_GET["phone_code_override"];} + elseif (isset($_POST["phone_code_override"])) {$phone_code_override=$_POST["phone_code_override"];} + $phone_code_override = (preg_replace("/\D/","",$phone_code_override)); +if (isset($_GET["DB"])) {$DB=$_GET["DB"];} + elseif (isset($_POST["DB"])) {$DB=$_POST["DB"];} + +# $country_field=$_GET["country_field"]; if (!$country_field) {$country_field=$_POST["country_field"];} + +### REGEX to prevent weird characters from ending up in the fields +$field_regx = "['\"`\\;]"; + +$vicidial_list_fields = '|lead_id|vendor_lead_code|source_id|list_id|gmt_offset_now|called_since_last_reset|phone_code|phone_number|title|first_name|middle_initial|last_name|address1|address2|address3|city|state|province|postal_code|country_code|gender|date_of_birth|alt_phone|email|security_phrase|comments|called_count|last_local_call_time|rank|owner|'; + +############################################# +##### START SYSTEM_SETTINGS LOOKUP ##### +$stmt = "SELECT use_non_latin,admin_web_directory,custom_fields_enabled FROM system_settings;"; +$rslt=mysql_query($stmt, $link); +if ($DB) {echo "$stmt\n";} +$qm_conf_ct = mysql_num_rows($rslt); +if ($qm_conf_ct > 0) + { + $row=mysql_fetch_row($rslt); + $non_latin = $row[0]; + $admin_web_directory = $row[1]; + $custom_fields_enabled = $row[2]; + } +##### END SETTINGS LOOKUP ##### +########################################### + +if ($non_latin < 1) + { + $PHP_AUTH_USER = ereg_replace("[^0-9a-zA-Z]","",$PHP_AUTH_USER); + $PHP_AUTH_PW = ereg_replace("[^0-9a-zA-Z]","",$PHP_AUTH_PW); + $list_id_override = ereg_replace("[^0-9]","",$list_id_override); + } +else + { + $PHP_AUTH_PW = ereg_replace("'|\"|\\\\|;","",$PHP_AUTH_PW); + $PHP_AUTH_USER = ereg_replace("'|\"|\\\\|;","",$PHP_AUTH_USER); + } + +$STARTtime = date("U"); +$TODAY = date("Y-m-d"); +$NOW_TIME = date("Y-m-d H:i:s"); +$FILE_datetime = $STARTtime; + +$stmt="SELECT count(*) from vicidial_users where user='$PHP_AUTH_USER' and pass='$PHP_AUTH_PW' and user_level > 7;"; +if ($DB) {echo "|$stmt|\n";} +if ($non_latin > 0) {$rslt=mysql_query("SET NAMES 'UTF8'");} +$rslt=mysql_query($stmt, $link); +$row=mysql_fetch_row($rslt); +$auth=$row[0]; + +if ($WeBRooTWritablE > 0) {$fp = fopen ("./project_auth_entries.txt", "a");} +$date = date("r"); +$ip = getenv("REMOTE_ADDR"); +$browser = getenv("HTTP_USER_AGENT"); + +if( (strlen($PHP_AUTH_USER)<2) or (strlen($PHP_AUTH_PW)<2) or (!$auth)) + { + Header("WWW-Authenticate: Basic realm=\"VICIDIAL-LEAD-LOADER\""); + Header("HTTP/1.0 401 Unauthorized"); + echo "Invalid Username/Password: |$PHP_AUTH_USER|$PHP_AUTH_PW|\n"; + exit; + } +else + { + header ("Content-type: text/html; charset=utf-8"); + header ("Cache-Control: no-cache, must-revalidate"); // HTTP/1.1 + header ("Pragma: no-cache"); // HTTP/1.0 + + if($auth>0) + { + $office_no=strtoupper($PHP_AUTH_USER); + $password=strtoupper($PHP_AUTH_PW); + $stmt="SELECT load_leads from vicidial_users where user='$PHP_AUTH_USER' and pass='$PHP_AUTH_PW'"; + $rslt=mysql_query($stmt, $link); + $row=mysql_fetch_row($rslt); + $LOGload_leads =$row[0]; + + if ($LOGload_leads < 1) + { + echo "You do not have permissions to load leads\n"; + exit; + } + if ($WeBRooTWritablE > 0) + { + fwrite ($fp, "LIST_LOAD|GOOD|$date|$PHP_AUTH_USER|$PHP_AUTH_PW|$ip|$browser|$LOGfullname|\n"); + fclose($fp); + } + } + else + { + if ($WeBRooTWritablE > 0) + { + fwrite ($fp, "LIST_LOAD|FAIL|$date|$PHP_AUTH_USER|$PHP_AUTH_PW|$ip|$browser|\n"); + fclose($fp); + } + } + } + + +$script_name = getenv("SCRIPT_NAME"); +$server_name = getenv("SERVER_NAME"); +$server_port = getenv("SERVER_PORT"); +if (eregi("443",$server_port)) {$HTTPprotocol = 'https://';} + else {$HTTPprotocol = 'http://';} +$admDIR = "$HTTPprotocol$server_name$script_name"; +$admDIR = eregi_replace('new_listloader_superL.php','',$admDIR); +$admSCR = 'admin.php'; +$NWB = "   \"HELP\""; + +$secX = date("U"); +$hour = date("H"); +$min = date("i"); +$sec = date("s"); +$mon = date("m"); +$mday = date("d"); +$year = date("Y"); +$isdst = date("I"); +$Shour = date("H"); +$Smin = date("i"); +$Ssec = date("s"); +$Smon = date("m"); +$Smday = date("d"); +$Syear = date("Y"); +$pulldate0 = "$year-$mon-$mday $hour:$min:$sec"; +$inSD = $pulldate0; +$dsec = ( ( ($hour * 3600) + ($min * 60) ) + $sec ); + +### Grab Server GMT value from the database +$stmt="SELECT local_gmt FROM servers where server_ip = '$server_ip';"; +$rslt=mysql_query($stmt, $link); +$gmt_recs = mysql_num_rows($rslt); +if ($gmt_recs > 0) + { + $row=mysql_fetch_row($rslt); + $DBSERVER_GMT = "$row[0]"; + if (strlen($DBSERVER_GMT)>0) {$SERVER_GMT = $DBSERVER_GMT;} + if ($isdst) {$SERVER_GMT++;} + } +else + { + $SERVER_GMT = date("O"); + $SERVER_GMT = eregi_replace("\+","",$SERVER_GMT); + $SERVER_GMT = ($SERVER_GMT + 0); + $SERVER_GMT = ($SERVER_GMT / 100); + } + +$LOCAL_GMT_OFF = $SERVER_GMT; +$LOCAL_GMT_OFF_STD = $SERVER_GMT; + +#if ($DB) {print "SEED TIME $secX : $year-$mon-$mday $hour:$min:$sec LOCAL GMT OFFSET NOW: $LOCAL_GMT_OFF\n";} + + +echo "\n"; +echo "\n"; +echo "\n"; +echo "\n"; + +function macfontfix($fontsize) + { + $browser = getenv("HTTP_USER_AGENT"); + $pctype = explode("(", $browser); + if (ereg("Mac",$pctype[1])) + { + /* Browser is a Mac. If not Netscape 6, raise fonts */ + $blownbrowser = explode('/', $browser); + $ver = explode(' ', $blownbrowser[1]); + $ver = $ver[0]; + if ($ver >= 5.0) return $fontsize; else return ($fontsize+2); + } + else return $fontsize; /* Browser is not a Mac - don't touch fonts */ + } + +echo "\n"; + +?> + + + +ADMINISTRATION: Lead Loader + + + +"; + +if ( (!$OK_to_process) or ( ($leadfile) and ($file_layout!="standard") ) ) + { + ?> +
method=post onSubmit="ParseFileName()" enctype="multipart/form-data"> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Load leads from this file:
List ID Override: (numbers only or leave blank for values in the file)
Phone Code Override: (numbers only or leave blank for values in the file)
File layout to use:Standard Format    Custom layout
Lead Duplicate Check:
Lead Time Zone Lookup:
        
        BACK TO ADMINLIST LOADER 3rd Gen-     VERSION:     BUILD:    
+ + + + + + + + + + + + + + + + + + + + + + + + + +
Lead file:
List ID Override:
Phone Code Override:
Lead Duplicate Check:
Lead Time Zone Lookup:
+ method=post onSubmit="ParseFileName()" enctype="multipart/form-data"> + + + Load Another Lead File         VERSION:     BUILD: +
+



+ document.forms[0].leadfile.disabled=true;document.forms[0].list_id_override.disabled=true;document.forms[0].phone_code_override.disabled=true; document.forms[0].submit_file.disabled=true; document.forms[0].reload_page.disabled=true;"; + flush(); + $total=0; $good=0; $bad=0; $dup=0; $post=0; $phone_list=''; + + $file=fopen("$lead_file", "r"); + if ($WeBRooTWritablE > 0) + { + $stmt_file=fopen("listloader_stmts.txt", "w"); + } + $buffer=fgets($file, 4096); + $tab_count=substr_count($buffer, "\t"); + $pipe_count=substr_count($buffer, "|"); + + if ($tab_count>$pipe_count) {$delimiter="\t"; $delim_name="tab";} else {$delimiter="|"; $delim_name="pipe";} + $field_check=explode($delimiter, $buffer); + + if (count($field_check)>=5) + { + flush(); + $file=fopen("$lead_file", "r"); + print "
Processing file...\n"; + + if (strlen($list_id_override)>0) + { + print "

LIST ID OVERRIDE FOR THIS FILE: $list_id_override

"; + } + + if (strlen($phone_code_override)>0) + { + print "

PHONE CODE OVERRIDE FOR THIS FILE: $phone_code_override

"; + } + + if ($custom_fields_enabled > 0) + { + $tablecount_to_print=0; + $fieldscount_to_print=0; + $fields_to_print=0; + + $stmt="SHOW TABLES LIKE \"custom_$list_id_override\";"; + if ($DB>0) {echo "$stmt\n";} + $rslt=mysql_query($stmt, $link); + $tablecount_to_print = mysql_num_rows($rslt); + + if ($tablecount_to_print > 0) + { + $stmt="SELECT count(*) from vicidial_lists_fields where list_id='$list_id_override';"; + if ($DB>0) {echo "$stmt\n";} + $rslt=mysql_query($stmt, $link); + $fieldscount_to_print = mysql_num_rows($rslt); + + if ($fieldscount_to_print > 0) + { + $stmt="SELECT field_label,field_type from vicidial_lists_fields where list_id='$list_id_override' order by field_rank,field_order,field_label;"; + if ($DB>0) {echo "$stmt\n";} + $rslt=mysql_query($stmt, $link); + $fields_to_print = mysql_num_rows($rslt); + $fields_list=''; + $o=0; + while ($fields_to_print > $o) + { + $rowx=mysql_fetch_row($rslt); + $A_field_label[$o] = $rowx[0]; + $A_field_type[$o] = $rowx[1]; + $A_field_value[$o] = ''; + $o++; + } + } + } + } + + while (!feof($file)) + { + $record++; + $buffer=rtrim(fgets($file, 4096)); + $buffer=stripslashes($buffer); + + if (strlen($buffer)>0) + { + $row=explode($delimiter, eregi_replace("[\'\"]", "", $buffer)); + + $pulldate=date("Y-m-d H:i:s"); + $entry_date = "$pulldate"; + $modify_date = ""; + $status = "NEW"; + $user =""; + $vendor_lead_code = $row[$vendor_lead_code_field]; + $source_code = $row[$source_id_field]; + $source_id=$source_code; + $list_id = $row[$list_id_field]; + $gmt_offset = '0'; + $called_since_last_reset='N'; + $phone_code = eregi_replace("[^0-9]", "", $row[$phone_code_field]); + $phone_number = eregi_replace("[^0-9]", "", $row[$phone_number_field]); + $title = $row[$title_field]; + $first_name = $row[$first_name_field]; + $middle_initial = $row[$middle_initial_field]; + $last_name = $row[$last_name_field]; + $address1 = $row[$address1_field]; + $address2 = $row[$address2_field]; + $address3 = $row[$address3_field]; + $city =$row[$city_field]; + $state = $row[$state_field]; + $province = $row[$province_field]; + $postal_code = $row[$postal_code_field]; + $country_code = $row[$country_code_field]; + $gender = $row[$gender_field]; + $date_of_birth = $row[$date_of_birth_field]; + $alt_phone = eregi_replace("[^0-9]", "", $row[$alt_phone_field]); + $email = $row[$email_field]; + $security_phrase = $row[$security_phrase_field]; + $comments = trim($row[$comments_field]); + $rank = $row[$rank_field]; + $owner = $row[$owner_field]; + + # replace ' " ` \ ; with nothing + $vendor_lead_code = eregi_replace($field_regx, "", $vendor_lead_code); + $source_code = eregi_replace($field_regx, "", $source_code); + $source_id = eregi_replace($field_regx, "", $source_id); + $list_id = eregi_replace($field_regx, "", $list_id); + $phone_code = eregi_replace($field_regx, "", $phone_code); + $phone_number = eregi_replace($field_regx, "", $phone_number); + $title = eregi_replace($field_regx, "", $title); + $first_name = eregi_replace($field_regx, "", $first_name); + $middle_initial = eregi_replace($field_regx, "", $middle_initial); + $last_name = eregi_replace($field_regx, "", $last_name); + $address1 = eregi_replace($field_regx, "", $address1); + $address2 = eregi_replace($field_regx, "", $address2); + $address3 = eregi_replace($field_regx, "", $address3); + $city = eregi_replace($field_regx, "", $city); + $state = eregi_replace($field_regx, "", $state); + $province = eregi_replace($field_regx, "", $province); + $postal_code = eregi_replace($field_regx, "", $postal_code); + $country_code = eregi_replace($field_regx, "", $country_code); + $gender = eregi_replace($field_regx, "", $gender); + $date_of_birth = eregi_replace($field_regx, "", $date_of_birth); + $alt_phone = eregi_replace($field_regx, "", $alt_phone); + $email = eregi_replace($field_regx, "", $email); + $security_phrase = eregi_replace($field_regx, "", $security_phrase); + $comments = eregi_replace($field_regx, "", $comments); + $rank = eregi_replace($field_regx, "", $rank); + $owner = eregi_replace($field_regx, "", $owner); + + $USarea = substr($phone_number, 0, 3); + + if (strlen($list_id_override)>0) + { + # print "

LIST ID OVERRIDE FOR THIS FILE: $list_id_override

"; + $list_id = $list_id_override; + } + if (strlen($phone_code_override)>0) + { + $phone_code = $phone_code_override; + } + + ##### BEGIN custom fields columns list ### + $custom_SQL=''; + if ($custom_fields_enabled > 0) + { + if ($tablecount_to_print > 0) + { + if ($fieldscount_to_print > 0) + { + $o=0; + while ($fields_to_print > $o) + { + $A_field_value[$o] = ''; + $field_name_id = $A_field_label[$o] . "_field"; + + # if ($DB>0) {echo "$A_field_label[$o]|$A_field_type[$o]\n";} + + if ( ($A_field_type[$o]!='DISPLAY') and ($A_field_type[$o]!='SCRIPT') ) + { + if (!preg_match("/\|$A_field_label[$o]\|/",$vicidial_list_fields)) + { + if (isset($_GET["$field_name_id"])) {$form_field_value=$_GET["$field_name_id"];} + elseif (isset($_POST["$field_name_id"])) {$form_field_value=$_POST["$field_name_id"];} + + if ($form_field_value >= 0) + { + $A_field_value[$o] = $row[$form_field_value]; + # replace ' " ` \ ; with nothing + $A_field_value[$o] = eregi_replace($field_regx, "", $A_field_value[$o]); + + $custom_SQL .= "$A_field_label[$o]='$A_field_value[$o]',"; + } + } + } + $o++; + } + } + } + } + ##### END custom fields columns list ### + + $custom_SQL = preg_replace("/,$/","",$custom_SQL); + + + ##### Check for duplicate phone numbers in vicidial_list table for all lists in a campaign ##### + if (eregi("DUPCAMP",$dupcheck)) + { + $dup_lead=0; + $dup_lists=''; + $stmt="select campaign_id from vicidial_lists where list_id='$list_id';"; + $rslt=mysql_query($stmt, $link); + $ci_recs = mysql_num_rows($rslt); + if ($ci_recs > 0) + { + $row=mysql_fetch_row($rslt); + $dup_camp = $row[0]; + + $stmt="select list_id from vicidial_lists where campaign_id='$dup_camp';"; + $rslt=mysql_query($stmt, $link); + $li_recs = mysql_num_rows($rslt); + if ($li_recs > 0) + { + $L=0; + while ($li_recs > $L) + { + $row=mysql_fetch_row($rslt); + $dup_lists .= "'$row[0]',"; + $L++; + } + $dup_lists = eregi_replace(",$",'',$dup_lists); + + $stmt="select list_id from vicidial_list where phone_number='$phone_number' and list_id IN($dup_lists) limit 1;"; + $rslt=mysql_query($stmt, $link); + $pc_recs = mysql_num_rows($rslt); + if ($pc_recs > 0) + { + $dup_lead=1; + $row=mysql_fetch_row($rslt); + $dup_lead_list = $row[0]; + } + if ($dup_lead < 1) + { + if (eregi("$phone_number$US$list_id",$phone_list)) + {$dup_lead++; $dup++;} + } + } + } + } + + ##### Check for duplicate phone numbers in vicidial_list table entire database ##### + if (eregi("DUPSYS",$dupcheck)) + { + $dup_lead=0; + $stmt="select list_id from vicidial_list where phone_number='$phone_number';"; + $rslt=mysql_query($stmt, $link); + $pc_recs = mysql_num_rows($rslt); + if ($pc_recs > 0) + { + $dup_lead=1; + $row=mysql_fetch_row($rslt); + $dup_lead_list = $row[0]; + } + if ($dup_lead < 1) + { + if (eregi("$phone_number$US$list_id",$phone_list)) + {$dup_lead++; $dup++;} + } + } + + ##### Check for duplicate phone numbers in vicidial_list table for one list_id ##### + if (eregi("DUPLIST",$dupcheck)) + { + $dup_lead=0; + $stmt="select count(*) from vicidial_list where phone_number='$phone_number' and list_id='$list_id';"; + $rslt=mysql_query($stmt, $link); + $pc_recs = mysql_num_rows($rslt); + if ($pc_recs > 0) + { + $row=mysql_fetch_row($rslt); + $dup_lead = $row[0]; + $dup_lead_list = $list_id; + } + if ($dup_lead < 1) + { + if (eregi("$phone_number$US$list_id",$phone_list)) + {$dup_lead++; $dup++;} + } + } + + ##### Check for duplicate title and alt-phone in vicidial_list table for one list_id ##### + if (eregi("DUPTITLEALTPHONELIST",$dupcheck)) + { + $dup_lead=0; + $stmt="select count(*) from vicidial_list where title='$title' and alt_phone='$alt_phone' and list_id='$list_id';"; + $rslt=mysql_query($stmt, $link); + $pc_recs = mysql_num_rows($rslt); + if ($pc_recs > 0) + { + $row=mysql_fetch_row($rslt); + $dup_lead = $row[0]; + $dup_lead_list = $list_id; + } + if ($dup_lead < 1) + { + if (eregi("$alt_phone$title$US$list_id",$phone_list)) + {$dup_lead++; $dup++;} + } + } + + ##### Check for duplicate phone numbers in vicidial_list table entire database ##### + if (eregi("DUPTITLEALTPHONESYS",$dupcheck)) + { + $dup_lead=0; + $stmt="select list_id from vicidial_list where title='$title' and alt_phone='$alt_phone';"; + $rslt=mysql_query($stmt, $link); + $pc_recs = mysql_num_rows($rslt); + if ($pc_recs > 0) + { + $dup_lead=1; + $row=mysql_fetch_row($rslt); + $dup_lead_list = $row[0]; + } + if ($dup_lead < 1) + { + if (eregi("$alt_phone$title$US$list_id",$phone_list)) + {$dup_lead++; $dup++;} + } + } + + + if ( (strlen($phone_number)>6) and ($dup_lead<1) and ($list_id >= 100 )) + { + if (strlen($phone_code)<1) {$phone_code = '1';} + + if (eregi("TITLEALTPHONE",$dupcheck)) + {$phone_list .= "$alt_phone$title$US$list_id|";} + else + {$phone_list .= "$phone_number$US$list_id|";} + + $gmt_offset = lookup_gmt($phone_code,$USarea,$state,$LOCAL_GMT_OFF_STD,$Shour,$Smin,$Ssec,$Smon,$Smday,$Syear,$postalgmt,$postal_code); + + if (strlen($custom_SQL)>3) + { + $stmtZ = "INSERT INTO vicidial_list (lead_id,entry_date,modify_date,status,user,vendor_lead_code,source_id,list_id,gmt_offset_now,called_since_last_reset,phone_code,phone_number,title,first_name,middle_initial,last_name,address1,address2,address3,city,state,province,postal_code,country_code,gender,date_of_birth,alt_phone,email,security_phrase,comments,called_count,last_local_call_time,rank,owner) values('','$entry_date','$modify_date','$status','$user','$vendor_lead_code','$source_id','$list_id','$gmt_offset','$called_since_last_reset','$phone_code','$phone_number','$title','$first_name','$middle_initial','$last_name','$address1','$address2','$address3','$city','$state','$province','$postal_code','$country_code','$gender','$date_of_birth','$alt_phone','$email','$security_phrase','$comments',0,'2008-01-01 00:00:00','$rank','$owner');"; + $rslt=mysql_query($stmtZ, $link); + $affected_rows = mysql_affected_rows($link); + $lead_id = mysql_insert_id($link); + if ($DB > 0) {echo "";} + if ($WeBRooTWritablE > 0) + {fwrite($stmt_file, $stmtZ."\r\n");} + $multistmt=''; + + $custom_SQL_query = "INSERT INTO custom_$list_id_override SET lead_id='$lead_id',$custom_SQL;"; + $rslt=mysql_query($custom_SQL_query, $link); + $affected_rows = mysql_affected_rows($link); + if ($DB > 0) {echo "";} + } + else + { + if ($multi_insert_counter > 8) + { + ### insert good record into vicidial_list table ### + $stmtZ = "INSERT INTO vicidial_list (lead_id,entry_date,modify_date,status,user,vendor_lead_code,source_id,list_id,gmt_offset_now,called_since_last_reset,phone_code,phone_number,title,first_name,middle_initial,last_name,address1,address2,address3,city,state,province,postal_code,country_code,gender,date_of_birth,alt_phone,email,security_phrase,comments,called_count,last_local_call_time,rank,owner) values$multistmt('','$entry_date','$modify_date','$status','$user','$vendor_lead_code','$source_id','$list_id','$gmt_offset','$called_since_last_reset','$phone_code','$phone_number','$title','$first_name','$middle_initial','$last_name','$address1','$address2','$address3','$city','$state','$province','$postal_code','$country_code','$gender','$date_of_birth','$alt_phone','$email','$security_phrase','$comments',0,'2008-01-01 00:00:00','$rank','$owner');"; + $rslt=mysql_query($stmtZ, $link); + if ($WeBRooTWritablE > 0) + {fwrite($stmt_file, $stmtZ."\r\n");} + $multistmt=''; + $multi_insert_counter=0; + } + else + { + $multistmt .= "('','$entry_date','$modify_date','$status','$user','$vendor_lead_code','$source_id','$list_id','$gmt_offset','$called_since_last_reset','$phone_code','$phone_number','$title','$first_name','$middle_initial','$last_name','$address1','$address2','$address3','$city','$state','$province','$postal_code','$country_code','$gender','$date_of_birth','$alt_phone','$email','$security_phrase','$comments',0,'2008-01-01 00:00:00','$rank','$owner'),"; + $multi_insert_counter++; + } + } + $good++; + } + else + { + if ($bad < 1000000) + { + if ( $list_id < 100 ) + { + print "
record $total BAD- PHONE: $phone_number ROW: |$row[0]| INVALID LIST ID\n"; + } + else + { + print "
record $total BAD- PHONE: $phone_number ROW: |$row[0]| DUP: $dup_lead $dup_lead_list\n"; + } + } + $bad++; + } + $total++; + if ($total%100==0) + { + print ""; + usleep(1000); + flush(); + } + } + } + if ($multi_insert_counter!=0) + { + $stmtZ = "INSERT INTO vicidial_list (lead_id,entry_date,modify_date,status,user,vendor_lead_code,source_id,list_id,gmt_offset_now,called_since_last_reset,phone_code,phone_number,title,first_name,middle_initial,last_name,address1,address2,address3,city,state,province,postal_code,country_code,gender,date_of_birth,alt_phone,email,security_phrase,comments,called_count,last_local_call_time,rank,owner) values".substr($multistmt, 0, -1).";"; + mysql_query($stmtZ, $link); + if ($WeBRooTWritablE > 0) + {fwrite($stmt_file, $stmtZ."\r\n");} + } + + ### LOG INSERTION Admin Log Table ### + $stmt="INSERT INTO vicidial_admin_log set event_date='$NOW_TIME', user='$PHP_AUTH_USER', ip_address='$ip', event_section='LISTS', event_type='LOAD', record_id='$list_id_override', event_code='ADMIN LOAD LIST CUSTOM', event_sql='', event_notes='File Name: $leadfile_name, GOOD: $good, BAD: $bad, TOTAL: $total';"; + if ($DB) {echo "|$stmt|\n";} + $rslt=mysql_query($stmt, $link); + + print "

Done GOOD: $good       BAD: $bad       TOTAL: $total
"; + } + else + { + print "
ERROR: The file does not have the required number of fields to process it.
"; + } + } +##### END custom fields submission ##### + + + +if ($leadfile) + { + $total=0; $good=0; $bad=0; $dup=0; $post=0; $phone_list=''; + + ### LOG INSERTION Admin Log Table ### + $stmt="INSERT INTO vicidial_admin_log set event_date='$NOW_TIME', user='$PHP_AUTH_USER', ip_address='$ip', event_section='LISTS', event_type='LOAD', record_id='$list_id_override', event_code='ADMIN LOAD LIST', event_sql='', event_notes='File Name: $leadfile_name';"; + if ($DB) {echo "|$stmt|\n";} + $rslt=mysql_query($stmt, $link); + + + + ##### BEGIN process standard file layout ##### + if ($file_layout=="standard") + { + print ""; + flush(); + + + $delim_set=0; + # csv xls xlsx ods sxc conversion + if (preg_match("/\.csv$|\.xls$|\.xlsx$|\.ods$|\.sxc$/i", $leadfile_name)) + { + copy($LF_path, "/tmp/$leadfile_name"); + $new_filename = preg_replace("/\.csv$|\.xls$|\.xlsx$|\.ods$|\.sxc$/i", '.txt', $leadfile_name); + $convert_command = "$WeBServeRRooT/$admin_web_directory/sheet2tab.pl /tmp/$leadfile_name /tmp/$new_filename"; + passthru("$convert_command"); + $lead_file = "/tmp/$new_filename"; + if ($DB > 0) {echo "|$convert_command|";} + + if (preg_match("/\.csv$/i", $leadfile_name)) {$delim_name="CSV: Comma Separated Values";} + if (preg_match("/\.xls$/i", $leadfile_name)) {$delim_name="XLS: MS Excel 2000-XP";} + if (preg_match("/\.xlsx$/i", $leadfile_name)) {$delim_name="XLSX: MS Excel 2007+";} + if (preg_match("/\.ods$/i", $leadfile_name)) {$delim_name="ODS: OpenOffice.org OpenDocument Spreadsheet";} + if (preg_match("/\.sxc$/i", $leadfile_name)) {$delim_name="SXC: OpenOffice.org First Spreadsheet";} + $delim_set=1; + } + else + { + copy($LF_path, "/tmp/vicidial_temp_file.txt"); + $lead_file = "/tmp/vicidial_temp_file.txt"; + } + $file=fopen("$lead_file", "r"); + if ($WeBRooTWritablE > 0) + {$stmt_file=fopen("$WeBServeRRooT/$admin_web_directory/listloader_stmts.txt", "w");} + + $buffer=fgets($file, 4096); + $tab_count=substr_count($buffer, "\t"); + $pipe_count=substr_count($buffer, "|"); + + if ($delim_set < 1) + { + if ($tab_count>$pipe_count) + {$delim_name="tab-delimited";} + else + {$delim_name="pipe-delimited";} + } + if ($tab_count>$pipe_count) + {$delimiter="\t";} + else + {$delimiter="|";} + + $field_check=explode($delimiter, $buffer); + + if (count($field_check)>=5) + { + flush(); + $file=fopen("$lead_file", "r"); + $total=0; $good=0; $bad=0; $dup=0; $post=0; $phone_list=''; + print "
Processing $delim_name file... ($tab_count|$pipe_count)\n"; + if (strlen($list_id_override)>0) + { + print "

LIST ID OVERRIDE FOR THIS FILE: $list_id_override

"; + } + if (strlen($phone_code_override)>0) + { + print "

PHONE CODE OVERRIDE FOR THIS FILE: $phone_code_override

\n"; + } + while (!feof($file)) + { + $record++; + $buffer=rtrim(fgets($file, 4096)); + $buffer=stripslashes($buffer); + + if (strlen($buffer)>0) + { + $row=explode($delimiter, eregi_replace("[\'\"]", "", $buffer)); + + $pulldate=date("Y-m-d H:i:s"); + $entry_date = "$pulldate"; + $modify_date = ""; + $status = "NEW"; + $user =""; + $vendor_lead_code = $row[0]; + $source_code = $row[1]; + $source_id=$source_code; + $list_id = $row[2]; + $gmt_offset = '0'; + $called_since_last_reset='N'; + $phone_code = eregi_replace("[^0-9]", "", $row[3]); + $phone_number = eregi_replace("[^0-9]", "", $row[4]); + $title = $row[5]; + $first_name = $row[6]; + $middle_initial = $row[7]; + $last_name = $row[8]; + $address1 = $row[9]; + $address2 = $row[10]; + $address3 = $row[11]; + $city =$row[12]; + $state = $row[13]; + $province = $row[14]; + $postal_code = $row[15]; + $country_code = $row[16]; + $gender = $row[17]; + $date_of_birth = $row[18]; + $alt_phone = eregi_replace("[^0-9]", "", $row[19]); + $email = $row[20]; + $security_phrase = $row[21]; + $comments = trim($row[22]); + $rank = $row[23]; + $owner = $row[24]; + + # replace ' " ` \ ; with nothing + $vendor_lead_code = eregi_replace($field_regx, "", $vendor_lead_code); + $source_code = eregi_replace($field_regx, "", $source_code); + $source_id = eregi_replace($field_regx, "", $source_id); + $list_id = eregi_replace($field_regx, "", $list_id); + $phone_code = eregi_replace($field_regx, "", $phone_code); + $phone_number = eregi_replace($field_regx, "", $phone_number); + $title = eregi_replace($field_regx, "", $title); + $first_name = eregi_replace($field_regx, "", $first_name); + $middle_initial = eregi_replace($field_regx, "", $middle_initial); + $last_name = eregi_replace($field_regx, "", $last_name); + $address1 = eregi_replace($field_regx, "", $address1); + $address2 = eregi_replace($field_regx, "", $address2); + $address3 = eregi_replace($field_regx, "", $address3); + $city = eregi_replace($field_regx, "", $city); + $state = eregi_replace($field_regx, "", $state); + $province = eregi_replace($field_regx, "", $province); + $postal_code = eregi_replace($field_regx, "", $postal_code); + $country_code = eregi_replace($field_regx, "", $country_code); + $gender = eregi_replace($field_regx, "", $gender); + $date_of_birth = eregi_replace($field_regx, "", $date_of_birth); + $alt_phone = eregi_replace($field_regx, "", $alt_phone); + $email = eregi_replace($field_regx, "", $email); + $security_phrase = eregi_replace($field_regx, "", $security_phrase); + $comments = eregi_replace($field_regx, "", $comments); + $rank = eregi_replace($field_regx, "", $rank); + $owner = eregi_replace($field_regx, "", $owner); + + $USarea = substr($phone_number, 0, 3); + + if (strlen($list_id_override)>0) + { + $list_id = $list_id_override; + } + if (strlen($phone_code_override)>0) + { + $phone_code = $phone_code_override; + } + + ##### Check for duplicate phone numbers in vicidial_list table for all lists in a campaign ##### + if (eregi("DUPCAMP",$dupcheck)) + { + $dup_lead=0; + $dup_lists=''; + $stmt="select campaign_id from vicidial_lists where list_id='$list_id';"; + $rslt=mysql_query($stmt, $link); + $ci_recs = mysql_num_rows($rslt); + if ($ci_recs > 0) + { + $row=mysql_fetch_row($rslt); + $dup_camp = $row[0]; + + $stmt="select list_id from vicidial_lists where campaign_id='$dup_camp';"; + $rslt=mysql_query($stmt, $link); + $li_recs = mysql_num_rows($rslt); + if ($li_recs > 0) + { + $L=0; + while ($li_recs > $L) + { + $row=mysql_fetch_row($rslt); + $dup_lists .= "'$row[0]',"; + $L++; + } + $dup_lists = eregi_replace(",$",'',$dup_lists); + + $stmt="select list_id from vicidial_list where phone_number='$phone_number' and list_id IN($dup_lists) limit 1;"; + $rslt=mysql_query($stmt, $link); + $pc_recs = mysql_num_rows($rslt); + if ($pc_recs > 0) + { + $dup_lead=1; + $row=mysql_fetch_row($rslt); + $dup_lead_list = $row[0]; + } + if ($dup_lead < 1) + { + if (eregi("$phone_number$US$list_id",$phone_list)) + {$dup_lead++; $dup++;} + } + } + } + } + + ##### Check for duplicate phone numbers in vicidial_list table entire database ##### + if (eregi("DUPSYS",$dupcheck)) + { + $dup_lead=0; + $stmt="select list_id from vicidial_list where phone_number='$phone_number';"; + $rslt=mysql_query($stmt, $link); + $pc_recs = mysql_num_rows($rslt); + if ($pc_recs > 0) + { + $dup_lead=1; + $row=mysql_fetch_row($rslt); + $dup_lead_list = $row[0]; + } + if ($dup_lead < 1) + { + if (eregi("$phone_number$US$list_id",$phone_list)) + {$dup_lead++; $dup++;} + } + } + + ##### Check for duplicate phone numbers in vicidial_list table for one list_id ##### + if (eregi("DUPLIST",$dupcheck)) + { + $dup_lead=0; + $stmt="select count(*) from vicidial_list where phone_number='$phone_number' and list_id='$list_id';"; + $rslt=mysql_query($stmt, $link); + $pc_recs = mysql_num_rows($rslt); + if ($pc_recs > 0) + { + $row=mysql_fetch_row($rslt); + $dup_lead = $row[0]; + } + if ($dup_lead < 1) + { + if (eregi("$phone_number$US$list_id",$phone_list)) + {$dup_lead++; $dup++;} + } + } + + ##### Check for duplicate title and alt-phone in vicidial_list table for one list_id ##### + if (eregi("DUPTITLEALTPHONELIST",$dupcheck)) + { + $dup_lead=0; + $stmt="select count(*) from vicidial_list where title='$title' and alt_phone='$alt_phone' and list_id='$list_id';"; + $rslt=mysql_query($stmt, $link); + $pc_recs = mysql_num_rows($rslt); + if ($pc_recs > 0) + { + $row=mysql_fetch_row($rslt); + $dup_lead = $row[0]; + $dup_lead_list = $list_id; + } + if ($dup_lead < 1) + { + if (eregi("$alt_phone$title$US$list_id",$phone_list)) + {$dup_lead++; $dup++;} + } + } + + ##### Check for duplicate phone numbers in vicidial_list table entire database ##### + if (eregi("DUPTITLEALTPHONESYS",$dupcheck)) + { + $dup_lead=0; + $stmt="select list_id from vicidial_list where title='$title' and alt_phone='$alt_phone';"; + $rslt=mysql_query($stmt, $link); + $pc_recs = mysql_num_rows($rslt); + if ($pc_recs > 0) + { + $dup_lead=1; + $row=mysql_fetch_row($rslt); + $dup_lead_list = $row[0]; + } + if ($dup_lead < 1) + { + if (eregi("$alt_phone$title$US$list_id",$phone_list)) + {$dup_lead++; $dup++;} + } + } + + if ( (strlen($phone_number)>6) and ($dup_lead<1) and ($list_id >= 100 )) + { + if (strlen($phone_code)<1) {$phone_code = '1';} + + if (eregi("TITLEALTPHONE",$dupcheck)) + {$phone_list .= "$alt_phone$title$US$list_id|";} + else + {$phone_list .= "$phone_number$US$list_id|";} + + $gmt_offset = lookup_gmt($phone_code,$USarea,$state,$LOCAL_GMT_OFF_STD,$Shour,$Smin,$Ssec,$Smon,$Smday,$Syear,$postalgmt,$postal_code); + + if ($multi_insert_counter > 8) + { + ### insert good deal into pending_transactions table ### + $stmtZ = "INSERT INTO vicidial_list (lead_id,entry_date,modify_date,status,user,vendor_lead_code,source_id,list_id,gmt_offset_now,called_since_last_reset,phone_code,phone_number,title,first_name,middle_initial,last_name,address1,address2,address3,city,state,province,postal_code,country_code,gender,date_of_birth,alt_phone,email,security_phrase,comments,called_count,last_local_call_time,rank,owner) values$multistmt('','$entry_date','$modify_date','$status','$user','$vendor_lead_code','$source_id','$list_id','$gmt_offset','$called_since_last_reset','$phone_code','$phone_number','$title','$first_name','$middle_initial','$last_name','$address1','$address2','$address3','$city','$state','$province','$postal_code','$country_code','$gender','$date_of_birth','$alt_phone','$email','$security_phrase','$comments',0,'2008-01-01 00:00:00','$rank','$owner');"; + $rslt=mysql_query($stmtZ, $link); + if ($WeBRooTWritablE > 0) + {fwrite($stmt_file, $stmtZ."\r\n");} + $multistmt=''; + $multi_insert_counter=0; + } + else + { + $multistmt .= "('','$entry_date','$modify_date','$status','$user','$vendor_lead_code','$source_id','$list_id','$gmt_offset','$called_since_last_reset','$phone_code','$phone_number','$title','$first_name','$middle_initial','$last_name','$address1','$address2','$address3','$city','$state','$province','$postal_code','$country_code','$gender','$date_of_birth','$alt_phone','$email','$security_phrase','$comments',0,'2008-01-01 00:00:00','$rank','$owner'),"; + $multi_insert_counter++; + } + $good++; + } + else + { + if ($bad < 1000000) + { + if ( $list_id < 100 ) + { + print "
record $total BAD- PHONE: $phone_number ROW: |$row[0]| INVALID LIST ID\n"; + } + else + { + print "
record $total BAD- PHONE: $phone_number ROW: |$row[0]| DUP: $dup_lead $dup_lead_list\n"; + } + } + $bad++; + } + $total++; + if ($total%100==0) + { + print ""; + usleep(1000); + flush(); + } + } + } + if ($multi_insert_counter!=0) + { + $stmtZ = "INSERT INTO vicidial_list (lead_id,entry_date,modify_date,status,user,vendor_lead_code,source_id,list_id,gmt_offset_now,called_since_last_reset,phone_code,phone_number,title,first_name,middle_initial,last_name,address1,address2,address3,city,state,province,postal_code,country_code,gender,date_of_birth,alt_phone,email,security_phrase,comments,called_count,last_local_call_time,rank,owner) values".substr($multistmt, 0, -1).";"; + mysql_query($stmtZ, $link); + if ($WeBRooTWritablE > 0) + {fwrite($stmt_file, $stmtZ."\r\n");} + } + ### LOG INSERTION Admin Log Table ### + $stmt="INSERT INTO vicidial_admin_log set event_date='$NOW_TIME', user='$PHP_AUTH_USER', ip_address='$ip', event_section='LISTS', event_type='LOAD', record_id='$list_id_override', event_code='ADMIN LOAD LIST STANDARD', event_sql='', event_notes='File Name: $leadfile_name, GOOD: $good, BAD: $bad, TOTAL: $total';"; + if ($DB) {echo "|$stmt|\n";} + $rslt=mysql_query($stmt, $link); + + print "

Done GOOD: $good       BAD: $bad       TOTAL: $total
"; + } + else + { + print "
ERROR: The file does not have the required number of fields to process it.
"; + } + } + ##### END process standard file layout ##### + + + ##### BEGIN field chooser ##### + else + { + print "
"; + flush(); + print "\r\n"; + print " \r\n"; + print " \r\n"; + print " \r\n"; + print " \r\n"; + + $fields_stmt = "SELECT vendor_lead_code, source_id, list_id, phone_code, phone_number, title, first_name, middle_initial, last_name, address1, address2, address3, city, state, province, postal_code, country_code, gender, date_of_birth, alt_phone, email, security_phrase, comments, rank, owner from vicidial_list limit 1"; + + ##### BEGIN custom fields columns list ### + if ($custom_fields_enabled > 0) + { + $stmt="SHOW TABLES LIKE \"custom_$list_id_override\";"; + if ($DB>0) {echo "$stmt\n";} + $rslt=mysql_query($stmt, $link); + $tablecount_to_print = mysql_num_rows($rslt); + if ($tablecount_to_print > 0) + { + $stmt="SELECT count(*) from vicidial_lists_fields where list_id='$list_id_override';"; + if ($DB>0) {echo "$stmt\n";} + $rslt=mysql_query($stmt, $link); + $fieldscount_to_print = mysql_num_rows($rslt); + if ($fieldscount_to_print > 0) + { + $rowx=mysql_fetch_row($rslt); + $custom_records_count = $rowx[0]; + + $custom_SQL=''; + $stmt="SELECT field_id,field_label,field_name,field_description,field_rank,field_help,field_type,field_options,field_size,field_max,field_default,field_cost,field_required,multi_position,name_position,field_order from vicidial_lists_fields where list_id='$list_id_override' order by field_rank,field_order,field_label;"; + if ($DB>0) {echo "$stmt\n";} + $rslt=mysql_query($stmt, $link); + $fields_to_print = mysql_num_rows($rslt); + $fields_list=''; + $o=0; + while ($fields_to_print > $o) + { + $rowx=mysql_fetch_row($rslt); + $A_field_label[$o] = $rowx[1]; + $A_field_type[$o] = $rowx[6]; + + if ($DB>0) {echo "$A_field_label[$o]|$A_field_type[$o]\n";} + + if ( ($A_field_type[$o]!='DISPLAY') and ($A_field_type[$o]!='SCRIPT') ) + { + if (!preg_match("/\|$A_field_label[$o]\|/",$vicidial_list_fields)) + { + $custom_SQL .= ",$A_field_label[$o]"; + } + } + $o++; + } + + $fields_stmt = "SELECT vendor_lead_code, source_id, list_id, phone_code, phone_number, title, first_name, middle_initial, last_name, address1, address2, address3, city, state, province, postal_code, country_code, gender, date_of_birth, alt_phone, email, security_phrase, comments, rank, owner $custom_SQL from vicidial_list, custom_$list_id_override limit 1"; + + } + } + } + ##### END custom fields columns list ### + + + $rslt=mysql_query("$fields_stmt", $link); + + # csv xls xlsx ods sxc conversion + $delim_set=0; + if (preg_match("/\.csv$|\.xls$|\.xlsx$|\.ods$|\.sxc$/i", $leadfile_name)) + { + copy($LF_path, "/tmp/$leadfile_name"); + $new_filename = preg_replace("/\.csv$|\.xls$|\.xlsx$|\.ods$|\.sxc$/i", '.txt', $leadfile_name); + $convert_command = "$WeBServeRRooT/$admin_web_directory/sheet2tab.pl /tmp/$leadfile_name /tmp/$new_filename"; + passthru("$convert_command"); + $lead_file = "/tmp/$new_filename"; + if ($DB > 0) {echo "|$convert_command|";} + + if (preg_match("/\.csv$/i", $leadfile_name)) {$delim_name="CSV: Comma Separated Values";} + if (preg_match("/\.xls$/i", $leadfile_name)) {$delim_name="XLS: MS Excel 2000-XP";} + if (preg_match("/\.xlsx$/i", $leadfile_name)) {$delim_name="XLSX: MS Excel 2007+";} + if (preg_match("/\.ods$/i", $leadfile_name)) {$delim_name="ODS: OpenOffice.org OpenDocument Spreadsheet";} + if (preg_match("/\.sxc$/i", $leadfile_name)) {$delim_name="SXC: OpenOffice.org First Spreadsheet";} + $delim_set=1; + } + else + { + copy($LF_path, "/tmp/vicidial_temp_file.txt"); + $lead_file = "/tmp/vicidial_temp_file.txt"; + } + $file=fopen("$lead_file", "r"); + if ($WeBRooTWritablE > 0) + {$stmt_file=fopen("$WeBServeRRooT/$admin_web_directory/listloader_stmts.txt", "w");} + + $buffer=fgets($file, 4096); + $tab_count=substr_count($buffer, "\t"); + $pipe_count=substr_count($buffer, "|"); + + if ($delim_set < 1) + { + if ($tab_count>$pipe_count) + {$delim_name="tab-delimited";} + else + {$delim_name="pipe-delimited";} + } + if ($tab_count>$pipe_count) + {$delimiter="\t";} + else + {$delimiter="|";} + + $field_check=explode($delimiter, $buffer); + flush(); + $file=fopen("$lead_file", "r"); + print "
Processing $delim_name file...\n"; + + if (strlen($list_id_override)>0) + { + print "

LIST ID OVERRIDE FOR THIS FILE: $list_id_override

"; + } + if (strlen($phone_code_override)>0) + { + print "

PHONE CODE OVERRIDE FOR THIS FILE: $phone_code_override

"; + } + $buffer=rtrim(fgets($file, 4096)); + $buffer=stripslashes($buffer); + $row=explode($delimiter, eregi_replace("[\'\"]", "", $buffer)); + + for ($i=0; $i\n"; + } + else + { + print "
\r\n"; + print " \r\n"; + print " \r\n"; + print " \r\n"; + } + } + print " \r\n"; + print " \r\n"; + print " \r\n"; + print " \r\n"; + print " \r\n"; + print " \r\n"; + print " \r\n"; + print " \r\n"; + print "
VICIDIAL ColumnFile data
".strtoupper(eregi_replace("_", " ", mysql_field_name($rslt, $i))).":
        
\r\n"; + + print ""; + } + ##### END field chooser ##### + + } + +?> + + + + + + + + +4) ) + { + if (preg_match('/^1$/', $phone_code)) + { + $stmt="select postal_code,state,GMT_offset,DST,DST_range,country,country_code from vicidial_postal_codes where country_code='$phone_code' and postal_code LIKE \"$postal_code%\";"; + $rslt=mysql_query($stmt, $link); + $pc_recs = mysql_num_rows($rslt); + if ($pc_recs > 0) + { + $row=mysql_fetch_row($rslt); + $gmt_offset = $row[2]; $gmt_offset = eregi_replace("\+","",$gmt_offset); + $dst = $row[3]; + $dst_range = $row[4]; + $PC_processed++; + $postalgmt_found++; + $post++; + } + } + } + if ($postalgmt_found < 1) + { + $PC_processed=0; + ### UNITED STATES ### + if ($phone_code =='1') + { + $stmt="select country_code,country,areacode,state,GMT_offset,DST,DST_range,geographic_description from vicidial_phone_codes where country_code='$phone_code' and areacode='$USarea';"; + $rslt=mysql_query($stmt, $link); + $pc_recs = mysql_num_rows($rslt); + if ($pc_recs > 0) + { + $row=mysql_fetch_row($rslt); + $gmt_offset = $row[4]; $gmt_offset = eregi_replace("\+","",$gmt_offset); + $dst = $row[5]; + $dst_range = $row[6]; + $PC_processed++; + } + } + ### MEXICO ### + if ($phone_code =='52') + { + $stmt="select country_code,country,areacode,state,GMT_offset,DST,DST_range,geographic_description from vicidial_phone_codes where country_code='$phone_code' and areacode='$USarea';"; + $rslt=mysql_query($stmt, $link); + $pc_recs = mysql_num_rows($rslt); + if ($pc_recs > 0) + { + $row=mysql_fetch_row($rslt); + $gmt_offset = $row[4]; $gmt_offset = eregi_replace("\+","",$gmt_offset); + $dst = $row[5]; + $dst_range = $row[6]; + $PC_processed++; + } + } + ### AUSTRALIA ### + if ($phone_code =='61') + { + $stmt="select country_code,country,areacode,state,GMT_offset,DST,DST_range,geographic_description from vicidial_phone_codes where country_code='$phone_code' and state='$state';"; + $rslt=mysql_query($stmt, $link); + $pc_recs = mysql_num_rows($rslt); + if ($pc_recs > 0) + { + $row=mysql_fetch_row($rslt); + $gmt_offset = $row[4]; $gmt_offset = eregi_replace("\+","",$gmt_offset); + $dst = $row[5]; + $dst_range = $row[6]; + $PC_processed++; + } + } + ### ALL OTHER COUNTRY CODES ### + if (!$PC_processed) + { + $PC_processed++; + $stmt="select country_code,country,areacode,state,GMT_offset,DST,DST_range,geographic_description from vicidial_phone_codes where country_code='$phone_code';"; + $rslt=mysql_query($stmt, $link); + $pc_recs = mysql_num_rows($rslt); + if ($pc_recs > 0) + { + $row=mysql_fetch_row($rslt); + $gmt_offset = $row[4]; $gmt_offset = eregi_replace("\+","",$gmt_offset); + $dst = $row[5]; + $dst_range = $row[6]; + $PC_processed++; + } + } + } + + ### Find out if DST to raise the gmt offset ### + $AC_GMT_diff = ($gmt_offset - $LOCAL_GMT_OFF_STD); + $AC_localtime = mktime(($Shour + $AC_GMT_diff), $Smin, $Ssec, $Smon, $Smday, $Syear); + $hour = date("H",$AC_localtime); + $min = date("i",$AC_localtime); + $sec = date("s",$AC_localtime); + $mon = date("m",$AC_localtime); + $mday = date("d",$AC_localtime); + $wday = date("w",$AC_localtime); + $year = date("Y",$AC_localtime); + $dsec = ( ( ($hour * 3600) + ($min * 60) ) + $sec ); + + $AC_processed=0; + if ( (!$AC_processed) and ($dst_range == 'SSM-FSN') ) + { + if ($DBX) {print " Second Sunday March to First Sunday November\n";} + #********************************************************************** + # SSM-FSN + # This is returns 1 if Daylight Savings Time is in effect and 0 if + # Standard time is in effect. + # Based on Second Sunday March to First Sunday November at 2 am. + # INPUTS: + # mm INTEGER Month. + # dd INTEGER Day of the month. + # ns INTEGER Seconds into the day. + # dow INTEGER Day of week (0=Sunday, to 6=Saturday) + # OPTIONAL INPUT: + # timezone INTEGER hour difference UTC - local standard time + # (DEFAULT is blank) + # make calculations based on UTC time, + # which means shift at 10:00 UTC in April + # and 9:00 UTC in October + # OUTPUT: + # INTEGER 1 = DST, 0 = not DST + # + # S M T W T F S + # 1 2 3 4 5 6 7 + # 8 9 10 11 12 13 14 + #15 16 17 18 19 20 21 + #22 23 24 25 26 27 28 + #29 30 31 + # + # S M T W T F S + # 1 2 3 4 5 6 + # 7 8 9 10 11 12 13 + #14 15 16 17 18 19 20 + #21 22 23 24 25 26 27 + #28 29 30 31 + # + #********************************************************************** + + $USACAN_DST=0; + $mm = $mon; + $dd = $mday; + $ns = $dsec; + $dow= $wday; + + if ($mm < 3 || $mm > 11) { + $USACAN_DST=0; + } elseif ($mm >= 4 and $mm <= 10) { + $USACAN_DST=1; + } elseif ($mm == 3) { + if ($dd > 13) { + $USACAN_DST=1; + } elseif ($dd >= ($dow+8)) { + if ($timezone) { + if ($dow == 0 and $ns < (7200+$timezone*3600)) { + $USACAN_DST=0; + } else { + $USACAN_DST=1; + } + } else { + if ($dow == 0 and $ns < 7200) { + $USACAN_DST=0; + } else { + $USACAN_DST=1; + } + } + } else { + $USACAN_DST=0; + } + } elseif ($mm == 11) { + if ($dd > 7) { + $USACAN_DST=0; + } elseif ($dd < ($dow+1)) { + $USACAN_DST=1; + } elseif ($dow == 0) { + if ($timezone) { # UTC calculations + if ($ns < (7200+($timezone-1)*3600)) { + $USACAN_DST=1; + } else { + $USACAN_DST=0; + } + } else { # local time calculations + if ($ns < 7200) { + $USACAN_DST=1; + } else { + $USACAN_DST=0; + } + } + } else { + $USACAN_DST=0; + } + } # end of month checks + if ($DBX) {print " DST: $USACAN_DST\n";} + if ($USACAN_DST) {$gmt_offset++;} + $AC_processed++; + } + + if ( (!$AC_processed) and ($dst_range == 'FSA-LSO') ) + { + if ($DBX) {print " First Sunday April to Last Sunday October\n";} + #********************************************************************** + # FSA-LSO + # This is returns 1 if Daylight Savings Time is in effect and 0 if + # Standard time is in effect. + # Based on first Sunday in April and last Sunday in October at 2 am. + #********************************************************************** + + $USA_DST=0; + $mm = $mon; + $dd = $mday; + $ns = $dsec; + $dow= $wday; + + if ($mm < 4 || $mm > 10) { + $USA_DST=0; + } elseif ($mm >= 5 and $mm <= 9) { + $USA_DST=1; + } elseif ($mm == 4) { + if ($dd > 7) { + $USA_DST=1; + } elseif ($dd >= ($dow+1)) { + if ($timezone) { + if ($dow == 0 and $ns < (7200+$timezone*3600)) { + $USA_DST=0; + } else { + $USA_DST=1; + } + } else { + if ($dow == 0 and $ns < 7200) { + $USA_DST=0; + } else { + $USA_DST=1; + } + } + } else { + $USA_DST=0; + } + } elseif ($mm == 10) { + if ($dd < 25) { + $USA_DST=1; + } elseif ($dd < ($dow+25)) { + $USA_DST=1; + } elseif ($dow == 0) { + if ($timezone) { # UTC calculations + if ($ns < (7200+($timezone-1)*3600)) { + $USA_DST=1; + } else { + $USA_DST=0; + } + } else { # local time calculations + if ($ns < 7200) { + $USA_DST=1; + } else { + $USA_DST=0; + } + } + } else { + $USA_DST=0; + } + } # end of month checks + + if ($DBX) {print " DST: $USA_DST\n";} + if ($USA_DST) {$gmt_offset++;} + $AC_processed++; + } + + if ( (!$AC_processed) and ($dst_range == 'LSM-LSO') ) + { + if ($DBX) {print " Last Sunday March to Last Sunday October\n";} + #********************************************************************** + # This is s 1 if Daylight Savings Time is in effect and 0 if + # Standard time is in effect. + # Based on last Sunday in March and last Sunday in October at 1 am. + #********************************************************************** + + $GBR_DST=0; + $mm = $mon; + $dd = $mday; + $ns = $dsec; + $dow= $wday; + + if ($mm < 3 || $mm > 10) { + $GBR_DST=0; + } elseif ($mm >= 4 and $mm <= 9) { + $GBR_DST=1; + } elseif ($mm == 3) { + if ($dd < 25) { + $GBR_DST=0; + } elseif ($dd < ($dow+25)) { + $GBR_DST=0; + } elseif ($dow == 0) { + if ($timezone) { # UTC calculations + if ($ns < (3600+($timezone-1)*3600)) { + $GBR_DST=0; + } else { + $GBR_DST=1; + } + } else { # local time calculations + if ($ns < 3600) { + $GBR_DST=0; + } else { + $GBR_DST=1; + } + } + } else { + $GBR_DST=1; + } + } elseif ($mm == 10) { + if ($dd < 25) { + $GBR_DST=1; + } elseif ($dd < ($dow+25)) { + $GBR_DST=1; + } elseif ($dow == 0) { + if ($timezone) { # UTC calculations + if ($ns < (3600+($timezone-1)*3600)) { + $GBR_DST=1; + } else { + $GBR_DST=0; + } + } else { # local time calculations + if ($ns < 3600) { + $GBR_DST=1; + } else { + $GBR_DST=0; + } + } + } else { + $GBR_DST=0; + } + } # end of month checks + if ($DBX) {print " DST: $GBR_DST\n";} + if ($GBR_DST) {$gmt_offset++;} + $AC_processed++; + } + if ( (!$AC_processed) and ($dst_range == 'LSO-LSM') ) + { + if ($DBX) {print " Last Sunday October to Last Sunday March\n";} + #********************************************************************** + # This is s 1 if Daylight Savings Time is in effect and 0 if + # Standard time is in effect. + # Based on last Sunday in October and last Sunday in March at 1 am. + #********************************************************************** + + $AUS_DST=0; + $mm = $mon; + $dd = $mday; + $ns = $dsec; + $dow= $wday; + + if ($mm < 3 || $mm > 10) { + $AUS_DST=1; + } elseif ($mm >= 4 and $mm <= 9) { + $AUS_DST=0; + } elseif ($mm == 3) { + if ($dd < 25) { + $AUS_DST=1; + } elseif ($dd < ($dow+25)) { + $AUS_DST=1; + } elseif ($dow == 0) { + if ($timezone) { # UTC calculations + if ($ns < (3600+($timezone-1)*3600)) { + $AUS_DST=1; + } else { + $AUS_DST=0; + } + } else { # local time calculations + if ($ns < 3600) { + $AUS_DST=1; + } else { + $AUS_DST=0; + } + } + } else { + $AUS_DST=0; + } + } elseif ($mm == 10) { + if ($dd < 25) { + $AUS_DST=0; + } elseif ($dd < ($dow+25)) { + $AUS_DST=0; + } elseif ($dow == 0) { + if ($timezone) { # UTC calculations + if ($ns < (3600+($timezone-1)*3600)) { + $AUS_DST=0; + } else { + $AUS_DST=1; + } + } else { # local time calculations + if ($ns < 3600) { + $AUS_DST=0; + } else { + $AUS_DST=1; + } + } + } else { + $AUS_DST=1; + } + } # end of month checks + if ($DBX) {print " DST: $AUS_DST\n";} + if ($AUS_DST) {$gmt_offset++;} + $AC_processed++; + } + + if ( (!$AC_processed) and ($dst_range == 'FSO-LSM') ) + { + if ($DBX) {print " First Sunday October to Last Sunday March\n";} + #********************************************************************** + # TASMANIA ONLY + # This is s 1 if Daylight Savings Time is in effect and 0 if + # Standard time is in effect. + # Based on first Sunday in October and last Sunday in March at 1 am. + #********************************************************************** + + $AUST_DST=0; + $mm = $mon; + $dd = $mday; + $ns = $dsec; + $dow= $wday; + + if ($mm < 3 || $mm > 10) { + $AUST_DST=1; + } elseif ($mm >= 4 and $mm <= 9) { + $AUST_DST=0; + } elseif ($mm == 3) { + if ($dd < 25) { + $AUST_DST=1; + } elseif ($dd < ($dow+25)) { + $AUST_DST=1; + } elseif ($dow == 0) { + if ($timezone) { # UTC calculations + if ($ns < (3600+($timezone-1)*3600)) { + $AUST_DST=1; + } else { + $AUST_DST=0; + } + } else { # local time calculations + if ($ns < 3600) { + $AUST_DST=1; + } else { + $AUST_DST=0; + } + } + } else { + $AUST_DST=0; + } + } elseif ($mm == 10) { + if ($dd > 7) { + $AUST_DST=1; + } elseif ($dd >= ($dow+1)) { + if ($timezone) { + if ($dow == 0 and $ns < (7200+$timezone*3600)) { + $AUST_DST=0; + } else { + $AUST_DST=1; + } + } else { + if ($dow == 0 and $ns < 3600) { + $AUST_DST=0; + } else { + $AUST_DST=1; + } + } + } else { + $AUST_DST=0; + } + } # end of month checks + if ($DBX) {print " DST: $AUST_DST\n";} + if ($AUST_DST) {$gmt_offset++;} + $AC_processed++; + } + + if ( (!$AC_processed) and ($dst_range == 'FSO-FSA') ) + { + if ($DBX) {print " Sunday in October to First Sunday in April\n";} + #********************************************************************** + # FSO-FSA + # 2008+ AUSTRALIA ONLY (country code 61) + # This is returns 1 if Daylight Savings Time is in effect and 0 if + # Standard time is in effect. + # Based on first Sunday in October and first Sunday in April at 1 am. + #********************************************************************** + + $AUSE_DST=0; + $mm = $mon; + $dd = $mday; + $ns = $dsec; + $dow= $wday; + + if ($mm < 4 or $mm > 10) { + $AUSE_DST=1; + } elseif ($mm >= 5 and $mm <= 9) { + $AUSE_DST=0; + } elseif ($mm == 4) { + if ($dd > 7) { + $AUSE_DST=0; + } elseif ($dd >= ($dow+1)) { + if ($timezone) { + if ($dow == 0 and $ns < (3600+$timezone*3600)) { + $AUSE_DST=1; + } else { + $AUSE_DST=0; + } + } else { + if ($dow == 0 and $ns < 7200) { + $AUSE_DST=1; + } else { + $AUSE_DST=0; + } + } + } else { + $AUSE_DST=1; + } + } elseif ($mm == 10) { + if ($dd >= 8) { + $AUSE_DST=1; + } elseif ($dd >= ($dow+1)) { + if ($timezone) { + if ($dow == 0 and $ns < (7200+$timezone*3600)) { + $AUSE_DST=0; + } else { + $AUSE_DST=1; + } + } else { + if ($dow == 0 and $ns < 3600) { + $AUSE_DST=0; + } else { + $AUSE_DST=1; + } + } + } else { + $AUSE_DST=0; + } + } # end of month checks + if ($DBX) {print " DST: $AUSE_DST\n";} + if ($AUSE_DST) {$gmt_offset++;} + $AC_processed++; + } + + if ( (!$AC_processed) and ($dst_range == 'FSO-TSM') ) + { + if ($DBX) {print " First Sunday October to Third Sunday March\n";} + #********************************************************************** + # This is s 1 if Daylight Savings Time is in effect and 0 if + # Standard time is in effect. + # Based on first Sunday in October and third Sunday in March at 1 am. + #********************************************************************** + + $NZL_DST=0; + $mm = $mon; + $dd = $mday; + $ns = $dsec; + $dow= $wday; + + if ($mm < 3 || $mm > 10) { + $NZL_DST=1; + } elseif ($mm >= 4 and $mm <= 9) { + $NZL_DST=0; + } elseif ($mm == 3) { + if ($dd < 14) { + $NZL_DST=1; + } elseif ($dd < ($dow+14)) { + $NZL_DST=1; + } elseif ($dow == 0) { + if ($timezone) { # UTC calculations + if ($ns < (3600+($timezone-1)*3600)) { + $NZL_DST=1; + } else { + $NZL_DST=0; + } + } else { # local time calculations + if ($ns < 3600) { + $NZL_DST=1; + } else { + $NZL_DST=0; + } + } + } else { + $NZL_DST=0; + } + } elseif ($mm == 10) { + if ($dd > 7) { + $NZL_DST=1; + } elseif ($dd >= ($dow+1)) { + if ($timezone) { + if ($dow == 0 and $ns < (7200+$timezone*3600)) { + $NZL_DST=0; + } else { + $NZL_DST=1; + } + } else { + if ($dow == 0 and $ns < 3600) { + $NZL_DST=0; + } else { + $NZL_DST=1; + } + } + } else { + $NZL_DST=0; + } + } # end of month checks + if ($DBX) {print " DST: $NZL_DST\n";} + if ($NZL_DST) {$gmt_offset++;} + $AC_processed++; + } + + if ( (!$AC_processed) and ($dst_range == 'LSS-FSA') ) + { + if ($DBX) {print " Last Sunday in September to First Sunday in April\n";} + #********************************************************************** + # LSS-FSA + # 2007+ NEW ZEALAND (country code 64) + # This is returns 1 if Daylight Savings Time is in effect and 0 if + # Standard time is in effect. + # Based on last Sunday in September and first Sunday in April at 1 am. + #********************************************************************** + + $NZLN_DST=0; + $mm = $mon; + $dd = $mday; + $ns = $dsec; + $dow= $wday; + + if ($mm < 4 || $mm > 9) { + $NZLN_DST=1; + } elseif ($mm >= 5 && $mm <= 9) { + $NZLN_DST=0; + } elseif ($mm == 4) { + if ($dd > 7) { + $NZLN_DST=0; + } elseif ($dd >= ($dow+1)) { + if ($timezone) { + if ($dow == 0 && $ns < (3600+$timezone*3600)) { + $NZLN_DST=1; + } else { + $NZLN_DST=0; + } + } else { + if ($dow == 0 && $ns < 7200) { + $NZLN_DST=1; + } else { + $NZLN_DST=0; + } + } + } else { + $NZLN_DST=1; + } + } elseif ($mm == 9) { + if ($dd < 25) { + $NZLN_DST=0; + } elseif ($dd < ($dow+25)) { + $NZLN_DST=0; + } elseif ($dow == 0) { + if ($timezone) { # UTC calculations + if ($ns < (3600+($timezone-1)*3600)) { + $NZLN_DST=0; + } else { + $NZLN_DST=1; + } + } else { # local time calculations + if ($ns < 3600) { + $NZLN_DST=0; + } else { + $NZLN_DST=1; + } + } + } else { + $NZLN_DST=1; + } + } # end of month checks + if ($DBX) {print " DST: $NZLN_DST\n";} + if ($NZLN_DST) {$gmt_offset++;} + $AC_processed++; + } + + if ( (!$AC_processed) and ($dst_range == 'TSO-LSF') ) + { + if ($DBX) {print " Third Sunday October to Last Sunday February\n";} + #********************************************************************** + # TSO-LSF + # This is returns 1 if Daylight Savings Time is in effect and 0 if + # Standard time is in effect. Brazil + # Based on Third Sunday October to Last Sunday February at 1 am. + #********************************************************************** + + $BZL_DST=0; + $mm = $mon; + $dd = $mday; + $ns = $dsec; + $dow= $wday; + + if ($mm < 2 || $mm > 10) { + $BZL_DST=1; + } elseif ($mm >= 3 and $mm <= 9) { + $BZL_DST=0; + } elseif ($mm == 2) { + if ($dd < 22) { + $BZL_DST=1; + } elseif ($dd < ($dow+22)) { + $BZL_DST=1; + } elseif ($dow == 0) { + if ($timezone) { # UTC calculations + if ($ns < (3600+($timezone-1)*3600)) { + $BZL_DST=1; + } else { + $BZL_DST=0; + } + } else { # local time calculations + if ($ns < 3600) { + $BZL_DST=1; + } else { + $BZL_DST=0; + } + } + } else { + $BZL_DST=0; + } + } elseif ($mm == 10) { + if ($dd < 22) { + $BZL_DST=0; + } elseif ($dd < ($dow+22)) { + $BZL_DST=0; + } elseif ($dow == 0) { + if ($timezone) { # UTC calculations + if ($ns < (3600+($timezone-1)*3600)) { + $BZL_DST=0; + } else { + $BZL_DST=1; + } + } else { # local time calculations + if ($ns < 3600) { + $BZL_DST=0; + } else { + $BZL_DST=1; + } + } + } else { + $BZL_DST=1; + } + } # end of month checks + if ($DBX) {print " DST: $BZL_DST\n";} + if ($BZL_DST) {$gmt_offset++;} + $AC_processed++; + } + + if (!$AC_processed) + { + if ($DBX) {print " No DST Method Found\n";} + if ($DBX) {print " DST: 0\n";} + $AC_processed++; + } + + return $gmt_offset; + } + +?> + diff --git a/www/vicidial/new_listloader_superL.php b/www/vicidial/new_listloader_superL.php index 8f736383..4c927fd3 100644 --- a/www/vicidial/new_listloader_superL.php +++ b/www/vicidial/new_listloader_superL.php @@ -394,7 +394,7 @@ echo " - +
";
        
        BACK TO ADMINLIST LOADER-     VERSION:     BUILD:    
        BACK TO ADMIN         3rd Gen Lead Loader     LIST LOADER-     VERSION:     BUILD:    
diff --git a/www/vicidial/sheet2tab.pl b/www/vicidial/sheet2tab.pl new file mode 100644 index 00000000..9be16dba --- /dev/null +++ b/www/vicidial/sheet2tab.pl @@ -0,0 +1,123 @@ +#!/usr/bin/perl +# +# sheet2tab.pl - Convert spreadsheet to tab-delimited text file version 2.4 +# +# Copyright (C) 2010 Matt Florell & Michael Cargile LICENSE: AGPLv2 +# +# Lead file conversion and scrubbing script. This is the first stage in the lead loading process. +# +# *Stage 1 - Convert file to a tab delimited format (DONE) +# Stage 2 - Prompt the user for the field mapping (TBD) +# Stage 3 - Schedule a List Load by the command line list loader (TBD) +# +# This particular script converts csv xls xlsx ods sxc files to a tab delimited file. In the +# process it scrubs out ' " ; ` \ characters which could cause problems with db insertion of +# lead data. It also replaces pipes, tabs, carrage returns, and line feeds with spaces to prevent +# stage 3 from miscounting the number of fields on a line. +# +# ARG1 = File to Convert +# ARG2 = Name of the output file +# +# This file requires the Spreadsheet::Read and Spreadsheet::XLSX perl modules from CPAN +# +# cpan> install Spreadsheet::Read +# cpan> install Spreadsheet::XLSX +# +# CHANGES +# 100706-0833 - Initial build +# 100706-1244 - Reformat and add comments +# + +# disable when not debugging +#use strict; +#use warnings; + +use Spreadsheet::Read; + +sub scrub_lead_field + { + my $lead_field = $_[0]; + + # remove bad characters + $lead_field =~ s/\'|\\|\"|;|\`|\224//gi; + + # replace tabs and newlines with spaces + $lead_field =~ s/\n|\r|\t|\174/ /gi; + + return $lead_field; + } + +my $infile; +my $outfile; + +if ( $#ARGV == 1 ) + { + $infile = $ARGV[0]; + $outfile = $ARGV[1]; + } +else + { + print STDERR "Incorrect number of arguments\n"; + exit(1); + } + +open( OUTFILE , ">$outfile" ) or die $!; + +my $debug = 0; + +my $out_delim = "\t"; + +my $count = 0; + +my $colPos = 0; +my $rowPos = 0; + +# parse the csv file +my $parser = ReadData ( "$infile" ); + +my $maxCol = $parser->[1]{maxcol}; +my $maxRow = $parser->[1]{maxrow}; + +if ($debug) { print STDERR "maxCol = '$maxCol'\n"; }; +if ($debug) { print STDERR "maxRow = '$maxRow'\n"; }; + +# loop through the rows +for ( $rowPos = 1; $rowPos <= $maxRow; $rowPos++ ) + { + # loop through the cols + for ( $colPos = 1; $colPos <= $maxCol; $colPos++ ) + { + my $cell = cr2cell( $colPos, $rowPos ); + + if ($debug) { print STDERR "cell = '$cell'\n"; }; + + my $field; + + # make sure the field has a value + if ( $parser->[1]{$cell} ) + { + $field = $parser->[1]{$cell}; + } + else + { + $field = ""; + } + + if ($debug) { print STDERR "field = '$field'\n"; }; + + $field = scrub_lead_field( $field ); + + print OUTFILE $field; + + if ( $colPos < $maxCol ) + { + print OUTFILE $out_delim; + } + else + { + print OUTFILE "\n"; + } + } + } + +exit;