2006-06-16 snapshot

git-svn-id: svn://192.168.202.10@9 3d104415-ff17-0410-8863-d5cf3c621b8a

VICIDIAL_web/admin.php

@@ -268,8 +268,14 @@ if (isset($_GET["wrapup_seconds"]))					{$wrapup_seconds=$_GET["wrapup_seconds"]
 	elseif (isset($_POST["wrapup_seconds"]))		{$wrapup_seconds=$_POST["wrapup_seconds"];}
 if (isset($_GET["wrapup_message"]))					{$wrapup_message=$_GET["wrapup_message"];}
 	elseif (isset($_POST["wrapup_message"]))		{$wrapup_message=$_POST["wrapup_message"];}
-
-
+if (isset($_GET["phone_number"]))					{$phone_number=$_GET["phone_number"];}
+	elseif (isset($_POST["phone_number"]))			{$phone_number=$_POST["phone_number"];}
+if (isset($_GET["use_internal_dnc"]))				{$use_internal_dnc=$_GET["use_internal_dnc"];}
+	elseif (isset($_POST["use_internal_dnc"]))		{$use_internal_dnc=$_POST["use_internal_dnc"];}
+if (isset($_GET["attempt_delay"]))					{$attempt_delay=$_GET["attempt_delay"];}
+	elseif (isset($_POST["attempt_delay"]))			{$attempt_delay=$_POST["attempt_delay"];}
+if (isset($_GET["attempt_maximum"]))				{$attempt_maximum=$_GET["attempt_maximum"];}
+	elseif (isset($_POST["attempt_maximum"]))		{$attempt_maximum=$_POST["attempt_maximum"];}
 
 	if (isset($script_id)) {$script_id= strtoupper($script_id);}
 	if (isset($lead_filter_id)) {$lead_filter_id = strtoupper($lead_filter_id);}
@@ -328,12 +334,14 @@ if (isset($_GET["wrapup_message"]))					{$wrapup_message=$_GET["wrapup_message"]
 #            - Added test dialable leads count popup to filter screen 
 # 60510-1050 - Added Wrapup seconds and Wrapup message to campaigns screen
 # 60608-1401 - Added allowable inbound_groups checkboxes to CLOSER campaign detail screen
+# 60609-1051 - Added add-to-dnc in LISTS section
+# 60613-1415 - Added lead recycling options to campaign detail screen
 #
 
 # make sure you have added a user to the vicidial_users MySQL table with at least user_level 8 to access this page the first time
 
-$version = '1.1.11-9';
-$build = '60608-1401';
+$version = '1.1.11-11';
+$build = '60613-1415';
 
 $STARTtime = date("U");
 
@@ -421,6 +429,7 @@ if (!isset($ADD))   {$ADD=0;}
 if ($ADD==1)			{$hh='users';		echo "Add New User";}
 if ($ADD==11)			{$hh='campaigns';	echo "Add New Campaign";}
 if ($ADD==111)			{$hh='lists';		echo "Add New List";}
+if ($ADD==121)			{$hh='lists';		echo "Add New DNC";}
 if ($ADD==1111)			{$hh='ingroups';	echo "Add New In-Group";}
 if ($ADD==11111)		{$hh='remoteagent';	echo "Add New Remote Agents";}
 if ($ADD==111111)		{$hh='usergroups';	echo "Add New Users Group";}
@@ -432,6 +441,7 @@ if ($ADD==2)			{$hh='users';		echo "New User Addition";}
 if ($ADD==21)			{$hh='campaigns';	echo "New Campaign Addition";}
 if ($ADD==22)			{$hh='campaigns';	echo "New Campaign Status Addition";}
 if ($ADD==23)			{$hh='campaigns';	echo "New Campaign HotKey Addition";}
+if ($ADD==25)			{$hh='campaigns';	echo "New Campaign Lead Recycle Addition";}
 if ($ADD==211)			{$hh='lists';		echo "New List Addition";}
 if ($ADD==2111)			{$hh='ingroups';	echo "New In-Group Addition";}
 if ($ADD==21111)		{$hh='remoteagent';	echo "New Remote Agents Addition";}
@@ -459,6 +469,7 @@ if ($ADD==41)			{$hh='campaigns';	echo "Modify Campaign";}
 if ($ADD==42)			{$hh='campaigns';	echo "Modify Campaign Status";}
 if ($ADD==43)			{$hh='campaigns';	echo "Modify Campaign HotKey";}
 if ($ADD==44)			{$hh='campaigns';	echo "Modify Campaign - Basic View";}
+if ($ADD==45)			{$hh='campaigns';	echo "Modify Campaign Lead Recycle";}
 if ($ADD==411)			{$hh='lists';		echo "Modify List";}
 if ($ADD==4111)			{$hh='ingroups';	echo "Modify In-Group";}
 if ($ADD==41111)		{$hh='remoteagent';	echo "Modify Remote Agents";}
@@ -481,6 +492,7 @@ if ($ADD==5111111111)	{$hh='times';		echo "Delete State Call Time";}
 if ($ADD==6)			{$hh='users';		echo "Delete User";}
 if ($ADD==61)			{$hh='campaigns';	echo "Delete Campaign";}
 if ($ADD==62)			{$hh='campaigns';	echo "Logout Agents";}
+if ($ADD==65)			{$hh='campaigns';	echo "Delete Lead Recycle";}
 if ($ADD==611)			{$hh='lists';		echo "Delete List";}
 if ($ADD==6111)			{$hh='ingroups';	echo "Delete In-Group";}
 if ($ADD==61111)		{$hh='remoteagent';	echo "Delete Remote Agents";}
@@ -512,14 +524,14 @@ if ( ($ADD>9) && ($ADD < 99998) )
 	{
 	##### get scripts listing for dynamic pulldown
 	$stmt="SELECT script_id,script_name from vicidial_scripts order by script_id";
-	$rsltx=mysql_query($stmt, $link);
-	$scripts_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$scripts_to_print = mysql_num_rows($rslt);
 	$scripts_list="<option value=\"\">NONE</option>\n";
 
 	$o=0;
 	while ($scripts_to_print > $o)
 		{
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$scripts_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 		$scriptname_list["$rowx[0]"] = "$rowx[1]";
 		$o++;
@@ -527,14 +539,14 @@ if ( ($ADD>9) && ($ADD < 99998) )
 
 	##### get filters listing for dynamic pulldown
 	$stmt="SELECT lead_filter_id,lead_filter_name,lead_filter_sql from vicidial_lead_filters order by lead_filter_id";
-	$rsltx=mysql_query($stmt, $link);
-	$filters_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$filters_to_print = mysql_num_rows($rslt);
 	$filters_list="<option value=\"\">NONE</option>\n";
 
 	$o=0;
 	while ($filters_to_print > $o)
 		{
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$filters_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 		$filtername_list["$rowx[0]"] = "$rowx[1]";
 		$filtersql_list["$rowx[0]"] = "$rowx[2]";
@@ -543,13 +555,13 @@ if ( ($ADD>9) && ($ADD < 99998) )
 
 	##### get call_times listing for dynamic pulldown
 	$stmt="SELECT call_time_id,call_time_name from vicidial_call_times order by call_time_id";
-	$rsltx=mysql_query($stmt, $link);
-	$times_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$times_to_print = mysql_num_rows($rslt);
 
 	$o=0;
 	while ($times_to_print > $o)
 		{
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$call_times_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 		$call_timename_list["$rowx[0]"] = "$rowx[1]";
 		$o++;
@@ -560,28 +572,28 @@ if ( ( (strlen($ADD)>4) && ($ADD < 99998) ) or ($ADD==3) or ($ADD==31) or ($ADD=
 	{
 	##### get server listing for dynamic pulldown
 	$stmt="SELECT server_ip,server_description from servers order by server_ip";
-	$rsltx=mysql_query($stmt, $link);
-	$servers_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$servers_to_print = mysql_num_rows($rslt);
 	$servers_list='';
 
 	$o=0;
 	while ($servers_to_print > $o)
 		{
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$servers_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 		$o++;
 		}
 
 	##### get campaigns listing for dynamic pulldown
 	$stmt="SELECT campaign_id,campaign_name from vicidial_campaigns order by campaign_id";
-	$rsltx=mysql_query($stmt, $link);
-	$campaigns_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$campaigns_to_print = mysql_num_rows($rslt);
 	$campaigns_list='';
 
 	$o=0;
 	while ($campaigns_to_print > $o)
 		{
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$campaigns_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 		$o++;
 		}
@@ -618,15 +630,15 @@ if ( ( (strlen($ADD)>4) && ($ADD < 99998) ) or ($ADD==3) or ($ADD==31) or ($ADD=
 	}
 
 	$stmt="SELECT group_id,group_name from vicidial_inbound_groups order by group_id";
-	$rsltx=mysql_query($stmt, $link);
-	$groups_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$groups_to_print = mysql_num_rows($rslt);
 	$groups_list='';
 	$groups_value='';
 
 	$o=0;
 	while ($groups_to_print > $o)
 		{
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$group_id_value = $rowx[0];
 		$group_name_value = $rowx[1];
 		$groups_list .= "<input type=\"checkbox\" name=\"groups[]\" value=\"$group_id_value\"";
@@ -938,7 +950,7 @@ echo "<TABLE WIDTH=98% BGCOLOR=#E6E6E6 cellpadding=2 cellspacing=0><TR><TD ALIGN
 <BR>
 <A NAME="vicidial_campaigns-campaign_cid">
 <BR>
-<B>Campaign CallerID -</B> This field allows for the sending of a custom callerid number on the outbound calls. This is the number that would show up on the callerid of the person you are calling. The default is UNKNOWN. This option is only available if you are using PRIs - ISDN T1s or E1s - that have the custom callerid feature turned on. This feature may also work with IAX2 trunks depending on what your provider allows. The custom callerID only applies to calls placed for the VICIDIAL campaign directly, any 3rd party calls or transfers will not send the custom callerID. NOTE: Sometimes putting UNKNOWN or PRIVATE in the field will yield the sending of your default callerID number by your carrier with the calls. You may want to test this and put 0000000000 in the callerid field instead if you do not want to send you CallerID.
+<B>Campaign CallerID -</B> This field allows for the sending of a custom callerid number on the outbound calls. This is the number that would show up on the callerid of the person you are calling. The default is UNKNOWN. If you are using T1 or E1s to dial out this option is only available if you are using PRIs - ISDN T1s or E1s - that have the custom callerid feature turned on, this will not work with Robbed-bit service(RBS) circuits. This will also work through most VOIP(SIP or IAX trunks) providers that allow dynamic outbound callerID. The custom callerID only applies to calls placed for the VICIDIAL campaign directly, any 3rd party calls or transfers will not send the custom callerID. NOTE: Sometimes putting UNKNOWN or PRIVATE in the field will yield the sending of your default callerID number by your carrier with the calls. You may want to test this and put 0000000000 in the callerid field instead if you do not want to send you CallerID.
 
 <BR>
 <A NAME="vicidial_campaigns-campaign_vdad_exten">
@@ -1026,9 +1038,14 @@ echo "<TABLE WIDTH=98% BGCOLOR=#E6E6E6 cellpadding=2 cellspacing=0><TR><TD ALIGN
 <B>Wrapup Message -</B> This is a campaign-specific message to be displayed on the wrapup screen if wrapup seconds is set.
 
 <BR>
-<A NAME="vicidial_campaigns-closer_campaigns">
+<A NAME="vicidial_campaigns-wrapup_message">
 <BR>
-<B>Allowable Inbound Groups -</B> Here is where you select the inbound groups you want agents in this CLOSER campaign to be able to take calls from. It is important for BLENDED inbound/outbound campaigns only to select the inbound groups that are used for agents in this campaign.
+<B>Wrapup Message -</B> This is a campaign-specific message to be displayed on the wrapup screen if wrapup seconds is set.
+
+<BR>
+<A NAME="vicidial_campaigns-use_internal_dnc">
+<BR>
+<B>Use Internal DNC List -</B> This defines whether this campaign is to filter leads against the Internal DNC list. If it is set to Y, the hopper will look for each phone number in the DNC list before placing it in the hopper. If it is in the DNC list then it will change that lead status to DNCL so it cannot be dialed. Default is N.
 
 
 
@@ -1060,6 +1077,11 @@ echo "<TABLE WIDTH=98% BGCOLOR=#E6E6E6 cellpadding=2 cellspacing=0><TR><TD ALIGN
 <BR>
 <B>Reset Lead-Called-Status for this list -</B> This resets all leads in this list to N for "not called since last reset" and means that any lead can now be called if it is the right status as defined in the campaign screen.
 
+<BR>
+<A NAME="vicidial_list-dnc">
+<BR>
+<B>VICIDIAL DNC List -</B> This Do Not Call list contains every lead that has been set to a status of DNC in the system. Through the LISTS - ADD NUMBER TO DNC page you are able to manually add a number to this list so that it will not be called by campaigns that use the internal DNC list.
+
 
 
 <BR><BR><BR><BR>
@@ -1205,6 +1227,16 @@ echo "<TABLE WIDTH=98% BGCOLOR=#E6E6E6 cellpadding=2 cellspacing=0><TR><TD ALIGN
 
 
 
+<BR><BR><BR><BR>
+
+<B><FONT SIZE=3>VICIDIAL_LEAD_RECYCLE TABLE</FONT></B><BR><BR>
+<A NAME="vicidial_lead_recycle">
+<BR>
+<B>Through the use of lead recycling, you can call specific statuses of leads again at a specified interval without resetting the entire list. Lead recycling is campaign-specific and does not have to be a selected dialable status in your campaign. The attempt delay field is the number of seconds until the lead can be placed back in the hopper, this number must be at least 120 seconds. The attempt maximum field is the maximum number of times that a lead of this status can be attempted before the list needs to be reset, this number can be from 1 to 10. You can activate and deactivate a lead recycle entry with the provided links. This feature only works in auto-dial mode, where dial level is greater than 0.</B>
+
+
+
+
 
 <BR><BR><BR><BR>
 
@@ -1385,12 +1417,12 @@ if ($lead_filter_id=='')
 	}
 
 $stmt="SELECT list_id,active,list_name from vicidial_lists where campaign_id='$campaign_id'";
-$rsltx=mysql_query($stmt, $link);
-$lists_to_print = mysql_num_rows($rsltx);
+$rslt=mysql_query($stmt, $link);
+$lists_to_print = mysql_num_rows($rslt);
 $camp_lists='';
 $o=0;
 while ($lists_to_print > $o) {
-	$rowx=mysql_fetch_row($rsltx);
+	$rowx=mysql_fetch_row($rslt);
 	$o++;
 if (ereg("Y", $rowx[1])) {$camp_lists .= "'$rowx[0]',";}
 }
@@ -1569,7 +1601,7 @@ if (strlen($campaigns_hh) > 1) {
 <? } 
 if (strlen($lists_hh) > 1) { 
 	?>
-<TR BGCOLOR=#FFCCCC><TD ALIGN=CENTER COLSPAN=10><FONT FACE="ARIAL,HELVETICA" COLOR=BLACK SIZE=1><B> &nbsp; <a href="<? echo $PHP_SELF ?>?ADD=100"><FONT FACE="ARIAL,HELVETICA" COLOR=BLACK SIZE=1>SHOW LISTS</a> &nbsp; &nbsp; | &nbsp; &nbsp; <a href="<? echo $PHP_SELF ?>?ADD=111"><FONT FACE="ARIAL,HELVETICA" COLOR=BLACK SIZE=1>ADD NEW LIST</a> &nbsp; &nbsp; | &nbsp; &nbsp; <a href="admin_search_lead.php"><FONT FACE="ARIAL,HELVETICA" COLOR=BLACK SIZE=1>SEARCH FOR A LEAD</a> | &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; | &nbsp; &nbsp; <a href="./listloaderMAIN.php"><FONT FACE="ARIAL,HELVETICA" COLOR=BLACK SIZE=1>LOAD NEW LEADS</a></TD></TR>
+<TR BGCOLOR=#FFCCCC><TD ALIGN=CENTER COLSPAN=10><FONT FACE="ARIAL,HELVETICA" COLOR=BLACK SIZE=1><B> &nbsp; <a href="<? echo $PHP_SELF ?>?ADD=100"><FONT FACE="ARIAL,HELVETICA" COLOR=BLACK SIZE=1>SHOW LISTS</a> &nbsp; &nbsp; | &nbsp; &nbsp; <a href="<? echo $PHP_SELF ?>?ADD=111"><FONT FACE="ARIAL,HELVETICA" COLOR=BLACK SIZE=1>ADD NEW LIST</a> &nbsp; &nbsp; | &nbsp; &nbsp; <a href="admin_search_lead.php"><FONT FACE="ARIAL,HELVETICA" COLOR=BLACK SIZE=1>SEARCH FOR A LEAD</a> | &nbsp; &nbsp; <a href="<? echo $PHP_SELF ?>?ADD=121"><FONT FACE="ARIAL,HELVETICA" COLOR=BLACK SIZE=1>ADD NUMBER TO DNC</a> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; | &nbsp; &nbsp; <a href="./listloaderMAIN.php"><FONT FACE="ARIAL,HELVETICA" COLOR=BLACK SIZE=1>LOAD NEW LEADS</a></TD></TR>
 <? } 
 if (strlen($scripts_hh) > 1) { 
 	?>
@@ -1643,13 +1675,13 @@ echo "</select>$NWB#vicidial_users-user_level$NWE</td></tr>\n";
 echo "<tr bgcolor=#B6D3FC><td align=right>User Group: </td><td align=left><select size=1 name=user_group>\n";
 
 	$stmt="SELECT user_group,group_name from vicidial_user_groups order by user_group";
-	$rsltx=mysql_query($stmt, $link);
-	$Ugroups_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$Ugroups_to_print = mysql_num_rows($rslt);
 	$Ugroups_list='';
 
 	$o=0;
 	while ($Ugroups_to_print > $o) {
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$Ugroups_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 		$o++;
 	}
@@ -1715,13 +1747,13 @@ echo "<tr bgcolor=#B6D3FC><td align=right>List Name: </td><td align=left><input
 echo "<tr bgcolor=#B6D3FC><td align=right>Campaign: </td><td align=left><select size=1 name=campaign_id>\n";
 
 	$stmt="SELECT campaign_id,campaign_name from vicidial_campaigns order by campaign_id";
-	$rsltx=mysql_query($stmt, $link);
-	$campaigns_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$campaigns_to_print = mysql_num_rows($rslt);
 	$campaigns_list='';
 
 	$o=0;
 	while ($campaigns_to_print > $o) {
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$campaigns_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 		$o++;
 	}
@@ -1735,6 +1767,49 @@ echo "</TABLE></center>\n";
 }
 
 
+######################
+# ADD=121 display the ADD NUMBER TO DNC FORM SCREEN and add a new number
+######################
+
+if ($ADD==121)
+{
+echo "<TABLE><TR><TD>\n";
+echo "<FONT FACE=\"ARIAL,HELVETICA\" COLOR=BLACK SIZE=2>";
+
+if (strlen($phone_number) > 2)
+	{
+	$stmt="SELECT count(*) from vicidial_dnc where phone_number='$phone_number';";
+	$rslt=mysql_query($stmt, $link);
+	$row=mysql_fetch_row($rslt);
+	if ($row[0] > 0)
+		{echo "<br>DNC NOT ADDED - This phone number is already in the Do Not Call List: $phone_number<BR><BR>\n";}
+	else
+		{
+		$stmt="INSERT INTO vicidial_dnc (phone_number) values('$phone_number');";
+		$rslt=mysql_query($stmt, $link);
+
+		echo "<br><B>DNC ADDED: $phone_number</B><BR><BR>\n";
+
+		### LOG INSERTION TO LOG FILE ###
+		if ($WeBRooTWritablE > 0)
+			{
+			$fp = fopen ("./admin_changes_log.txt", "a");
+			fwrite ($fp, "$date|ADD A NEW DNC NUMBER|$PHP_AUTH_USER|$ip|'$phone_number'|\n");
+			fclose($fp);
+			}
+		}
+	}
+
+echo "<br>ADD A NUMBER TO THE DNC LIST<form action=$PHP_SELF method=POST>\n";
+echo "<input type=hidden name=ADD value=121>\n";
+echo "<center><TABLE width=600 cellspacing=3>\n";
+echo "<tr bgcolor=#B6D3FC><td align=right>Phone Number: </td><td align=left><input type=text name=phone_number size=12 maxlength=10> (digits only)$NWB#vicidial_list-dnc$NWE</td></tr>\n";
+echo "<tr bgcolor=#B6D3FC><td align=center colspan=2><input type=submit name=SUBMIT value=SUBMIT></td></tr>\n";
+echo "</TABLE></center>\n";
+
+}
+
+
 ######################
 # ADD=1111 display the ADD NEW INBOUND GROUP SCREEN
 ######################
@@ -2091,6 +2166,48 @@ $ADD=31;
 }
 
 
+######################
+# ADD=25 adds the new campaign lead recycle entry to the system
+######################
+
+if ($ADD==25)
+{
+	$status = eregi_replace("-----.*",'',$status);
+	echo "<FONT FACE=\"ARIAL,HELVETICA\" COLOR=BLACK SIZE=2>";
+	$stmt="SELECT count(*) from vicidial_lead_recycle where campaign_id='$campaign_id' and status='$status';";
+	$rslt=mysql_query($stmt, $link);
+	$row=mysql_fetch_row($rslt);
+	if ($row[0] > 0)
+		{echo "<br>CAMPAIGN LEAD RECYCLE NOT ADDED - there is already a lead-recycle for this campaign with this status\n";}
+	else
+		{
+		 if ( (strlen($campaign_id) < 2) or (strlen($status) < 1) or ($attempt_delay < 120) or ($attempt_maximum < 1) or ($attempt_maximum > 10) )
+			{
+			 echo "<br>CAMPAIGN LEAD RECYCLE NOT ADDED - Please go back and look at the data you entered\n";
+			 echo "<br>status must be between 1 and 6 characters in length\n";
+			 echo "<br>attempt delay must be at least 120 seconds\n";
+			 echo "<br>maximum attempts must be from 1 to 10\n";
+			}
+		 else
+			{
+			echo "<br><B>CAMPAIGN LEAD RECYCLE ADDED: $campaign_id - $status - $attempt_delay</B>\n";
+
+			$stmt="INSERT INTO vicidial_lead_recycle(campaign_id,status,attempt_delay,attempt_maximum,active) values('$campaign_id','$status','$attempt_delay','$attempt_maximum','$active');";
+			$rslt=mysql_query($stmt, $link);
+
+			### LOG CHANGES TO LOG FILE ###
+			if ($WeBRooTWritablE > 0)
+				{
+				$fp = fopen ("./admin_changes_log.txt", "a");
+				fwrite ($fp, "$date|ADD A NEW LEAD RECYCLE    |$PHP_AUTH_USER|$ip|$stmt|\n");
+				fclose($fp);
+				}
+			}
+		}
+$ADD=31;
+}
+
+
 ######################
 # ADD=211 adds the new list to the system
 ######################
@@ -2534,7 +2651,7 @@ if ($ADD==41)
 		{
 		echo "<br><B>CAMPAIGN MODIFIED: $campaign_id</B>\n";
 
-		$stmtA="UPDATE vicidial_campaigns set campaign_name='$campaign_name',active='$active',dial_status_a='$dial_status_a',dial_status_b='$dial_status_b',dial_status_c='$dial_status_c',dial_status_d='$dial_status_d',dial_status_e='$dial_status_e',lead_order='$lead_order',allow_closers='$allow_closers',hopper_level='$hopper_level', auto_dial_level='$auto_dial_level', next_agent_call='$next_agent_call', local_call_time='$local_call_time', voicemail_ext='$voicemail_ext', dial_timeout='$dial_timeout', dial_prefix='$dial_prefix', campaign_cid='$campaign_cid', campaign_vdad_exten='$campaign_vdad_exten', web_form_address='$web_form_address', park_ext='$park_ext', park_file_name='$park_file_name', campaign_rec_exten='$campaign_rec_exten', campaign_recording='$campaign_recording', campaign_rec_filename='$campaign_rec_filename', campaign_script='$script_id', get_call_launch='$get_call_launch', am_message_exten='$am_message_exten', amd_send_to_vmx='$amd_send_to_vmx', xferconf_a_dtmf='$xferconf_a_dtmf',xferconf_a_number='$xferconf_a_number', xferconf_b_dtmf='$xferconf_b_dtmf',xferconf_b_number='$xferconf_b_number',lead_filter_id='$lead_filter_id',alt_number_dialing='$alt_number_dialing',scheduled_callbacks='$scheduled_callbacks',safe_harbor_message='$safe_harbor_message',drop_call_seconds='$drop_call_seconds',safe_harbor_exten='$safe_harbor_exten',wrapup_seconds='$wrapup_seconds',wrapup_message='$wrapup_message', closer_campaigns='$groups_value' where campaign_id='$campaign_id';";
+		$stmtA="UPDATE vicidial_campaigns set campaign_name='$campaign_name',active='$active',dial_status_a='$dial_status_a',dial_status_b='$dial_status_b',dial_status_c='$dial_status_c',dial_status_d='$dial_status_d',dial_status_e='$dial_status_e',lead_order='$lead_order',allow_closers='$allow_closers',hopper_level='$hopper_level', auto_dial_level='$auto_dial_level', next_agent_call='$next_agent_call', local_call_time='$local_call_time', voicemail_ext='$voicemail_ext', dial_timeout='$dial_timeout', dial_prefix='$dial_prefix', campaign_cid='$campaign_cid', campaign_vdad_exten='$campaign_vdad_exten', web_form_address='$web_form_address', park_ext='$park_ext', park_file_name='$park_file_name', campaign_rec_exten='$campaign_rec_exten', campaign_recording='$campaign_recording', campaign_rec_filename='$campaign_rec_filename', campaign_script='$script_id', get_call_launch='$get_call_launch', am_message_exten='$am_message_exten', amd_send_to_vmx='$amd_send_to_vmx', xferconf_a_dtmf='$xferconf_a_dtmf',xferconf_a_number='$xferconf_a_number', xferconf_b_dtmf='$xferconf_b_dtmf',xferconf_b_number='$xferconf_b_number',lead_filter_id='$lead_filter_id',alt_number_dialing='$alt_number_dialing',scheduled_callbacks='$scheduled_callbacks',safe_harbor_message='$safe_harbor_message',drop_call_seconds='$drop_call_seconds',safe_harbor_exten='$safe_harbor_exten',wrapup_seconds='$wrapup_seconds',wrapup_message='$wrapup_message',closer_campaigns='$groups_value',use_internal_dnc='$use_internal_dnc' where campaign_id='$campaign_id';";
 		$rslt=mysql_query($stmtA, $link);
 
 		if ($reset_hopper == 'Y')
@@ -2680,6 +2797,40 @@ if ($ADD==44)
 $ADD=34;	# go to campaign modification form below
 }
 
+######################
+# ADD=45 modify campaign lead recycle in the system
+######################
+
+if ($ADD==45)
+{
+	echo "<FONT FACE=\"ARIAL,HELVETICA\" COLOR=BLACK SIZE=2>";
+
+	 if ( (strlen($campaign_id) < 2) or (strlen($status) < 1) or ($attempt_delay < 120)  or ($attempt_maximum < 1) or ($attempt_maximum > 10) )
+		{
+		 echo "<br>CAMPAIGN LEAD RECYCLE NOT MODIFIED - Please go back and look at the data you entered\n";
+		 echo "<br>status must be between 1 and 6 characters in length\n";
+		 echo "<br>attempt delay must be at least 120 seconds\n";
+		 echo "<br>maximum attempts must be from 1 to 10\n";
+		}
+	 else
+		{
+		echo "<br><B>CAMPAIGN LEAD MODIFIED: $campaign_id - $status - $attempt_delay</B>\n";
+
+		$stmt="UPDATE vicidial_lead_recycle SET attempt_delay='$attempt_delay',attempt_maximum='$attempt_maximum',active='$active' where campaign_id='$campaign_id' and status='$status';";
+		$rslt=mysql_query($stmt, $link);
+
+		### LOG CHANGES TO LOG FILE ###
+		if ($WeBRooTWritablE > 0)
+			{
+			$fp = fopen ("./admin_changes_log.txt", "a");
+			fwrite ($fp, "$date|MODIFY LEAD RECYCLE   |$PHP_AUTH_USER|$ip|$stmt|\n");
+			fclose($fp);
+			}
+		}
+
+$ADD=31;	# go to campaign modification form below
+}
+
 ######################
 # ADD=411 submit list modifications to the system
 ######################
@@ -3358,6 +3509,42 @@ if ($ADD==62)
 
 $ADD='31';		# go to campaign modification below
 }
+
+
+######################
+# ADD=65 delete campaign lead recycle in the system
+######################
+
+if ($ADD==65)
+{
+	echo "<FONT FACE=\"ARIAL,HELVETICA\" COLOR=BLACK SIZE=2>";
+
+	 if ( (strlen($campaign_id) < 2) or (strlen($status) < 1) )
+		{
+		 echo "<br>CAMPAIGN LEAD RECYCLE NOT DELETED - Please go back and look at the data you entered\n";
+		 echo "<br>status must be between 1 and 6 characters in length\n";
+		 echo "<br>attempt delay must be at least 120 seconds\n";
+		 echo "<br>maximum attempts must be from 1 to 10\n";
+		}
+	 else
+		{
+		echo "<br><B>CAMPAIGN LEAD RECYCLE DELETED: $campaign_id - $status - $attempt_delay</B>\n";
+
+		$stmt="DELETE FROM vicidial_lead_recycle where campaign_id='$campaign_id' and status='$status';";
+		$rslt=mysql_query($stmt, $link);
+
+		### LOG CHANGES TO LOG FILE ###
+		if ($WeBRooTWritablE > 0)
+			{
+			$fp = fopen ("./admin_changes_log.txt", "a");
+			fwrite ($fp, "$date|DELETE LEAD RECYCLE   |$PHP_AUTH_USER|$ip|$stmt|\n");
+			fclose($fp);
+			}
+		}
+
+$ADD=31;	# go to campaign modification form below
+}
+
 ######################
 # ADD=611 delete list record and all leads within it
 ######################
@@ -3612,13 +3799,13 @@ if ($ADD==6111111111)
 		$rslt=mysql_query($stmt, $link);
 
 		$stmt="SELECT call_time_id,ct_state_call_times from vicidial_call_times where ct_state_call_times LIKE \"%|$call_time_id|%\" order by call_time_id;";
-		$rsltx=mysql_query($stmt, $link);
-		$sct_to_print = mysql_num_rows($rsltx);
+		$rslt=mysql_query($stmt, $link);
+		$sct_to_print = mysql_num_rows($rslt);
 		$sct_list='';
 
 		$o=0;
 		while ($sct_to_print > $o) {
-			$rowx=mysql_fetch_row($rsltx);
+			$rowx=mysql_fetch_row($rslt);
 			$sct_ids[$o] = "$rowx[0]";
 			$sct_states[$o] = "$rowx[1]";
 			$o++;
@@ -3736,13 +3923,13 @@ else
 	echo "<tr bgcolor=#B6D3FC><td align=right>User Group: </td><td align=left><select size=1 name=user_group>\n";
 
 		$stmt="SELECT user_group,group_name from vicidial_user_groups order by user_group";
-		$rsltx=mysql_query($stmt, $link);
-		$Ugroups_to_print = mysql_num_rows($rsltx);
+		$rslt=mysql_query($stmt, $link);
+		$Ugroups_to_print = mysql_num_rows($rslt);
 		$Ugroups_list='';
 
 		$o=0;
 		while ($Ugroups_to_print > $o) {
-			$rowx=mysql_fetch_row($rsltx);
+			$rowx=mysql_fetch_row($rslt);
 			$Ugroups_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 			$o++;
 		}
@@ -3815,12 +4002,12 @@ if ($ADD==31)
 	if ($stage=='show_dialable')
 	{
 		$stmt="UPDATE vicidial_campaigns set display_dialable_count='Y' where campaign_id='$campaign_id';";
-		$rsltx=mysql_query($stmt, $link);
+		$rslt=mysql_query($stmt, $link);
 	}
 	if ($stage=='hide_dialable')
 	{
 		$stmt="UPDATE vicidial_campaigns set display_dialable_count='N' where campaign_id='$campaign_id';";
-		$rsltx=mysql_query($stmt, $link);
+		$rslt=mysql_query($stmt, $link);
 	}
 echo "<TABLE><TR><TD>\n";
 	echo "<FONT FACE=\"ARIAL,HELVETICA\" COLOR=BLACK SIZE=2>";
@@ -3865,6 +4052,7 @@ echo "<TABLE><TR><TD>\n";
 	$wrapup_seconds = $row[40];
 	$wrapup_message = $row[41];
 #	$closer_campaigns = $row[42];
+	$use_internal_dnc = $row[43];
 
 echo "<br>MODIFY A CAMPAIGNS RECORD: $row[0] - <a href=\"$PHP_SELF?ADD=34&campaign_id=$campaign_id\">Basic View</a>";
 echo " | Detail View</a> | ";
@@ -3882,13 +4070,13 @@ echo "<tr bgcolor=#B6D3FC><td align=right>Allow Closers: </td><td align=left><se
 echo "<tr bgcolor=#B6D3FC><td align=right>Dial status 1: </td><td align=left><select size=1 name=dial_status_a>\n";
 
 	$stmt="SELECT * from vicidial_statuses order by status";
-	$rsltx=mysql_query($stmt, $link);
-	$statuses_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$statuses_to_print = mysql_num_rows($rslt);
 	$statuses_list='';
 
 	$o=0;
 	while ($statuses_to_print > $o) {
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$statuses_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 		$statname_list["$rowx[0]"] = "$rowx[1]";
 		if (eregi("Y",$rowx[2]))
@@ -3897,12 +4085,12 @@ echo "<tr bgcolor=#B6D3FC><td align=right>Dial status 1: </td><td align=left><se
 	}
 
 	$stmt="SELECT * from vicidial_campaign_statuses where campaign_id='$campaign_id' and selectable='Y' order by status";
-	$rsltx=mysql_query($stmt, $link);
-	$Cstatuses_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$Cstatuses_to_print = mysql_num_rows($rslt);
 
 	$o=0;
 	while ($Cstatuses_to_print > $o) {
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$statuses_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 		$statname_list["$rowx[0]"] = "$rowx[1]";
 		if (eregi("Y",$rowx[2]))
@@ -3998,6 +4186,8 @@ echo "<tr bgcolor=#B6D3FC><td align=right>Wrapup Seconds: </td><td align=left><i
 
 echo "<tr bgcolor=#B6D3FC><td align=right>Wrapup Message: </td><td align=left><input type=text name=wrapup_message size=40 maxlength=255 value=\"$wrapup_message\">$NWB#vicidial_campaigns-wrapup_message$NWE</td></tr>\n";
 
+echo "<tr bgcolor=#B6D3FC><td align=right>Use Internal DNC List: </td><td align=left><select size=1 name=use_internal_dnc><option>Y</option><option>N</option><option SELECTED>$use_internal_dnc</option></select>$NWB#vicidial_campaigns-use_internal_dnc$NWE</td></tr>\n";
+
 
 if (eregi("CLOSER", $campaign_id))
 	{
@@ -4020,13 +4210,13 @@ echo "<tr><td>LIST ID</td><td>LIST NAME</td><td>ACTIVE</td></tr>\n";
 	$active_lists = 0;
 	$inactive_lists = 0;
 	$stmt="SELECT list_id,active,list_name from vicidial_lists where campaign_id='$campaign_id'";
-	$rsltx=mysql_query($stmt, $link);
-	$lists_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$lists_to_print = mysql_num_rows($rslt);
 	$camp_lists='';
 
 	$o=0;
 	while ($lists_to_print > $o) {
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$o++;
 	if (ereg("Y", $rowx[1])) {$active_lists++;   $camp_lists .= "'$rowx[0]',";}
 	if (ereg("N", $rowx[1])) {$inactive_lists++;}
@@ -4071,8 +4261,8 @@ else
 
 	$stmt="SELECT count(*) FROM vicidial_hopper where campaign_id='$campaign_id' and status IN('READY')";
 	if ($DB) {echo "$stmt\n";}
-	$rsltx=mysql_query($stmt, $link);
-	$rowx=mysql_fetch_row($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$rowx=mysql_fetch_row($rslt);
 	$hopper_leads = "$rowx[0]";
 
 echo "This campaign has $hopper_leads leads in the dial hopper<br><br>\n";
@@ -4089,11 +4279,11 @@ echo "<TABLE width=400 cellspacing=3>\n";
 echo "<tr><td>STATUS</td><td>DESCRIPTION</td><td>SELECTABLE</td><td>DELETE</td></tr>\n";
 
 	$stmt="SELECT * from vicidial_campaign_statuses where campaign_id='$campaign_id'";
-	$rsltx=mysql_query($stmt, $link);
-	$statuses_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$statuses_to_print = mysql_num_rows($rslt);
 	$o=0;
 	while ($statuses_to_print > $o) {
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$o++;
 
 	if (eregi("1$|3$|5$|7$|9$", $o))
@@ -4124,11 +4314,11 @@ echo "<TABLE width=400 cellspacing=3>\n";
 echo "<tr><td>HOTKEY</td><td>STATUS</td><td>DESCRIPTION</td><td>DELETE</td></tr>\n";
 
 	$stmt="SELECT * from vicidial_campaign_hotkeys where campaign_id='$campaign_id' order by hotkey";
-	$rsltx=mysql_query($stmt, $link);
-	$statuses_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$statuses_to_print = mysql_num_rows($rslt);
 	$o=0;
 	while ($statuses_to_print > $o) {
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$o++;
 
 	if (eregi("1$|3$|5$|7$|9$", $o))
@@ -4162,6 +4352,49 @@ echo "$HKstatuses_list\n";
 echo "</select> &nbsp; \n";
 echo "<input type=submit name=submit value=ADD><BR>\n";
 
+
+
+echo "<br><br><b>LEAD RECYCLING WITHIN THIS CAMPAIGN: &nbsp; $NWB#vicidial_lead_recycle$NWE</b><br>\n";
+echo "<TABLE width=500 cellspacing=3>\n";
+echo "<tr><td>STATUS</td><td>ATTEMPT DELAY</td><td>ATTEMPT MAXIMUM</td><td>ACTIVE</td><td> </td><td>DELETE</td></tr>\n";
+
+	$stmt="SELECT * from vicidial_lead_recycle where campaign_id='$campaign_id' order by status";
+	$rslt=mysql_query($stmt, $link);
+	$recycle_to_print = mysql_num_rows($rslt);
+	$o=0;
+	while ($recycle_to_print > $o) {
+		$rowx=mysql_fetch_row($rslt);
+		$o++;
+
+	if (eregi("1$|3$|5$|7$|9$", $o))
+		{$bgcolor='bgcolor="#B9CBFD"';} 
+	else
+		{$bgcolor='bgcolor="#9BB9FB"';}
+
+	echo "<tr $bgcolor><td><font size=1>$rowx[2]<form action=$PHP_SELF method=POST>\n";
+	echo "<input type=hidden name=status value=\"$rowx[2]\">\n";
+	echo "<input type=hidden name=campaign_id value=\"$campaign_id\">\n";
+	echo "<input type=hidden name=ADD value=45></td>\n";
+	echo "<td><font size=1><input size=7 maxlength=5 name=attempt_delay value=\"$rowx[3]\"></td>\n";
+	echo "<td><font size=1><input size=5 maxlength=3 name=attempt_maximum value=\"$rowx[4]\"></td>\n";
+	echo "<td><select size=1 name=active><option>Y</option><option>N</option><option SELECTED>$rowx[5]</option></select></td>\n";
+	echo "<td><font size=1><input type=submit name=submit value=MODIFY></form></td>\n";
+	echo "<td><font size=1><a href=\"$PHP_SELF?ADD=65&campaign_id=$campaign_id&status=$rowx[2]\">DELETE</a></td></tr>\n";
+	}
+
+echo "</table>\n";
+
+echo "<br>ADD NEW CAMPAIGN LEAD RECYCLE<BR><form action=$PHP_SELF method=POST>\n";
+echo "<input type=hidden name=ADD value=25>\n";
+echo "<input type=hidden name=active value=\"N\">\n";
+echo "<input type=hidden name=campaign_id value=\"$campaign_id\">\n";
+echo "Status: <select size=1 name=status>\n";
+echo "$HKstatuses_list\n";
+echo "</select> &nbsp; \n";
+echo "Attempt Delay: <input size=7 maxlength=5 name=attempt_delay>\n";
+echo "Attempt Maximum: <input size=5 maxlength=3 name=attempt_maximum>\n";
+echo "<input type=submit name=submit value=ADD><BR>\n";
+
 echo "</center></FORM><br>\n";
 
 echo "<a href=\"$PHP_SELF?ADD=52&campaign_id=$campaign_id\">LOG ALL AGENTS OUT OF THIS CAMPAIGN</a><BR><BR>\n";
@@ -4183,12 +4416,12 @@ if ($ADD==34)
 	if ($stage=='show_dialable')
 	{
 		$stmt="UPDATE vicidial_campaigns set display_dialable_count='Y' where campaign_id='$campaign_id';";
-		$rsltx=mysql_query($stmt, $link);
+		$rslt=mysql_query($stmt, $link);
 	}
 	if ($stage=='hide_dialable')
 	{
 		$stmt="UPDATE vicidial_campaigns set display_dialable_count='N' where campaign_id='$campaign_id';";
-		$rsltx=mysql_query($stmt, $link);
+		$rslt=mysql_query($stmt, $link);
 	}
 echo "<TABLE><TR><TD>\n";
 	echo "<FONT FACE=\"ARIAL,HELVETICA\" COLOR=BLACK SIZE=2>";
@@ -4233,25 +4466,25 @@ echo "<tr bgcolor=#B6D3FC><td align=right>Allow Closers: </td><td align=left>$ro
 echo "<tr bgcolor=#B6D3FC><td align=right>Dial status 1: </td><td align=left><select size=1 name=dial_status_a>\n";
 
 	$stmt="SELECT * from vicidial_statuses order by status";
-	$rsltx=mysql_query($stmt, $link);
-	$statuses_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$statuses_to_print = mysql_num_rows($rslt);
 	$statuses_list='';
 
 	$o=0;
 	while ($statuses_to_print > $o) {
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$statuses_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 		$statname_list["$rowx[0]"] = "$rowx[1]";
 		$o++;
 	}
 
 	$stmt="SELECT * from vicidial_campaign_statuses where campaign_id='$campaign_id' order by status";
-	$rsltx=mysql_query($stmt, $link);
-	$Cstatuses_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$Cstatuses_to_print = mysql_num_rows($rslt);
 
 	$o=0;
 	while ($Cstatuses_to_print > $o) {
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$statuses_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 		$statname_list["$rowx[0]"] = "$rowx[1]";
 		$o++;
@@ -4304,13 +4537,13 @@ echo "<tr><td>LIST ID</td><td>LIST NAME</td><td>ACTIVE</td></tr>\n";
 	$active_lists = 0;
 	$inactive_lists = 0;
 	$stmt="SELECT list_id,active,list_name from vicidial_lists where campaign_id='$campaign_id'";
-	$rsltx=mysql_query($stmt, $link);
-	$lists_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$lists_to_print = mysql_num_rows($rslt);
 	$camp_lists='';
 
 	$o=0;
 	while ($lists_to_print > $o) {
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$o++;
 	if (ereg("Y", $rowx[1])) {$active_lists++;   $camp_lists .= "'$rowx[0]',";}
 	if (ereg("N", $rowx[1])) {$inactive_lists++;}
@@ -4354,8 +4587,8 @@ else
 
 	$stmt="SELECT count(*) FROM vicidial_hopper where campaign_id='$campaign_id' and status IN('READY')";
 	if ($DB) {echo "$stmt\n";}
-	$rsltx=mysql_query($stmt, $link);
-	$rowx=mysql_fetch_row($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$rowx=mysql_fetch_row($rslt);
 	$hopper_leads = "$rowx[0]";
 
 echo "This campaign has $hopper_leads leads in the dial hopper<br><br>\n";
@@ -4394,23 +4627,23 @@ echo "<TABLE><TR><TD>\n";
 
 	# grab names of global statuses and statuses in the selected campaign
 	$stmt="SELECT * from vicidial_statuses order by status";
-	$rsltx=mysql_query($stmt, $link);
-	$statuses_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$statuses_to_print = mysql_num_rows($rslt);
 
 	$o=0;
 	while ($statuses_to_print > $o) {
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$statuses_list["$rowx[0]"] = "$rowx[1]";
 		$o++;
 	}
 
 	$stmt="SELECT * from vicidial_campaign_statuses where campaign_id='$campaign_id' order by status";
-	$rsltx=mysql_query($stmt, $link);
-	$Cstatuses_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$Cstatuses_to_print = mysql_num_rows($rslt);
 
 	$o=0;
 	while ($Cstatuses_to_print > $o) {
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$statuses_list["$rowx[0]"] = "$rowx[1]";
 		$o++;
 	}
@@ -4427,13 +4660,13 @@ echo "<tr bgcolor=#B6D3FC><td align=right>List Name: </td><td align=left><input
 echo "<tr bgcolor=#B6D3FC><td align=right><a href=\"$PHP_SELF?ADD=34&campaign_id=$campaign_id\">Campaign</a>: </td><td align=left><select size=1 name=campaign_id>\n";
 
 	$stmt="SELECT campaign_id,campaign_name from vicidial_campaigns order by campaign_id";
-	$rsltx=mysql_query($stmt, $link);
-	$campaigns_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$campaigns_to_print = mysql_num_rows($rslt);
 	$campaigns_list='';
 
 	$o=0;
 	while ($campaigns_to_print > $o) {
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$campaigns_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 		$o++;
 	}
@@ -4454,8 +4687,8 @@ echo "<tr><td>STATUS</td><td>STATUS NAME</td><td>CALLED</td><td>NOT CALLED</td><
 	$leads_in_list_N = 0;
 	$leads_in_list_Y = 0;
 	$stmt="SELECT status,called_since_last_reset,count(*) from vicidial_list where list_id='$list_id' group by status,called_since_last_reset order by status,called_since_last_reset";
-	$rsltx=mysql_query($stmt, $link);
-	$statuses_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$statuses_to_print = mysql_num_rows($rslt);
 
 	$o=0;
 	$lead_list['count'] = 0;
@@ -4463,7 +4696,7 @@ echo "<tr><td>STATUS</td><td>STATUS NAME</td><td>CALLED</td><td>NOT CALLED</td><
 	$lead_list['N_count'] = 0;
 	while ($statuses_to_print > $o) 
 	{
-	    $rowx=mysql_fetch_row($rsltx);
+	    $rowx=mysql_fetch_row($rslt);
 	    
 	    $lead_list['count'] = ($lead_list['count'] + $rowx[2]);
 	    if ($rowx[1] == 'N') 
@@ -4476,7 +4709,7 @@ echo "<tr><td>STATUS</td><td>STATUS NAME</td><td>CALLED</td><td>NOT CALLED</td><
 		$since_reset = 'Y';
 		$since_resetX = 'N';
 	    } 
-	    $lead_list[$since_reset][$rowx[0]] = $rowx[2];
+	    $lead_list[$since_reset][$rowx[0]] = ($lead_list[$since_reset][$rowx[0]] + $rowx[2]);
 	    $lead_list[$since_reset.'_count'] = ($lead_list[$since_reset.'_count'] + $rowx[2]);
 	    #If opposite side is not set, it may not in the future so give it a value of zero
 	    if (!isset($lead_list[$since_resetX][$rowx[0]])) 
@@ -4526,8 +4759,8 @@ echo "<TABLE width=500 cellspacing=3>\n";
 echo "<tr><td>GMT OFFSET NOW (local time)</td><td>CALLED</td><td>NOT CALLED</td></tr>\n";
 
 	$stmt="SELECT gmt_offset_now,called_since_last_reset,count(*) from vicidial_list where list_id='$list_id' group by gmt_offset_now,called_since_last_reset order by gmt_offset_now,called_since_last_reset";
-	$rsltx=mysql_query($stmt, $link);
-	$statuses_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$statuses_to_print = mysql_num_rows($rslt);
 
 	$o=0;
 	$plus='+';
@@ -4536,7 +4769,7 @@ echo "<tr><td>GMT OFFSET NOW (local time)</td><td>CALLED</td><td>NOT CALLED</td>
 	$lead_list['N_count'] = 0;
 	while ($statuses_to_print > $o) 
 	{
-	    $rowx=mysql_fetch_row($rsltx);
+	    $rowx=mysql_fetch_row($rslt);
 	    
 	    $lead_list['count'] = ($lead_list['count'] + $rowx[2]);
 	    if ($rowx[1] == 'N') 
@@ -4549,7 +4782,7 @@ echo "<tr><td>GMT OFFSET NOW (local time)</td><td>CALLED</td><td>NOT CALLED</td>
 		$since_reset = 'Y';
 		$since_resetX = 'N';
 	    } 
-	    $lead_list[$since_reset][$rowx[0]] = $rowx[2];
+	    $lead_list[$since_reset][$rowx[0]] = ($lead_list[$since_reset][$rowx[0]] + $rowx[2]);
 	    $lead_list[$since_reset.'_count'] = ($lead_list[$since_reset.'_count'] + $rowx[2]);
 	    #If opposite side is not set, it may not in the future so give it a value of zero
 	    if (!isset($lead_list[$since_resetX][$rowx[0]])) 
@@ -4564,13 +4797,14 @@ echo "<tr><td>GMT OFFSET NOW (local time)</td><td>CALLED</td><td>NOT CALLED</td>
 	$LOCALzone=3600 * $tzone;
 	$LOCALdate=gmdate("D M Y H:i", time() + $LOCALzone);
 
-	if ($tzone >= 0) {$tzone = "$plus$tzone";}
+	if ($tzone >= 0) {$DISPtzone = "$plus$tzone";}
+	else {$DISPtzone = "$tzone";}
 	if (eregi("1$|3$|5$|7$|9$", $o))
 		{$bgcolor='bgcolor="#B9CBFD"';} 
 	else
 		{$bgcolor='bgcolor="#9BB9FB"';}
 
-		echo "<tr $bgcolor><td><font size=1>".$tzone." &nbsp; &nbsp; ($LOCALdate)</td><td><font size=1>".$lead_list['Y'][$tzone]."</td><td><font size=1>".$lead_list['N'][$tzone]."</td></tr>\n";
+		echo "<tr $bgcolor><td><font size=1>".$DISPtzone." &nbsp; &nbsp; ($LOCALdate)</td><td><font size=1>".$lead_list['Y'][$tzone]."</td><td><font size=1>".$lead_list['N'][$tzone]."</td></tr>\n";
 	}
 
 echo "<tr><td><font size=1>SUBTOTALS</td><td><font size=1>$lead_list[Y_count]</td><td><font size=1>$lead_list[N_count]</td></tr>\n";
@@ -4589,8 +4823,8 @@ unset($lead_list);
 	$leads_in_list_N = 0;
 	$leads_in_list_Y = 0;
 	$stmt="SELECT status,called_count,count(*) from vicidial_list where list_id='$list_id' group by status,called_count order by status,called_count";
-	$rsltx=mysql_query($stmt, $link);
-	$status_called_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$status_called_to_print = mysql_num_rows($rslt);
 
 	$o=0;
 	$sts=0;
@@ -4599,7 +4833,7 @@ unset($lead_list);
 	$all_called_last=0;
 	while ($status_called_to_print > $o) 
 	{
-	$rowx=mysql_fetch_row($rsltx);
+	$rowx=mysql_fetch_row($rslt);
 	$leads_in_list = ($leads_in_list + $rowx[2]);
 	$count_statuses[$o]			= "$rowx[0]";
 	$count_called[$o]			= "$rowx[1]";
@@ -4946,14 +5180,14 @@ echo "</TABLE></center></form>\n";
 
 	##### get campaigns listing for dynamic pulldown
 	$stmt="SELECT campaign_id,campaign_name from vicidial_campaigns order by campaign_id";
-	$rsltx=mysql_query($stmt, $link);
-	$campaigns_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$campaigns_to_print = mysql_num_rows($rslt);
 	$campaigns_list='';
 
 	$o=0;
 	while ($campaigns_to_print > $o)
 		{
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$campaigns_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 		$o++;
 		}
@@ -5108,13 +5342,13 @@ if (strlen($srs_SQL)>2)
 else
 	{$srs_SQL='';}
 $stmt="SELECT state_call_time_id,state_call_time_name from vicidial_state_call_times $srs_SQL order by state_call_time_id;";
-$rsltx=mysql_query($stmt, $link);
-$sct_to_print = mysql_num_rows($rsltx);
+$rslt=mysql_query($stmt, $link);
+$sct_to_print = mysql_num_rows($rslt);
 $sct_list='';
 
 $o=0;
 while ($sct_to_print > $o) {
-	$rowx=mysql_fetch_row($rsltx);
+	$rowx=mysql_fetch_row($rslt);
 	$sct_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 	$o++;
 }
@@ -5811,8 +6045,8 @@ if (isset($camp_lists))
 
 		$stmt="SELECT * FROM vicidial_call_times where call_time_id='$local_call_time';";
 		if ($DB) {echo "$stmt\n";}
-		$rsltx=mysql_query($stmt, $link);
-		$rowx=mysql_fetch_row($rsltx);
+		$rslt=mysql_query($stmt, $link);
+		$rowx=mysql_fetch_row($rslt);
 		$Gct_default_start =	"$rowx[3]";
 		$Gct_default_stop =		"$rowx[4]";
 		$Gct_sunday_start =		"$rowx[5]";
@@ -6085,11 +6319,11 @@ if (isset($camp_lists))
 		$stmt="SELECT count(*) FROM vicidial_list where called_since_last_reset='N' and status IN('$dial_status_a','$dial_status_b','$dial_status_c','$dial_status_d','$dial_status_e') and list_id IN($camp_lists) and ($all_gmtSQL) $fSQL";
 		#$DB=1;
 		if ($DB) {echo "$stmt\n";}
-		$rsltx=mysql_query($stmt, $link);
-		$rsltx_rows = mysql_num_rows($rsltx);
-		if ($rsltx_rows)
+		$rslt=mysql_query($stmt, $link);
+		$rslt_rows = mysql_num_rows($rslt);
+		if ($rslt_rows)
 			{
-			$rowx=mysql_fetch_row($rsltx);
+			$rowx=mysql_fetch_row($rslt);
 			$active_leads = "$rowx[0]";
 			}
 		else {$active_leads = '0';}

VICIDIAL_web/admin_modify_lead.php

@@ -96,6 +96,7 @@ if (isset($_GET["CBuser"]))				{$CBuser=$_GET["CBuser"];}
 #
 # 60419-1705 - Added ability to change lead callback record from USERONLY to ANYONE or USERONLY-user
 # 60421-1459 - check GET/POST vars lines with isset to not trigger PHP NOTICES
+# 60609-1112 - Added DNC list addition if status changed to DNC
 #
 
 $STARTtime = date("U");
@@ -200,6 +201,16 @@ $call_length = ($STARTtime - $call_began);
 		echo "<BR>vicidial_callback record inactivated: $lead_id<BR>\n";
 	}
 
+	if ( ($dispo != $status) and ($status == 'DNC') )
+	{
+		### add lead to the internal DNC list 
+		$stmt="INSERT INTO vicidial_dnc (phone_number) values('$phone_number');";
+		if ($DB) {echo "|$stmt|\n";}
+		$rslt=mysql_query($stmt, $link);
+
+		echo "<BR>Lead added to DNC List: $lead_id - $phone_number<BR>\n";
+	}
+
 }
 else
 {
@@ -309,15 +320,15 @@ else
 			echo "<tr bgcolor=#B6D3FC><td align=right>Disposition: </td><td align=left><select size=1 name=status>\n";
 
 				$stmt="SELECT * from vicidial_statuses where selectable='Y' order by status";
-				$rsltx=mysql_query($stmt, $link);
-				$statuses_to_print = mysql_num_rows($rsltx);
+				$rslt=mysql_query($stmt, $link);
+				$statuses_to_print = mysql_num_rows($rslt);
 				$statuses_list='';
 
 				$o=0;
 				$DS=0;
 				while ($statuses_to_print > $o) 
 				{
-					$rowx=mysql_fetch_row($rsltx);
+					$rowx=mysql_fetch_row($rslt);
 					if ($dispo == "$rowx[0]")
 						{$statuses_list .= "<option SELECTED value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n"; $DS++;}
 					else
@@ -338,9 +349,9 @@ else
 			### find any vicidial_callback records for this lead 
 			$stmt="select * from vicidial_callbacks where lead_id='$lead_id' and status IN('ACTIVE','LIVE') order by callback_id desc LIMIT 1;";
 			if ($DB) {echo "|$stmt|\n";}
-			$rsltx=mysql_query($stmt, $link);
-			$CB_to_print = mysql_num_rows($rsltx);
-			$rowx=mysql_fetch_row($rsltx);
+			$rslt=mysql_query($stmt, $link);
+			$CB_to_print = mysql_num_rows($rslt);
+			$rowx=mysql_fetch_row($rslt);
 
 			if ($CB_to_print>0)
 				{

VICIDIAL_web/closer_dispo.php

@@ -257,13 +257,13 @@ else
 			echo "<tr bgcolor=#B6D3FC><td align=right>Disposition: </td><td align=left><select size=1 name=status>\n";
 
 				$stmt="SELECT * from vicidial_statuses where selectable='Y' order by status";
-				$rsltx=mysql_query($stmt, $link);
-				$statuses_to_print = mysql_num_rows($rsltx);
+				$rslt=mysql_query($stmt, $link);
+				$statuses_to_print = mysql_num_rows($rslt);
 				$statuses_list='';
 
 				$o=0;
 				while ($statuses_to_print > $o) {
-					$rowx=mysql_fetch_row($rsltx);
+					$rowx=mysql_fetch_row($rslt);
 					$statuses_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 					$o++;
 				}

VICIDIAL_web/listloader.php

@@ -9,9 +9,10 @@
 # 50602-1640 - First version created by Joe Johnson
 # 51128-1108 - Removed PHP global vars requirement
 # 60421-1043 - check GET/POST vars lines with isset to not trigger PHP NOTICES
+# 60616-1006 - added listID override and gmt_offset lookup while loading
 #
 # make sure vicidial_list exists and that your file follows the formatting correctly. This page does not dedupe or do any other lead filtering actions yet at this time.
-
+#
 
 header ("Content-type: text/html; charset=utf-8");
 
@@ -23,13 +24,18 @@ $PHP_SELF=$_SERVER['PHP_SELF'];
 $leadfile=$_FILES["leadfile"];
 	$LF_orig = $_FILES['leadfile']['name'];
 	$LF_path = $_FILES['leadfile']['tmp_name'];
-$submit_file=$_GET["submit_file"];			if (!$submit_file) {$submit_file=$_POST["submit_file"];}
-$submit=$_GET["submit"];					if (!$submit) {$submit=$_POST["submit"];}
-$SUBMIT=$_GET["SUBMIT"];					if (!$SUBMIT) {$SUBMIT=$_POST["SUBMIT"];}
+$submit_file=$_GET["submit_file"];				if (!$submit_file) {$submit_file=$_POST["submit_file"];}
+$list_id_override=$_GET["list_id_override"];	if (!$list_id_override) {$list_id_override=$_POST["list_id_override"];}
+	$list_id_override = (preg_replace("/\D/","",$list_id_override));
+$submit=$_GET["submit"];						if (!$submit) {$submit=$_POST["submit"];}
+$SUBMIT=$_GET["SUBMIT"];						if (!$SUBMIT) {$SUBMIT=$_POST["SUBMIT"];}
 
 
-$version = '1.1.11';
-$build = '60421-1043';
+#$DB=1;
+#$DBX=1;
+
+$version = '1.1.12';
+$build = '60616-1006';
 
 $script_name = getenv("SCRIPT_NAME");
 $server_name = getenv("SERVER_NAME");
@@ -42,9 +48,53 @@ $admSCR = 'admin.php';
 $NWB = " &nbsp; <a href=\"javascript:openNewWindow('$admDIR$admSCR?ADD=99999";
 $NWE = "')\"><IMG SRC=\"help.gif\" WIDTH=20 HEIGHT=20 BORDER=0 ALT=\"HELP\" ALIGN=TOP></A>";
 
+
+$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 "<html>\n";
 echo "<head>\n";
 echo "<!-- VERSION: $version     BUILD: $build -->\n";
+echo "<!-- SEED TIME  $secX:   $year-$mon-$mday $hour:$min:$sec  LOCAL GMT OFFSET NOW: $LOCAL_GMT_OFF  DST: $isdst -->\n";
 
 
 ?>
@@ -68,6 +118,10 @@ function ShowProgress(good, bad, total) {
 	<td align=right width="25%"><font face="arial, helvetica" size=2>Load leads from this file:</font></td>
 	<td align=left width="75%"><input type=file name="leadfile" value="<?=$leadfile ?>"> <? echo "$NWB#vicidial_list_loader$NWE"; ?></td>
   </tr>
+  <tr>
+	<td align=right width="25%"><font face="arial, helvetica" size=2>List ID Override: </font></td>
+	<td align=left width="75%"><font face="arial, helvetica" size=1><input type=text value="" name='list_id_override' size=10 maxlength=8> (numbers only or leave blank for values in the file)</td>
+  </tr>
   <tr>
 	<td align=center><input type=submit value="SUBMIT" name='submit_file'></td>
 	<td align=center><input type=button onClick="javascript:document.location='listloader.php'" value="START OVER" name='reload_page'></td>
@@ -79,7 +133,7 @@ function ShowProgress(good, bad, total) {
 
 #echo "|$LF_orig|$LF_path|\n";
 
-if ($leadfile && filesize($LF_path)<=8388608) {
+if ($leadfile and filesize($LF_path)<=8388608) {
 	print "<script language='JavaScript1.2'>document.forms[0].leadfile.disabled=true; document.forms[0].submit_file.disabled=true; document.forms[0].reload_page.disabled=true;</script>";
 	flush();
 	copy($LF_path, "$WeBServeRRooT/vicidial/vicidial_temp_file.txt");
@@ -100,6 +154,12 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 		$file=fopen("./vicidial_temp_file.txt", "r");
 		$total=0; $good=0; $bad=0;
 		print "<center><font face='arial, helvetica' size=3 color='#009900'><B>Processing $delim_name-delimited file... ($tab_count|$pipe_count)\n";
+
+	if (strlen($list_id_override)>0) 
+		{
+		print "<BR><BR>LIST ID OVERRIDE FOR THIS FILE: $list_id_override<BR><BR>";
+		}
+		
 		while (!feof($file)) {
 			$record++;
 			$buffer=rtrim(fgets($file, 4096));
@@ -107,18 +167,13 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 
 			if (strlen($buffer)>0) {
 				$row=explode($delimiter, eregi_replace("[\'\"]", "", $buffer));
-				$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];
-				$campaign_id =			'';
-				$called_since_last_reset='N';
 				$phone_code =			eregi_replace("[^0-9]", "", $row[3]);
 				$phone_number =			eregi_replace("[^0-9]", "", $row[4]);
+					$USarea = 			substr($phone_number, 0, 3);
 				$title =				$row[5];
 				$first_name =			$row[6];
 				$middle_initial =		$row[7];
@@ -138,11 +193,460 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 				$security_phrase =		$row[21];
 				$comments =				trim($row[22]);
 
-				if (strlen($phone_number)>8) {
+				if (strlen($phone_number)>8) 
+					{
+					$entry_date =			"$pulldate";
+					$modify_date =			"";
+					$status =				"NEW";
+					$user =					"";
+					$gmt_offset =			'0';
+					$called_since_last_reset='N';
+
+					if (strlen($list_id_override)>0) 
+						{
+					#	print "<BR><BR>LIST ID OVERRIDE FOR THIS FILE: $list_id_override<BR><BR>";
+						$list_id = $list_id_override;
+						}
+
+					$PC_processed=0;
+					### UNITED STATES ###
+					if ($phone_code =='1')
+						{
+						$stmt="select * 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 * 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 * 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 * 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 == '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.
+						#     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
+						#**********************************************************************
+							
+							$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-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)
+						{
+						if ($DBX) {print "     No DST Method Found\n";}
+						if ($DBX) {print "     DST: 0\n";}
+						$AC_processed++;
+						}
+
 
 					if ($multi_insert_counter > 8) {
 						### 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','$campaign_id','$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);";
+						$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);";
 						$rslt=mysql_query($stmtZ, $link);
 							if ($WeBRooTWritablE > 0)
 								{fwrite($stmt_file, $stmtZ."\r\n");}
@@ -150,7 +654,7 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 						$multi_insert_counter=0;
 
 					} else {
-						$multistmt .= "('','$entry_date','$modify_date','$status','$user','$vendor_lead_code','$source_id','$list_id','$campaign_id','$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),";
+						$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),";
 						$multi_insert_counter++;
 					}
 
@@ -185,4 +689,4 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 }
 ?>
 </body>
-</html>
+</html>

VICIDIAL_web/listloader.pl

@@ -4,6 +4,41 @@
 ### 
 ### Copyright (C) 2006  Matt Florell,Joe Johnson <vicidial@gmail.com>    LICENSE: GPLv2
 ###
+#
+#
+# CHANGES
+# 60616-1548 - Added listID override feature to force all leads into same list
+#            - Added gmt_offset_now lookup for each lead
+#
+
+### begin parsing run-time options ###
+if (length($ARGV[0])>1)
+{
+	$i=0;
+	while ($#ARGV >= $i)
+	{
+	$args = "$args $ARGV[$i]";
+	$i++;
+	}
+
+	if ($args =~ /--help|-h/i)
+	{
+	print "allowed run time options:\n  [-forcelistid=1234] = overrides the listID given in the file with the 1234\n  [-h] = this help screen\n\n";
+	}
+	else
+	{
+		if ($args =~ /--forcelistid=/i)
+		{
+		@data_in = split(/--forcelistid=/,$args);
+			$forcelistid = $data_in[1];
+		print "\n----- FORCE LISTID OVERRIDE: $forcelistid -----\n\n";
+		}
+		else
+			{$forcelistid = '';}
+	}
+}
+### end parsing run-time options ###
+
 
 use Spreadsheet::ParseExcel;
 use Time::Local;
@@ -19,12 +54,42 @@ $dbhA = Net::MySQL->new(hostname => "$DB_server", database => "$DB_database", us
 
 
 $|=0;
+$secX = time();
+
 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 $year = ($year + 1900);
 $mon++;
+if ($hour < 10) {$hour = "0$hour";}
+if ($min < 10) {$min = "0$min";}
+if ($sec < 10) {$sec = "0$sec";}
 if ($mon < 10) {$mon = "0$mon";}
 if ($mday < 10) {$mday = "0$mday";}
+$pulldate0 = "$year-$mon-$mday $hour:$min:$sec";
 $pulldate="$year-$mon-$mday $hour:$min:$sec";
+$inSD = $pulldate0;
+$dsec = ( ( ($hour * 3600) + ($min * 60) ) + $sec );
+
+
+	### Grab Server values from the database
+	$stmtA = "SELECT local_gmt FROM servers where server_ip = '$server_ip';";
+	$dbhA->query("$stmtA");
+	if ($dbhA->has_selected_record)
+		{
+		$iter=$dbhA->create_record_iterator;
+		   while ( $record = $iter->each)
+			{
+			$DBSERVER_GMT		=		"$record->[0]";
+			if ($DBSERVER_GMT)				{$SERVER_GMT = $DBSERVER_GMT;}
+			} 
+		}
+
+	$LOCAL_GMT_OFF = $SERVER_GMT;
+	$LOCAL_GMT_OFF_STD = $SERVER_GMT;
+
+if ($isdst) {$LOCAL_GMT_OFF++;} 
+if ($DB) {print "SEED TIME  $secX      :   $year-$mon-$mday $hour:$min:$sec  LOCAL GMT OFFSET NOW: $LOCAL_GMT_OFF\n";}
+
+
 
 $total=0; $good=0; $bad=0;
 print "<center><font face='arial, helvetica' size=3 color='#009900'><B>Processing Excel file...\n";
@@ -47,7 +112,7 @@ foreach $oWkS (@{$oBook->{Worksheet}}) {
 		$source_id=$source_code;
 		$oWkC = $oWkS->{Cells}[$iR][2];
 		if ($oWkC) {$list_id=$oWkC->Value; }
-		$campaign_id =			'';
+		$gmt_offset =			'0';
 		$called_since_last_reset='N';
 		$oWkC = $oWkS->{Cells}[$iR][3];
 		if ($oWkC) {$phone_code=$oWkC->Value; }
@@ -55,6 +120,7 @@ foreach $oWkS (@{$oBook->{Worksheet}}) {
 		$oWkC = $oWkS->{Cells}[$iR][4];
 		if ($oWkC) {$phone_number=$oWkC->Value; }
 		$phone_number=~s/[^0-9]//g;
+			$USarea = 			substr($phone_number, 0, 3);
 		$oWkC = $oWkS->{Cells}[$iR][5];
 		if ($oWkC) {$title=$oWkC->Value; }
 		$oWkC = $oWkS->{Cells}[$iR][6];
@@ -94,17 +160,160 @@ foreach $oWkS (@{$oBook->{Worksheet}}) {
 		$comments=~s/^\s*(.*?)\s*$/$1/;
 
 		if (length($phone_number)>8) {
+			if (length($forcelistid) > 0)
+				{
+				$list_id =	$forcelistid;		# set list_id to override value
+				}
+
+				$PC_processed=0;
+				### UNITED STATES ###
+				if ($phone_code =~ /^1$/)
+					{
+					$stmtA = "select * from vicidial_phone_codes where country_code='$phone_code' and areacode='$USarea';";
+						if($DBX){print STDERR "\n|$stmtA|\n";}
+						$dbhA->query($stmtA);
+					 $rec_countW=0;
+					if ($dbhA->has_selected_record)
+						{
+						$iterA=$dbhA->create_record_iterator;
+						   while ($recordA = $iterA->each)
+							{
+							$gmt_offset =	$recordA->[4];  $gmt_offset =~ s/\+| //gi;
+							$dst =			$recordA->[5];
+							$dst_range =	$recordA->[6];
+							$PC_processed++;
+							} 
+						}
+					}
+				### MEXICO ###
+				if ($phone_code =~ /^52$/)
+					{
+					$stmtA = "select * from vicidial_phone_codes where country_code='$phone_code' and areacode='$USarea';";
+						if($DBX){print STDERR "\n|$stmtA|\n";}
+						$dbhA->query($stmtA);
+					 $rec_countW=0;
+					if ($dbhA->has_selected_record)
+						{
+						$iterA=$dbhA->create_record_iterator;
+						   while ($recordA = $iterA->each)
+							{
+							$gmt_offset =	$recordA->[4];  $gmt_offset =~ s/\+| //gi;
+							$dst =			$recordA->[5];
+							$dst_range =	$recordA->[6];
+							$PC_processed++;
+							} 
+						}
+					}
+				### AUSTRALIA ###
+				if ($phone_code =~ /^61$/)
+					{
+					$stmtA = "select * from vicidial_phone_codes where country_code='$phone_code' and state='$state';";
+						if($DBX){print STDERR "\n|$stmtA|\n";}
+						$dbhA->query($stmtA);
+					 $rec_countW=0;
+					if ($dbhA->has_selected_record)
+						{
+						$iterA=$dbhA->create_record_iterator;
+						   while ($recordA = $iterA->each)
+							{
+							$gmt_offset =	$recordA->[4];  $gmt_offset =~ s/\+| //gi;
+							$dst =			$recordA->[5];
+							$dst_range =	$recordA->[6];
+							$PC_processed++;
+							} 
+						}
+					}
+				### ALL OTHER COUNTRY CODES ###
+				if (!$PC_processed)
+					{
+					$stmtA = "select * from vicidial_phone_codes where country_code='$phone_code';";
+						if($DBX){print STDERR "\n|$stmtA|\n";}
+						$dbhA->query($stmtA);
+					 $rec_countW=0;
+					if ($dbhA->has_selected_record)
+						{
+						$iterA=$dbhA->create_record_iterator;
+						   while ($recordA = $iterA->each)
+							{
+							$gmt_offset =	$recordA->[4];  $gmt_offset =~ s/\+| //gi;
+							$dst =			$recordA->[5];
+							$dst_range =	$recordA->[6];
+							$PC_processed++;
+							} 
+						}
+					}
+
+				### Find out if DST to raise the gmt offset ###
+				$AC_GMT_diff = ($gmt_offset - $LOCAL_GMT_OFF_STD);
+				$AC_localtime = ($secX + (3600 * $AC_GMT_diff));
+				($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($AC_localtime);
+				$year = ($year + 1900);
+				$mon++;
+				if ($mon < 10) {$mon = "0$mon";}
+				if ($mday < 10) {$mday = "0$mday";}
+				if ($hour < 10) {$hour = "0$hour";}
+				if ($min < 10) {$min = "0$min";}
+				if ($sec < 10) {$sec = "0$sec";}
+				$dsec = ( ( ($hour * 3600) + ($min * 60) ) + $sec );
+				
+				$AC_processed=0;
+				if ( (!$AC_processed) && ($dst_range =~ /FSA-LSO/) )
+					{
+					if ($DBX) {print "     First Sunday April to Last Sunday October\n";}
+					&USA_dstcalc;
+					if ($DBX) {print "     DST: $USA_DST\n";}
+					if ($USA_DST) {$gmt_offset++;}
+					$AC_processed++;
+					}
+				if ( (!$AC_processed) && ($dst_range =~ /LSM-LSO/) )
+					{
+					if ($DBX) {print "     Last Sunday March to Last Sunday October\n";}
+					&GBR_dstcalc;
+					if ($DBX) {print "     DST: $GBR_DST\n";}
+					if ($GBR_DST) {$gmt_offset++;}
+					$AC_processed++;
+					}
+				if ( (!$AC_processed) && ($dst_range =~ /LSO-LSM/) )
+					{
+					if ($DBX) {print "     Last Sunday October to Last Sunday March\n";}
+					&AUS_dstcalc;
+					if ($DBX) {print "     DST: $AUS_DST\n";}
+					if ($AUS_DST) {$gmt_offset++;}
+					$AC_processed++;
+					}
+				if ( (!$AC_processed) && ($dst_range =~ /FSO-LSM/) )
+					{
+					if ($DBX) {print "     First Sunday October to Last Sunday March\n";}
+					&AUST_dstcalc;
+					if ($DBX) {print "     DST: $AUST_DST\n";}
+					if ($AUST_DST) {$gmt_offset++;}
+					$AC_processed++;
+					}
+				if ( (!$AC_processed) && ($dst_range =~ /FSO-TSM/) )
+					{
+					if ($DBX) {print "     First Sunday October to Third Sunday March\n";}
+					&NZL_dstcalc;
+					if ($DBX) {print "     DST: $NZL_DST\n";}
+					if ($NZL_DST) {$gmt_offset++;}
+					$AC_processed++;
+					}
+				if (!$AC_processed)
+					{
+					if ($DBX) {print "     No DST Method Found\n";}
+					if ($DBX) {print "     DST: 0\n";}
+					$AC_processed++;
+					}
 
 			if ($multi_insert_counter > 8) {
 				### 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','$campaign_id','$called_since_last_reset','$phone_code','$phone_number','$title','$first_name','$middle_initial','$last_name','$address1','$address2','$address3','$city','$state','$province','$postal_code','$country','$gender','$date_of_birth','$alt_phone','$email','$security_phrase','$comments',0);";
+				$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','$gender','$date_of_birth','$alt_phone','$email','$security_phrase','$comments',0);";
 				$dbhA->query("$stmtZ");
 				print 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','$campaign_id','$called_since_last_reset','$phone_code','$phone_number','$title','$first_name','$middle_initial','$last_name','$address1','$address2','$address3','$city','$state','$province','$postal_code','$country','$gender','$date_of_birth','$alt_phone','$email','$security_phrase','$comments',0),";
+				$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','$gender','$date_of_birth','$alt_phone','$email','$security_phrase','$comments',0),";
 				$multi_insert_counter++;
 			}
 
@@ -130,3 +339,352 @@ if ($multi_insert_counter > 0) {
 
 print "<BR><BR>Done</B> GOOD: $good &nbsp; &nbsp; &nbsp; BAD: $bad &nbsp; &nbsp; &nbsp; TOTAL: $total</font></center>";
 
+exit;
+
+
+
+
+
+
+sub USA_dstcalc {
+#**********************************************************************
+# 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.
+#     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
+#**********************************************************************
+    
+	$USA_DST=0;
+	$mm = $mon;
+	$dd = $mday;
+	$ns = $dsec;
+	$dow= $wday;
+
+    if ($mm < 4 || $mm > 10) {
+	$USA_DST=0;   return 0;
+    } elsif ($mm >= 5 && $mm <= 9) {
+	$USA_DST=1;   return 1;
+    } elsif ($mm == 4) {
+	if ($dd > 7) {
+	    $USA_DST=1;   return 1;
+	} elsif ($dd >= ($dow+1)) {
+	    if ($timezone) {
+		if ($dow == 0 && $ns < (7200+$timezone*3600)) {
+		    $USA_DST=0;   return 0;
+		} else {
+		    $USA_DST=1;   return 1;
+		}
+	    } else {
+		if ($dow == 0 && $ns < 7200) {
+		    $USA_DST=0;   return 0;
+		} else {
+		    $USA_DST=1;   return 1;
+		}
+	    }
+	} else {
+	    $USA_DST=0;   return 0;
+	}
+    } elsif ($mm == 10) {
+	if ($dd < 25) {
+	    $USA_DST=1;   return 1;
+	} elsif ($dd < ($dow+25)) {
+	    $USA_DST=1;   return 1;
+	} elsif ($dow == 0) {
+	    if ($timezone) { # UTC calculations
+		if ($ns < (7200+($timezone-1)*3600)) {
+		    $USA_DST=1;   return 1;
+		} else {
+		    $USA_DST=0;   return 0;
+		}
+	    } else { # local time calculations
+		if ($ns < 7200) {
+		    $USA_DST=1;   return 1;
+		} else {
+		    $USA_DST=0;   return 0;
+		}
+	    }
+	} else {
+	    $USA_DST=0;   return 0;
+	}
+    } # end of month checks
+} # end of subroutine dstcalc
+
+
+
+
+sub GBR_dstcalc {
+#**********************************************************************
+#     This is returns 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;   return 0;
+    } elsif ($mm >= 4 && $mm <= 9) {
+	$GBR_DST=1;   return 1;
+    } elsif ($mm == 3) {
+	if ($dd < 25) {
+	    $GBR_DST=0;   return 0;
+	} elsif ($dd < ($dow+25)) {
+	    $GBR_DST=0;   return 0;
+	} elsif ($dow == 0) {
+	    if ($timezone) { # UTC calculations
+		if ($ns < (3600+($timezone-1)*3600)) {
+		    $GBR_DST=0;   return 0;
+		} else {
+		    $GBR_DST=1;   return 1;
+		}
+	    } else { # local time calculations
+		if ($ns < 3600) {
+		    $GBR_DST=0;   return 0;
+		} else {
+		    $GBR_DST=1;   return 1;
+		}
+	    }
+	} else {
+	    $GBR_DST=1;   return 1;
+	}
+    } elsif ($mm == 10) {
+	if ($dd < 25) {
+	    $GBR_DST=1;   return 1;
+	} elsif ($dd < ($dow+25)) {
+	    $GBR_DST=1;   return 1;
+	} elsif ($dow == 0) {
+	    if ($timezone) { # UTC calculations
+		if ($ns < (3600+($timezone-1)*3600)) {
+		    $GBR_DST=1;   return 1;
+		} else {
+		    $GBR_DST=0;   return 0;
+		}
+	    } else { # local time calculations
+		if ($ns < 3600) {
+		    $GBR_DST=1;   return 1;
+		} else {
+		    $GBR_DST=0;   return 0;
+		}
+	    }
+	} else {
+	    $GBR_DST=0;   return 0;
+	}
+    } # end of month checks
+} # end of subroutine dstcalc
+
+
+
+
+sub AUS_dstcalc {
+#**********************************************************************
+#     This is returns 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;   return 1;
+    } elsif ($mm >= 4 && $mm <= 9) {
+	$AUS_DST=0;   return 0;
+    } elsif ($mm == 3) {
+	if ($dd < 25) {
+	    $AUS_DST=1;   return 1;
+	} elsif ($dd < ($dow+25)) {
+	    $AUS_DST=1;   return 1;
+	} elsif ($dow == 0) {
+	    if ($timezone) { # UTC calculations
+		if ($ns < (3600+($timezone-1)*3600)) {
+		    $AUS_DST=1;   return 1;
+		} else {
+		    $AUS_DST=0;   return 0;
+		}
+	    } else { # local time calculations
+		if ($ns < 3600) {
+		    $AUS_DST=1;   return 1;
+		} else {
+		    $AUS_DST=0;   return 0;
+		}
+	    }
+	} else {
+	    $AUS_DST=0;   return 0;
+	}
+    } elsif ($mm == 10) {
+	if ($dd < 25) {
+	    $AUS_DST=0;   return 0;
+	} elsif ($dd < ($dow+25)) {
+	    $AUS_DST=0;   return 0;
+	} elsif ($dow == 0) {
+	    if ($timezone) { # UTC calculations
+		if ($ns < (3600+($timezone-1)*3600)) {
+		    $AUS_DST=0;   return 0;
+		} else {
+		    $AUS_DST=1;   return 1;
+		}
+	    } else { # local time calculations
+		if ($ns < 3600) {
+		    $AUS_DST=0;   return 0;
+		} else {
+		    $AUS_DST=1;   return 1;
+		}
+	    }
+	} else {
+	    $AUS_DST=1;   return 1;
+	}
+    } # end of month checks
+} # end of subroutine dstcalc
+
+
+
+
+
+sub AUST_dstcalc {
+#**********************************************************************
+#   TASMANIA ONLY
+#     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 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;   return 1;
+    } elsif ($mm >= 4 && $mm <= 9) {
+	$AUST_DST=0;   return 0;
+    } elsif ($mm == 3) {
+	if ($dd < 25) {
+	    $AUST_DST=1;   return 1;
+	} elsif ($dd < ($dow+25)) {
+	    $AUST_DST=1;   return 1;
+	} elsif ($dow == 0) {
+	    if ($timezone) { # UTC calculations
+		if ($ns < (3600+($timezone-1)*3600)) {
+		    $AUST_DST=1;   return 1;
+		} else {
+		    $AUST_DST=0;   return 0;
+		}
+	    } else { # local time calculations
+		if ($ns < 3600) {
+		    $AUST_DST=1;   return 1;
+		} else {
+		    $AUST_DST=0;   return 0;
+		}
+	    }
+	} else {
+	    $AUST_DST=0;   return 0;
+	}
+    } elsif ($mm == 10) {
+	if ($dd > 7) {
+	    $AUST_DST=1;   return 1;
+	} elsif ($dd >= ($dow+1)) {
+	    if ($timezone) {
+		if ($dow == 0 && $ns < (7200+$timezone*3600)) {
+		    $AUST_DST=0;   return 0;
+		} else {
+		    $AUST_DST=1;   return 1;
+		}
+	    } else {
+		if ($dow == 0 && $ns < 3600) {
+		    $AUST_DST=0;   return 0;
+		} else {
+		    $AUST_DST=1;   return 1;
+		}
+	    }
+	} else {
+	    $AUST_DST=0;   return 0;
+	}
+    } # end of month checks
+} # end of subroutine dstcalc
+
+
+
+
+
+sub NZL_dstcalc {
+#**********************************************************************
+#     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 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;   return 1;
+    } elsif ($mm >= 4 && $mm <= 9) {
+	$NZL_DST=0;   return 0;
+    } elsif ($mm == 3) {
+	if ($dd < 14) {
+	    $NZL_DST=1;   return 1;
+	} elsif ($dd < ($dow+14)) {
+	    $NZL_DST=1;   return 1;
+	} elsif ($dow == 0) {
+	    if ($timezone) { # UTC calculations
+		if ($ns < (3600+($timezone-1)*3600)) {
+		    $NZL_DST=1;   return 1;
+		} else {
+		    $NZL_DST=0;   return 0;
+		}
+	    } else { # local time calculations
+		if ($ns < 3600) {
+		    $NZL_DST=1;   return 1;
+		} else {
+		    $NZL_DST=0;   return 0;
+		}
+	    }
+	} else {
+	    $NZL_DST=0;   return 0;
+	}
+    } elsif ($mm == 10) {
+	if ($dd > 7) {
+	    $NZL_DST=1;   return 1;
+	} elsif ($dd >= ($dow+1)) {
+	    if ($timezone) {
+		if ($dow == 0 && $ns < (7200+$timezone*3600)) {
+		    $NZL_DST=0;   return 0;
+		} else {
+		    $NZL_DST=1;   return 1;
+		}
+	    } else {
+		if ($dow == 0 && $ns < 3600) {
+		    $NZL_DST=0;   return 0;
+		} else {
+		    $NZL_DST=1;   return 1;
+		}
+	    }
+	} else {
+	    $NZL_DST=0;   return 0;
+	}
+    } # end of month checks
+} # end of subroutine dstcalc

VICIDIAL_web/listloader_super.pl

@@ -4,6 +4,40 @@
 ### 
 ### Copyright (C) 2006  Matt Florell,Joe Johnson <vicidial@gmail.com>    LICENSE: GPLv2
 ###
+#
+#
+# CHANGES
+# 60616-1548 - Added listID override feature to force all leads into same list
+#            - Added gmt_offset_now lookup for each lead
+#
+
+### begin parsing run-time options ###
+if (length($ARGV[0])>1)
+{
+	$i=0;
+	while ($#ARGV >= $i)
+	{
+	$args = "$args $ARGV[$i]";
+	$i++;
+	}
+
+	if ($args =~ /--help|-h/i)
+	{
+	print "allowed run time options:\n  [-forcelistid=1234] = overrides the listID given in the file with the 1234\n  [-h] = this help screen\n\n";
+	}
+	else
+	{
+		if ($args =~ /--forcelistid=/i)
+		{
+		@data_in = split(/--forcelistid=/,$args);
+			$forcelistid = $data_in[1];
+		print "\n----- FORCE LISTID OVERRIDE: $forcelistid -----\n\n";
+		}
+		else
+			{$forcelistid = '';}
+	}
+}
+### end parsing run-time options ###
 
 use Spreadsheet::ParseExcel;
 use Time::Local;
@@ -22,12 +56,42 @@ $vars=$ARGV[0];
 @xls_fields=split(/\,/, $vars);
 
 $|=0;
+$secX = time();
+
 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 $year = ($year + 1900);
 $mon++;
+if ($hour < 10) {$hour = "0$hour";}
+if ($min < 10) {$min = "0$min";}
+if ($sec < 10) {$sec = "0$sec";}
 if ($mon < 10) {$mon = "0$mon";}
 if ($mday < 10) {$mday = "0$mday";}
+$pulldate0 = "$year-$mon-$mday $hour:$min:$sec";
 $pulldate="$year-$mon-$mday $hour:$min:$sec";
+$inSD = $pulldate0;
+$dsec = ( ( ($hour * 3600) + ($min * 60) ) + $sec );
+
+
+	### Grab Server values from the database
+	$stmtA = "SELECT local_gmt FROM servers where server_ip = '$server_ip';";
+	$dbhA->query("$stmtA");
+	if ($dbhA->has_selected_record)
+		{
+		$iter=$dbhA->create_record_iterator;
+		   while ( $record = $iter->each)
+			{
+			$DBSERVER_GMT		=		"$record->[0]";
+			if ($DBSERVER_GMT)				{$SERVER_GMT = $DBSERVER_GMT;}
+			} 
+		}
+
+	$LOCAL_GMT_OFF = $SERVER_GMT;
+	$LOCAL_GMT_OFF_STD = $SERVER_GMT;
+
+if ($isdst) {$LOCAL_GMT_OFF++;} 
+if ($DB) {print "SEED TIME  $secX      :   $year-$mon-$mday $hour:$min:$sec  LOCAL GMT OFFSET NOW: $LOCAL_GMT_OFF\n";}
+
+
 
 $total=0; $good=0; $bad=0;
 open(STMT_FILE, "> listloader_stmts.txt");
@@ -49,7 +113,7 @@ foreach $oWkS (@{$oBook->{Worksheet}}) {
 		$source_id=$source_code;
 		$oWkC = $oWkS->{Cells}[$iR][$xls_fields[2]];
 		if ($oWkC) {$list_id=$oWkC->Value; }
-		$campaign_id =			'';
+		$gmt_offset =			'0';
 		$called_since_last_reset='N';
 		$oWkC = $oWkS->{Cells}[$iR][$xls_fields[3]];
 		if ($oWkC) {$phone_code=$oWkC->Value; }
@@ -57,6 +121,7 @@ foreach $oWkS (@{$oBook->{Worksheet}}) {
 		$oWkC = $oWkS->{Cells}[$iR][$xls_fields[4]];
 		if ($oWkC) {$phone_number=$oWkC->Value; }
 		$phone_number=~s/[^0-9]//g;
+			$USarea = 			substr($phone_number, 0, 3);
 		$oWkC = $oWkS->{Cells}[$iR][$xls_fields[5]];
 		if ($oWkC) {$title=$oWkC->Value; }
 		$oWkC = $oWkS->{Cells}[$iR][$xls_fields[6]];
@@ -96,17 +161,160 @@ foreach $oWkS (@{$oBook->{Worksheet}}) {
 		$comments=~s/^\s*(.*?)\s*$/$1/;
 
 		if (length($phone_number)>8) {
+			if (length($forcelistid) > 0)
+				{
+				$list_id =	$forcelistid;		# set list_id to override value
+				}
+
+				$PC_processed=0;
+				### UNITED STATES ###
+				if ($phone_code =~ /^1$/)
+					{
+					$stmtA = "select * from vicidial_phone_codes where country_code='$phone_code' and areacode='$USarea';";
+						if($DBX){print STDERR "\n|$stmtA|\n";}
+						$dbhA->query($stmtA);
+					 $rec_countW=0;
+					if ($dbhA->has_selected_record)
+						{
+						$iterA=$dbhA->create_record_iterator;
+						   while ($recordA = $iterA->each)
+							{
+							$gmt_offset =	$recordA->[4];  $gmt_offset =~ s/\+| //gi;
+							$dst =			$recordA->[5];
+							$dst_range =	$recordA->[6];
+							$PC_processed++;
+							} 
+						}
+					}
+				### MEXICO ###
+				if ($phone_code =~ /^52$/)
+					{
+					$stmtA = "select * from vicidial_phone_codes where country_code='$phone_code' and areacode='$USarea';";
+						if($DBX){print STDERR "\n|$stmtA|\n";}
+						$dbhA->query($stmtA);
+					 $rec_countW=0;
+					if ($dbhA->has_selected_record)
+						{
+						$iterA=$dbhA->create_record_iterator;
+						   while ($recordA = $iterA->each)
+							{
+							$gmt_offset =	$recordA->[4];  $gmt_offset =~ s/\+| //gi;
+							$dst =			$recordA->[5];
+							$dst_range =	$recordA->[6];
+							$PC_processed++;
+							} 
+						}
+					}
+				### AUSTRALIA ###
+				if ($phone_code =~ /^61$/)
+					{
+					$stmtA = "select * from vicidial_phone_codes where country_code='$phone_code' and state='$state';";
+						if($DBX){print STDERR "\n|$stmtA|\n";}
+						$dbhA->query($stmtA);
+					 $rec_countW=0;
+					if ($dbhA->has_selected_record)
+						{
+						$iterA=$dbhA->create_record_iterator;
+						   while ($recordA = $iterA->each)
+							{
+							$gmt_offset =	$recordA->[4];  $gmt_offset =~ s/\+| //gi;
+							$dst =			$recordA->[5];
+							$dst_range =	$recordA->[6];
+							$PC_processed++;
+							} 
+						}
+					}
+				### ALL OTHER COUNTRY CODES ###
+				if (!$PC_processed)
+					{
+					$stmtA = "select * from vicidial_phone_codes where country_code='$phone_code';";
+						if($DBX){print STDERR "\n|$stmtA|\n";}
+						$dbhA->query($stmtA);
+					 $rec_countW=0;
+					if ($dbhA->has_selected_record)
+						{
+						$iterA=$dbhA->create_record_iterator;
+						   while ($recordA = $iterA->each)
+							{
+							$gmt_offset =	$recordA->[4];  $gmt_offset =~ s/\+| //gi;
+							$dst =			$recordA->[5];
+							$dst_range =	$recordA->[6];
+							$PC_processed++;
+							} 
+						}
+					}
+
+				### Find out if DST to raise the gmt offset ###
+				$AC_GMT_diff = ($gmt_offset - $LOCAL_GMT_OFF_STD);
+				$AC_localtime = ($secX + (3600 * $AC_GMT_diff));
+				($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($AC_localtime);
+				$year = ($year + 1900);
+				$mon++;
+				if ($mon < 10) {$mon = "0$mon";}
+				if ($mday < 10) {$mday = "0$mday";}
+				if ($hour < 10) {$hour = "0$hour";}
+				if ($min < 10) {$min = "0$min";}
+				if ($sec < 10) {$sec = "0$sec";}
+				$dsec = ( ( ($hour * 3600) + ($min * 60) ) + $sec );
+				
+				$AC_processed=0;
+				if ( (!$AC_processed) && ($dst_range =~ /FSA-LSO/) )
+					{
+					if ($DBX) {print "     First Sunday April to Last Sunday October\n";}
+					&USA_dstcalc;
+					if ($DBX) {print "     DST: $USA_DST\n";}
+					if ($USA_DST) {$gmt_offset++;}
+					$AC_processed++;
+					}
+				if ( (!$AC_processed) && ($dst_range =~ /LSM-LSO/) )
+					{
+					if ($DBX) {print "     Last Sunday March to Last Sunday October\n";}
+					&GBR_dstcalc;
+					if ($DBX) {print "     DST: $GBR_DST\n";}
+					if ($GBR_DST) {$gmt_offset++;}
+					$AC_processed++;
+					}
+				if ( (!$AC_processed) && ($dst_range =~ /LSO-LSM/) )
+					{
+					if ($DBX) {print "     Last Sunday October to Last Sunday March\n";}
+					&AUS_dstcalc;
+					if ($DBX) {print "     DST: $AUS_DST\n";}
+					if ($AUS_DST) {$gmt_offset++;}
+					$AC_processed++;
+					}
+				if ( (!$AC_processed) && ($dst_range =~ /FSO-LSM/) )
+					{
+					if ($DBX) {print "     First Sunday October to Last Sunday March\n";}
+					&AUST_dstcalc;
+					if ($DBX) {print "     DST: $AUST_DST\n";}
+					if ($AUST_DST) {$gmt_offset++;}
+					$AC_processed++;
+					}
+				if ( (!$AC_processed) && ($dst_range =~ /FSO-TSM/) )
+					{
+					if ($DBX) {print "     First Sunday October to Third Sunday March\n";}
+					&NZL_dstcalc;
+					if ($DBX) {print "     DST: $NZL_DST\n";}
+					if ($NZL_DST) {$gmt_offset++;}
+					$AC_processed++;
+					}
+				if (!$AC_processed)
+					{
+					if ($DBX) {print "     No DST Method Found\n";}
+					if ($DBX) {print "     DST: 0\n";}
+					$AC_processed++;
+					}
 
 			if ($multi_insert_counter > 8) {
 				### 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','$campaign_id','$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);";
+				$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);";
 				$dbhA->query("$stmtZ");
 				print 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','$campaign_id','$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),";
+				$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),";
 				$multi_insert_counter++;
 			}
 
@@ -132,3 +340,352 @@ if ($multi_insert_counter > 0) {
 
 print "<BR><BR>Done</B> GOOD: $good &nbsp; &nbsp; &nbsp; BAD: $bad &nbsp; &nbsp; &nbsp; TOTAL: $total</font></center>";
 
+exit;
+
+
+
+
+
+
+sub USA_dstcalc {
+#**********************************************************************
+# 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.
+#     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
+#**********************************************************************
+    
+	$USA_DST=0;
+	$mm = $mon;
+	$dd = $mday;
+	$ns = $dsec;
+	$dow= $wday;
+
+    if ($mm < 4 || $mm > 10) {
+	$USA_DST=0;   return 0;
+    } elsif ($mm >= 5 && $mm <= 9) {
+	$USA_DST=1;   return 1;
+    } elsif ($mm == 4) {
+	if ($dd > 7) {
+	    $USA_DST=1;   return 1;
+	} elsif ($dd >= ($dow+1)) {
+	    if ($timezone) {
+		if ($dow == 0 && $ns < (7200+$timezone*3600)) {
+		    $USA_DST=0;   return 0;
+		} else {
+		    $USA_DST=1;   return 1;
+		}
+	    } else {
+		if ($dow == 0 && $ns < 7200) {
+		    $USA_DST=0;   return 0;
+		} else {
+		    $USA_DST=1;   return 1;
+		}
+	    }
+	} else {
+	    $USA_DST=0;   return 0;
+	}
+    } elsif ($mm == 10) {
+	if ($dd < 25) {
+	    $USA_DST=1;   return 1;
+	} elsif ($dd < ($dow+25)) {
+	    $USA_DST=1;   return 1;
+	} elsif ($dow == 0) {
+	    if ($timezone) { # UTC calculations
+		if ($ns < (7200+($timezone-1)*3600)) {
+		    $USA_DST=1;   return 1;
+		} else {
+		    $USA_DST=0;   return 0;
+		}
+	    } else { # local time calculations
+		if ($ns < 7200) {
+		    $USA_DST=1;   return 1;
+		} else {
+		    $USA_DST=0;   return 0;
+		}
+	    }
+	} else {
+	    $USA_DST=0;   return 0;
+	}
+    } # end of month checks
+} # end of subroutine dstcalc
+
+
+
+
+sub GBR_dstcalc {
+#**********************************************************************
+#     This is returns 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;   return 0;
+    } elsif ($mm >= 4 && $mm <= 9) {
+	$GBR_DST=1;   return 1;
+    } elsif ($mm == 3) {
+	if ($dd < 25) {
+	    $GBR_DST=0;   return 0;
+	} elsif ($dd < ($dow+25)) {
+	    $GBR_DST=0;   return 0;
+	} elsif ($dow == 0) {
+	    if ($timezone) { # UTC calculations
+		if ($ns < (3600+($timezone-1)*3600)) {
+		    $GBR_DST=0;   return 0;
+		} else {
+		    $GBR_DST=1;   return 1;
+		}
+	    } else { # local time calculations
+		if ($ns < 3600) {
+		    $GBR_DST=0;   return 0;
+		} else {
+		    $GBR_DST=1;   return 1;
+		}
+	    }
+	} else {
+	    $GBR_DST=1;   return 1;
+	}
+    } elsif ($mm == 10) {
+	if ($dd < 25) {
+	    $GBR_DST=1;   return 1;
+	} elsif ($dd < ($dow+25)) {
+	    $GBR_DST=1;   return 1;
+	} elsif ($dow == 0) {
+	    if ($timezone) { # UTC calculations
+		if ($ns < (3600+($timezone-1)*3600)) {
+		    $GBR_DST=1;   return 1;
+		} else {
+		    $GBR_DST=0;   return 0;
+		}
+	    } else { # local time calculations
+		if ($ns < 3600) {
+		    $GBR_DST=1;   return 1;
+		} else {
+		    $GBR_DST=0;   return 0;
+		}
+	    }
+	} else {
+	    $GBR_DST=0;   return 0;
+	}
+    } # end of month checks
+} # end of subroutine dstcalc
+
+
+
+
+sub AUS_dstcalc {
+#**********************************************************************
+#     This is returns 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;   return 1;
+    } elsif ($mm >= 4 && $mm <= 9) {
+	$AUS_DST=0;   return 0;
+    } elsif ($mm == 3) {
+	if ($dd < 25) {
+	    $AUS_DST=1;   return 1;
+	} elsif ($dd < ($dow+25)) {
+	    $AUS_DST=1;   return 1;
+	} elsif ($dow == 0) {
+	    if ($timezone) { # UTC calculations
+		if ($ns < (3600+($timezone-1)*3600)) {
+		    $AUS_DST=1;   return 1;
+		} else {
+		    $AUS_DST=0;   return 0;
+		}
+	    } else { # local time calculations
+		if ($ns < 3600) {
+		    $AUS_DST=1;   return 1;
+		} else {
+		    $AUS_DST=0;   return 0;
+		}
+	    }
+	} else {
+	    $AUS_DST=0;   return 0;
+	}
+    } elsif ($mm == 10) {
+	if ($dd < 25) {
+	    $AUS_DST=0;   return 0;
+	} elsif ($dd < ($dow+25)) {
+	    $AUS_DST=0;   return 0;
+	} elsif ($dow == 0) {
+	    if ($timezone) { # UTC calculations
+		if ($ns < (3600+($timezone-1)*3600)) {
+		    $AUS_DST=0;   return 0;
+		} else {
+		    $AUS_DST=1;   return 1;
+		}
+	    } else { # local time calculations
+		if ($ns < 3600) {
+		    $AUS_DST=0;   return 0;
+		} else {
+		    $AUS_DST=1;   return 1;
+		}
+	    }
+	} else {
+	    $AUS_DST=1;   return 1;
+	}
+    } # end of month checks
+} # end of subroutine dstcalc
+
+
+
+
+
+sub AUST_dstcalc {
+#**********************************************************************
+#   TASMANIA ONLY
+#     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 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;   return 1;
+    } elsif ($mm >= 4 && $mm <= 9) {
+	$AUST_DST=0;   return 0;
+    } elsif ($mm == 3) {
+	if ($dd < 25) {
+	    $AUST_DST=1;   return 1;
+	} elsif ($dd < ($dow+25)) {
+	    $AUST_DST=1;   return 1;
+	} elsif ($dow == 0) {
+	    if ($timezone) { # UTC calculations
+		if ($ns < (3600+($timezone-1)*3600)) {
+		    $AUST_DST=1;   return 1;
+		} else {
+		    $AUST_DST=0;   return 0;
+		}
+	    } else { # local time calculations
+		if ($ns < 3600) {
+		    $AUST_DST=1;   return 1;
+		} else {
+		    $AUST_DST=0;   return 0;
+		}
+	    }
+	} else {
+	    $AUST_DST=0;   return 0;
+	}
+    } elsif ($mm == 10) {
+	if ($dd > 7) {
+	    $AUST_DST=1;   return 1;
+	} elsif ($dd >= ($dow+1)) {
+	    if ($timezone) {
+		if ($dow == 0 && $ns < (7200+$timezone*3600)) {
+		    $AUST_DST=0;   return 0;
+		} else {
+		    $AUST_DST=1;   return 1;
+		}
+	    } else {
+		if ($dow == 0 && $ns < 3600) {
+		    $AUST_DST=0;   return 0;
+		} else {
+		    $AUST_DST=1;   return 1;
+		}
+	    }
+	} else {
+	    $AUST_DST=0;   return 0;
+	}
+    } # end of month checks
+} # end of subroutine dstcalc
+
+
+
+
+
+sub NZL_dstcalc {
+#**********************************************************************
+#     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 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;   return 1;
+    } elsif ($mm >= 4 && $mm <= 9) {
+	$NZL_DST=0;   return 0;
+    } elsif ($mm == 3) {
+	if ($dd < 14) {
+	    $NZL_DST=1;   return 1;
+	} elsif ($dd < ($dow+14)) {
+	    $NZL_DST=1;   return 1;
+	} elsif ($dow == 0) {
+	    if ($timezone) { # UTC calculations
+		if ($ns < (3600+($timezone-1)*3600)) {
+		    $NZL_DST=1;   return 1;
+		} else {
+		    $NZL_DST=0;   return 0;
+		}
+	    } else { # local time calculations
+		if ($ns < 3600) {
+		    $NZL_DST=1;   return 1;
+		} else {
+		    $NZL_DST=0;   return 0;
+		}
+	    }
+	} else {
+	    $NZL_DST=0;   return 0;
+	}
+    } elsif ($mm == 10) {
+	if ($dd > 7) {
+	    $NZL_DST=1;   return 1;
+	} elsif ($dd >= ($dow+1)) {
+	    if ($timezone) {
+		if ($dow == 0 && $ns < (7200+$timezone*3600)) {
+		    $NZL_DST=0;   return 0;
+		} else {
+		    $NZL_DST=1;   return 1;
+		}
+	    } else {
+		if ($dow == 0 && $ns < 3600) {
+		    $NZL_DST=0;   return 0;
+		} else {
+		    $NZL_DST=1;   return 1;
+		}
+	    }
+	} else {
+	    $NZL_DST=0;   return 0;
+	}
+    } # end of month checks
+} # end of subroutine dstcalc

VICIDIAL_web/new_listloader_superL.php

@@ -10,9 +10,14 @@
 # 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
 #
 # make sure vicidial_list exists and that your file follows the formatting correctly. This page does not dedupe or do any other lead filtering actions yet at this time.
 
+$version = '1.1.12';
+$build = '60616-1604';
+
 
 require("dbconnect.php");
 
@@ -85,11 +90,11 @@ if (isset($_GET["security_phrase_field"]))				{$security_phrase_field=$_GET["sec
 	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["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));
 
 # $country_field=$_GET["country_field"];					if (!$country_field) {$country_field=$_POST["country_field"];}
-$version = '1.1.11';
-$build = '60421-1624';
-
 
 $STARTtime = date("U");
 $TODAY = date("Y-m-d");
@@ -153,9 +158,53 @@ $admSCR = 'admin.php';
 $NWB = " &nbsp; <a href=\"javascript:openNewWindow('$admDIR$admSCR?ADD=99999";
 $NWE = "')\"><IMG SRC=\"help.gif\" WIDTH=20 HEIGHT=20 BORDER=0 ALT=\"HELP\" ALIGN=TOP></A>";
 
+$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 "<html>\n";
 echo "<head>\n";
 echo "<!-- VERSION: $version     BUILD: $build -->\n";
+echo "<!-- SEED TIME  $secX:   $year-$mon-$mday $hour:$min:$sec  LOCAL GMT OFFSET NOW: $LOCAL_GMT_OFF  DST: $isdst -->\n";
 
 function macfontfix($fontsize) {
 
@@ -222,6 +271,10 @@ function ParseFileName() {
 	<td align=right width="35%"><B><font face="arial, helvetica" size=2>Load leads from this file:</font></B></td>
 	<td align=left width="65%"><input type=file name="leadfile" value="<?=$leadfile ?>"> <? echo "$NWB#vicidial_list_loader$NWE"; ?></td>
   </tr>
+  <tr>
+	<td align=right width="25%"><font face="arial, helvetica" size=2>List ID Override: </font></td>
+	<td align=left width="75%"><font face="arial, helvetica" size=1><input type=text value="<?=$list_id_override ?>" name='list_id_override' size=10 maxlength=8> (numbers only or leave blank for values in the file)</td>
+  </tr>
   <tr>
 	<td align=right><B><font face="arial, helvetica" size=2>File layout to use:</font></B></td>
 	<td align=left><font face="arial, helvetica" size=2><input type=radio name="file_layout" value="standard" checked>Standard VICIDIAL&nbsp;&nbsp;&nbsp;&nbsp;<input type=radio name="file_layout" value="custom">Custom layout</td>
@@ -237,7 +290,7 @@ function ParseFileName() {
 <?
 
 	if ($OK_to_process) {
-		print "<script language='JavaScript1.2'>document.forms[0].leadfile.disabled=true; document.forms[0].submit_file.disabled=true; document.forms[0].reload_page.disabled=true;</script>";
+		print "<script language='JavaScript1.2'>document.forms[0].leadfile.disabled=true;document.forms[0].list_id_override.disabled=true; document.forms[0].submit_file.disabled=true; document.forms[0].reload_page.disabled=true;</script>";
 		flush();
 		$total=0; $good=0; $bad=0;
 
@@ -257,6 +310,12 @@ function ParseFileName() {
 				flush();
 				$file=fopen("$WeBServeRRooT/vicidial/vicidial_temp_file.txt", "r");
 				print "<center><font face='arial, helvetica' size=3 color='#009900'><B>Processing $delim_name-delimited file...\n";
+
+			if (strlen($list_id_override)>0) 
+				{
+				print "<BR><BR>LIST ID OVERRIDE FOR THIS FILE: $list_id_override<BR><BR>";
+				}
+
 				while (!feof($file)) {
 					$record++;
 					$buffer=rtrim(fgets($file, 4096));
@@ -274,10 +333,11 @@ function ParseFileName() {
 						$source_code =			$row[$source_id_field];
 						$source_id=$source_code;
 						$list_id =				$row[$list_id_field];
-						$campaign_id =			'';
+						$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]);
+							$USarea = 			substr($phone_number, 0, 3);
 						$title =				$row[$title_field];
 						$first_name =			$row[$first_name_field];
 						$middle_initial =		$row[$middle_initial_field];
@@ -299,9 +359,18 @@ function ParseFileName() {
 
 						if (strlen($phone_number)>8) {
 
+
+							if (strlen($list_id_override)>0) 
+								{
+							#	print "<BR><BR>LIST ID OVERRIDE FOR THIS FILE: $list_id_override<BR><BR>";
+								$list_id = $list_id_override;
+								}
+
+							$gmt_offset = lookup_gmt($phone_code,$USarea,$state,$LOCAL_GMT_OFF_STD,$Shour,$Smin,$Ssec,$Smon,$Smday,$Syear);
+
 							if ($multi_insert_counter > 8) {
 								### 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','$campaign_id','$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);";
+								$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);";
 								$rslt=mysql_query($stmtZ, $link);
 								if ($WeBRooTWritablE > 0) 
 									{fwrite($stmt_file, $stmtZ."\r\n");}
@@ -309,7 +378,7 @@ function ParseFileName() {
 								$multi_insert_counter=0;
 
 							} else {
-								$multistmt .= "('','$entry_date','$modify_date','$status','$user','$vendor_lead_code','$source_id','$list_id','$campaign_id','$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),";
+								$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),";
 								$multi_insert_counter++;
 							}
 
@@ -343,14 +412,22 @@ function ParseFileName() {
 			$file=fopen("$WeBServeRRooT/vicidial/vicidial_temp_file.xls", "r");
 
 			print "<center><font face='arial, helvetica' size=3 color='#009900'><B>Processing Excel file... \n";
-			# print "$WeBServeRRooT/vicidial/listloader_super.pl $vendor_lead_code_field,$source_id_field,$list_id_field,$phone_code_field,$phone_number_field,$title_field,$first_name_field,$middle_initial_field,$last_name_field,$address1_field,$address2_field,$address3_field,$city_field,$state_field,$province_field,$postal_code_field,$country_code_field,$gender_field,$date_of_birth_field,$alt_phone_field,$email_field,$security_phrase_field,$comments_field";
-			passthru("$WeBServeRRooT/vicidial/listloader_super.pl $vendor_lead_code_field,$source_id_field,$list_id_field,$phone_code_field,$phone_number_field,$title_field,$first_name_field,$middle_initial_field,$last_name_field,$address1_field,$address2_field,$address3_field,$city_field,$state_field,$province_field,$postal_code_field,$country_code_field,$gender_field,$date_of_birth_field,$alt_phone_field,$email_field,$security_phrase_field,$comments_field");
+			if (strlen($list_id_override)>0) 
+			{
+			print "<BR><BR>LIST ID OVERRIDE FOR THIS FILE: $list_id_override<BR><BR>\n";
+			}
+		# print "$WeBServeRRooT/vicidial/listloader_super.pl $vendor_lead_code_field,$source_id_field,$list_id_field,$phone_code_field,$phone_number_field,$title_field,$first_name_field,$middle_initial_field,$last_name_field,$address1_field,$address2_field,$address3_field,$city_field,$state_field,$province_field,$postal_code_field,$country_code_field,$gender_field,$date_of_birth_field,$alt_phone_field,$email_field,$security_phrase_field,$comments_field";
+			passthru("$WeBServeRRooT/vicidial/listloader_super.pl $vendor_lead_code_field,$source_id_field,$list_id_field,$phone_code_field,$phone_number_field,$title_field,$first_name_field,$middle_initial_field,$last_name_field,$address1_field,$address2_field,$address3_field,$city_field,$state_field,$province_field,$postal_code_field,$country_code_field,$gender_field,$date_of_birth_field,$alt_phone_field,$email_field,$security_phrase_field,$comments_field, --forcelistid=$list_id_override");
 		} else {
 			# copy($leadfile, "./vicidial_temp_file.csv");
 			$file=fopen("$WeBServeRRooT/vicidial/vicidial_temp_file.csv", "r");
 			$stmt_file=fopen("listloader_stmts.txt", "w");
 			
 			print "<center><font face='arial, helvetica' size=3 color='#009900'><B>Processing CSV file... \n";
+			if (strlen($list_id_override)>0) 
+				{
+				print "<BR><BR>LIST ID OVERRIDE FOR THIS FILE: $list_id_override<BR><BR>";
+				}
 
 			while($row=fgetcsv($file, 1000, ",")) {
 
@@ -363,10 +440,11 @@ function ParseFileName() {
 				$source_code =			$row[$source_id_field];
 				$source_id=$source_code;
 				$list_id =				$row[$list_id_field];
-				$campaign_id =			'';
+				$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]);
+					$USarea = 			substr($phone_number, 0, 3);
 				$title =				$row[$title_field];
 				$first_name =			$row[$first_name_field];
 				$middle_initial =		$row[$middle_initial_field];
@@ -387,9 +465,19 @@ function ParseFileName() {
 				$comments =				trim($row[$comments_field]);
 
 				if (strlen($phone_number)>8) {
+
+					if (strlen($list_id_override)>0) 
+						{
+					#	print "<BR><BR>LIST ID OVERRIDE FOR THIS FILE: $list_id_override<BR><BR>";
+						$list_id = $list_id_override;
+						}
+
+					$gmt_offset = lookup_gmt($phone_code,$USarea,$state,$LOCAL_GMT_OFF_STD,$Shour,$Smin,$Ssec,$Smon,$Smday,$Syear);
+
+
 					if ($multi_insert_counter > 8) {
 						### 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','$campaign_id','$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);";
+						$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);";
 						$rslt=mysql_query($stmtZ, $link);
 						if ($WeBRooTWritablE > 0) 
 							{fwrite($stmt_file, $stmtZ."\r\n");}
@@ -397,7 +485,7 @@ function ParseFileName() {
 						$multi_insert_counter=0;
 
 					} else {
-						$multistmt .= "('','$entry_date','$modify_date','$status','$user','$vendor_lead_code','$source_id','$list_id','$campaign_id','$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),";
+						$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),";
 						$multi_insert_counter++;
 					}
 
@@ -450,7 +538,11 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 			$file=fopen("$WeBServeRRooT/vicidial/vicidial_temp_file.txt", "r");
 			$total=0; $good=0; $bad=0;
 			print "<center><font face='arial, helvetica' size=3 color='#009900'><B>Processing $delim_name-delimited file... ($tab_count|$pipe_count)\n";
-			while (!feof($file)) {
+			if (strlen($list_id_override)>0) 
+			{
+			print "<BR><BR>LIST ID OVERRIDE FOR THIS FILE: $list_id_override<BR><BR>";
+			}
+		while (!feof($file)) {
 				$record++;
 				$buffer=rtrim(fgets($file, 4096));
 				$buffer=stripslashes($buffer);
@@ -467,10 +559,11 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 					$source_code =			$row[1];
 					$source_id=$source_code;
 					$list_id =				$row[2];
-					$campaign_id =			'';
+					$gmt_offset =			'0';
 					$called_since_last_reset='N';
 					$phone_code =			eregi_replace("[^0-9]", "", $row[3]);
 					$phone_number =			eregi_replace("[^0-9]", "", $row[4]);
+						$USarea = 			substr($phone_number, 0, 3);
 					$title =				$row[5];
 					$first_name =			$row[6];
 					$middle_initial =		$row[7];
@@ -492,9 +585,18 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 
 					if (strlen($phone_number)>8) {
 
+						if (strlen($list_id_override)>0) 
+							{
+						#	print "<BR><BR>LIST ID OVERRIDE FOR THIS FILE: $list_id_override<BR><BR>";
+							$list_id = $list_id_override;
+							}
+
+						$gmt_offset = lookup_gmt($phone_code,$USarea,$state,$LOCAL_GMT_OFF_STD,$Shour,$Smin,$Ssec,$Smon,$Smday,$Syear);
+
+
 						if ($multi_insert_counter > 8) {
 							### 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','$campaign_id','$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);";
+							$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);";
 							$rslt=mysql_query($stmtZ, $link);
 							if ($WeBRooTWritablE > 0) 
 								{fwrite($stmt_file, $stmtZ."\r\n");}
@@ -502,7 +604,7 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 							$multi_insert_counter=0;
 
 						} else {
-							$multistmt .= "('','$entry_date','$modify_date','$status','$user','$vendor_lead_code','$source_id','$list_id','$campaign_id','$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),";
+							$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),";
 							$multi_insert_counter++;
 						}
 
@@ -535,7 +637,7 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 		copy($LF_path, "$WeBServeRRooT/vicidial/vicidial_temp_file.xls");
 		$file=fopen("$WeBServeRRooT/vicidial/vicidial_temp_file.xls", "r");
 
-		passthru("$WeBServeRRooT/vicidial/listloader.pl");
+		passthru("$WeBServeRRooT/vicidial/listloader.pl --forcelistid=$list_id_override");
 	} else {
 		copy($LF_path, "$WeBServeRRooT/vicidial/vicidial_temp_file.csv");
 		$file=fopen("$WeBServeRRooT/vicidial/vicidial_temp_file.csv", "r");
@@ -543,6 +645,11 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 		
 		print "<center><font face='arial, helvetica' size=3 color='#009900'><B>Processing CSV file... \n";
 
+		if (strlen($list_id_override)>0) 
+			{
+			print "<BR><BR>LIST ID OVERRIDE FOR THIS FILE: $list_id_override<BR><BR>";
+			}
+
 		while($row=fgetcsv($file, 1000, ",")) {
 				$pulldate=date("Y-m-d H:i:s");
 				$entry_date =			"$pulldate";
@@ -553,10 +660,11 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 				$source_code =			$row[1];
 				$source_id=$source_code;
 				$list_id =				$row[2];
-				$campaign_id =			'';
+				$gmt_offset =			'0';
 				$called_since_last_reset='N';
 				$phone_code =			eregi_replace("[^0-9]", "", $row[3]);
 				$phone_number =			eregi_replace("[^0-9]", "", $row[4]);
+					$USarea = 			substr($phone_number, 0, 3);
 				$title =				$row[5];
 				$first_name =			$row[6];
 				$middle_initial =		$row[7];
@@ -577,9 +685,19 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 				$comments =				trim($row[22]);
 
 				if (strlen($phone_number)>8) {
+
+					if (strlen($list_id_override)>0) 
+						{
+					#	print "<BR><BR>LIST ID OVERRIDE FOR THIS FILE: $list_id_override<BR><BR>";
+						$list_id = $list_id_override;
+						}
+
+					$gmt_offset = lookup_gmt($phone_code,$USarea,$state,$LOCAL_GMT_OFF_STD,$Shour,$Smin,$Ssec,$Smon,$Smday,$Syear);
+
+
 					if ($multi_insert_counter > 8) {
 						### 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','$campaign_id','$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);";
+						$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);";
 						$rslt=mysql_query($stmtZ, $link);
 						if ($WeBRooTWritablE > 0) 
 							{fwrite($stmt_file, $stmtZ."\r\n");}
@@ -587,7 +705,7 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 						$multi_insert_counter=0;
 
 					} else {
-						$multistmt .= "('','$entry_date','$modify_date','$status','$user','$vendor_lead_code','$source_id','$list_id','$campaign_id','$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),";
+						$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),";
 						$multi_insert_counter++;
 					}
 
@@ -624,7 +742,7 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 			print "    <th><font class='standard' color='white'>File data</font></th>\r\n";
 			print "  </tr>\r\n";
 
-			$tbl_rslt=mysql_query("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 from vicidial_list limit 1", $link);
+			$rslt=mysql_query("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 from vicidial_list limit 1", $link);
 			
 
 			if (!eregi(".csv", $leadfile_name) && !eregi(".xls", $leadfile_name)) {
@@ -642,15 +760,19 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 				$file=fopen("$WeBServeRRooT/vicidial/vicidial_temp_file.txt", "r");
 				print "<center><font face='arial, helvetica' size=3 color='#009900'><B>Processing $delim_name-delimited file...\n";
 
+				if (strlen($list_id_override)>0) 
+					{
+					print "<BR><BR>LIST ID OVERRIDE FOR THIS FILE: $list_id_override<BR><BR>";
+					}
 				$buffer=rtrim(fgets($file, 4096));
 				$buffer=stripslashes($buffer);
 				$row=explode($delimiter, eregi_replace("[\'\"]", "", $buffer));
 				
-				for ($i=0; $i<mysql_num_fields($tbl_rslt); $i++) {
+				for ($i=0; $i<mysql_num_fields($rslt); $i++) {
 
 					print "  <tr bgcolor=#D9E6FE>\r\n";
-					print "    <td align=right><font class=standard>".strtoupper(eregi_replace("_", " ", mysql_field_name($tbl_rslt, $i))).": </font></td>\r\n";
-					print "    <td align=center><select name='".mysql_field_name($tbl_rslt, $i)."_field'>\r\n";
+					print "    <td align=right><font class=standard>".strtoupper(eregi_replace("_", " ", mysql_field_name($rslt, $i))).": </font></td>\r\n";
+					print "    <td align=center><select name='".mysql_field_name($rslt, $i)."_field'>\r\n";
 					print "     <option value='-1'>(none)</option>\r\n";
 
 					for ($j=0; $j<count($row); $j++) {
@@ -672,7 +794,7 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 					#print "     <option value='vendor_lead_code'>Vendor lead code</option>\r\n";
 					#print "     <option value='source_id'>Source ID</option>\r\n";
 					#print "     <option value='list_id'>List ID</option>\r\n";
-					#print "     <option value='campaign_id'>Campaign ID</option>\r\n";
+					#print "     <option value='gmt_offset'>Campaign ID</option>\r\n";
 					#print "     <option value='called_since_last_reset'>Called since last reset</option>\r\n";
 					#print "     <option value='phone_code'>Phone code</option>\r\n";
 					#print "     <option value='phone_number'>Phone number</option>\r\n";
@@ -707,12 +829,17 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 				
 				print "<center><font face='arial, helvetica' size=3 color='#009900'><B>Processing CSV file... \n";
 				
+				if (strlen($list_id_override)>0) 
+					{
+					print "<BR><BR>LIST ID OVERRIDE FOR THIS FILE: $list_id_override<BR><BR>";
+					}
+
 				$total=0; $good=0; $bad=0;
 				$row=fgetcsv($file, 1000, ",");
-				for ($i=0; $i<mysql_num_fields($tbl_rslt); $i++) {
+				for ($i=0; $i<mysql_num_fields($rslt); $i++) {
 					print "  <tr bgcolor=#D9E6FE>\r\n";
-					print "    <td align=right><font class=standard>".strtoupper(eregi_replace("_", " ", mysql_field_name($tbl_rslt, $i))).": </font></td>\r\n";
-					print "    <td align=center><select name='".mysql_field_name($tbl_rslt, $i)."_field'>\r\n";
+					print "    <td align=right><font class=standard>".strtoupper(eregi_replace("_", " ", mysql_field_name($rslt, $i))).": </font></td>\r\n";
+					print "    <td align=center><select name='".mysql_field_name($rslt, $i)."_field'>\r\n";
 					print "     <option value='-1'>(none)</option>\r\n";
 
 					for ($j=0; $j<count($row); $j++) {
@@ -734,7 +861,7 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 					#print "     <option value='vendor_lead_code'>Vendor lead code</option>\r\n";
 					#print "     <option value='source_id'>Source ID</option>\r\n";
 					#print "     <option value='list_id'>List ID</option>\r\n";
-					#print "     <option value='campaign_id'>Campaign ID</option>\r\n";
+					#print "     <option value='gmt_offset'>Campaign ID</option>\r\n";
 					#print "     <option value='called_since_last_reset'>Called since last reset</option>\r\n";
 					#print "     <option value='phone_code'>Phone code</option>\r\n";
 					#print "     <option value='phone_number'>Phone number</option>\r\n";
@@ -761,6 +888,7 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 				}
 			}
 			print "  <tr bgcolor='#330099'>\r\n";
+			print "  <input type=hidden name=list_id_override value=\"$list_id_override\">\r\n";
 			print "    <th colspan=2><input type=submit name='OK_to_process' value='OK TO PROCESS'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=button onClick=\"javascript:document.location='new_listloader_superL.php'\" value=\"START OVER\" name='reload_page'></th>\r\n";
 			print "  </tr>\r\n";
 			print "</table>\r\n";
@@ -774,3 +902,456 @@ if ($leadfile && filesize($LF_path)<=8388608) {
 </form>
 </body>
 </html>
+
+
+
+
+
+<?
+
+exit;
+
+
+
+function lookup_gmt($phone_code,$USarea,$state,$LOCAL_GMT_OFF_STD,$Shour,$Smin,$Ssec,$Smon,$Smday,$Syear)
+{
+require("dbconnect.php");
+
+
+$PC_processed=0;
+### UNITED STATES ###
+if ($phone_code =='1')
+	{
+	$stmt="select * 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 * 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 * 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 * 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 == '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.
+	#     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
+	#**********************************************************************
+		
+		$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-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)
+	{
+	if ($DBX) {print "     No DST Method Found\n";}
+	if ($DBX) {print "     DST: 0\n";}
+	$AC_processed++;
+	}
+
+return $gmt_offset;
+}

VICIDIAL_web/remote_dispo.php

@@ -256,13 +256,13 @@ else
 			echo "<tr bgcolor=#B6D3FC><td align=right>Disposition: </td><td align=left><select size=1 name=status>\n";
 
 				$stmt="SELECT * from vicidial_statuses where selectable='Y' order by status";
-				$rsltx=mysql_query($stmt, $link);
-				$statuses_to_print = mysql_num_rows($rsltx);
+				$rslt=mysql_query($stmt, $link);
+				$statuses_to_print = mysql_num_rows($rslt);
 				$statuses_list='';
 
 				$o=0;
 				while ($statuses_to_print > $o) {
-					$rowx=mysql_fetch_row($rsltx);
+					$rowx=mysql_fetch_row($rslt);
 					$statuses_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 					$o++;
 				}

VICIDIAL_web/vdremote.php

@@ -166,28 +166,28 @@ if (strlen($ADD)>4)
 	{
 	##### get server listing for dynamic pulldown
 	$stmt="SELECT server_ip,server_description from servers order by server_ip";
-	$rsltx=mysql_query($stmt, $link);
-	$servers_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$servers_to_print = mysql_num_rows($rslt);
 	$servers_list='';
 
 	$o=0;
 	while ($servers_to_print > $o)
 		{
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$servers_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 		$o++;
 		}
 
 	##### get campaigns listing for dynamic pulldown
 	$stmt="SELECT campaign_id,campaign_name from vicidial_campaigns order by campaign_id";
-	$rsltx=mysql_query($stmt, $link);
-	$campaigns_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$campaigns_to_print = mysql_num_rows($rslt);
 	$campaigns_list='';
 
 	$o=0;
 	while ($campaigns_to_print > $o)
 		{
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$campaigns_list .= "<option value=\"$rowx[0]\">$rowx[0] - $rowx[1]</option>\n";
 		$o++;
 		}
@@ -204,15 +204,15 @@ if (strlen($ADD)>4)
 	}
 
 	$stmt="SELECT group_id,group_name from vicidial_inbound_groups order by group_id";
-	$rsltx=mysql_query($stmt, $link);
-	$groups_to_print = mysql_num_rows($rsltx);
+	$rslt=mysql_query($stmt, $link);
+	$groups_to_print = mysql_num_rows($rslt);
 	$groups_list='';
 	$groups_value='';
 
 	$o=0;
 	while ($groups_to_print > $o)
 		{
-		$rowx=mysql_fetch_row($rsltx);
+		$rowx=mysql_fetch_row($rslt);
 		$group_id_value = $rowx[0];
 		$group_name_value = $rowx[1];
 		$groups_list .= "<input type=\"checkbox\" name=\"groups[]\" value=\"$group_id_value\"";