I have the following problem with AST_VDauto_dial.pl script.
It suddently stop to work when I ran it manually this is the outcome
TIME DEBUG: ||0| GMT: 08:55
2006-07-26 08:55:47|PROGRAM STARTED|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
2006-07-26 08:55:47|LOGGED INTO MYSQL SERVER ON 1 CONNECTION||
TIME DEBUG: -6|-6|0| GMT: 14:55
2006-07-26 08:55:47|LIVE AGENTS LOGGED IN: 0 |
2006-07-26 08:55:47|HLPA 10.10.61.17: agents: 0 dial_level: 0|
2006-07-26 08:55:47|HLPA 10.10.61.17: Calls to place: 0 (0- 0) |
mysql> select count(*) from vicidial_live_agents;
+----------+
| count(*) |
+----------+
| 5 |
+----------+
1 row in set (0.00 sec)
select auto_dial_level from vicidial_campaigns where campaign_id='HLPA';
+-----------------+
| auto_dial_level |
+-----------------+
| 3.0 |
+-----------------+
1 row in set (0.00 sec)
Well I tryed to trace the problem in the source code but I am not a Perl Fan .
These is part of the code that I saw is having the problems.
The second While was never executed .
but I really don't know Why? Any help
I had to reboot and everithing is working again :S
$dbhA->query("SELECT user,server_ip,campaign_id,conf_exten FROM vicidial_live_agents where status IN('READY','QUEUE','INCALL','DONE') and server_ip='$server_ip' and last_update_time > '$BDtsSQLdate' order by last_call_time");
if ($dbhA->has_selected_record)
{
$iter=$dbhA->create_record_iterator;
while ( $record = $iter->each)
{
$DBlive_user[$user_counter] = "$record->[0]";
$DBlive_server_ip[$user_counter] = "$record->[1]";
$DBlive_campaign[$user_counter] = "$record->[2]";
$DBlive_conf_exten[$user_counter] = "$record->[3]";
if ($user_campaigns !~ /\|$DBlive_campaign[$user_counter]\|/i)
{
$user_campaigns .= "$DBlive_campaign[$user_counter]|";
$DBcampaigns[$user_campaigns_counter] = $DBlive_campaign[$user_counter];
$user_campaigns_counter++;
}
if ($user_campaignIP !~ /\|$DBlive_campaign[$user_counter]__$DBlive_server_ip[$user_counter]\|/i)
{
$user_campaignIP .= "$DBlive_campaign[$user_counter]__$DBlive_server_ip[$user_counter]|";
$DBIPcampaign[$user_CIPct] = "$DBlive_campaign[$user_counter]";
$DBIPaddress[$user_CIPct] = "$DBlive_server_ip[$user_counter]";
$user_CIPct++;
}
$user_counter++;
}
}
$event_string="LIVE AGENTS LOGGED IN: $user_counter";