From ff149b2d0afddfd7d1c6c587320f6421bc425974 Mon Sep 17 00:00:00 2001 From: mattf Date: Wed, 13 Sep 2006 16:18:44 +0000 Subject: [PATCH] fixed two errors in VICIDIAL_IN_new_leads_file.pl script git-svn-id: svn://192.168.202.10@271 3d104415-ff17-0410-8863-d5cf3c621b8a --- .../trunk/bin/VICIDIAL_IN_new_leads_file.pl | 25 +++++++++++-------- 1 file changed, 14 insertions(+), 11 deletions(-) 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 71a40fb6..d34de020 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 @@ -140,10 +140,20 @@ if (length($ARGV[0])>1) else { print "no command line options set\n"; +$args = ""; +$i=0; +$forcelistid = ''; } ### end parsing run-time options ### +if (!$VARDB_port) {$VARDB_port='3306';} + +use DBI; + +$dbhA = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass") + or die "Couldn't connect to database: " . DBI->errstr; + $suf = '.txt'; $people_packages_id_update=''; $dir1 = "$PATHhome/LEADS_IN"; @@ -186,13 +196,6 @@ foreach(@FILES) || die "Can't open $source$FILES[$i]: $!\n"; -if (!$VARDB_port) {$VARDB_port='3306';} - -use DBI; - -$dbhA = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass") - or die "Couldn't connect to database: " . DBI->errstr; - ### Grab Server values from the database $stmtA = "SELECT local_gmt FROM servers where server_ip = '$server_ip';"; $sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr; @@ -438,8 +441,8 @@ if ($DB) {print "SEED TIME $secX : $year-$mon-$mday $hour:$min:$sec LOC { ### insert good deal into pending_transactions table ### $stmtZ = "INSERT INTO vicidial_list 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');"; - if($DB){print STDERR "\n|$stmtZ|\n";} - if (!$T) {$affected_rows = $dbhA->do($stmtA); } # or die "Couldn't execute query: |$stmtA|\n"; + if (!$T) {$affected_rows = $dbhA->do($stmtZ); } # or die "Couldn't execute query: |$stmtZ|\n"; + if($DB){print STDERR "\n|$affected_rows|$stmtZ|\n";} $multistmt=''; $multi_insert_counter=0; @@ -479,8 +482,8 @@ if ($DB) {print "SEED TIME $secX : $year-$mon-$mday $hour:$min:$sec LOC chop($multistmt); ### insert good deal into pending_transactions table ### $stmtZ = "INSERT INTO vicidial_list values$multistmt;"; - if($DB){print STDERR "\n|$stmtZ|\n";} - if (!$T) {$affected_rows = $dbhA->do($stmtA); } # or die "Couldn't execute query: |$stmtA|\n"; + if (!$T) {$affected_rows = $dbhA->do($stmtZ); } # or die "Couldn't execute query: |$stmtZ|\n"; + if($DB){print STDERR "\n|$affected_rows|$stmtZ|\n";} $multistmt=''; $multi_insert_counter=0;