Code cleanup in several bin scripts

Added new output options with audio file transfer to AST_VDsales_export.pl

git-svn-id: svn://192.168.202.10@1160 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2009-06-21 11:14:21 +00:00
parent b9abf6c66b
commit 3d5c1cf7db
10 changed files with 1633 additions and 1361 deletions
+6 -14
View File
@@ -421,15 +421,7 @@ while ($master_loop<$CLIloops)
$differential_onemin[$i]=0;
$agents_average_onemin[$i]=0;
# ### Grab the count of agents and lines
# if ($campaign_id[$i] !~ /(CLOSER|BLEND|INBND|_C$|_B$|_I$)/)
# {
&count_agents_lines;
# }
# else
# {
# if ($DB) {print " CLOSER CAMPAIGN\n";}
# }
&count_agents_lines;
if ($total_agents_avg[$i] > 0)
{
@@ -595,7 +587,7 @@ sub get_time_now
$current_hourmin = "$hour$min";
### get date-time of one hour ago ###
$VDL_hour = ($secX - (60 * 60));
$VDL_hour = ($secX - (60 * 60));
($Vsec,$Vmin,$Vhour,$Vmday,$Vmon,$Vyear,$Vwday,$Vyday,$Visdst) = localtime($VDL_hour);
$Vyear = ($Vyear + 1900);
$Vmon++;
@@ -604,7 +596,7 @@ sub get_time_now
$VDL_hour = "$Vyear-$Vmon-$Vmday $Vhour:$Vmin:$Vsec";
### get date-time of half hour ago ###
$VDL_halfhour = ($secX - (30 * 60));
$VDL_halfhour = ($secX - (30 * 60));
($Vsec,$Vmin,$Vhour,$Vmday,$Vmon,$Vyear,$Vwday,$Vyday,$Visdst) = localtime($VDL_halfhour);
$Vyear = ($Vyear + 1900);
$Vmon++;
@@ -613,7 +605,7 @@ sub get_time_now
$VDL_halfhour = "$Vyear-$Vmon-$Vmday $Vhour:$Vmin:$Vsec";
### get date-time of five minutes ago ###
$VDL_five = ($secX - (5 * 60));
$VDL_five = ($secX - (5 * 60));
($Vsec,$Vmin,$Vhour,$Vmday,$Vmon,$Vyear,$Vwday,$Vyday,$Visdst) = localtime($VDL_five);
$Vyear = ($Vyear + 1900);
$Vmon++;
@@ -622,10 +614,10 @@ sub get_time_now
$VDL_five = "$Vyear-$Vmon-$Vmday $Vhour:$Vmin:$Vsec";
### get epoch of ninty seconds ago ###
$VDL_ninty = ($secX - (1 * 90));
$VDL_ninty = ($secX - (1 * 90));
### get date-time of one minute ago ###
$VDL_one = ($secX - (1 * 60));
$VDL_one = ($secX - (1 * 60));
($Vsec,$Vmin,$Vhour,$Vmday,$Vmon,$Vyear,$Vwday,$Vyday,$Visdst) = localtime($VDL_one);
$Vyear = ($Vyear + 1900);
$Vmon++;