ViciDial/agc_2-X
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed bugs in FastAGIlog script

Browse Source 
added new report scripts
updated documentation
changed active agent display time in timeonVDADall from 30 minutes to 360 minutes
Changed all uniqueid fields in database to VARCHAR(20)

git-svn-id: svn://192.168.202.10@782 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2008-02-24 08:48:40 +00:00
parent a4ab9796b4
commit 65f86c9490
12 changed files with 2817 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files
agi/agi-VDAD_ALL_outbound.agi
+1058
View File
File diff suppressed because it is too large Load Diff
bin/AST_SWAMPauto_dial.pl
+265
View File
@@ -0,0 +1,265 @@
#!/usr/bin/perl
#
# AST_SWAMPauto_dial.pl version 0.2
#
# DESCRIPTION:
# uses MySQL to place auto_dial calls on the VICIDIAL dialer system
#
# SUMMARY:
# This program was designed to test inbound phone system with a set number of
# calls being launched one per second for a set time period using incrementing
# CallerID numbers
#
# # The Gettysburg address is about 100 seconds, this is a free recording
# cd /var/lib/asterisk/sounds/
# wget http://www.eflo.net/files/gettysburgaddress.wav
#
# exten => 834562311,1,Answer
# exten => 834562311,2,Playback(gettysburgaddress)
# exten => 834562311,3,Hangup
#
# Copyright (C) 2008 Matt Florell <vicidial@gmail.com> LICENSE: GPLv2
#
# changes:
# 50708-1533 - First version
# 80217-0226 - Changed to DBI and added more options
#
# constants
$CIDlist[0] = '9989998888';
$dialstring_800_prefix = '91';
$dialstring_number = '6102350343'; # number being dialed (inbound queue)
$server_ips[0] = '192.168.75.21';
$server_ips[1] = '192.168.75.23';
# $server_ips[2] = '192.168.75.22';
# $server_ips[3] = '192.168.1.240';
# $server_ips[0] = '192.168.1.106';
# $server_ips[1] = '192.168.1.249';
# $server_ips[2] = '192.168.1.239';
# $server_ips[3] = '192.168.1.240';
# $server_ips[0] = '10.10.11.11';
# $server_ips[1] = '10.10.11.21';
# $server_ips[2] = '10.10.11.22';
# $server_ips[3] = '10.10.11.23';
# $server_ips[4] = '10.10.11.24';
# $server_ips[5] = '10.10.11.25';
# $server_ips[6] = '10.10.11.13';
# $server_ips[7] = '10.10.11.14';
# $server_ips[8] = '10.10.11.15';
# $server_ips[9] = '10.10.11.16';
# $server_ips[10] = '10.10.11.18';
# $server_ips[11] = '10.10.11.19';
$exten='834562311'; # where the test audio file is located
$context='default';
$US='_';
$loop_delay = '1';
$it='0';
$total_loops='3600'; # 3600 seconds = 1 hour
#$total_loops='100'; # 3600 seconds = 1 hour
$dialstring = "$dialstring_800_prefix$dialstring_number";
$MT[0]='';
### begin parsing run-time options ###
if (length($ARGV[0])>1)
{
$i=0;
while ($#ARGV >= $i)
{
$args = "$args $ARGV[$i]";
$i++;
}
if ($args =~ /--help/i)
{
print "allowed run time options:\n [-t] = test\n [-debug] = verbose debug messages\n [--delay=XXX] = delay of XXX seconds per loop, default 2.5 seconds\n\n";
}
else
{
if ($args =~ /--delay=/i)
{
@data_in = split(/--delay=/,$args);
$loop_delay = $data_in[1];
print " LOOP DELAY OVERRIDE!!!!! = $loop_delay seconds\n\n";
$loop_delay = ($loop_delay * 1000);
}
else
{
$loop_delay = '1000';
}
if ($args =~ /-debug/i)
{
$DB=1; # Debug flag, set to 0 for no debug messages, On an active system this will generate hundreds of lines of output per minute
}
if ($args =~ /-t/i)
{
$TEST=1;
$T=1;
}
}
}
else
{
print "no command line options set\n";
$DB=1;
$loop_delay = '1000';
# $loop_delay = '500';
}
### end parsing run-time options ###
# default path to astguiclient configuration file:
$PATHconf = '/etc/astguiclient.conf';
open(conf, "$PATHconf") || die "can't open $PATHconf: $!\n";
@conf = <conf>;
close(conf);
$i=0;
foreach(@conf)
{
$line = $conf[$i];
$line =~ s/ |>|\n|\r|\t|\#.*|;.*//gi;
if ( ($line =~ /^PATHhome/) && ($CLIhome < 1) )
{$PATHhome = $line; $PATHhome =~ s/.*=//gi;}
if ( ($line =~ /^PATHlogs/) && ($CLIlogs < 1) )
{$PATHlogs = $line; $PATHlogs =~ s/.*=//gi;}
if ( ($line =~ /^PATHagi/) && ($CLIagi < 1) )
{$PATHagi = $line; $PATHagi =~ s/.*=//gi;}
if ( ($line =~ /^PATHweb/) && ($CLIweb < 1) )
{$PATHweb = $line; $PATHweb =~ s/.*=//gi;}
if ( ($line =~ /^PATHsounds/) && ($CLIsounds < 1) )
{$PATHsounds = $line; $PATHsounds =~ s/.*=//gi;}
if ( ($line =~ /^PATHmonitor/) && ($CLImonitor < 1) )
{$PATHmonitor = $line; $PATHmonitor =~ s/.*=//gi;}
if ( ($line =~ /^VARserver_ip/) && ($CLIserver_ip < 1) )
{$VARserver_ip = $line; $VARserver_ip =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_server/) && ($CLIDB_server < 1) )
{$VARDB_server = $line; $VARDB_server =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_database/) && ($CLIDB_database < 1) )
{$VARDB_database = $line; $VARDB_database =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_user/) && ($CLIDB_user < 1) )
{$VARDB_user = $line; $VARDB_user =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_pass/) && ($CLIDB_pass < 1) )
{$VARDB_pass = $line; $VARDB_pass =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_port/) && ($CLIDB_port < 1) )
{$VARDB_port = $line; $VARDB_port =~ s/.*=//gi;}
$i++;
}
&get_time_now;
# Customized Variables
$server_ip = $VARserver_ip; # Asterisk server IP
$SWAMPLOGfile = "$PATHlogs/SWAMP_LOG_$file_date$txt";
$event_string='PROGRAM STARTED||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||';
&event_logger; # writes to the log and if debug flag is set prints to STDOUT
use lib './lib', '../lib';
use Time::HiRes ('gettimeofday','usleep','sleep'); # necessary to have perl sleep command of less than one second
if (!$VARDB_port) {$VARDB_port='3306';}
use DBI;
$dbhA = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass")
or die "Couldn't connect to database: " . DBI->errstr;
$event_string='LOGGED INTO MYSQL SERVER ON 1 CONNECTION|';
&event_logger;
$total=0;
$list_it=0;
$server_it=0;
$list_inc=0;
while($it < $total_loops)
{
&get_time_now; # update time/date variables
$CIDtemp = ($CIDlist[$list_it] + $list_inc);
$SERVERtemp = $server_ips[$server_it];
$k=0;
while ($k < 1)
{
$stmtA = "INSERT INTO vicidial_manager values('','','$SQLdate','NEW','N','$SERVERtemp','','Originate','TESTCIDX$CIDdate$US$it','Channel: Local/$dialstring@$context','Context; $context','Exten: $exten','Priority: 1','Callerid: \"Inbound Test Call\" <$CIDtemp>','','','','','');";
$affected_rows = $dbhA->do($stmtA);
# print "|$stmtA|\n";
$k++;
$total++;
$event_string="CALL: $total TO: $dialstring CID: $CIDtemp it: $it list_it: $list_it list_inc: $list_inc server: $SERVERtemp";
print "$event_string\n";
&event_logger;
}
### sleep before beginning the loop again
usleep(1*$loop_delay*1000);
$it++;
$list_it++;
if ($list_it > $#CIDlist) {$list_it=0; $list_inc++;}
$server_it++;
if ($server_it > $#server_ips) {$server_it=0;}
}
exit;
sub get_time_now #get the current date and time and epoch for logging call lengths and datetimes
{
$secX = time();
$secX = time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = ($year + 1900);
$mon++;
if ($mon < 10) {$mon = "0$mon";}
if ($mday < 10) {$mday = "0$mday";}
if ($hour < 10) {$Fhour = "0$hour";}
if ($min < 10) {$min = "0$min";}
if ($sec < 10) {$sec = "0$sec";}
$now_date_epoch = time();
$now_date = "$year-$mon-$mday $hour:$min:$sec";
$file_date = "$year-$mon-$mday_$hour$min$sec";
$CIDdate = "$mon$mday$hour$min$sec";
$tsSQLdate = "$year$mon$mday$hour$min$sec";
$SQLdate = "$year-$mon-$mday $hour:$min:$sec";
}
sub event_logger
{
#if ($DB) {print "$now_date|$event_string|\n";}
### open the log file for writing ###
open(Lout, ">>$SWAMPLOGfile")
|| die "Can't open $SWAMPLOGfile: $!\n";
print Lout "$now_date|$event_string|\n";
close(Lout);
$event_string='';
}
bin/AST_agent_daily_SPH.pl
+733
View File
@@ -0,0 +1,733 @@
#!/usr/bin/perl
# AST_agent_daily_SPH.pl
#
# This script is designed to gather stats for all agent activity over the course
# of a week and print it in an ASCI text file to be placed
# on a web server for viewing.
#
# This script assumes a work day to be from 2AM to 2AM
#
# Place in the crontab and run every night at 02:00AM for the previous day's stats
# 0 2 * * * /home/cron/AST_agent_daily_SPH.pl
#
# CHANGES
# 80114-1221 - First version
# 80116-0941 - only print agents with week and month hours of 0 to PIPE file
# 80216-2255 - Add Year-to-date on Sunday mornings only
#
$txt = '.txt';
$US = '_';
$MT[0] = '';
$SQLrestrict = "and campaign_id IN('QRA','QRB','QRC','QRD')";
### begin parsing run-time options ###
if (length($ARGV[0])>1)
{
$i=0;
while ($#ARGV >= $i)
{
$args = "$args $ARGV[$i]";
$i++;
}
if ($args =~ /--help/i)
{
print "allowed run time options:\n [-q] = quiet\n [-t] = test\n\n";
exit;
}
else
{
if ($args =~ /--debug/i)
{
$DB=1;
print "\n-----DEBUG MODE-----\n\n";
}
if ($args =~ /-q/i)
{
$q=1; $Q=1;
}
if ($args =~ /-t/i)
{
$T=1; $TEST=1;
print "\n-----TESTING-----\n\n";
}
}
}
else
{
print "no command line options set\n";
}
### end parsing run-time options ###
$secX = time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$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";}
$filedate = "$year$mon$mday-$hour$min$sec";
$ABIfiledate = "$mon-$mday-$year$us$hour$min$sec";
$shipdate = "$year-$mon-$mday";
$datestamp = "$year/$mon/$mday $hour:$min";
use Time::Local;
$YTDrun=0;
### find epoch of 2AM today
$TWOAMsec = ( ($secX - ($sec + ($min * 60) + ($hour * 3600) ) ) + 7200);
### find epoch of 2AM yesterday
$TWOAMsecY = ($TWOAMsec - 86400);
($Tsec,$Tmin,$Thour,$Tmday,$Tmon,$Tyear,$Twday,$Tyday,$Tisdst) = localtime($TWOAMsecY);
$Tyear = ($Tyear + 1900);
$Tmon++;
if ($Tmon < 10) {$Tmon = "0$Tmon";}
if ($Tmday < 10) {$Tmday = "0$Tmday";}
if ($Thour < 10) {$Thour = "0$Thour";}
if ($Tmin < 10) {$Tmin = "0$Tmin";}
if ($Tsec < 10) {$Tsec = "0$Tsec";}
$begindate = "$Tyear-$Tmon-$Tmday $Thour:$Tmin:$Tsec";
if ($Twday == '6') {$YTDrun=1; print "RUNNING YTD\n";}
### find epoch of 2AM the first day of the month
$BMONTHsec = ($TWOAMsecY - (86400 * ($Tmday - 1) ) );
### find epoch of 2AM the first day of next month
if ($Tmon>11) {$Tmon=0; $Tyear++;}
$EMONTHsec = timelocal($Tsec,$Tmin,$Thour,1,$Tmon,$Tyear);
if ($Twday==0) {$day='Sunday '; $SETprevday = 6;}
if ($Twday==1) {$day='Monday '; $SETprevday = 0;}
if ($Twday==2) {$day='Tuesday '; $SETprevday = 1;}
if ($Twday==3) {$day='Wednesday'; $SETprevday = 2;}
if ($Twday==4) {$day='Thursday '; $SETprevday = 3;}
if ($Twday==5) {$day='Friday '; $SETprevday = 4;}
if ($Twday==6) {$day='Saturday '; $SETprevday = 5;}
($TMsec,$TMmin,$TMhour,$TMmday,$TMmon,$TMyear,$TMwday,$TMyday,$TMisdst) = localtime($BMONTHsec);
$TMyear = ($TMyear + 1900);
$TMmon++;
if ($TMmon < 10) {$TMmon = "0$TMmon";}
if ($TMmday < 10) {$TMmday = "0$TMmday";}
if ($TMhour < 10) {$TMhour = "0$TMhour";}
if ($TMmin < 10) {$TMmin = "0$TMmin";}
if ($TMsec < 10) {$TMsec = "0$TMsec";}
$beginmonth = "$TMyear-$TMmon-$TMmday $TMhour:$TMmin:$TMsec";
($TMsec,$TMmin,$TMhour,$TMmday,$TMmon,$TMyear,$TMwday,$TMyday,$TMisdst) = localtime($EMONTHsec);
$TMyear = ($TMyear + 1900);
$TMmon++;
if ($TMmon < 10) {$TMmon = "0$TMmon";}
if ($TMmday < 10) {$TMmday = "0$TMmday";}
if ($TMhour < 10) {$TMhour = "0$TMhour";}
if ($TMmin < 10) {$TMmin = "0$TMmin";}
if ($TMsec < 10) {$TMsec = "0$TMsec";}
$endmonth = "$TMyear-$TMmon-$TMmday $TMhour:$TMmin:$TMsec";
#print "|$ABIfiledate|$begindate|$beginmonth|$endmonth|\n";
#exit;
print "\n\n\n\n\n\n\n\n\n\n\n\n-- AST_agent_daily_SPH.pl --\n\n";
print "This program is designed to print sales-per-hour(SPH) to a file for agents' activity for the current week. \n\n";
# default path to astguiclient configuration file:
$PATHconf = '/etc/astguiclient.conf';
open(conf, "$PATHconf") || die "can't open $PATHconf: $!\n";
@conf = <conf>;
close(conf);
$i=0;
foreach(@conf)
{
$line = $conf[$i];
$line =~ s/ |>|\n|\r|\t|\#.*|;.*//gi;
if ( ($line =~ /^PATHhome/) && ($CLIhome < 1) )
{$PATHhome = $line; $PATHhome =~ s/.*=//gi;}
if ( ($line =~ /^PATHlogs/) && ($CLIlogs < 1) )
{$PATHlogs = $line; $PATHlogs =~ s/.*=//gi;}
if ( ($line =~ /^PATHagi/) && ($CLIagi < 1) )
{$PATHagi = $line; $PATHagi =~ s/.*=//gi;}
if ( ($line =~ /^PATHweb/) && ($CLIweb < 1) )
{$PATHweb = $line; $PATHweb =~ s/.*=//gi;}
if ( ($line =~ /^PATHsounds/) && ($CLIsounds < 1) )
{$PATHsounds = $line; $PATHsounds =~ s/.*=//gi;}
if ( ($line =~ /^PATHmonitor/) && ($CLImonitor < 1) )
{$PATHmonitor = $line; $PATHmonitor =~ s/.*=//gi;}
if ( ($line =~ /^VARserver_ip/) && ($CLIserver_ip < 1) )
{$VARserver_ip = $line; $VARserver_ip =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_server/) && ($CLIDB_server < 1) )
{$VARDB_server = $line; $VARDB_server =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_database/) && ($CLIDB_database < 1) )
{$VARDB_database = $line; $VARDB_database =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_user/) && ($CLIDB_user < 1) )
{$VARDB_user = $line; $VARDB_user =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_pass/) && ($CLIDB_pass < 1) )
{$VARDB_pass = $line; $VARDB_pass =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_port/) && ($CLIDB_port < 1) )
{$VARDB_port = $line; $VARDB_port =~ s/.*=//gi;}
$i++;
}
# Customized Variables
$server_ip = $VARserver_ip; # Asterisk server IP
$outfile = "AGENT_SPH_$Tyear-$Tmon-$Tmday$txt";
$Doutfile = "AGENT_SPH_PIPE_$Tyear-$Tmon-$Tmday$txt";
### open the X out file for writing ###
open(out, ">$PATHweb/vicidial/agent_reports/$outfile")
|| die "Can't open $outfile: $!\n";
open(Dout, ">$PATHweb/vicidial/agent_reports/$Doutfile")
|| die "Can't open $Doutfile: $!\n";
if (!$VARDB_port) {$VARDB_port='3306';}
use DBI;
$dbhA = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass")
or die "Couldn't connect to database: " . DBI->errstr;
$dbhB = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass")
or die "Couldn't connect to database: " . DBI->errstr;
#$vicidial_agent_log = 'vicidial_agent_log_archive';
$vicidial_agent_log = 'vicidial_agent_log';
###########################################################################
########### PAST WEEK STAT GATHERING LOOP #################################
###########################################################################
if ($YTDrun>0)
{
$YEARheadPIPE = 'MONTH HOURS|MONTH SPH|';
$YEARheadFIXED = ' HRS SPH ';
$YEARhHEAD = ' YEAR';
}
print Dout "DATE|AGENT|USER|MON HOURS|MON SPH|TUE HOURS|TUE SPH|WED HOURS|WED SPH|THU HOURS|THU SPH|FRI HOURS|FRI SPH|SAT HOURS|SAT SPH|SUN HOURS|SUN SPH|WEEK HOURS|WEEK SPH|MONTH HOURS|MONTH SPH$YEARheadPIPE|GROUP|\n";
$outline = "REPORT: SPH $Tyear-$Tmon-$Tmday\n\n";
$outline.= " MONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY SATURDAY SUNDAY WEEK MONTH$YEARhHEAD\n";
$outline.= "AGENT USER HRS SPH HRS SPH HRS SPH HRS SPH HRS SPH HRS SPH HRS SPH HRS SPH HRS SPH $YEARheadFIXED GROUP \n";
print "$outline";
print out "$outline";
### FIND ALL ACTIVE USERS IN THE SYSTEM IN('1090','1102','1245')='1090'
$stmtA = "select full_name,user,user_group from vicidial_users order by user_group,full_name limit 1000;";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
$rec_count=0;
while ($sthArows > $rec_count)
{
@aryA = $sthA->fetchrow_array;
$Dname[$rec_count] = $aryA[0];
$Duser[$rec_count] = $aryA[1];
$Dgroup[$rec_count] = $aryA[2];
$name[$rec_count] = sprintf("%-20s", $aryA[0]); while(length($name[$rec_count])>20) {chop($name[$rec_count]);}
$user[$rec_count] = sprintf("%-8s", $aryA[1]);
$group[$rec_count] = sprintf("%-8s", $aryA[2]);
$rec_count++;
}
$sthA->finish();
$Gsph[0]=' 0'; $Gsph[1]=' 0'; $Gsph[2]=' 0'; $Gsph[3]=' 0'; $Gsph[4]=' 0'; $Gsph[5]=' 0'; $Gsph[6]=' 0';
$Gsales[0]=0; $Gsales[1]=0; $Gsales[2]=0; $Gsales[3]=0; $Gsales[4]=0; $Gsales[5]=0; $Gsales[6]=0;
$Ghours[0]=' 0.0'; $Ghours[1]=' 0.0'; $Ghours[2]=' 0.0'; $Ghours[3]=' 0.0'; $Ghours[4]=' 0.0'; $Ghours[5]=' 0.0'; $Ghours[6]=' 0.0';
$GDsph[0]=0; $GDsph[1]=0; $GDsph[2]=0; $GDsph[3]=0; $GDsph[4]=0; $GDsph[5]=0; $GDsph[6]=0;
$GDsales[0]=0; $GDsales[1]=0; $GDsales[2]=0; $GDsales[3]=0; $GDsales[4]=0; $GDsales[5]=0; $GDsales[6]=0;
$GDhours[0]=0; $GDhours[1]=0; $GDhours[2]=0; $GDhours[3]=0; $GDhours[4]=0; $GDhours[5]=0; $GDhours[6]=0;
$GWEEKsph=0; $GWEEKhours=0; $GWEEKsales=0;
$GMONTHsph=0; $GMONTHhours=0; $GMONTHsales=0;
$GYEARsph=0; $GYEARhours=0; $GYEARsales=0;
$TOTsph[0]=' 0'; $TOTsph[1]=' 0'; $TOTsph[2]=' 0'; $TOTsph[3]=' 0'; $TOTsph[4]=' 0'; $TOTsph[5]=' 0'; $TOTsph[6]=' 0';
$TOTsales[0]=0; $TOTsales[1]=0; $TOTsales[2]=0; $TOTsales[3]=0; $TOTsales[4]=0; $TOTsales[5]=0; $TOTsales[6]=0;
$TOThours[0]=' 0.0'; $TOThours[1]=' 0.0'; $TOThours[2]=' 0.0'; $TOThours[3]=' 0.0'; $TOThours[4]=' 0.0'; $TOThours[5]=' 0.0'; $TOThours[6]=' 0.0';
$TOTDsph[0]=0; $TOTDsph[1]=0; $TOTDsph[2]=0; $TOTDsph[3]=0; $TOTDsph[4]=0; $TOTDsph[5]=0; $TOTDsph[6]=0;
$TOTDsales[0]=0; $TOTDsales[1]=0; $TOTDsales[2]=0; $TOTDsales[3]=0; $TOTDsales[4]=0; $TOTDsales[5]=0; $TOTDsales[6]=0;
$TOTDhours[0]=0; $TOTDhours[1]=0; $TOTDhours[2]=0; $TOTDhours[3]=0; $TOTDhours[4]=0; $TOTDhours[5]=0; $TOTDhours[6]=0;
$TOTWEEKsph=0; $TOTWEEKhours=0; $TOTWEEKsales=0;
$TOTMONTHsph=0; $TOTMONTHhours=0; $TOTMONTHsales=0;
$TOTYEARsph=0; $TOTYEARhours=0; $TOTYEARsales=0;
### GO THROUGH EACH USER ACCOUNT AND FIND OUT THE HOURS AND SPH
$i=0;
foreach (@Duser)
{
$j=0;
$sph[0]=' 0'; $sph[1]=' 0'; $sph[2]=' 0'; $sph[3]=' 0'; $sph[4]=' 0'; $sph[5]=' 0'; $sph[6]=' 0';
$sales[0]=0; $sales[1]=0; $sales[2]=0; $sales[3]=0; $sales[4]=0; $sales[5]=0; $sales[6]=0;
$hours[0]=' 0.0'; $hours[1]=' 0.0'; $hours[2]=' 0.0'; $hours[3]=' 0.0'; $hours[4]=' 0.0'; $hours[5]=' 0.0'; $hours[6]=' 0.0';
$Dsph[0]=0; $Dsph[1]=0; $Dsph[2]=0; $Dsph[3]=0; $Dsph[4]=0; $Dsph[5]=0; $Dsph[6]=0;
$Dsales[0]=0; $Dsales[1]=0; $Dsales[2]=0; $Dsales[3]=0; $Dsales[4]=0; $Dsales[5]=0; $Dsales[6]=0;
$Dhours[0]=0; $Dhours[1]=0; $Dhours[2]=0; $Dhours[3]=0; $Dhours[4]=0; $Dhours[5]=0; $Dhours[6]=0;
$WEEKsph=0; $WEEKhours=0; $WEEKsales=0;
$MONTHsph=0; $MONTHhours=0; $MONTHsales=0;
$YEARsph=0; $YEARhours=0; $YEARsales=0;
$UDtarget[0] = ($TWOAMsec - (86400 * 0) ); # X-0 days in the past
$UDtarget[1] = ($TWOAMsec - (86400 * 1) ); # X-1 days in the past
$UDtarget[2] = ($TWOAMsec - (86400 * 2) ); # X-2 days in the past
$UDtarget[3] = ($TWOAMsec - (86400 * 3) ); # X-3 days in the past
$UDtarget[4] = ($TWOAMsec - (86400 * 4) ); # X-4 days in the past
$UDtarget[5] = ($TWOAMsec - (86400 * 5) ); # X-5 days in the past
$UDtarget[6] = ($TWOAMsec - (86400 * 6) ); # X-6 days in the past
$UDtarget[7] = ($TWOAMsec - (86400 * 7) ); # X-7 days in the past
$prevday = $SETprevday;
### GO THROUGH EACH DAY THIS WEEK UP TO TODAY
while ($prevday >= 0)
{
($Tsec,$Tmin,$Thour,$Tmday,$Tmon,$Tyear,$Twday,$Tyday,$Tisdst) = localtime($UDtarget[$j]);
$Tyear = ($Tyear + 1900);
$Tmon++;
if ($Tmon < 10) {$Tmon = "0$Tmon";}
if ($Tmday < 10) {$Tmday = "0$Tmday";}
if ($Thour < 10) {$Thour = "0$Thour";}
if ($Tmin < 10) {$Tmin = "0$Tmin";}
if ($Tsec < 10) {$Tsec = "0$Tsec";}
$enddate = "$Tyear-$Tmon-$Tmday $Thour:$Tmin:$Tsec";
$k = ($j + 1);
($Tsec,$Tmin,$Thour,$Tmday,$Tmon,$Tyear,$Twday,$Tyday,$Tisdst) = localtime($UDtarget[$k]);
$Tyear = ($Tyear + 1900);
$Tmon++;
if ($Tmon < 10) {$Tmon = "0$Tmon";}
if ($Tmday < 10) {$Tmday = "0$Tmday";}
if ($Thour < 10) {$Thour = "0$Thour";}
if ($Tmin < 10) {$Tmin = "0$Tmin";}
if ($Tsec < 10) {$Tsec = "0$Tsec";}
$begindate = "$Tyear-$Tmon-$Tmday $Thour:$Tmin:$Tsec";
$Dsales[$prevday]=0;
$Dhours[$prevday]=0;
$stmtA = "select sum(talk_sec+pause_sec+wait_sec+dispo_sec) from vicidial_agent_log where event_time <= '$enddate' and event_time >= '$begindate' and pause_sec<48800 and wait_sec<48800 and talk_sec<48800 and dispo_sec<48800 and user='$Duser[$i]' $SQLrestrict limit 1;";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
if ($sthArows > 0)
{
@aryA = $sthA->fetchrow_array;
$Dhours[$prevday] = ($aryA[0]/3600);
}
$stmtA = "select count(*) from vicidial_xfer_log vx,vicidial_closer_log vc where vx.call_date <= '$enddate' and vx.call_date >= '$begindate' and vc.status IN('A1','A2','A3','A4','SALE','UPSELL') and vx.user='$Duser[$i]' and vx.xfercallid=vc.xfercallid;";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
if ($sthArows > 0)
{
@aryA = $sthA->fetchrow_array;
$Dsales[$prevday] = $aryA[0];
}
$Dhours[$prevday] = sprintf("%.2f", $Dhours[$prevday]);
$hours[$prevday] = sprintf("%5s", $Dhours[$prevday]);
$sales[$prevday] = sprintf("%5s", $Dsales[$prevday]);
if ( ($Dsales[$prevday] > 0) && ($Dhours[$prevday] > 0) )
{$Dsph[$prevday] = ($Dsales[$prevday]/$Dhours[$prevday]);}
else
{$Dsph[$prevday] = 0;}
$Dsph[$prevday] = sprintf("%.1f", $Dsph[$prevday]);
$sph[$prevday] = sprintf("%4s", $Dsph[$prevday]);
$GDsales[$prevday] = ($GDsales[$prevday] + $Dsales[$prevday]);
$TOTDsales[$prevday] = ($TOTDsales[$prevday] + $Dsales[$prevday]);
$GDhours[$prevday] = ($GDhours[$prevday] + $Dhours[$prevday]);
$TOTDhours[$prevday] = ($TOTDhours[$prevday] + $Dhours[$prevday]);
$WEEKhours = ($WEEKhours + $Dhours[$prevday]);
$WEEKsales = ($WEEKsales + $Dsales[$prevday]);
if ($DB) {print STDERR "$hours[$prevday] $sales[$prevday] $sph[$prevday] $prevday $begindate\n";}
$prevday = ($prevday - 1);
$j++;
}
$stmtA = "select sum(talk_sec+pause_sec+wait_sec+dispo_sec) from vicidial_agent_log where event_time <= '$endmonth' and event_time >= '$beginmonth' and pause_sec<48800 and wait_sec<48800 and talk_sec<48800 and dispo_sec<48800 and user='$Duser[$i]' $SQLrestrict limit 1;";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
if ($sthArows > 0)
{
@aryA = $sthA->fetchrow_array;
$MONTHhours = ($aryA[0]/3600);
}
$stmtA = "select count(*) from vicidial_xfer_log vx,vicidial_closer_log vc where vx.call_date <= '$endmonth' and vx.call_date >= '$beginmonth' and vc.status IN('A1','A2','A3','A4','SALE','UPSELL') and vx.user='$Duser[$i]' and vx.xfercallid=vc.xfercallid;";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
if ($sthArows > 0)
{
@aryA = $sthA->fetchrow_array;
$MONTHsales = $aryA[0];
}
if ($YTDrun>0)
{
$Ybegin='-01-01 01:00:00';
$stmtA = "select sum(talk_sec+pause_sec+wait_sec+dispo_sec) from vicidial_agent_log where event_time <= '$endmonth' and event_time >= '$TMyear$Ybegin' and pause_sec<48800 and wait_sec<48800 and talk_sec<48800 and dispo_sec<48800 and user='$Duser[$i]' $SQLrestrict limit 1;";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
if ($sthArows > 0)
{
@aryA = $sthA->fetchrow_array;
$YEARhours = ($aryA[0]/3600);
}
$stmtA = "select count(*) from vicidial_xfer_log vx,vicidial_closer_log vc where vx.call_date <= '$endmonth' and vx.call_date >= '$TMyear$Ybegin' and vc.status IN('A1','A2','A3','A4','SALE','UPSELL') and vx.user='$Duser[$i]' and vx.xfercallid=vc.xfercallid;";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
if ($sthArows > 0)
{
@aryA = $sthA->fetchrow_array;
$YEARsales = $aryA[0];
}
if ( ($YEARsales > 0) && ($YEARhours > 0) )
{$YEARsph = ($YEARsales/$YEARhours);}
else
{$YEARsph = 0;}
$GYEARsales = ($GYEARsales + $YEARsales);
$TOTYEARsales = ($TOTYEARsales + $YEARsales);
$GYEARhours = ($GYEARhours + $YEARhours);
$TOTYEARhours = ($TOTYEARhours + $YEARhours);
$YEARhours = sprintf("%.0f", $YEARhours);
$YEARhours = sprintf("%5s", $YEARhours);
$YEARsph = sprintf("%.1f", $YEARsph);
$YEARsph = sprintf("%4s", $YEARsph);
$YEARpipe="$YEARhours|$YEARsph|";
$YEARfixed="$YEARhours $YEARsph ";
}
if ( ($WEEKsales > 0) && ($WEEKhours > 0) )
{$WEEKsph = ($WEEKsales/$WEEKhours);}
else
{$WEEKsph = 0;}
if ( ($MONTHsales > 0) && ($MONTHhours > 0) )
{$MONTHsph = ($MONTHsales/$MONTHhours);}
else
{$MONTHsph = 0;}
$GMONTHsales = ($GMONTHsales + $MONTHsales);
$TOTMONTHsales = ($TOTMONTHsales + $MONTHsales);
$GMONTHhours = ($GMONTHhours + $MONTHhours);
$TOTMONTHhours = ($TOTMONTHhours + $MONTHhours);
print Dout "$shipdate|$Dname[$i]|$Duser[$i]||$Dhours[0]|$Dsph[0]|$Dhours[1]|$Dsph[1]|$Dhours[2]|$Dsph[2]|$Dhours[3]|$Dsph[3]|$Dhours[4]|$Dsph[4]|$Dhours[5]|$Dsph[5]|$Dhours[6]|$Dsph[6]|$WEEKhours|$WEEKsph|$MONTHhours|$MONTHsph|$YEARpipe$Dgroup[$i]\n";
### only print to ASCII fixed-length file if week-to-date and month-to-date hours > 0
if ( ($WEEKhours > 0) || ($MONTHhours > 0) )
{
$WEEKhours = sprintf("%.0f", $WEEKhours);
$WEEKhours = sprintf("%5s", $WEEKhours);
$WEEKsph = sprintf("%.1f", $WEEKsph);
$WEEKsph = sprintf("%4s", $WEEKsph);
$MONTHhours = sprintf("%.0f", $MONTHhours);
$MONTHhours = sprintf("%5s", $MONTHhours);
$MONTHsph = sprintf("%.1f", $MONTHsph);
$MONTHsph = sprintf("%4s", $MONTHsph);
$outline = "$name[$i] $user[$i] $hours[0] $sph[0] $hours[1] $sph[1] $hours[2] $sph[2] $hours[3] $sph[3] $hours[4] $sph[4] $hours[5] $sph[5] $hours[6] $sph[6] $WEEKhours $WEEKsph $MONTHhours $MONTHsph $YEARfixed$group[$i]\n";
print "$outline";
print out "$outline";
}
else
{
print "SKIPPED: $name[$i] $user[$i] $WEEKhours $MONTHhours\n";
}
$Dprevgroup = $Dgroup[$i];
$prevgroup = $group[$i];
$i++;
### BEGIN GROUP SUMMARY STATS
if ($Dgroup[$i] !~ /^$Dprevgroup$/)
{
$prevday = $SETprevday;
### GO THROUGH EACH DAY THIS WEEK UP TO TODAY
while ($prevday >= 0)
{
$GDhours[$prevday] = sprintf("%.2f", $GDhours[$prevday]);
$Ghours[$prevday] = sprintf("%5s", $GDhours[$prevday]); while(length($Ghours[$prevday])>5) {chop($Ghours[$prevday]);}
$Gsales[$prevday] = sprintf("%5s", $GDsales[$prevday]);
if ( ($GDsales[$prevday] > 0) && ($GDhours[$prevday] > 0) )
{$GDsph[$prevday] = ($GDsales[$prevday]/$GDhours[$prevday]);}
else
{$GDsph[$prevday] = 0;}
$GDsph[$prevday] = sprintf("%.1f", $GDsph[$prevday]);
$Gsph[$prevday] = sprintf("%4s", $GDsph[$prevday]);
$GWEEKhours = ($GWEEKhours + $GDhours[$prevday]);
$GWEEKsales = ($GWEEKsales + $GDsales[$prevday]);
$prevday = ($prevday - 1);
}
if ( ($GWEEKsales > 0) && ($GWEEKhours > 0) )
{$GWEEKsph = ($GWEEKsales/$GWEEKhours);}
else
{$GWEEKsph = 0;}
if ( ($GMONTHsales > 0) && ($GMONTHhours > 0) )
{$GMONTHsph = ($GMONTHsales/$GMONTHhours);}
else
{$GMONTHsph = 0;}
if ($YTDrun>0)
{
if ( ($GYEARsales > 0) && ($GYEARhours > 0) )
{$GYEARsph = ($GYEARsales/$GYEARhours);}
else
{$GYEARsph = 0;}
$GYEARhours = sprintf("%.0f", $GYEARhours);
$GYEARhours = sprintf("%5s", $GYEARhours); while(length($GYEARhours)>5) {chop($GYEARhours);}
$GYEARsph = sprintf("%.1f", $GYEARsph);
$GYEARsph = sprintf("%4s", $GYEARsph);
$YEARgpipe="$GYEARhours|$GYEARsph|";
$YEARgfixed=" $GYEARhours $GYEARsph";
}
print Dout "$shipdate|TOTAL $Dprevgroup|||$GDhours[0]|$GDsph[0]|$GDhours[1]|$GDsph[1]|$GDhours[2]|$GDsph[2]|$GDhours[3]|$GDsph[3]|$GDhours[4]|$GDsph[4]|$GDhours[5]|$GDsph[5]|$GDhours[6]|$GDsph[6]|$GWEEKhours|$GWEEKsph|$GMONTHhours|$GMONTHsph|$YEARgpipe\n";
$GWEEKhours = sprintf("%.0f", $GWEEKhours);
$GWEEKhours = sprintf("%5s", $GWEEKhours); while(length($GWEEKhours)>5) {chop($GWEEKhours);}
$GWEEKsph = sprintf("%.1f", $GWEEKsph);
$GWEEKsph = sprintf("%4s", $GWEEKsph);
$GMONTHhours = sprintf("%.0f", $GMONTHhours);
$GMONTHhours = sprintf("%5s", $GMONTHhours); while(length($GMONTHhours)>5) {chop($GMONTHhours);}
$GMONTHsph = sprintf("%.1f", $GMONTHsph);
$GMONTHsph = sprintf("%4s", $GMONTHsph);
$outline = " GROUP TOTAL $prevgroup $Ghours[0] $Gsph[0] $Ghours[1] $Gsph[1] $Ghours[2] $Gsph[2] $Ghours[3] $Gsph[3] $Ghours[4] $Gsph[4] $Ghours[5] $Gsph[5] $Ghours[6] $Gsph[6] $GWEEKhours $GWEEKsph $GMONTHhours $GMONTHsph$YEARgfixed\n\n";
print "$outline";
print out "$outline";
$Gsph[0]=' 0'; $Gsph[1]=' 0'; $Gsph[2]=' 0'; $Gsph[3]=' 0'; $Gsph[4]=' 0'; $Gsph[5]=' 0'; $Gsph[6]=' 0';
$Gsales[0]=0; $Gsales[1]=0; $Gsales[2]=0; $Gsales[3]=0; $Gsales[4]=0; $Gsales[5]=0; $Gsales[6]=0;
$Ghours[0]=' 0.0'; $Ghours[1]=' 0.0'; $Ghours[2]=' 0.0'; $Ghours[3]=' 0.0'; $Ghours[4]=' 0.0'; $Ghours[5]=' 0.0'; $Ghours[6]=' 0.0';
$GDsph[0]=0; $GDsph[1]=0; $GDsph[2]=0; $GDsph[3]=0; $GDsph[4]=0; $GDsph[5]=0; $GDsph[6]=0;
$GDsales[0]=0; $GDsales[1]=0; $GDsales[2]=0; $GDsales[3]=0; $GDsales[4]=0; $GDsales[5]=0; $GDsales[6]=0;
$GDhours[0]=0; $GDhours[1]=0; $GDhours[2]=0; $GDhours[3]=0; $GDhours[4]=0; $GDhours[5]=0; $GDhours[6]=0;
$GWEEKsph=0; $GWEEKhours=0; $GWEEKsales=0;
$GMONTHsph=0; $GMONTHhours=0; $GMONTHsales=0;
$GYEARsph=0; $GYEARhours=0; $GYEARsales=0;
}
}
### END AGENT STATS
### BEGIN TOTAL STATS
$prevday = $SETprevday;
### GO THROUGH EACH DAY THIS WEEK UP TO TODAY
while ($prevday >= 0)
{
$TOTDhours[$prevday] = sprintf("%.0f", $TOTDhours[$prevday]);
$TOThours[$prevday] = sprintf("%5s", $TOTDhours[$prevday]); while(length($TOThours[$prevday])>5) {chop($TOThours[$prevday]);}
$TOTsales[$prevday] = sprintf("%5s", $TOTDsales[$prevday]);
if ( ($TOTDsales[$prevday] > 0) && ($TOTDhours[$prevday] > 0) )
{$TOTDsph[$prevday] = ($TOTDsales[$prevday]/$TOTDhours[$prevday]);}
else
{$TOTDsph[$prevday] = 0;}
$TOTDsph[$prevday] = sprintf("%.1f", $TOTDsph[$prevday]);
$TOTsph[$prevday] = sprintf("%4s", $TOTDsph[$prevday]);
$TOTWEEKhours = ($TOTWEEKhours + $TOTDhours[$prevday]);
$TOTWEEKsales = ($TOTWEEKsales + $TOTDsales[$prevday]);
$prevday = ($prevday - 1);
}
if ( ($TOTWEEKsales > 0) && ($TOTWEEKhours > 0) )
{$TOTWEEKsph = ($TOTWEEKsales/$TOTWEEKhours);}
else
{$TOTWEEKsph = 0;}
if ( ($TOTMONTHsales > 0) && ($TOTMONTHhours > 0) )
{$TOTMONTHsph = ($TOTMONTHsales/$TOTMONTHhours);}
else
{$TOTMONTHsph = 0;}
if ($YTDrun>0)
{
if ( ($TOTMONTHsales > 0) && ($TOTMONTHhours > 0) )
{$TOTMONTHsph = ($TOTMONTHsales/$TOTMONTHhours);}
else
{$TOTMONTHsph = 0;}
$TOTYEARhours = sprintf("%.0f", $TOTYEARhours);
$TOTYEARhours = sprintf("%5s", $TOTYEARhours); while(length($TOTYEARhours)>5) {chop($TOTYEARhours);}
$TOTYEARsph = sprintf("%.1f", $TOTYEARsph);
$TOTYEARsph = sprintf("%4s", $TOTYEARsph);
$YEARtpipe="$TOTYEARhours|$TOTYEARsph|";
$YEARtfixed=" $TOTYEARhours $TOTYEARsph";
}
print Dout "$shipdate|TOTAL|||$TOTDhours[0]|$TOTDsph[0]|$TOTDhours[1]|$TOTDsph[1]|$TOTDhours[2]|$TOTDsph[2]|$TOTDhours[3]|$TOTDsph[3]|$TOTDhours[4]|$TOTDsph[4]|$TOTDhours[5]|$TOTDsph[5]|$TOTDhours[6]|$TOTDsph[6]|$TOTWEEKhours|$TOTWEEKsph|$TOTMONTHhours|$TOTMONTHsph|$YEARtpipe\n";
$TOTWEEKhours = sprintf("%.0f", $TOTWEEKhours);
$TOTWEEKhours = sprintf("%5s", $TOTWEEKhours); while(length($TOTWEEKhours)>5) {chop($TOTWEEKhours);}
$TOTWEEKsph = sprintf("%.1f", $TOTWEEKsph);
$TOTWEEKsph = sprintf("%4s", $TOTWEEKsph);
$TOTMONTHhours = sprintf("%.0f", $TOTMONTHhours);
$TOTMONTHhours = sprintf("%5s", $TOTMONTHhours); while(length($TOTMONTHhours)>5) {chop($TOTMONTHhours);}
$TOTMONTHsph = sprintf("%.1f", $TOTMONTHsph);
$TOTMONTHsph = sprintf("%4s", $TOTMONTHsph);
$outline = " TOTAL $TOThours[0] $TOTsph[0] $TOThours[1] $TOTsph[1] $TOThours[2] $TOTsph[2] $TOThours[3] $TOTsph[3] $TOThours[4] $TOTsph[4] $TOThours[5] $TOTsph[5] $TOThours[6] $TOTsph[6] $TOTWEEKhours $TOTWEEKsph $TOTMONTHhours $TOTMONTHsph$YEARtfixed\n";
print "$outline";
print out "$outline";
exit;
### TOTAL ACTIVE TIME
$active = ($aryA[3] + $aryA[4] + $aryA[5] + $aryA[6]);
$TIME_S = $active;
$TIME_H = int($TIME_S / 3600);
$TIME_S = ($TIME_S - ($TIME_H * 3600));
$TIME_M = int($TIME_S / 60);
$TIME_S = ($TIME_S - ($TIME_M * 60));
if ($TIME_S < 10) {$TIME_S = "0$TIME_S";}
if ($TIME_M < 10) {$TIME_M = "0$TIME_M";}
$TIME_HMS = "$TIME_H:$TIME_M:$TIME_S";
$Dactive = $TIME_HMS;
$active = sprintf("%9s", $TIME_HMS);
### TOTAL TALK TIME
$TIME_S = $aryA[3];
$TIME_H = int($TIME_S / 3600);
$TIME_S = ($TIME_S - ($TIME_H * 3600));
$TIME_M = int($TIME_S / 60);
$TIME_S = ($TIME_S - ($TIME_M * 60));
if ($TIME_S < 10) {$TIME_S = "0$TIME_S";}
if ($TIME_M < 10) {$TIME_M = "0$TIME_M";}
$TIME_HMS = "$TIME_H:$TIME_M:$TIME_S";
$Dtalk = $TIME_HMS;
$talk = sprintf("%9s", $TIME_HMS);
### TOTAL PAUSE TIME
$TIME_S = $aryA[4];
$TIME_H = int($TIME_S / 3600);
$TIME_S = ($TIME_S - ($TIME_H * 3600));
$TIME_M = int($TIME_S / 60);
$TIME_S = ($TIME_S - ($TIME_M * 60));
if ($TIME_S < 10) {$TIME_S = "0$TIME_S";}
if ($TIME_M < 10) {$TIME_M = "0$TIME_M";}
$TIME_HMS = "$TIME_H:$TIME_M:$TIME_S";
$Dpause = $TIME_HMS;
$pause = sprintf("%9s", $TIME_HMS);
### TOTAL WAIT TIME
$TIME_S = $aryA[5];
$TIME_H = int($TIME_S / 3600);
$TIME_S = ($TIME_S - ($TIME_H * 3600));
$TIME_M = int($TIME_S / 60);
$TIME_S = ($TIME_S - ($TIME_M * 60));
if ($TIME_S < 10) {$TIME_S = "0$TIME_S";}
if ($TIME_M < 10) {$TIME_M = "0$TIME_M";}
$TIME_HMS = "$TIME_H:$TIME_M:$TIME_S";
$Dwait = $TIME_HMS;
$wait = sprintf("%9s", $TIME_HMS);
### TOTAL DISPO TIME
$TIME_S = $aryA[6];
$TIME_H = int($TIME_S / 3600);
$TIME_S = ($TIME_S - ($TIME_H * 3600));
$TIME_M = int($TIME_S / 60);
$TIME_S = ($TIME_S - ($TIME_M * 60));
if ($TIME_S < 10) {$TIME_S = "0$TIME_S";}
if ($TIME_M < 10) {$TIME_M = "0$TIME_M";}
$TIME_HMS = "$TIME_H:$TIME_M:$TIME_S";
$Ddispo = $TIME_HMS;
$dispo = sprintf("%9s", $TIME_HMS);
$stmtB = "select event_time,UNIX_TIMESTAMP(event_time) from $vicidial_agent_log where event_time <= '$shipdate 23:59:59' and event_time >= '$begindate 00:00:00' and user='$aryA[2]' order by event_time limit 1;";
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
$sthB->execute or die "executing: $stmtA ", $dbhB->errstr;
@aryB = $sthB->fetchrow_array;
$Dfirst_time = $aryB[0];
$first_time = sprintf("%21s", $aryB[0]);
$Dfirst_log = $aryB[1];
$first_log = $aryB[1];
$stmtB = "select event_time,UNIX_TIMESTAMP(event_time) from $vicidial_agent_log where event_time <= '$shipdate 23:59:59' and event_time >= '$begindate 00:00:00' and user='$aryA[2]' order by event_time desc limit 1;";
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
$sthB->execute or die "executing: $stmtA ", $dbhB->errstr;
@aryB = $sthB->fetchrow_array;
$Dlast_time = $aryB[0];
$last_time = sprintf("%21s", $aryB[0]);
$Dlast_log = $aryB[1];
$last_log = $aryB[1];
$TIME_S = ($last_log - $first_log);
$TIME_H = int($TIME_S / 3600);
$TIME_S = ($TIME_S - ($TIME_H * 3600));
$TIME_M = int($TIME_S / 60);
$TIME_S = ($TIME_S - ($TIME_M * 60));
if ($TIME_S < 10) {$TIME_S = "0$TIME_S";}
if ($TIME_M < 10) {$TIME_M = "0$TIME_M";}
$TIME_HMS = "$TIME_H:$TIME_M:$TIME_S";
$TIME_HMS = "N/A";
$Dlogin_time = $TIME_HMS;
$login_time = sprintf("%9s", $TIME_HMS);
print Dout "$shipdate|$Dname|$Duser|$Dcalls|$Dtalk|$Dpause|$Dwait|$Ddispo|$Dactive|$Dlogin_time|$Dfirst_time|$Dlast_time\n";
print out "$name$user$calls$talk$pause$wait$dispo$active$login_time$first_time$last_time\n";
print "$name$user$calls$talk$pause$wait$dispo$active$login_time$first_time$last_time\n";
close(Dout);
close(out);
### calculate time to run script ###
$secY = time();
$secZ = ($secY - $secX);
$secZm = ($secZ /60);
print "script execution time in seconds: $secZ minutes: $secZm\n";
exit;
bin/AST_agent_daily_SPHfront.pl
+662
View File
@@ -0,0 +1,662 @@
#!/usr/bin/perl
# AST_agent_daily_SPH.pl
#
# This script is designed to gather stats for all agent activity over the course
# of a week and print it in an ASCI text file to be placed
# on a web server for viewing.
#
# This script assumes a work day to be from 2AM to 2AM
#
# Place in the crontab and run every night at 02:00AM for the previous day's stats
# 0 2 * * * /home/cron/AST_agent_daily_SPH.pl
#
# CHANGES
# 80114-1221 - First version
# 80116-0941 - only print agents with week and month hours of 0 to PIPE file
#
$txt = '.txt';
$US = '_';
$MT[0] = '';
### begin parsing run-time options ###
if (length($ARGV[0])>1)
{
$i=0;
while ($#ARGV >= $i)
{
$args = "$args $ARGV[$i]";
$i++;
}
if ($args =~ /--help/i)
{
print "allowed run time options:\n [-q] = quiet\n [-t] = test\n\n";
exit;
}
else
{
if ($args =~ /--debug/i)
{
$DB=1;
print "\n-----DEBUG MODE-----\n\n";
}
if ($args =~ /-q/i)
{
$q=1; $Q=1;
}
if ($args =~ /-t/i)
{
$T=1; $TEST=1;
print "\n-----TESTING-----\n\n";
}
}
}
else
{
print "no command line options set\n";
}
### end parsing run-time options ###
$secX = time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$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";}
$filedate = "$year$mon$mday-$hour$min$sec";
$ABIfiledate = "$mon-$mday-$year$us$hour$min$sec";
$shipdate = "$year-$mon-$mday";
$datestamp = "$year/$mon/$mday $hour:$min";
use Time::Local;
### find epoch of 2AM today
$TWOAMsec = ( ($secX - ($sec + ($min * 60) + ($hour * 3600) ) ) + 7200);
### find epoch of 2AM yesterday
$TWOAMsecY = ($TWOAMsec - 86400);
($Tsec,$Tmin,$Thour,$Tmday,$Tmon,$Tyear,$Twday,$Tyday,$Tisdst) = localtime($TWOAMsecY);
$Tyear = ($Tyear + 1900);
$Tmon++;
if ($Tmon < 10) {$Tmon = "0$Tmon";}
if ($Tmday < 10) {$Tmday = "0$Tmday";}
if ($Thour < 10) {$Thour = "0$Thour";}
if ($Tmin < 10) {$Tmin = "0$Tmin";}
if ($Tsec < 10) {$Tsec = "0$Tsec";}
$begindate = "$Tyear-$Tmon-$Tmday $Thour:$Tmin:$Tsec";
### find epoch of 2AM the first day of the month
$BMONTHsec = ($TWOAMsecY - (86400 * ($Tmday - 1) ) );
### find epoch of 2AM the first day of next month
if ($Tmon>11) {$Tmon=0; $Tyear++;}
$EMONTHsec = timelocal($Tsec,$Tmin,$Thour,1,$Tmon,$Tyear);
if ($Twday==0) {$day='Sunday '; $SETprevday = 6;}
if ($Twday==1) {$day='Monday '; $SETprevday = 0;}
if ($Twday==2) {$day='Tuesday '; $SETprevday = 1;}
if ($Twday==3) {$day='Wednesday'; $SETprevday = 2;}
if ($Twday==4) {$day='Thursday '; $SETprevday = 3;}
if ($Twday==5) {$day='Friday '; $SETprevday = 4;}
if ($Twday==6) {$day='Saturday '; $SETprevday = 5;}
($TMsec,$TMmin,$TMhour,$TMmday,$TMmon,$TMyear,$TMwday,$TMyday,$TMisdst) = localtime($BMONTHsec);
$TMyear = ($TMyear + 1900);
$TMmon++;
if ($TMmon < 10) {$TMmon = "0$TMmon";}
if ($TMmday < 10) {$TMmday = "0$TMmday";}
if ($TMhour < 10) {$TMhour = "0$TMhour";}
if ($TMmin < 10) {$TMmin = "0$TMmin";}
if ($TMsec < 10) {$TMsec = "0$TMsec";}
$beginmonth = "$TMyear-$TMmon-$TMmday $TMhour:$TMmin:$TMsec";
($TMsec,$TMmin,$TMhour,$TMmday,$TMmon,$TMyear,$TMwday,$TMyday,$TMisdst) = localtime($EMONTHsec);
$TMyear = ($TMyear + 1900);
$TMmon++;
if ($TMmon < 10) {$TMmon = "0$TMmon";}
if ($TMmday < 10) {$TMmday = "0$TMmday";}
if ($TMhour < 10) {$TMhour = "0$TMhour";}
if ($TMmin < 10) {$TMmin = "0$TMmin";}
if ($TMsec < 10) {$TMsec = "0$TMsec";}
$endmonth = "$TMyear-$TMmon-$TMmday $TMhour:$TMmin:$TMsec";
#print "|$ABIfiledate|$begindate|$beginmonth|$endmonth|\n";
#exit;
print "\n\n\n\n\n\n\n\n\n\n\n\n-- AST_agent_daily_SPH.pl --\n\n";
print "This program is designed to print sales-per-hour(SPH) to a file for agents' activity for the current week. \n\n";
# default path to astguiclient configuration file:
$PATHconf = '/etc/astguiclient.conf';
open(conf, "$PATHconf") || die "can't open $PATHconf: $!\n";
@conf = <conf>;
close(conf);
$i=0;
foreach(@conf)
{
$line = $conf[$i];
$line =~ s/ |>|\n|\r|\t|\#.*|;.*//gi;
if ( ($line =~ /^PATHhome/) && ($CLIhome < 1) )
{$PATHhome = $line; $PATHhome =~ s/.*=//gi;}
if ( ($line =~ /^PATHlogs/) && ($CLIlogs < 1) )
{$PATHlogs = $line; $PATHlogs =~ s/.*=//gi;}
if ( ($line =~ /^PATHagi/) && ($CLIagi < 1) )
{$PATHagi = $line; $PATHagi =~ s/.*=//gi;}
if ( ($line =~ /^PATHweb/) && ($CLIweb < 1) )
{$PATHweb = $line; $PATHweb =~ s/.*=//gi;}
if ( ($line =~ /^PATHsounds/) && ($CLIsounds < 1) )
{$PATHsounds = $line; $PATHsounds =~ s/.*=//gi;}
if ( ($line =~ /^PATHmonitor/) && ($CLImonitor < 1) )
{$PATHmonitor = $line; $PATHmonitor =~ s/.*=//gi;}
if ( ($line =~ /^VARserver_ip/) && ($CLIserver_ip < 1) )
{$VARserver_ip = $line; $VARserver_ip =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_server/) && ($CLIDB_server < 1) )
{$VARDB_server = $line; $VARDB_server =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_database/) && ($CLIDB_database < 1) )
{$VARDB_database = $line; $VARDB_database =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_user/) && ($CLIDB_user < 1) )
{$VARDB_user = $line; $VARDB_user =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_pass/) && ($CLIDB_pass < 1) )
{$VARDB_pass = $line; $VARDB_pass =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_port/) && ($CLIDB_port < 1) )
{$VARDB_port = $line; $VARDB_port =~ s/.*=//gi;}
$i++;
}
# Customized Variables
$server_ip = $VARserver_ip; # Asterisk server IP
$outfile = "AGENT_SPH_$Tyear-$Tmon-$Tmday$txt";
$Doutfile = "AGENT_SPH_PIPE_$Tyear-$Tmon-$Tmday$txt";
### open the X out file for writing ###
open(out, ">$PATHweb/vicidial/agent_reports/$outfile")
|| die "Can't open $outfile: $!\n";
open(Dout, ">$PATHweb/vicidial/agent_reports/$Doutfile")
|| die "Can't open $Doutfile: $!\n";
if (!$VARDB_port) {$VARDB_port='3306';}
use DBI;
$dbhA = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass")
or die "Couldn't connect to database: " . DBI->errstr;
$dbhB = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass")
or die "Couldn't connect to database: " . DBI->errstr;
#$vicidial_agent_log = 'vicidial_agent_log_archive';
$vicidial_agent_log = 'vicidial_agent_log';
###########################################################################
########### PAST WEEK STAT GATHERING LOOP #################################
###########################################################################
print Dout "DATE|AGENT|USER|MON HOURS|MON SPH|TUE HOURS|TUE SPH|WED HOURS|WED SPH|THU HOURS|THU SPH|FRI HOURS|FRI SPH|SAT HOURS|SAT SPH|SUN HOURS|SUN SPH|WEEK HOURS|WEEK SPH|MONTH HOURS|MONTH SPH|GROUP|\n";
$outline = "REPORT: SPH $Tyear-$Tmon-$Tmday\n\n";
$outline.= " MONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY SATURDAY SUNDAY WEEK MONTH\n";
$outline.= "AGENT USER HRS SPH HRS SPH HRS SPH HRS SPH HRS SPH HRS SPH HRS SPH HRS SPH HRS SPH GROUP \n";
print "$outline";
print out "$outline";
### FIND ALL ACTIVE USERS IN THE SYSTEM IN('1090','1102','1245')='1090'
$stmtA = "select full_name,user,user_group from vicidial_users order by user_group,full_name limit 1000;";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
$rec_count=0;
while ($sthArows > $rec_count)
{
@aryA = $sthA->fetchrow_array;
$Dname[$rec_count] = $aryA[0];
$Duser[$rec_count] = $aryA[1];
$Dgroup[$rec_count] = $aryA[2];
$name[$rec_count] = sprintf("%-20s", $aryA[0]); while(length($name[$rec_count])>20) {chop($name[$rec_count]);}
$user[$rec_count] = sprintf("%-8s", $aryA[1]);
$group[$rec_count] = sprintf("%-8s", $aryA[2]);
$rec_count++;
}
$sthA->finish();
$Gsph[0]=' 0'; $Gsph[1]=' 0'; $Gsph[2]=' 0'; $Gsph[3]=' 0'; $Gsph[4]=' 0'; $Gsph[5]=' 0'; $Gsph[6]=' 0';
$Gsales[0]=0; $Gsales[1]=0; $Gsales[2]=0; $Gsales[3]=0; $Gsales[4]=0; $Gsales[5]=0; $Gsales[6]=0;
$Ghours[0]=' 0.0'; $Ghours[1]=' 0.0'; $Ghours[2]=' 0.0'; $Ghours[3]=' 0.0'; $Ghours[4]=' 0.0'; $Ghours[5]=' 0.0'; $Ghours[6]=' 0.0';
$GDsph[0]=0; $GDsph[1]=0; $GDsph[2]=0; $GDsph[3]=0; $GDsph[4]=0; $GDsph[5]=0; $GDsph[6]=0;
$GDsales[0]=0; $GDsales[1]=0; $GDsales[2]=0; $GDsales[3]=0; $GDsales[4]=0; $GDsales[5]=0; $GDsales[6]=0;
$GDhours[0]=0; $GDhours[1]=0; $GDhours[2]=0; $GDhours[3]=0; $GDhours[4]=0; $GDhours[5]=0; $GDhours[6]=0;
$GWEEKsph=0; $GWEEKhours=0; $GWEEKsales=0;
$GMONTHsph=0; $GMONTHhours=0; $GMONTHsales=0;
$TOTsph[0]=' 0'; $TOTsph[1]=' 0'; $TOTsph[2]=' 0'; $TOTsph[3]=' 0'; $TOTsph[4]=' 0'; $TOTsph[5]=' 0'; $TOTsph[6]=' 0';
$TOTsales[0]=0; $TOTsales[1]=0; $TOTsales[2]=0; $TOTsales[3]=0; $TOTsales[4]=0; $TOTsales[5]=0; $TOTsales[6]=0;
$TOThours[0]=' 0.0'; $TOThours[1]=' 0.0'; $TOThours[2]=' 0.0'; $TOThours[3]=' 0.0'; $TOThours[4]=' 0.0'; $TOThours[5]=' 0.0'; $TOThours[6]=' 0.0';
$TOTDsph[0]=0; $TOTDsph[1]=0; $TOTDsph[2]=0; $TOTDsph[3]=0; $TOTDsph[4]=0; $TOTDsph[5]=0; $TOTDsph[6]=0;
$TOTDsales[0]=0; $TOTDsales[1]=0; $TOTDsales[2]=0; $TOTDsales[3]=0; $TOTDsales[4]=0; $TOTDsales[5]=0; $TOTDsales[6]=0;
$TOTDhours[0]=0; $TOTDhours[1]=0; $TOTDhours[2]=0; $TOTDhours[3]=0; $TOTDhours[4]=0; $TOTDhours[5]=0; $TOTDhours[6]=0;
$TOTWEEKsph=0; $TOTWEEKhours=0; $TOTWEEKsales=0;
$TOTMONTHsph=0; $TOTMONTHhours=0; $TOTMONTHsales=0;
### GO THROUGH EACH USER ACCOUNT AND FIND OUT THE HOURS AND SPH
$i=0;
foreach (@Duser)
{
$j=0;
$sph[0]=' 0'; $sph[1]=' 0'; $sph[2]=' 0'; $sph[3]=' 0'; $sph[4]=' 0'; $sph[5]=' 0'; $sph[6]=' 0';
$sales[0]=0; $sales[1]=0; $sales[2]=0; $sales[3]=0; $sales[4]=0; $sales[5]=0; $sales[6]=0;
$hours[0]=' 0.0'; $hours[1]=' 0.0'; $hours[2]=' 0.0'; $hours[3]=' 0.0'; $hours[4]=' 0.0'; $hours[5]=' 0.0'; $hours[6]=' 0.0';
$Dsph[0]=0; $Dsph[1]=0; $Dsph[2]=0; $Dsph[3]=0; $Dsph[4]=0; $Dsph[5]=0; $Dsph[6]=0;
$Dsales[0]=0; $Dsales[1]=0; $Dsales[2]=0; $Dsales[3]=0; $Dsales[4]=0; $Dsales[5]=0; $Dsales[6]=0;
$Dhours[0]=0; $Dhours[1]=0; $Dhours[2]=0; $Dhours[3]=0; $Dhours[4]=0; $Dhours[5]=0; $Dhours[6]=0;
$WEEKsph=0; $WEEKhours=0; $WEEKsales=0;
$MONTHsph=0; $MONTHhours=0; $MONTHsales=0;
$UDtarget[0] = ($TWOAMsec - (86400 * 0) ); # X-0 days in the past
$UDtarget[1] = ($TWOAMsec - (86400 * 1) ); # X-1 days in the past
$UDtarget[2] = ($TWOAMsec - (86400 * 2) ); # X-2 days in the past
$UDtarget[3] = ($TWOAMsec - (86400 * 3) ); # X-3 days in the past
$UDtarget[4] = ($TWOAMsec - (86400 * 4) ); # X-4 days in the past
$UDtarget[5] = ($TWOAMsec - (86400 * 5) ); # X-5 days in the past
$UDtarget[6] = ($TWOAMsec - (86400 * 6) ); # X-6 days in the past
$UDtarget[7] = ($TWOAMsec - (86400 * 7) ); # X-7 days in the past
$prevday = $SETprevday;
### GO THROUGH EACH DAY THIS WEEK UP TO TODAY
while ($prevday >= 0)
{
($Tsec,$Tmin,$Thour,$Tmday,$Tmon,$Tyear,$Twday,$Tyday,$Tisdst) = localtime($UDtarget[$j]);
$Tyear = ($Tyear + 1900);
$Tmon++;
if ($Tmon < 10) {$Tmon = "0$Tmon";}
if ($Tmday < 10) {$Tmday = "0$Tmday";}
if ($Thour < 10) {$Thour = "0$Thour";}
if ($Tmin < 10) {$Tmin = "0$Tmin";}
if ($Tsec < 10) {$Tsec = "0$Tsec";}
$enddate = "$Tyear-$Tmon-$Tmday $Thour:$Tmin:$Tsec";
$k = ($j + 1);
($Tsec,$Tmin,$Thour,$Tmday,$Tmon,$Tyear,$Twday,$Tyday,$Tisdst) = localtime($UDtarget[$k]);
$Tyear = ($Tyear + 1900);
$Tmon++;
if ($Tmon < 10) {$Tmon = "0$Tmon";}
if ($Tmday < 10) {$Tmday = "0$Tmday";}
if ($Thour < 10) {$Thour = "0$Thour";}
if ($Tmin < 10) {$Tmin = "0$Tmin";}
if ($Tsec < 10) {$Tsec = "0$Tsec";}
$begindate = "$Tyear-$Tmon-$Tmday $Thour:$Tmin:$Tsec";
$Dsales[$prevday]=0;
$Dhours[$prevday]=0;
$stmtA = "select sum(talk_sec+pause_sec+wait_sec+dispo_sec) from vicidial_agent_log where event_time <= '$enddate' and event_time >= '$begindate' and pause_sec<48800 and wait_sec<48800 and talk_sec<48800 and dispo_sec<48800 and user='$Duser[$i]' limit 1;";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
if ($sthArows > 0)
{
@aryA = $sthA->fetchrow_array;
$Dhours[$prevday] = ($aryA[0]/3600);
}
$stmtA = "select count(*) from vicidial_log where call_date <= '$enddate' and call_date >= '$begindate' and status IN('A1','A2','A3','A4','SALE','UPSELL') and user='$Duser[$i]';";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
if ($sthArows > 0)
{
@aryA = $sthA->fetchrow_array;
$Dsales[$prevday] = $aryA[0];
}
$Dhours[$prevday] = sprintf("%.2f", $Dhours[$prevday]);
$hours[$prevday] = sprintf("%5s", $Dhours[$prevday]);
$sales[$prevday] = sprintf("%5s", $Dsales[$prevday]);
if ( ($Dsales[$prevday] > 0) && ($Dhours[$prevday] > 0) )
{$Dsph[$prevday] = ($Dsales[$prevday]/$Dhours[$prevday]);}
else
{$Dsph[$prevday] = 0;}
$Dsph[$prevday] = sprintf("%.1f", $Dsph[$prevday]);
$sph[$prevday] = sprintf("%4s", $Dsph[$prevday]);
$GDsales[$prevday] = ($GDsales[$prevday] + $Dsales[$prevday]);
$TOTDsales[$prevday] = ($TOTDsales[$prevday] + $Dsales[$prevday]);
$GDhours[$prevday] = ($GDhours[$prevday] + $Dhours[$prevday]);
$TOTDhours[$prevday] = ($TOTDhours[$prevday] + $Dhours[$prevday]);
$WEEKhours = ($WEEKhours + $Dhours[$prevday]);
$WEEKsales = ($WEEKsales + $Dsales[$prevday]);
if ($DB) {print STDERR "$hours[$prevday] $sales[$prevday] $sph[$prevday] $prevday $begindate\n";}
$prevday = ($prevday - 1);
$j++;
}
$stmtA = "select sum(talk_sec+pause_sec+wait_sec+dispo_sec) from vicidial_agent_log where event_time <= '$endmonth' and event_time >= '$beginmonth' and pause_sec<48800 and wait_sec<48800 and talk_sec<48800 and dispo_sec<48800 and user='$Duser[$i]' limit 1;";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
if ($sthArows > 0)
{
@aryA = $sthA->fetchrow_array;
$MONTHhours = ($aryA[0]/3600);
}
$stmtA = "select count(*) from vicidial_log where call_date <= '$endmonth' and call_date >= '$beginmonth' and status IN('A1','A2','A3','A4','SALE','UPSELL') and user='$Duser[$i]';";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
if ($sthArows > 0)
{
@aryA = $sthA->fetchrow_array;
$MONTHsales = $aryA[0];
}
if ( ($WEEKsales > 0) && ($WEEKhours > 0) )
{$WEEKsph = ($WEEKsales/$WEEKhours);}
else
{$WEEKsph = 0;}
if ( ($MONTHsales > 0) && ($MONTHhours > 0) )
{$MONTHsph = ($MONTHsales/$MONTHhours);}
else
{$MONTHsph = 0;}
$GMONTHsales = ($GMONTHsales + $MONTHsales);
$TOTMONTHsales = ($TOTMONTHsales + $MONTHsales);
$GMONTHhours = ($GMONTHhours + $MONTHhours);
$TOTMONTHhours = ($TOTMONTHhours + $MONTHhours);
print Dout "$shipdate|$Dname[$i]|$Duser[$i]||$Dhours[0]|$Dsph[0]|$Dhours[1]|$Dsph[1]|$Dhours[2]|$Dsph[2]|$Dhours[3]|$Dsph[3]|$Dhours[4]|$Dsph[4]|$Dhours[5]|$Dsph[5]|$Dhours[6]|$Dsph[6]|$WEEKhours|$WEEKsph|$MONTHhours|$MONTHsph|$Dgroup[$i]\n";
### only print to ASCII fixed-length file if week-to-date and month-to-date hours > 0
if ( ($WEEKhours > 0) || ($MONTHhours > 0) )
{
$WEEKhours = sprintf("%.0f", $WEEKhours);
$WEEKhours = sprintf("%5s", $WEEKhours);
$WEEKsph = sprintf("%.1f", $WEEKsph);
$WEEKsph = sprintf("%4s", $WEEKsph);
$MONTHhours = sprintf("%.0f", $MONTHhours);
$MONTHhours = sprintf("%5s", $MONTHhours);
$MONTHsph = sprintf("%.1f", $MONTHsph);
$MONTHsph = sprintf("%4s", $MONTHsph);
$outline = "$name[$i] $user[$i] $hours[0] $sph[0] $hours[1] $sph[1] $hours[2] $sph[2] $hours[3] $sph[3] $hours[4] $sph[4] $hours[5] $sph[5] $hours[6] $sph[6] $WEEKhours $WEEKsph $MONTHhours $MONTHsph $group[$i]\n";
print "$outline";
print out "$outline";
}
else
{
print "SKIPPED: $name[$i] $user[$i] $WEEKhours $MONTHhours\n";
}
$Dprevgroup = $Dgroup[$i];
$prevgroup = $group[$i];
$i++;
### BEGIN GROUP SUMMARY STATS
if ($Dgroup[$i] !~ /^$Dprevgroup$/)
{
$prevday = $SETprevday;
### GO THROUGH EACH DAY THIS WEEK UP TO TODAY
while ($prevday >= 0)
{
$GDhours[$prevday] = sprintf("%.2f", $GDhours[$prevday]);
$Ghours[$prevday] = sprintf("%5s", $GDhours[$prevday]); while(length($Ghours[$prevday])>5) {chop($Ghours[$prevday]);}
$Gsales[$prevday] = sprintf("%5s", $GDsales[$prevday]);
if ( ($GDsales[$prevday] > 0) && ($GDhours[$prevday] > 0) )
{$GDsph[$prevday] = ($GDsales[$prevday]/$GDhours[$prevday]);}
else
{$GDsph[$prevday] = 0;}
$GDsph[$prevday] = sprintf("%.1f", $GDsph[$prevday]);
$Gsph[$prevday] = sprintf("%4s", $GDsph[$prevday]);
$GWEEKhours = ($GWEEKhours + $GDhours[$prevday]);
$GWEEKsales = ($GWEEKsales + $GDsales[$prevday]);
$prevday = ($prevday - 1);
}
if ( ($GWEEKsales > 0) && ($GWEEKhours > 0) )
{$GWEEKsph = ($GWEEKsales/$GWEEKhours);}
else
{$GWEEKsph = 0;}
if ( ($GMONTHsales > 0) && ($GMONTHhours > 0) )
{$GMONTHsph = ($GMONTHsales/$GMONTHhours);}
else
{$GMONTHsph = 0;}
print Dout "$shipdate|TOTAL $Dprevgroup|||$GDhours[0]|$GDsph[0]|$GDhours[1]|$GDsph[1]|$GDhours[2]|$GDsph[2]|$GDhours[3]|$GDsph[3]|$GDhours[4]|$GDsph[4]|$GDhours[5]|$GDsph[5]|$GDhours[6]|$GDsph[6]|$GWEEKhours|$GWEEKsph|$GMONTHhours|$GMONTHsph|\n";
$GWEEKhours = sprintf("%.0f", $GWEEKhours);
$GWEEKhours = sprintf("%5s", $GWEEKhours); while(length($GWEEKhours)>5) {chop($GWEEKhours);}
$GWEEKsph = sprintf("%.1f", $GWEEKsph);
$GWEEKsph = sprintf("%4s", $GWEEKsph);
$GMONTHhours = sprintf("%.0f", $GMONTHhours);
$GMONTHhours = sprintf("%5s", $GMONTHhours); while(length($GMONTHhours)>5) {chop($GMONTHhours);}
$GMONTHsph = sprintf("%.1f", $GMONTHsph);
$GMONTHsph = sprintf("%4s", $GMONTHsph);
$outline = " GROUP TOTAL $prevgroup $Ghours[0] $Gsph[0] $Ghours[1] $Gsph[1] $Ghours[2] $Gsph[2] $Ghours[3] $Gsph[3] $Ghours[4] $Gsph[4] $Ghours[5] $Gsph[5] $Ghours[6] $Gsph[6] $GWEEKhours $GWEEKsph $GMONTHhours $GMONTHsph\n\n";
print "$outline";
print out "$outline";
$Gsph[0]=' 0'; $Gsph[1]=' 0'; $Gsph[2]=' 0'; $Gsph[3]=' 0'; $Gsph[4]=' 0'; $Gsph[5]=' 0'; $Gsph[6]=' 0';
$Gsales[0]=0; $Gsales[1]=0; $Gsales[2]=0; $Gsales[3]=0; $Gsales[4]=0; $Gsales[5]=0; $Gsales[6]=0;
$Ghours[0]=' 0.0'; $Ghours[1]=' 0.0'; $Ghours[2]=' 0.0'; $Ghours[3]=' 0.0'; $Ghours[4]=' 0.0'; $Ghours[5]=' 0.0'; $Ghours[6]=' 0.0';
$GDsph[0]=0; $GDsph[1]=0; $GDsph[2]=0; $GDsph[3]=0; $GDsph[4]=0; $GDsph[5]=0; $GDsph[6]=0;
$GDsales[0]=0; $GDsales[1]=0; $GDsales[2]=0; $GDsales[3]=0; $GDsales[4]=0; $GDsales[5]=0; $GDsales[6]=0;
$GDhours[0]=0; $GDhours[1]=0; $GDhours[2]=0; $GDhours[3]=0; $GDhours[4]=0; $GDhours[5]=0; $GDhours[6]=0;
$GWEEKsph=0; $GWEEKhours=0; $GWEEKsales=0;
$GMONTHsph=0; $GMONTHhours=0; $GMONTHsales=0;
}
}
### END AGENT STATS
### BEGIN TOTAL STATS
$prevday = $SETprevday;
### GO THROUGH EACH DAY THIS WEEK UP TO TODAY
while ($prevday >= 0)
{
$TOTDhours[$prevday] = sprintf("%.0f", $TOTDhours[$prevday]);
$TOThours[$prevday] = sprintf("%5s", $TOTDhours[$prevday]); while(length($TOThours[$prevday])>5) {chop($TOThours[$prevday]);}
$TOTsales[$prevday] = sprintf("%5s", $TOTDsales[$prevday]);
if ( ($TOTDsales[$prevday] > 0) && ($TOTDhours[$prevday] > 0) )
{$TOTDsph[$prevday] = ($TOTDsales[$prevday]/$TOTDhours[$prevday]);}
else
{$TOTDsph[$prevday] = 0;}
$TOTDsph[$prevday] = sprintf("%.1f", $TOTDsph[$prevday]);
$TOTsph[$prevday] = sprintf("%4s", $TOTDsph[$prevday]);
$TOTWEEKhours = ($TOTWEEKhours + $TOTDhours[$prevday]);
$TOTWEEKsales = ($TOTWEEKsales + $TOTDsales[$prevday]);
$prevday = ($prevday - 1);
}
if ( ($TOTWEEKsales > 0) && ($TOTWEEKhours > 0) )
{$TOTWEEKsph = ($TOTWEEKsales/$TOTWEEKhours);}
else
{$TOTWEEKsph = 0;}
if ( ($TOTMONTHsales > 0) && ($TOTMONTHhours > 0) )
{$TOTMONTHsph = ($TOTMONTHsales/$TOTMONTHhours);}
else
{$TOTMONTHsph = 0;}
print Dout "$shipdate|TOTAL|||$TOTDhours[0]|$TOTDsph[0]|$TOTDhours[1]|$TOTDsph[1]|$TOTDhours[2]|$TOTDsph[2]|$TOTDhours[3]|$TOTDsph[3]|$TOTDhours[4]|$TOTDsph[4]|$TOTDhours[5]|$TOTDsph[5]|$TOTDhours[6]|$TOTDsph[6]|$TOTWEEKhours|$TOTWEEKsph|$TOTMONTHhours|$TOTMONTHsph|\n";
$TOTWEEKhours = sprintf("%.0f", $TOTWEEKhours);
$TOTWEEKhours = sprintf("%5s", $TOTWEEKhours); while(length($TOTWEEKhours)>5) {chop($TOTWEEKhours);}
$TOTWEEKsph = sprintf("%.1f", $TOTWEEKsph);
$TOTWEEKsph = sprintf("%4s", $TOTWEEKsph);
$TOTMONTHhours = sprintf("%.0f", $TOTMONTHhours);
$TOTMONTHhours = sprintf("%5s", $TOTMONTHhours); while(length($TOTMONTHhours)>5) {chop($TOTMONTHhours);}
$TOTMONTHsph = sprintf("%.1f", $TOTMONTHsph);
$TOTMONTHsph = sprintf("%4s", $TOTMONTHsph);
$outline = " TOTAL $TOThours[0] $TOTsph[0] $TOThours[1] $TOTsph[1] $TOThours[2] $TOTsph[2] $TOThours[3] $TOTsph[3] $TOThours[4] $TOTsph[4] $TOThours[5] $TOTsph[5] $TOThours[6] $TOTsph[6] $TOTWEEKhours $TOTWEEKsph $TOTMONTHhours $TOTMONTHsph\n";
print "$outline";
print out "$outline";
exit;
### TOTAL ACTIVE TIME
$active = ($aryA[3] + $aryA[4] + $aryA[5] + $aryA[6]);
$TIME_S = $active;
$TIME_H = int($TIME_S / 3600);
$TIME_S = ($TIME_S - ($TIME_H * 3600));
$TIME_M = int($TIME_S / 60);
$TIME_S = ($TIME_S - ($TIME_M * 60));
if ($TIME_S < 10) {$TIME_S = "0$TIME_S";}
if ($TIME_M < 10) {$TIME_M = "0$TIME_M";}
$TIME_HMS = "$TIME_H:$TIME_M:$TIME_S";
$Dactive = $TIME_HMS;
$active = sprintf("%9s", $TIME_HMS);
### TOTAL TALK TIME
$TIME_S = $aryA[3];
$TIME_H = int($TIME_S / 3600);
$TIME_S = ($TIME_S - ($TIME_H * 3600));
$TIME_M = int($TIME_S / 60);
$TIME_S = ($TIME_S - ($TIME_M * 60));
if ($TIME_S < 10) {$TIME_S = "0$TIME_S";}
if ($TIME_M < 10) {$TIME_M = "0$TIME_M";}
$TIME_HMS = "$TIME_H:$TIME_M:$TIME_S";
$Dtalk = $TIME_HMS;
$talk = sprintf("%9s", $TIME_HMS);
### TOTAL PAUSE TIME
$TIME_S = $aryA[4];
$TIME_H = int($TIME_S / 3600);
$TIME_S = ($TIME_S - ($TIME_H * 3600));
$TIME_M = int($TIME_S / 60);
$TIME_S = ($TIME_S - ($TIME_M * 60));
if ($TIME_S < 10) {$TIME_S = "0$TIME_S";}
if ($TIME_M < 10) {$TIME_M = "0$TIME_M";}
$TIME_HMS = "$TIME_H:$TIME_M:$TIME_S";
$Dpause = $TIME_HMS;
$pause = sprintf("%9s", $TIME_HMS);
### TOTAL WAIT TIME
$TIME_S = $aryA[5];
$TIME_H = int($TIME_S / 3600);
$TIME_S = ($TIME_S - ($TIME_H * 3600));
$TIME_M = int($TIME_S / 60);
$TIME_S = ($TIME_S - ($TIME_M * 60));
if ($TIME_S < 10) {$TIME_S = "0$TIME_S";}
if ($TIME_M < 10) {$TIME_M = "0$TIME_M";}
$TIME_HMS = "$TIME_H:$TIME_M:$TIME_S";
$Dwait = $TIME_HMS;
$wait = sprintf("%9s", $TIME_HMS);
### TOTAL DISPO TIME
$TIME_S = $aryA[6];
$TIME_H = int($TIME_S / 3600);
$TIME_S = ($TIME_S - ($TIME_H * 3600));
$TIME_M = int($TIME_S / 60);
$TIME_S = ($TIME_S - ($TIME_M * 60));
if ($TIME_S < 10) {$TIME_S = "0$TIME_S";}
if ($TIME_M < 10) {$TIME_M = "0$TIME_M";}
$TIME_HMS = "$TIME_H:$TIME_M:$TIME_S";
$Ddispo = $TIME_HMS;
$dispo = sprintf("%9s", $TIME_HMS);
$stmtB = "select event_time,UNIX_TIMESTAMP(event_time) from $vicidial_agent_log where event_time <= '$shipdate 23:59:59' and event_time >= '$begindate 00:00:00' and user='$aryA[2]' order by event_time limit 1;";
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
$sthB->execute or die "executing: $stmtA ", $dbhB->errstr;
@aryB = $sthB->fetchrow_array;
$Dfirst_time = $aryB[0];
$first_time = sprintf("%21s", $aryB[0]);
$Dfirst_log = $aryB[1];
$first_log = $aryB[1];
$stmtB = "select event_time,UNIX_TIMESTAMP(event_time) from $vicidial_agent_log where event_time <= '$shipdate 23:59:59' and event_time >= '$begindate 00:00:00' and user='$aryA[2]' order by event_time desc limit 1;";
$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
$sthB->execute or die "executing: $stmtA ", $dbhB->errstr;
@aryB = $sthB->fetchrow_array;
$Dlast_time = $aryB[0];
$last_time = sprintf("%21s", $aryB[0]);
$Dlast_log = $aryB[1];
$last_log = $aryB[1];
$TIME_S = ($last_log - $first_log);
$TIME_H = int($TIME_S / 3600);
$TIME_S = ($TIME_S - ($TIME_H * 3600));
$TIME_M = int($TIME_S / 60);
$TIME_S = ($TIME_S - ($TIME_M * 60));
if ($TIME_S < 10) {$TIME_S = "0$TIME_S";}
if ($TIME_M < 10) {$TIME_M = "0$TIME_M";}
$TIME_HMS = "$TIME_H:$TIME_M:$TIME_S";
$TIME_HMS = "N/A";
$Dlogin_time = $TIME_HMS;
$login_time = sprintf("%9s", $TIME_HMS);
print Dout "$shipdate|$Dname|$Duser|$Dcalls|$Dtalk|$Dpause|$Dwait|$Ddispo|$Dactive|$Dlogin_time|$Dfirst_time|$Dlast_time\n";
print out "$name$user$calls$talk$pause$wait$dispo$active$login_time$first_time$last_time\n";
print "$name$user$calls$talk$pause$wait$dispo$active$login_time$first_time$last_time\n";
close(Dout);
close(out);
### calculate time to run script ###
$secY = time();
$secZ = ($secY - $secX);
$secZm = ($secZ /60);
print "script execution time in seconds: $secZ minutes: $secZm\n";
exit;
bin/FastAGI_log.pl
+46 -24
View File
@@ -1,6 +1,6 @@
#!/usr/bin/perl
#
# FastAGI_log.pl version 2.0.3 *DBI-version*
# FastAGI_log.pl version 2.0.5 *DBI-version*
#
# Experimental Deamon using perl Net::Server that runs as FastAGI to reduce load
# replaces the following AGI scripts:
@@ -25,7 +25,7 @@
# exten => h,1,DeadAGI(agi://127.0.0.1:4577/call_log--HVcauses--PRI-----NODEBUG-----${HANGUPCAUSE}-----${DIALSTATUS}-----${DIALEDTIME}-----${ANSWEREDTIME})
#
#
# Copyright (C) 2007 Matt Florell <vicidial@gmail.com> LICENSE: GPLv2
# Copyright (C) 2008 Matt Florell <vicidial@gmail.com> LICENSE: GPLv2
#
# CHANGELOG:
# 61010-1007 - First test build
@@ -33,6 +33,7 @@
# 70215-1258 - Added queue_log entry when deleting vac record
# 70808-1425 - Moved VD_hangup section to the call_log end stage to improve efficiency
# 71030-2039 - Added priority to hopper insertions
# 80224-0040 - Fixed bugs in vicidial_log updates
#
@@ -127,7 +128,7 @@ if ($SERVERLOG =~ /Y/)
print "SERVER LOGGING ON: LEVEL-$log_level FILE-$childLOGfile\n";
}
package TEST_VDfastAGI;
package VDfastAGI;
use Net::Server;
use Asterisk::AGI;
@@ -140,7 +141,7 @@ use Net::Server::PreFork; # any personality will do
sub process_request {
$process = 'begin';
$script = 'TEST_VDfastAGI';
$script = 'VDfastAGI';
########## Get current time, parse configs, get logging preferences ##########
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = ($year + 1900);
@@ -441,6 +442,20 @@ sub process_request {
else
{
if ($AGILOG) {$agi_string = "|CALL HUNG UP|"; &agi_output;}
if ($request =~ /--HVcauses--/i)
{
$HVcauses=1;
@ARGV_vars = split(/-----/, $request);
$PRI = $ARGV_vars[0];
$PRI =~ s/.*--HVcauses--//gi;
$DEBUG = $ARGV_vars[1];
$hangup_cause = $ARGV_vars[2];
$dialstatus = $ARGV_vars[3];
$dial_time = $ARGV_vars[4];
$ring_time = $ARGV_vars[5];
$agi_string = "URL HVcauses: |$PRI|$DEBUG|$hangup_cause|$dialstatus|$dial_time|$ring_time|";
&agi_output;
}
### get uniqueid and start_epoch from the call_log table
$stmtA = "SELECT uniqueid,start_epoch FROM call_log where uniqueid='$unique_id';";
@@ -551,20 +566,24 @@ sub process_request {
if ($dialstatus =~ /BUSY/) {$VDL_status = 'B'; $VDAC_status = 'BUSY';}
if ($dialstatus =~ /CHANUNAVAIL/) {$VDL_status = 'DC'; $VDAC_status = 'DISCONNECT';}
$stmtA = "UPDATE vicidial_auto_calls set status='$VDAC_status' where callerid = '$callerid';";
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
$affected_rows = $dbhA->do($stmtA);
if ($AGILOG) {$agi_string = "-- VDAC update: |$affected_rows|$CIDlead_id"; &agi_output;}
$stmtA = "UPDATE vicidial_list set status='$VDL_status' where lead_id = '$CIDlead_id';";
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
$affected_rows = $dbhA->do($stmtA);
if ($AGILOG) {$agi_string = "-- VDAD vicidial_list update: |$affected_rows|$CIDlead_id"; &agi_output;}
$VDADaffected_rows = $dbhA->do($stmtA);
if ($AGILOG) {$agi_string = "-- VDAD vicidial_list update: |$VDADaffected_rows|$CIDlead_id"; &agi_output;}
$stmtA = "UPDATE vicidial_log set status='$VDL_status' where uniqueid = '$uniqueid';";
$stmtA = "UPDATE vicidial_auto_calls set status='$VDAC_status' where callerid = '$callerid';";
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
$affected_rows = $dbhA->do($stmtA);
if ($AGILOG) {$agi_string = "-- VDAD vicidial_log update: |$affected_rows|$uniqueid|"; &agi_output;}
$VDACaffected_rows = $dbhA->do($stmtA);
if ($AGILOG) {$agi_string = "-- VDAC update: |$VDACaffected_rows|$CIDlead_id"; &agi_output;}
$Euniqueid=$uniqueid;
$Euniqueid =~ s/\.\d+$//gi;
$stmtA = "UPDATE vicidial_log FORCE INDEX(lead_id) set status='$VDL_status' where lead_id = '$CIDlead_id' and uniqueid LIKE \"$Euniqueid%\";";
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
$VDLaffected_rows = $dbhA->do($stmtA);
if ($AGILOG) {$agi_string = "-- VDAD vicidial_log update: |$VDLaffected_rows|$uniqueid|$VDACuniqueid|"; &agi_output;}
sleep(1);
$dbhA->disconnect();
}
@@ -581,7 +600,7 @@ sub process_request {
########## FIND AND DELETE vicidial_auto_calls ##########
$VD_alt_dial = 'NONE';
$stmtA = "SELECT lead_id,callerid,campaign_id,alt_dial,stage,UNIX_TIMESTAMP(call_time) FROM vicidial_auto_calls where uniqueid = '$uniqueid' limit 1;";
$stmtA = "SELECT lead_id,callerid,campaign_id,alt_dial,stage,UNIX_TIMESTAMP(call_time),uniqueid FROM vicidial_auto_calls where uniqueid = '$uniqueid' or callerid = '$callerid' limit 1;";
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
@@ -596,6 +615,7 @@ sub process_request {
$VD_alt_dial = "$aryA[3]";
$VD_stage = "$aryA[4]";
$VD_start_epoch = "$aryA[5]";
$VD_uniqueid = "$aryA[6]";
$rec_countCUSTDATA++;
}
$sthA->finish();
@@ -606,9 +626,9 @@ sub process_request {
}
else
{
$stmtA = "DELETE FROM vicidial_auto_calls where uniqueid='$uniqueid' order by call_time desc limit 1;";
$stmtA = "DELETE FROM vicidial_auto_calls where uniqueid='$uniqueid' or callerid = '$callerid' order by call_time desc limit 1;";
$affected_rows = $dbhA->do($stmtA);
if ($AGILOG) {$agi_string = "-- VDAC record deleted: |$affected_rows| |$VD_lead_id|$uniqueid|$VD_callerid|$VARserver_ip"; &agi_output;}
if ($AGILOG) {$agi_string = "-- VDAC record deleted: |$affected_rows| |$VD_lead_id|$uniqueid|$VD_uniqueid|$VD_callerid|$VARserver_ip"; &agi_output;}
#############################################
##### START QUEUEMETRICS LOGGING LOOKUP #####
@@ -673,14 +693,16 @@ sub process_request {
########## FIND AND UPDATE vicidial_log ##########
$stmtA = "SELECT start_epoch,status FROM vicidial_log where uniqueid='$uniqueid' and lead_id='$VD_lead_id' limit 1;";
$Euniqueid=$uniqueid;
$Euniqueid =~ s/\.\d+$//gi;
$stmtA = "SELECT start_epoch,status FROM vicidial_log FORCE INDEX(lead_id) where lead_id = '$VD_lead_id' and uniqueid LIKE \"$Euniqueid%\" limit 1;";
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
$epc_countCUSTDATA=0;
$VD_closecallid='';
while ($sthArows > $rec_countCUSTDATA)
while ($sthArows > $epc_countCUSTDATA)
{
@aryA = $sthA->fetchrow_array;
$VD_start_epoch = "$aryA[0]";
@@ -691,7 +713,7 @@ sub process_request {
if (!$epc_countCUSTDATA)
{
if ($AGILOG) {$agi_string = "no VDL record found: $uniqueid $calleridname $VD_lead_id $uniqueid"; &agi_output;}
if ($AGILOG) {$agi_string = "no VDL record found: $uniqueid $calleridname $VD_lead_id $uniqueid $VD_uniqueid"; &agi_output;}
$secX = time();
$Rtarget = ($secX - 21600); # look for VDCL entry within last 6 hours
@@ -724,7 +746,7 @@ sub process_request {
}
if (!$epc_countCUSTDATA)
{
if ($AGILOG) {$agi_string = "no VDL or VDCL record found: $uniqueid $calleridname $VD_lead_id $uniqueid"; &agi_output;}
if ($AGILOG) {$agi_string = "no VDL or VDCL record found: $uniqueid $calleridname $VD_lead_id $uniqueid $VD_uniqueid"; &agi_output;}
}
else
{
@@ -742,7 +764,7 @@ sub process_request {
if ($AGILOG) {$agi_string = "-- VDAD vicidial_list update: |$affected_rows|$VD_lead_id"; &agi_output;}
}
$stmtA = "UPDATE vicidial_log set $SQL_status end_epoch='$now_date_epoch',length_in_sec='$VD_seconds' where uniqueid = '$uniqueid';";
$stmtA = "UPDATE vicidial_log FORCE INDEX(lead_id) set $SQL_status end_epoch='$now_date_epoch',length_in_sec='$VD_seconds' where lead_id = '$VD_lead_id' and uniqueid LIKE \"$Euniqueid%\";";
if ($AGILOG) {$agi_string = "|$stmtA|"; &agi_output;}
$affected_rows = $dbhA->do($stmtA);
if ($AGILOG) {$agi_string = "-- VDAD vicidial_log update: |$affected_rows|$uniqueid|$VD_status|"; &agi_output;}
@@ -753,7 +775,7 @@ sub process_request {
########## UPDATE vicidial_closer_log ##########
if (length($VD_closecallid) < 1)
{
if ($AGILOG) {$agi_string = "no VDCL record found: $uniqueid $calleridname $VD_lead_id $uniqueid"; &agi_output;}
if ($AGILOG) {$agi_string = "no VDCL record found: $uniqueid $calleridname $VD_lead_id $uniqueid $VD_uniqueid"; &agi_output;}
}
else
{
@@ -878,7 +900,7 @@ sub process_request {
}
TEST_VDfastAGI->run(
VDfastAGI->run(
port=>4577,
user=>'root',
group=>'root',
docs/BASE_INSTALL.txt
+1
View File
@@ -474,6 +474,7 @@ insert into vicidial_statuses values('DROP','Agent Not Available','N','Y','UNDEF
insert into vicidial_statuses values('NA','No Answer AutoDial','N','N','UNDEFINED');
insert into vicidial_statuses values('CALLBK','Call Back','Y','Y','UNDEFINED');
insert into vicidial_statuses values('CBHOLD','Call Back Hold','N','Y','UNDEFINED');
insert into vicidial_statuses values('A','Answering Machine','Y','N','UNDEFINED');
insert into vicidial_statuses values('AA','Answering Machine Auto','N','N','UNDEFINED');
insert into vicidial_statuses values('AM','Answering Machine Sent to Mesg','N','N','UNDEFINED');
docs/REQUIRED_APPS_INSTALL.txt
+8 -8
View File
@@ -181,9 +181,9 @@ cd /usr/local
wget http://mirror.candidhosting.com/pub/apache/httpd/httpd-2.0.61.tar.gz
gunzip httpd-2.0.61.tar.gz
tar xvf httpd-2.0.61.tar
wget http://us2.php.net/distributions/php-4.4.7.tar.gz
gunzip php-4.4.7.tar.gz
tar xvf php-4.4.7.tar
wget http://us2.php.net/distributions/php-4.4.8.tar.gz
gunzip php-4.4.8.tar.gz
tar xvf php-4.4.8.tar
cd httpd-2.0.61
./configure --prefix=/usr/local/apache2 --enable-ssl --enable-setenvif --enable-so --with-apxs2 --enable-dav --enable-maintainer-mode
make
@@ -197,7 +197,7 @@ openssl req -new -x509 -days 1200 -keyout /usr/local/apache2/conf/ssl.key/server
openssl rsa -in /usr/local/apache2/conf/ssl.key/server.key.cpy -out /usr/local/apache2/conf/ssl.key/server.key
cd ../php-4.4.7
cd ../php-4.4.8
./configure --with-mysql=/usr/local/mysql --enable-inline-optimization --enable-memory-limit --enable-track-vars --enable-libgcc --with-xml --enable-versioning --enable-sysvsem --with-openssl --disable-debug --with-apxs2=/usr/local/apache2/bin/apxs --with-zlib
make
make install
@@ -425,11 +425,11 @@ rm -f /usr/lib/asterisk/modules/pbx_functions.so
mkdir /usr/src/asterisk-1.4
cd /usr/src/asterisk-1.4
wget http://ftp.digium.com/pub/asterisk/releases/asterisk-1.4.17.tar.gz
wget http://ftp.digium.com/pub/asterisk/releases/asterisk-1.4.18.tar.gz
wget http://ftp.digium.com/pub/zaptel/releases/zaptel-1.4.8.tar.gz
wget http://ftp.digium.com/pub/libpri/releases/libpri-1.4.3.tar.gz
gunzip asterisk-1.4.17.tar.gz
tar xvf asterisk-1.4.17.tar
gunzip asterisk-1.4.18.tar.gz
tar xvf asterisk-1.4.18.tar
gunzip zaptel-1.4.8.tar.gz
tar xvf zaptel-1.4.8.tar
gunzip libpri-1.4.3.tar.gz
@@ -442,7 +442,7 @@ cd ../libpri-1.4.3
make clean
make
make install
cd ../asterisk-1.4.17
cd ../asterisk-1.4.18
wget http://www.eflo.net/files/enter.h
wget http://www.eflo.net/files/leave.h
mv -f enter.h apps/enter.h
docs/SCRATCH_INSTALL.txt
+7 -9
View File
@@ -66,7 +66,7 @@ PHASE 1: INSTALLING AN OPERATING SYSTEM
This installation will be using Slackware 11 for the linux distribution,
Slackware 10.X will also work with these instructions. There are several easier
Slackware 12.X will also work with these instructions. There are several easier
linux distributions and there are others that are more popular, but Slackware is
a nice non-commercial distro that has been around for a long time and proven
itself to be a very uncluttered and stable platform for development.
@@ -684,15 +684,15 @@ installation on another machine)
- wget http://mirror.candidhosting.com/pub/apache/httpd/httpd-2.0.61.tar.gz
- gunzip httpd-2.0.61.tar.gz
- tar xvf httpd-2.0.61.tar
- wget http://us2.php.net/distributions/php-4.4.7.tar.gz
- wget http://us2.php.net/distributions/php-4.4.8.tar.gz
NOTE: PHP 5.1.1 has also been tested with this release
- gunzip php-4.4.7.tar.gz
- tar xvf php-4.4.7.tar
- gunzip php-4.4.8.tar.gz
- tar xvf php-4.4.8.tar
- cd httpd-2.0.61
- ./configure --enable-so --with-apxs2
- make
- make install
- cd ../php-4.4.7
- cd ../php-4.4.8
- ./configure --with-apxs2=/usr/local/apache2/bin/apxs --with-mysql
- make
- make install
@@ -2972,6 +2972,7 @@ insert into vicidial_statuses values('DROP','Agent Not Available','N','Y','UNDEF
insert into vicidial_statuses values('NA','No Answer AutoDial','N','N','UNDEFINED');
insert into vicidial_statuses values('CALLBK','Call Back','Y','Y','UNDEFINED');
insert into vicidial_statuses values('CBHOLD','Call Back Hold','N','Y','UNDEFINED');
insert into vicidial_statuses values('A','Answering Machine','Y','N','UNDEFINED');
insert into vicidial_statuses values('AA','Answering Machine Auto','N','N','UNDEFINED');
insert into vicidial_statuses values('AM','Answering Machine Sent to Mesg','N','N','UNDEFINED');
@@ -3100,10 +3101,7 @@ The browser requirements for this are:
- Microsoft Internet Explorer 6.0
This version is fully functional and has been tested in our production
call center with no problems. On RedHat 9.0 Linux workstations we have noticed
a decrease in system load running the web-client as compared to the Perl/Tk
client. Also, the memory usage stayed at about 22MB for a full shift of
activity, so no memory leaks with Firefox.
call center with no problems.
To log into this app you will need a login setup in the vicidial_users table
with a user_level of 1 or greater as well as an entry for the phone you are
extras/MySQL_AST_CREATE_tables.sql
+11 -9
View File
@@ -147,7 +147,7 @@ index(user)
);
CREATE TABLE live_inbound (
uniqueid DOUBLE(18,7) NOT NULL,
uniqueid VARCHAR(20) NOT NULL,
channel VARCHAR(100) NOT NULL,
server_ip VARCHAR(15) NOT NULL,
caller_id VARCHAR(30),
@@ -177,7 +177,7 @@ last_update DATETIME
);
CREATE TABLE call_log (
uniqueid DOUBLE(18,7) PRIMARY KEY NOT NULL,
uniqueid VARCHAR(20) PRIMARY KEY NOT NULL,
channel VARCHAR(100),
channel_group VARCHAR(30),
type VARCHAR(10),
@@ -197,7 +197,7 @@ index (channel)
);
CREATE TABLE park_log (
uniqueid DOUBLE(18,7) PRIMARY KEY NOT NULL,
uniqueid VARCHAR(20) PRIMARY KEY NOT NULL,
status VARCHAR(10),
channel VARCHAR(100),
channel_group VARCHAR(30),
@@ -214,7 +214,7 @@ index (parked_time)
CREATE TABLE vicidial_manager (
man_id INT(9) UNSIGNED AUTO_INCREMENT PRIMARY KEY NOT NULL,
uniqueid DOUBLE(18,7),
uniqueid VARCHAR(20),
entry_date DATETIME,
status ENUM('NEW','QUEUE','SENT','UPDATED','DEAD'),
response ENUM('Y','N'),
@@ -300,7 +300,7 @@ extension VARCHAR(100),
status ENUM('READY','QUEUE','INCALL','PAUSED','CLOSER') default 'PAUSED',
lead_id INT(9) UNSIGNED NOT NULL,
campaign_id VARCHAR(8),
uniqueid DOUBLE(18,7),
uniqueid VARCHAR(20),
callerid VARCHAR(20),
channel VARCHAR(100),
random_id INT(8) UNSIGNED,
@@ -325,7 +325,7 @@ server_ip VARCHAR(15) NOT NULL,
campaign_id VARCHAR(20),
status ENUM('SENT','RINGING','LIVE','XFER','PAUSED','CLOSER','BUSY','DISCONNECT') default 'PAUSED',
lead_id INT(9) UNSIGNED NOT NULL,
uniqueid DOUBLE(18,7),
uniqueid VARCHAR(20),
callerid VARCHAR(20),
channel VARCHAR(100),
phone_code VARCHAR(10),
@@ -342,7 +342,7 @@ index (last_update_time)
);
CREATE TABLE vicidial_log (
uniqueid DOUBLE(18,7) PRIMARY KEY NOT NULL,
uniqueid VARCHAR(20) PRIMARY KEY NOT NULL,
lead_id INT(9) UNSIGNED NOT NULL,
list_id BIGINT(14) UNSIGNED,
campaign_id VARCHAR(8),
@@ -653,7 +653,7 @@ closer_campaigns TEXT
);
CREATE TABLE live_inbound_log (
uniqueid DOUBLE(18,7) NOT NULL,
uniqueid VARCHAR(20) NOT NULL,
channel VARCHAR(100) NOT NULL,
server_ip VARCHAR(15) NOT NULL,
caller_id VARCHAR(30),
@@ -924,7 +924,8 @@ queuemetrics_eq_prepend VARCHAR(255) default 'NONE',
vicidial_agent_disable ENUM('NOT_ACTIVE','LIVE_AGENT','EXTERNAL','ALL') default 'NOT_ACTIVE',
allow_sipsak_messages ENUM('0','1') default '0',
admin_home_url VARCHAR(255) default '../vicidial/welcome.php',
enable_agc_xfer_log ENUM('0','1') default '0'
enable_agc_xfer_log ENUM('0','1') default '0',
db_schema_version INT(8) UNSIGNED default '0'
);
CREATE TABLE vicidial_campaigns_list_mix (
@@ -1071,3 +1072,4 @@ INSERT INTO vicidial_state_call_times SET state_call_time_id='utah',state_call_t
INSERT INTO vicidial_state_call_times SET state_call_time_id='washington',state_call_time_state='WA',state_call_time_name='Washington 8am',sct_default_start='800',sct_default_stop='2100';
INSERT INTO vicidial_state_call_times SET state_call_time_id='wyoming',state_call_time_state='WY',state_call_time_name='Wyoming 8am-8pm',sct_default_start='800',sct_default_stop='2000';
UPDATE system_settings SET db_schema_version='1075';
extras/upgrade_2.0.5.sql
+17 -4
View File
@@ -40,11 +40,24 @@ ALTER TABLE vicidial_users ADD qc_commit ENUM('1','0') default '0';
ALTER TABLE vicidial_user_groups ADD qc_allowed_campaigns TEXT;
ALTER TABLE vicidial_user_groups ADD qc_allowed_inbound_groups TEXT;
ALTER TABLE system_settings ADD db_schema_version INT(8) UNSIGNED default '0';
UPDATE system_settings SET db_schema_version='1074', version='2.0.5b0.5';
ALTER TABLE live_inbound MODIFY uniqueid VARCHAR(20) NOT NULL;
ALTER TABLE live_inbound_log MODIFY uniqueid VARCHAR(20) NOT NULL;
ALTER TABLE live_inbound_log MODIFY uniqueid VARCHAR(20) NOT NULL;
ALTER TABLE vicidial_manager MODIFY uniqueid VARCHAR(20) NOT NULL;
ALTER TABLE vicidial_live_agents MODIFY uniqueid VARCHAR(20) NOT NULL;
ALTER TABLE vicidial_auto_calls MODIFY uniqueid VARCHAR(20) NOT NULL;
ALTER TABLE call_log DROP PRIMARY KEY;
ALTER TABLE call_log DROP INDEX uniqueid;
ALTER TABLE call_log MODIFY uniqueid VARCHAR(20) PRIMARY KEY UNIQUE NOT NULL;
ALTER TABLE park_log DROP PRIMARY KEY;
ALTER TABLE park_log DROP INDEX uniqueid;
ALTER TABLE park_log MODIFY uniqueid VARCHAR(20) PRIMARY KEY UNIQUE NOT NULL;
ALTER TABLE vicidial_log DROP PRIMARY KEY;
ALTER TABLE vicidial_log DROP INDEX uniqueid;
ALTER TABLE vicidial_log MODIFY uniqueid VARCHAR(20) PRIMARY KEY UNIQUE NOT NULL;
UPDATE system_settings SET db_schema_version='1075';
www/agc/vdc_db_query.php
+8 -2
View File
@@ -676,10 +676,16 @@ if ($ACTION == 'manDiaLnextCaLL')
if ( ($WeBRooTWritablE > 0) and ($enable_agc_xfer_log > 0) )
{
# generate callerID for unique identifier in xfer_log file
$PADlead_id = sprintf("%09s", $lead_id);
while (strlen($PADlead_id) > 9) {$PADlead_id = substr("$PADlead_id", 0, -1);}
# Create unique calleridname to track the call: MmmddhhmmssLLLLLLLLL
$MqueryCID = "M$CIDdate$PADlead_id";
# DATETIME|campaign|lead_id|phone_number|user|type
# 2007-08-22 11:11:11|TESTCAMP|65432|3125551212|1234|M
$fp = fopen ("./xfer_log.txt", "a");
fwrite ($fp, "$NOW_TIME|$campaign|$lead_id|$phone_number|$user|M\n");
fwrite ($fp, "$NOW_TIME|$campaign|$lead_id|$phone_number|$user|M|$MqueryCID|\n");
fclose($fp);
}
@@ -1882,7 +1888,7 @@ if ($ACTION == 'VDADcheckINCOMING')
# DATETIME|campaign|lead_id|phone_number|user|type
# 2007-08-22 11:11:11|TESTCAMP|65432|3125551212|1234|A
$fp = fopen ("./xfer_log.txt", "a");
fwrite ($fp, "$NOW_TIME|$campaign|$lead_id|$phone_number|$user|$Ctype\n");
fwrite ($fp, "$NOW_TIME|$campaign|$lead_id|$phone_number|$user|$Ctype|$callerid|$uniqueid\n");
fclose($fp);
}
www/vicidial/AST_timeonVDADall.php
+1 -1
View File
@@ -842,7 +842,7 @@ $talking_to_print = mysql_num_rows($rslt);
}
if (eregi("PAUSED",$row[3]))
{
if ($call_time_M_int >= 30)
if ($call_time_M_int >= 360)
{$i++; continue;}
else
{