#!/usr/bin/perl
#/* ========================================
# * ███╗   ███╗██████╗ ██╗ █████╗ ██╗
# * ████╗ ████║██╔══██╗██║██╔══██╗██║
# * ██╔████╔██║██║  ██║██║███████║██║
# * ██║╚██╔╝██║██║  ██║██║██╔══██║██║
# * ██║ ╚═╝ ██║██████╔╝██║██║  ██║███████╗
# * ╚═╝     ╚═╝╚═════╝ ╚═╝╚═╝  ╚═╝╚══════╝
# * ========================================
# * mDial - Omni-Channel Contact Centre Suite.
# * Initially Written by Martin McCarthy.
# * Contributions welcome.
# * Active: 2020 - 2023.
# *
# * This software is licensed under AGPLv2.
# * You can find more information here;
# * https://www.gnu.org/licenses/agpl-3.0.en.html
# * A copy of the license is also shipped with this build.
# *
# * Important note: this software is provided to you free of charge.
# * If you paid for this software, you were ripped off.
# *
# * This project is a fork of the awesome FOSS project, ViCiDial.
# * ViCiDial is copyrighted by Matt Florell and the ViCiDial Group
# * under the AGPLv2 license.
# *
# * You can find out more about ViCiDial;
# * Web: https://www.vicidial.com/
# * Email: Matt Florell <vicidial@gmail.com>
# * IRC: Libera.Chat - ##vicidial
# *
# * Bug reports, feature requests and patches welcome!
# * ======================================== */
$txt   = '.txt';
$US    = '_';
$MT[0] = '';
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";
}
$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;
$TWOAMsec  = ( ( $secX - ( $sec + ( $min * 60 ) + ( $hour * 3600 ) ) ) + 7200 );
$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";
$BMONTHsec = ( $TWOAMsecY - ( 86400 * ( $Tmday - 1 ) ) );
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 "\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";
$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++;
}
$server_ip = $VARserver_ip;                              # Asterisk server IP
$outfile   = "AGENT_SPH_$Tyear-$Tmon-$Tmday$txt";
$Doutfile  = "AGENT_SPH_PIPE_$Tyear-$Tmon-$Tmday$txt";
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';
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";
$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;
$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;

    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";
    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++;
    if ( $Dgroup[$i] !~ /^$Dprevgroup$/ ) {
        $prevday = $SETprevday;
        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;
    }
}
$prevday = $SETprevday;
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;
$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 );
$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 );
$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 );
$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 );
$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);
$secY  = time();
$secZ  = ( $secY - $secX );
$secZm = ( $secZ / 60 );
print "script execution time in seconds: $secZ     minutes: $secZm\n";
exit;