diff --git a/agc_2-X/trunk/bin/AST_VDsales_export_SFTP.pl b/agc_2-X/trunk/bin/AST_VDsales_export_SFTP.pl
new file mode 100644
index 00000000..cb2ad42a
--- /dev/null
+++ b/agc_2-X/trunk/bin/AST_VDsales_export_SFTP.pl
@@ -0,0 +1,1467 @@
+#!/usr/bin/perl
+#
+# AST_VDsales_export_SFTP.pl                version: 2.4
+#
+# This script is designed to gather sales for a VICIDIAL Outbound-only campaign and
+# post them to a directory
+#
+# /usr/share/astguiclient/AST_VDsales_export_SFTP.pl --campaign=GOODB-GROUP1-GROUP3-GROUP4-SPECIALS-DNC_BEDS --output-format=fixed-as400 --sale-statuses=SALE --debug --filename=BEDSsaleMMDD.txt --date=yesterday --email-list=test@gmail.com --email-sender=test@test.com
+#
+# Copyright (C) 2012  Matt Florell <vicidial@gmail.com>    LICENSE: AGPLv2
+#
+# CHANGES
+# 61219-1118 - First version
+# 70503-2137 - Added upsell
+# 70611-1154 - Added CLI options
+# 70709-1411 - Added FTP transfer option
+# 71005-0054 - Altered script to use astguiclient.conf for settings
+# 90105-1155 - Added AS400 export formats and changed around date override
+# 90106-2309 - Added email sending
+# 90620-0900 - Formatting fixes
+# 90627-0757 - Added time addition when transfer recordings is enabled
+# 90710-0514 - Fixes for data output formatting changes
+# 90721-1314 - Added rank and owner as vicidial_list fields
+# 90731-0555 - Added call time scheme restriction
+# 90807-1632 - Fixed call time bug and call length bug
+# 90825-1249 - Added without-camp and without-in options 
+# 90902-0437 - Added outbound-calltime-ignore and ftp-norun options
+# 90909-2322 - Added totals-only option
+# 101022-1022 - Added hours minutes seconds to filename variables
+# 110829-1045 - Changed recording lookup to try to find by vicidial_id first
+# 120228-1855 - Added SFTP(Net::SFTP) file transmission option
+#
+
+$txt = '.txt';
+$US = '_';
+$MT[0] = '';
+$Q=0;
+$DB=0;
+$uniqueidLIST='|';
+
+# Default FTP account variables
+$VARREPORT_host = '10.0.0.4';
+$VARREPORT_user = 'cron';
+$VARREPORT_pass = 'test';
+$VARREPORT_port = '21';
+$VARREPORT_dir  = 'REPORTS';
+
+# default CLI values
+$campaign = 'TESTCAMP';
+$sale_statuses = 'SALE-UPSELL';
+$output_format = 'pipe-standard';
+$outbound_calltime_ignore=0;
+$totals_only=0;
+$OUTcalls=0;
+$OUTtalk=0;
+$OUTtalkmin=0;
+$INcalls=0;
+$INtalk=0;
+$INtalkmin=0;
+
+$secX = time();
+$time = $secX;
+	($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";}
+$timestamp = "$year-$mon-$mday $hour:$min:$sec";
+$filedate = "$year$mon$mday";
+$ABIfiledate = "$mon-$mday-$year$us$hour$min$sec";
+$shipdate = "$year-$mon-$mday";
+$start_date = "$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";}
+
+
+### 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";
+		print "  [--date=YYYY-MM-DD] = date override\n";
+		print "  [--hour-offset=X] = print datetime strings with this hour offset\n";
+		print "  [--filename=XXX] = Name to be used for file, variables: YYYY=year, MM=month, DD=day, HH=hour, II=minute, SS=second\n";
+		print "  [--campaign=XXX] = Campaign that sales will be pulled from\n";
+		print "  [--without-camp=XXX] = Campaign that will be excluded from ALL\n";
+		print "  [--sale-statuses=XXX-XXY] = Statuses that are deemed to be \"Sales\". Default SALE\n";
+		print "    NOTE: To include all statuses in the export, use \"--sale-statuses=---ALL---\"\n";
+		print "  [--output-format=XXX] = Format of file. Default \"pipe-standard\"\n";
+		print "  [--with-inbound=XXX-XXY] = include the following inbound groups\n";
+		print "  [--without-in=XXX-XXY] = inbound groups that will be excluded from ALL\n";
+		print "  [--calltime=XXX] = filter results to only include those calls during this call time\n";
+		print "  [--outbound-calltime-ignore] = for outbound calls ignores call time\n";
+		print "  [--totals-only] = print totals of time and calls only\n";
+		print "  [--sftp-mode] = Uses SFTP(Net::SFTP) for 'ftp' options\n";
+		print "  [--ftp-transfer] = Send results file by FTP to another server\n";
+		print "  [--ftp-audio-transfer] = Send associated audio files to FTP server, dated directories\n";
+		print "  [--ftp-norun] = Stop program when you get to the FTP transfer\n";
+		print "  [--with-transfer-audio] = Different method for finding audio, also grabs transfer audio filenames\n";
+		print "  [--with-did-lookup] = Looks up the DID pattern and name the call came in on if possible\n";
+		print "  [--email-list=test@test.com:test2@test.com] = send email results to these addresses\n";
+		print "  [--email-sender=vicidial@localhost] = sender for the email results\n";
+		print "  [--quiet] = quiet\n";
+		print "  [--test] = test\n";
+		print "  [--debug] = debugging messages\n";
+		print "  [--debugX] = Super debugging messages\n";
+		print "\n";
+		print "  format options:\n";
+		print "   pipe-standard|csv-standard|tab-standard|pipe-triplep|pipe-vici|html-rec|fixed-as400|tab-QMcustomUSA|tab-SCcustomUSA\n";
+		print "\n";
+
+
+		exit;
+		}
+	else
+		{
+		if ($args =~ /--debug/i)
+			{
+			$DB=1;
+			print "\n----- DEBUG MODE -----\n\n";
+			}
+		if ($args =~ /--debugX/i)
+			{
+			$DBX=1;
+			print "\n----- SUPER DEBUG MODE -----\n\n";
+			}
+		if ($args =~ /-quiet/i)
+			{
+			$q=1;   $Q=1;
+			}
+		if ($args =~ /-totals-only/i)
+			{$totals_only=1;}
+
+		if ($args =~ /--hour-offset=/i)
+			{
+			@data_in = split(/--hour-offset=/,$args);
+			$hour_offset = $data_in[1];
+			$hour_offset =~ s/ .*//gi;
+			if (!$Q) {print "\n----- HOUR OFFSET: $hour_offset -----\n\n";}
+			}
+		else
+			{$hour_offset=0;}
+		if ($args =~ /--date=/i)
+			{
+			@data_in = split(/--date=/,$args);
+			$shipdate = $data_in[1];
+			$shipdate =~ s/ .*//gi;
+			if ($shipdate =~ /today/)
+				{
+				$shipdate="$year-$mon-$mday";
+				$time = $TWOAMsec;
+				}
+			else
+				{
+				if ($shipdate =~ /yesterday/)
+					{
+					$shipdate="$Tyear-$Tmon-$Tmday";
+					$year = $Tyear;
+					$mon =	$Tmon;
+					$mday = $Tmday;
+					$time=$TWOAMsecY;
+					}
+				else
+					{
+					@cli_date = split("-",$shipdate);
+					$year = $cli_date[0];
+					$mon =	$cli_date[1];
+					$mday = $cli_date[2];
+					$cli_date[1] = ($cli_date[1] - 1);
+					$time = timelocal(0,0,2,$cli_date[2],$cli_date[1],$cli_date[0]);
+					}
+				}
+			$start_date = $shipdate;
+			$start_date =~ s/-//gi;
+			if (!$Q) {print "\n----- DATE OVERRIDE: $shipdate($start_date) -----\n\n";}
+			}
+		else
+			{
+			$time=$TWOAMsec;
+			}
+
+
+		if ($args =~ /--campaign=/i)
+			{
+			#	print "\n|$ARGS|\n\n";
+			@data_in = split(/--campaign=/,$args);
+			$campaign = $data_in[1];
+			$campaign =~ s/ .*$//gi;
+			$campaignSQL = $campaign;
+			if ($campaignSQL =~ /-/) 
+				{
+				$campaignSQL =~ s/-/','/gi;
+				}
+			$campaignSQL = "'$campaignSQL'";
+			}
+		if ($args =~ /--without-camp=/i)
+			{
+			#	print "\n|$ARGS|\n\n";
+			@data_in = split(/--without-camp=/,$args);
+			$NOTcampaign = $data_in[1];
+			$NOTcampaign =~ s/ .*$//gi;
+			$NOTcampaignSQL = $NOTcampaign;
+			if ($NOTcampaignSQL =~ /-/) 
+				{
+				$NOTcampaignSQL =~ s/-/','/gi;
+				}
+			$NOTcampaignSQL = "'$NOTcampaignSQL'";
+			}
+		if ($args =~ /--filename=/i)
+			{
+			#	print "\n|$ARGS|\n\n";
+			@data_in = split(/--filename=/,$args);
+			$filename = $data_in[1];
+			$filename =~ s/ .*$//gi;
+			$filename =~ s/YYYY/$year/gi;
+			$filename =~ s/MM/$mon/gi;
+			$filename =~ s/DD/$mday/gi;
+			$filename =~ s/HH/$hour/gi;
+			$filename =~ s/II/$min/gi;
+			$filename =~ s/SS/$sec/gi;
+			$filename_override=1;
+			}
+		if ($args =~ /--sale-statuses=/i)
+			{
+			@data_in = split(/--sale-statuses=/,$args);
+			$sale_statuses = $data_in[1];
+			$sale_statuses =~ s/ .*$//gi;
+			if ($sale_statuses =~ /---ALL---/)
+				{if (!$Q) {print "\n----- EXPORT ALL STATUSES -----\n\n";} }
+			}
+		if ($args =~ /--output-format=/i)
+			{
+			@data_in = split(/--output-format=/,$args);
+			$output_format = $data_in[1];
+			$output_format =~ s/ .*$//gi;
+			}
+		if ($args =~ /--with-inbound=/i)
+			{
+			@data_in = split(/--with-inbound=/,$args);
+			$with_inbound = $data_in[1];
+			$with_inbound =~ s/ .*$//gi;
+			}
+		if ($args =~ /--without-in=/i)
+			{
+			@data_in = split(/--without-in=/,$args);
+			$NOTwith_inbound = $data_in[1];
+			$NOTwith_inbound =~ s/ .*$//gi;
+			}
+		if ($args =~ /--calltime=/i)
+			{
+			#	print "\n|$ARGS|\n\n";
+			@data_in = split(/--calltime=/,$args);
+			$call_time = $data_in[1];
+			$call_time =~ s/ .*$//gi;
+			}
+		if ($args =~ /--outbound-calltime-ignore/i)
+			{
+			$outbound_calltime_ignore=1;
+			if (!$Q)
+				{print "\n----- IGNORE CALLTIME FOR OUTBOUND -----\n\n";}
+			}
+		if ($args =~ /-sftp-mode/i)
+			{
+			if (!$Q)
+				{print "\n----- SFTP MODE FOR FTP TRANSFERS -----\n\n";}
+			$sftp_mode=1;
+			}
+		if ($args =~ /-ftp-transfer/i)
+			{
+			if (!$Q)
+				{print "\n----- FTP TRANSFER MODE -----\n\n";}
+			$ftp_transfer=1;
+			}
+		if ($args =~ /-ftp-audio-transfer/i)
+			{
+			if (!$Q)
+				{print "\n----- FTP AUDIO TRANSFER MODE -----\n\n";}
+			$ftp_audio_transfer=1;
+
+			### find wget binary
+			$wgetbin = '';
+			if ( -e ('/bin/wget')) {$wgetbin = '/bin/wget';}
+			else 
+				{
+				if ( -e ('/usr/bin/wget')) {$wgetbin = '/usr/bin/wget';}
+				else 
+					{
+					if ( -e ('/usr/local/bin/wget')) {$wgetbin = '/usr/local/bin/wget';}
+					else
+						{
+						print "Can't find wget binary! Exiting...\n";
+						exit
+						}
+					}
+				}
+			### find find binary
+			$findbin = '';
+			if ( -e ('/bin/find')) {$findbin = '/bin/find';}
+			else 
+				{
+				if ( -e ('/usr/bin/find')) {$findbin = '/usr/bin/find';}
+				else 
+					{
+					if ( -e ('/usr/local/bin/find')) {$findbin = '/usr/local/bin/find';}
+					else
+						{
+						print "Can't find find binary! Exiting...\n";
+						exit
+						}
+					}
+				}
+			$tempdir = '/root/tempaudioexport';
+			if (!-e "$tempdir") 
+				{`mkdir -p $tempdir`;}
+			## remove old audio files from directory
+			`$findbin $tempdir/ -maxdepth 1 -type f -mtime +0 -print | xargs rm -f`;
+			}
+		if ($args =~ /-ftp-norun/i)
+			{
+			if (!$Q)
+				{print "\n----- FTP NORUN MODE -----\n\n";}
+			$ftp_norun=1;
+			}
+		if ($args =~ /-with-transfer-audio/i)
+			{
+			if (!$Q)
+				{print "\n----- AUDIO TRANSFER LOOKUP MODE -----\n\n";}
+			$with_transfer_audio=1;
+			}
+		if ($args =~ /-with-did-lookup/i)
+			{
+			if (!$Q)
+				{print "\n----- DID LOOKUP ENABLED -----\n\n";}
+			$with_did_lookup=1;
+			}
+		if ($args =~ /--test/i)
+			{
+			$T=1;   $TEST=1;
+			print "\n----- TESTING -----\n\n";
+			}
+		if ($args =~ /--email-list=/i)
+			{
+			@data_in = split(/--email-list=/,$args);
+			$email_list = $data_in[1];
+			$email_list =~ s/ .*//gi;
+			$email_list =~ s/:/,/gi;
+			print "\n----- EMAIL NOTIFICATION: $email_list -----\n\n";
+			}
+		else
+			{$email_list = '';}
+
+		if ($args =~ /--email-sender=/i)
+			{
+			@data_in = split(/--email-sender=/,$args);
+			$email_sender = $data_in[1];
+			$email_sender =~ s/ .*//gi;
+			$email_sender =~ s/:/,/gi;
+			print "\n----- EMAIL NOTIFICATION SENDER: $email_sender -----\n\n";
+			}
+		else
+			{$email_sender = 'vicidial@localhost';}
+		}
+	}
+else
+	{
+	print "no command line options set, using defaults.\n";
+	}
+### 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;}
+	if ( ($line =~ /^VARREPORT_host/) && ($CLIREPORT_host < 1) )
+		{$VARREPORT_host = $line;   $VARREPORT_host =~ s/.*=//gi;}
+	if ( ($line =~ /^VARREPORT_user/) && ($CLIREPORT_user < 1) )
+		{$VARREPORT_user = $line;   $VARREPORT_user =~ s/.*=//gi;}
+	if ( ($line =~ /^VARREPORT_pass/) && ($CLIREPORT_pass < 1) )
+		{$VARREPORT_pass = $line;   $VARREPORT_pass =~ s/.*=//gi;}
+	if ( ($line =~ /^VARREPORT_port/) && ($CLIREPORT_port < 1) )
+		{$VARREPORT_port = $line;   $VARREPORT_port =~ s/.*=//gi;}
+	if ( ($line =~ /^VARREPORT_dir/) && ($CLIREPORT_dir < 1) )
+		{$VARREPORT_dir = $line;   $VARREPORT_dir =~ s/.*=//gi;}
+	$i++;
+	}
+
+# Customized Variables
+$server_ip = $VARserver_ip;		# Asterisk server IP
+
+if ($output_format =~ /^pipe-standard$/) 
+	{$DLT = '|';   $txt='.txt';   print "---- pipe-standard ----\n";}
+if ($output_format =~ /^csv-standard$/) 
+	{$DLT = "','";   $txt='.csv';   print "---- csv-standard ----\n";}
+if ($output_format =~ /^tab-standard$/) 
+	{$DLT = "\t";   $txt='.txt';   print "---- tab-standard ----\n";}
+if ($output_format =~ /^pipe-triplep$/) 
+	{$DLT = '';   $txt='.txt';   print "---- pipe-triplep ----\n";}
+if ($output_format =~ /^pipe-vici$/) 
+	{$DLT = '|';   $txt='.txt';   print "---- pipe-vici ----\n";}
+if ($output_format =~ /^html-rec$/) 
+	{$DLT = ' ';   $txt='.html';   print "---- html-rec ----\n";}
+if ($output_format =~ /^fixed-as400$/) 
+	{$DLT = '';   $txt='.txt';   print "---- fixed-as400 ----\n";}
+
+if ($sale_statuses =~ /---ALL---/)
+	{
+	$sale_statusesSQL='';
+	$close_statusesSQL='';
+	}
+else
+	{
+	$sale_statusesSQL = $sale_statuses;
+	$sale_statusesSQL =~ s/-/','/gi;
+	$sale_statusesSQL = "'$sale_statusesSQL'";
+	$close_statusesSQL = $sale_statusesSQL;
+	$sale_statusesSQL = " and vicidial_log.status IN($sale_statusesSQL)";
+	$close_statusesSQL = " and vicidial_closer_log.status IN($close_statusesSQL)";
+	}
+
+
+if (length($with_inbound) < 2)
+	{
+	if (length($NOTwith_inbound) < 2)
+		{$with_inboundSQL = '';}
+	else
+		{
+		$with_inboundSQL = $NOTwith_inbound;
+		$with_inboundSQL =~ s/-/','/gi;
+		$with_inboundSQL = "vicidial_closer_log.campaign_id NOT IN('$with_inboundSQL')";
+		}
+	}
+else
+	{
+	$with_inboundSQL = $with_inbound;
+	$with_inboundSQL =~ s/-/','/gi;
+	$with_inboundSQL = "vicidial_closer_log.campaign_id IN('$with_inboundSQL')";
+	}
+
+if (length($campaignSQL) < 2)
+	{
+	if (length($NOTcampaignSQL) < 2)
+		{$campaignSQL = "vicidial_log.campaign_id NOT IN('')";}
+	else
+		{$campaignSQL = "vicidial_log.campaign_id NOT IN($NOTcampaignSQL)";}
+	}
+else
+	{$campaignSQL = "vicidial_log.campaign_id IN($campaignSQL)";}
+
+if (!$Q)
+	{
+	print "\n\n\n\n\n\n\n\n\n\n\n\n-- AST_VDsales_export.pl --\n\n";
+	print "This program is designed to gather sales from a VICIDIAL outbound-only campaign and post them to a file. \n";
+	print "\n";
+	print "Campaign:      $campaign    $campaignSQL\n";
+	print "Sale Statuses: $sale_statuses     $sale_statusesSQL\n";
+	print "Output Format: $output_format\n";
+	print "With Inbound:  $with_inbound     $with_inboundSQL\n";
+	print "\n";
+	}
+
+$outfile = "$campaign$US$filedate$US$sale_statuses$txt";
+if ($filename_override > 0) {$outfile = $filename;}
+
+### open the X out file for writing ###
+$PATHoutfile = "$PATHweb/vicidial/server_reports/$outfile";
+open(out, ">$PATHoutfile")
+		|| die "Can't open $PATHoutfile: $!\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;
+
+$TOTAL_SALES=0;
+
+
+$timezone='-5';
+$stmtA = "SELECT local_gmt FROM servers where server_ip='$server_ip';";
+$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
+$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
+$sthArows=$sthA->rows;
+	if ($DBX) {print "   $sthArows|$stmtA|\n";}
+if ($sthArows > 0)
+	{
+	@aryA = $sthA->fetchrow_array;
+	$timezone =	$aryA[0];
+	$sthA->finish();
+	}
+$offset_timezone = ($timezone + $hour_offset);
+$SQLtimezone = sprintf("%10.2f",$timezone);
+$SQLtimezone =~ s/\./:/gi;
+$SQLtimezone =~ s/:50/:30/gi;
+$SQLtimezone =~ s/ //gi;
+$SQLoffset_timezone = sprintf("%10.2f",$offset_timezone);
+$SQLoffset_timezone =~ s/\./:/gi;
+$SQLoffset_timezone =~ s/:50/:30/gi;
+$SQLoffset_timezone =~ s/ //gi;
+$convert_tz = "'$SQLtimezone','$SQLoffset_timezone'";
+
+if (!$Q)
+	{print "\n----- SQL CONVERT_TZ: $SQLtimezone|$SQLoffset_timezone     $convert_tz -----\n\n";}
+
+
+$stmtA = "SELECT call_time_id,call_time_name,call_time_comments,ct_default_start,ct_default_stop,ct_sunday_start,ct_sunday_stop,ct_monday_start,ct_monday_stop,ct_tuesday_start,ct_tuesday_stop,ct_wednesday_start,ct_wednesday_stop,ct_thursday_start,ct_thursday_stop,ct_friday_start,ct_friday_stop,ct_saturday_start,ct_saturday_stop,ct_state_call_times FROM vicidial_call_times where call_time_id='$call_time';";
+$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
+$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
+$sthArows=$sthA->rows;
+	if ($DBX) {print "   $sthArows|$stmtA|\n";}
+if ($sthArows > 0)
+	{
+	@aryA = $sthA->fetchrow_array;
+	$Gct_default_start =	$aryA[3];
+	$Gct_default_stop =		$aryA[4];
+	$Gct_sunday_start =		$aryA[5];
+	$Gct_sunday_stop =		$aryA[6];
+	$Gct_monday_start =		$aryA[7];
+	$Gct_monday_stop =		$aryA[8];
+	$Gct_tuesday_start =	$aryA[9];
+	$Gct_tuesday_stop =		$aryA[10];
+	$Gct_wednesday_start =	$aryA[11];
+	$Gct_wednesday_stop =	$aryA[12];
+	$Gct_thursday_start =	$aryA[13];
+	$Gct_thursday_stop =	$aryA[14];
+	$Gct_friday_start =		$aryA[15];
+	$Gct_friday_stop =		$aryA[16];
+	$Gct_saturday_start =	$aryA[17];
+	$Gct_saturday_stop =	$aryA[18];
+	$sthA->finish();
+	}
+else
+	{
+	if ($DB > 0) {print "CALL TIME NOT FOUND: $call_time\n";}
+	$call_time='';
+	}
+
+
+###########################################################################
+########### CURRENT DAY SALES GATHERING outbound-only: vicidial_log  ######
+###########################################################################
+$stmtA = "select vicidial_log.user,first_name,last_name,address1,address2,city,state,postal_code,vicidial_list.phone_number,vicidial_list.email,security_phrase,vicidial_list.comments,CONVERT_TZ(call_date,$convert_tz),vicidial_list.lead_id,vicidial_users.full_name,vicidial_log.status,vicidial_list.vendor_lead_code,vicidial_list.source_id,vicidial_log.list_id,title,address3,last_local_call_time,uniqueid,length_in_sec,vicidial_list.list_id,vicidial_list.list_id,UNIX_TIMESTAMP(vicidial_log.call_date),vicidial_campaigns.campaign_name,vicidial_campaigns.campaign_cid from vicidial_list,vicidial_log,vicidial_users,vicidial_campaigns where $campaignSQL $sale_statusesSQL and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' and vicidial_log.lead_id=vicidial_list.lead_id and vicidial_users.user=vicidial_log.user and vicidial_log.campaign_id=vicidial_campaigns.campaign_id order by call_date;";
+if ($output_format =~ /^tab-QMcustomUSA$|^tab-SCcustomUSA$/)
+	{
+	$stmtA = "select vicidial_log.user,8,8,8,8,8,8,8,vicidial_log.phone_number,8,8,8,CONVERT_TZ(call_date,$convert_tz),vicidial_log.lead_id,vicidial_users.full_name,vicidial_log.status,8,8,vicidial_log.list_id,8,8,CONVERT_TZ(call_date,$convert_tz),uniqueid,length_in_sec,vicidial_log.list_id,vicidial_log.list_id,UNIX_TIMESTAMP(vicidial_log.call_date),vicidial_campaigns.campaign_name,vicidial_campaigns.campaign_cid from vicidial_log,vicidial_users,vicidial_campaigns where $campaignSQL $sale_statusesSQL and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' and vicidial_users.user=vicidial_log.user and vicidial_log.campaign_id=vicidial_campaigns.campaign_id order by call_date;";
+	}
+$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
+$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
+$sthArows=$sthA->rows;
+$rec_count=0;
+	if ($DB) {print "$sthArows|$stmtA|\n";}
+while ($sthArows > $rec_count)
+	{
+	@aryA = $sthA->fetchrow_array;
+	$user =			$aryA[0];
+	$first_name =	$aryA[1];
+	$last_name =	$aryA[2];
+	$address1 =		$aryA[3];
+	$address2 =		$aryA[4];
+	$city =			$aryA[5];
+	$state =		$aryA[6];
+	$postal_code =	$aryA[7];
+	$phone_number =	$aryA[8];
+	$email =		$aryA[9];
+	$security =		$aryA[10];
+	$comments =		$aryA[11];
+	$call_date =	$aryA[12];
+	$lead_id =		$aryA[13];
+	$agent_name =	$aryA[14];
+	$status =		$aryA[15];
+	$vendor_id =	$aryA[16];
+	$source_id =	$aryA[17];
+	$list_id =		$aryA[18];
+	$title =		$aryA[19];
+	$address3 =		$aryA[20];
+	$last_local_call_time = $aryA[21];
+	$vicidial_id =	$aryA[22];
+	$uniqueid =		$aryA[22];
+	$length_in_sec = $aryA[23];
+	$rank =			$aryA[24];
+	$owner =		$aryA[25];
+	$epoch =		$aryA[26];
+	$did_name =		$aryA[27];
+	$did_pattern =	$aryA[28];
+
+	$outbound = 'Y';
+	$domestic = 'Y';
+	$queue_seconds = '0';
+	$closer='';
+
+	&select_format_loop;
+
+	$TOTAL_SALES++;
+	}
+$sthA->finish();
+
+if (length($with_inboundSQL)>3)
+	{
+	###########################################################################
+	########### CURRENT DAY SALES GATHERING inbound-only: vicidial_closer_log  ######
+	###########################################################################
+	$stmtA = "select vicidial_closer_log.user,first_name,last_name,address1,address2,city,state,postal_code,vicidial_list.phone_number,vicidial_list.email,security_phrase,vicidial_list.comments,CONVERT_TZ(call_date,$convert_tz),vicidial_list.lead_id,vicidial_users.full_name,vicidial_closer_log.status,vicidial_list.vendor_lead_code,vicidial_list.source_id,vicidial_closer_log.list_id,campaign_id,title,address3,last_local_call_time,xfercallid,closecallid,uniqueid,length_in_sec,queue_seconds,vicidial_list.list_id,vicidial_list.list_id,UNIX_TIMESTAMP(vicidial_closer_log.call_date),agent_alert_delay from vicidial_list,vicidial_closer_log,vicidial_users,vicidial_inbound_groups where $with_inboundSQL $close_statusesSQL and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' and vicidial_closer_log.lead_id=vicidial_list.lead_id and vicidial_users.user=vicidial_closer_log.user and vicidial_inbound_groups.group_id=vicidial_closer_log.campaign_id order by call_date;";
+	if ($output_format =~ /^tab-QMcustomUSA$|^tab-SCcustomUSA$/)
+		{
+		$stmtA = "select vicidial_closer_log.user,8,8,8,8,8,8,8,vicidial_closer_log.phone_number,8,8,8,CONVERT_TZ(call_date,$convert_tz),vicidial_closer_log.lead_id,vicidial_users.full_name,vicidial_closer_log.status,8,8,vicidial_closer_log.list_id,campaign_id,8,8,CONVERT_TZ(call_date,$convert_tz),xfercallid,closecallid,uniqueid,length_in_sec,queue_seconds,vicidial_closer_log.list_id,vicidial_closer_log.list_id,UNIX_TIMESTAMP(vicidial_closer_log.call_date),agent_alert_delay from vicidial_closer_log,vicidial_users,vicidial_inbound_groups where $with_inboundSQL $close_statusesSQL and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' and vicidial_users.user=vicidial_closer_log.user and vicidial_inbound_groups.group_id=vicidial_closer_log.campaign_id order by call_date;";
+		}
+	$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
+	$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
+	$sthArows=$sthA->rows;
+	if ($DB) {print "$sthArows|$stmtA|\n";}
+	$rec_count=0;
+	while ($sthArows > $rec_count)
+		{
+		@aryA = $sthA->fetchrow_array;
+		$closer =		$aryA[0];
+		$first_name =	$aryA[1];
+		$last_name =	$aryA[2];
+		$address1 =		$aryA[3];
+		$address2 =		$aryA[4];
+		$city =			$aryA[5];
+		$state =		$aryA[6];
+		$postal_code =	$aryA[7];
+		$phone_number =	$aryA[8];
+		$email =		$aryA[9];
+		$security =		$aryA[10];
+		$comments =		$aryA[11];
+		$call_date =	$aryA[12];
+		$lead_id =		$aryA[13];
+		$closer_name =	$aryA[14];
+		$status =		$aryA[15];
+		$vendor_id =	$aryA[16];
+		$source_id =	$aryA[17];
+		$list_id =		$aryA[18];
+		$campaign_id =	$aryA[19];
+		$title =		$aryA[20];
+		$address3 =		$aryA[21];
+		$last_local_call_time = $aryA[22];
+		$xfercallid =	$aryA[23];
+		$vicidial_id =	$aryA[24];
+		$uniqueid =		$aryA[25];
+		$length_in_sec = $aryA[26];
+		$queue_seconds = $aryA[27];
+		$rank =			$aryA[28];
+		$owner =		$aryA[29];
+		$epoch =		$aryA[30];
+		$agent_alert_delay = int($aryA[31] / 1000);
+
+		$outbound = 'N';
+		$domestic = 'Y';
+		$user = '';
+		$agent_name='';
+
+		$stmtB = "select vicidial_xfer_log.user,full_name from vicidial_xfer_log,vicidial_users where lead_id='$lead_id' and closer='$closer' and xfercallid='$xfercallid' and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' and vicidial_users.user=vicidial_xfer_log.user order by call_date desc limit 1;";
+		$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+		$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+		$sthBrows=$sthB->rows;
+		if ($sthBrows > 0)
+			{
+			@aryB = $sthB->fetchrow_array;
+			$user =			$aryB[0];
+			$agent_name =	$aryB[1];
+			}
+		$sthB->finish();
+
+		&select_format_loop;
+
+		$TOTAL_SALES++;
+		}
+	$sthA->finish();
+	}
+
+close(out);
+
+
+###### EMAIL SECTION
+
+if ( (length($Ealert)>5) && (length($email_list) > 3) )
+	{
+	print "Sending email: $email_list\n";
+
+	use MIME::QuotedPrint;
+	use MIME::Base64;
+	use Mail::Sendmail;
+
+	$mailsubject = "VICIDIAL Lead Export $outfile";
+
+	%mail = ( To      => "$email_list",
+						From    => "$email_sender",
+						Subject => "$mailsubject",
+				   );
+	$boundary = "====" . time() . "====";
+	$mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
+
+	$message = encode_qp( "VICIDIAL Lead Export:\n\n Attachment: $outfile\n Total Records: $TOTAL_SALES\n" );
+
+	$Zfile = "$PATHoutfile";
+
+	open (F, $Zfile) or die "Cannot read $Zfile: $!";
+	binmode F; undef $/;
+	$attachment = encode_base64(<F>);
+	close F;
+
+	$boundary = '--'.$boundary;
+	$mail{body} .= "$boundary\n";
+	$mail{body} .= "Content-Type: text/plain; charset=\"iso-8859-1\"\n";
+	$mail{body} .= "Content-Transfer-Encoding: quoted-printable\n\n";
+	$mail{body} .= "$message\n";
+	$mail{body} .= "$boundary\n";
+	$mail{body} .= "Content-Type: application/octet-stream; name=\"$outfile\"\n";
+	$mail{body} .= "Content-Transfer-Encoding: base64\n";
+	$mail{body} .= "Content-Disposition: attachment; filename=\"$outfile\"\n\n";
+	$mail{body} .= "$attachment\n";
+	$mail{body} .= "$boundary";
+	$mail{body} .= "--\n";
+
+	sendmail(%mail) or die $mail::Sendmail::error;
+	print "ok. log says:\n", $mail::sendmail::log;  ### print mail log for status
+
+	}
+
+
+
+# FTP/SFTP overrides-
+#	$VARREPORT_host =	'10.0.0.4';
+#	$VARREPORT_port =	'21';
+#	$VARREPORT_user =	'cron';
+#	$VARREPORT_pass =	'test';
+#	$VARREPORT_dir =	'';
+
+$NODATEDIR = 0;	# Don't use dated directories for audio
+$YEARDIR = 1;	# put dated directories in a year directory first
+
+if ($ftp_transfer > 0)
+	{
+	if ($sftp_mode > 0)
+		{
+		use Net::SFTP;
+
+		if (!$Q) {print "Sending File Over SFTP: $outfile\n";}
+		my $sftp = Net::SFTP->new($VARREPORT_host, user => "$VARREPORT_user", password => "$VARREPORT_pass", ssh_args => [ port => "$VARREPORT_port", debug => 1 ]);
+		$sftp->put("$PATHweb/vicidial/server_reports/$outfile", "$VARREPORT_dir/$outfile");
+	#	$sftp->do_close();
+		}
+	else
+		{
+		use Net::FTP;
+
+		if (!$Q) {print "Sending File Over FTP: $outfile\n";}
+		$ftp = Net::FTP->new("$VARREPORT_host", Port => $VARREPORT_port);
+		$ftp->login("$VARREPORT_user","$VARREPORT_pass");
+		$ftp->cwd("$VARREPORT_dir");
+		$ftp->put("$PATHweb/vicidial/server_reports/$outfile", "$outfile");
+		$ftp->quit;
+		}
+	}
+
+
+if ( ( ($DB) || ($totals_only > 0) ) && ($output_format =~ /^tab-QMcustomUSA$|^tab-SCcustomUSA$/) )
+	{
+	if ($OUTtalk > 0) {$OUTtalkmin = ($OUTtalk / 60);}
+	if ($INtalk > 0) {$INtalkmin = ($INtalk / 60);}
+	$OUTtalkmin = sprintf("%10.2f",$OUTtalkmin);
+	$INtalkmin = sprintf("%10.2f",$INtalkmin);
+	$OUTcalls = sprintf("%10s",$OUTcalls);
+	$INcalls = sprintf("%10s",$INcalls);
+	$OUTtalk = sprintf("%10s",$OUTtalk);
+	$INtalk = sprintf("%10s",$INtalk);
+	print "OUTBOUND CALLS:   $OUTcalls\n";
+	print "OUTBOUND SECONDS: $OUTtalk\n";
+	print "OUTBOUND MINUTES: $OUTtalkmin\n";
+	print "INBOUND CALLS:    $INcalls\n";
+	print "INBOUND SECONDS:  $INtalk\n";
+	print "INBOUND MINUTES:  $INtalkmin\n";
+	}
+
+if ($ftp_audio_transfer > 0)
+	{
+	if ($sftp_mode > 0)
+		{
+		use Net::SFTP;
+		use Net::SFTP::Attributes;
+		}
+	else
+		{use Net::FTP;}
+	opendir(FILE, "$tempdir/");
+	@FILES = readdir(FILE);
+
+	if (!$Q) {print "Sending Audio Over FTP: $#FILES\n";}
+
+	if ($ftp_norun > 0)
+		{exit;}
+
+	$i=0;
+	foreach(@FILES)
+		{
+		if ( (length($FILES[$i]) > 4) && (!-d "$tempdir/$FILES[$i]") )
+			{
+			if ($sftp_mode > 0)
+				{
+				if (!$Q) {print "Sending Audio Over SFTP: $FILES[$i]\n";}
+				my $sftp = Net::SFTP->new($VARREPORT_host, user => "$VARREPORT_user", password => "$VARREPORT_pass", ssh_args => [ port => "$VARREPORT_port", debug => 1 ]);
+				my $attrs = Net::SFTP::Attributes->new();
+				$attrs->as_buffer;
+				$newVARREPORT_dir = $VARREPORT_dir;
+				if ($NODATEDIR < 1)
+					{
+					if ($YEARDIR > 0)
+						{
+						if ($DB > 0) {print "making directory: $VARREPORT_dir/$year\n";}
+						$sftp->do_mkdir("$VARREPORT_dir/$year", $attrs);
+						$newVARREPORT_dir = "$VARREPORT_dir/$year/$start_date";
+						}
+					else
+						{
+						$newVARREPORT_dir = "$VARREPORT_dir/$start_date";
+						}
+					if ($DB > 0) {print "making directory: $newVARREPORT_dir\n";}
+					$sftp->do_mkdir("$newVARREPORT_dir", $attrs);
+					}
+				$sftp->put("$tempdir/$FILES[$i]", "$newVARREPORT_dir/$FILES[$i]");
+				$sftp->do_close();
+				}
+			else
+				{
+				$ftp = Net::FTP->new("$VARREPORT_host", Port => "$VARREPORT_port", Debug => "$DB", Passive => "1");
+				$ftp->login("$VARREPORT_user","$VARREPORT_pass");
+				if (length($VARREPORT_dir) > 0)
+					{$ftp->cwd("$VARREPORT_dir");}
+				if ($NODATEDIR < 1)
+					{
+					if ($YEARDIR > 0)
+						{
+						$ftp->mkdir("$year");
+						$ftp->cwd("$year");
+						}
+					$ftp->mkdir("$start_date");
+					$ftp->cwd("$start_date");
+					}
+				$start_date_PATH = "$start_date/";
+				$ftp->binary();
+				$ftp->put("$tempdir/$FILES[$i]", "$FILES[$i]");
+				$ftp->quit;
+				}
+			}
+		$i++;
+		}
+	}
+
+
+### calculate time to run script ###
+$secY = time();
+$secZ = ($secY - $secX);
+$secZm = ($secZ /60);
+
+if (!$Q) {print "SALES EXPORT FOR $shipdate: $outfile\n";}
+if (!$Q) {print "TOTAL SALES: $TOTAL_SALES\n";}
+if (!$Q) {print "TOTAL EXCLUDED BY CALLTIME: $CALLTIME_KICK\n";}
+if (!$Q) {print "script execution time in seconds: $secZ     minutes: $secZm\n";}
+
+exit;
+
+
+
+
+
+### Subroutine for formatting of the output ###
+sub select_format_loop
+	{
+	$within_calltime = 1;
+
+	if (length($call_time) > 0)
+		{
+		$CTtarget = ($secX - 10);
+		($Csec,$Cmin,$Chour,$Cmday,$Cmon,$Cyear,$Cwday,$Cyday,$Cisdst) = localtime($epoch);
+		if ($Chour < 10) {$Chour = "0$Chour";}
+		if ($Cmin < 10) {$Cmin = "0$Cmin";}
+		$CThourminute = "$Chour$Cmin";
+
+		$CTstart = $Gct_default_start;
+		$CTstop = $Gct_default_stop;
+
+		if ( ($Cwday == 0) && ( ($Gct_sunday_start > 0) && ($Gct_sunday_stop > 0) ) )
+			{$CTstart = $Gct_sunday_start;   $CTstop = $Gct_sunday_stop;}
+		if ( ($Cwday == 1) && ( ($Gct_monday_start > 0) && ($Gct_monday_stop > 0) ) )
+			{$CTstart = $Gct_monday_start;   $CTstop = $Gct_monday_stop;}
+		if ( ($Cwday == 2) && ( ($Gct_tuesday_start > 0) && ($Gct_tuesday_stop > 0) ) )
+			{$CTstart = $Gct_tuesday_start;   $CTstop = $Gct_tuesday_stop;}
+		if ( ($Cwday == 3) && ( ($Gct_wednesday_start > 0) && ($Gct_wednesday_stop > 0) ) )
+			{$CTstart = $Gct_wednesday_start;   $CTstop = $Gct_wednesday_stop;}
+		if ( ($Cwday == 4) && ( ($Gct_thursday_start > 0) && ($Gct_thursday_stop > 0) ) )
+			{$CTstart = $Gct_thursday_start;   $CTstop = $Gct_thursday_stop;}
+		if ( ($Cwday == 5) && ( ($Gct_friday_start > 0) && ($Gct_friday_stop > 0) ) )
+			{$CTstart = $Gct_friday_start;   $CTstop = $Gct_friday_stop;}
+		if ( ($Cwday == 6) && ( ($Gct_saturday_start > 0) && ($Gct_saturday_stop > 0) ) )
+			{$CTstart = $Gct_saturday_start;   $CTstop = $Gct_saturday_stop;}
+
+		if ( ($CThourminute < $CTstart) || ($CThourminute > $CTstop) )
+			{
+			if ($DB > 0) {print "Call is outside of defined call time: $CThourminute|$Cwday|   |$CTstart|$CTstop| \n";}
+			$within_calltime=0;
+			}
+		}
+	
+	if ( ($within_calltime > 0) || ( ($outbound_calltime_ignore > 0) && ($outbound =~ /Y/) ) )
+		{
+		$str='';
+		if ($T)
+			{
+		#	$user =			'1234';
+			$agent_name =	'Joe Agent';
+		#	$closer =		'4321';
+			$closer_name =	'Jane Closer';
+			$security =		'4111111111111111';
+			$comments =		'VISA';
+			$phone_number =~ s/^\d\d\d\d\d/23456/gi;
+			$address1 =~ s/^..../1234 /gi
+			}
+
+		##### BEGIN standard audio lookup #####
+		if ($with_transfer_audio < 1)
+			{
+			$ivr_id = '0';
+			$ivr_filename = '';
+
+			$stmtB = "select recording_id,filename,location from recording_log where lead_id='$lead_id' and vicidial_id='$vicidial_id' and start_time > '$shipdate 00:00:01' and start_time < '$shipdate 23:59:59' order by start_time desc limit 1;";
+			$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+			$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+			$sthBrows=$sthB->rows;
+			$rec_countB=0;
+			while ($sthBrows > $rec_countB)
+				{
+				@aryB = $sthB->fetchrow_array;
+				$ivr_id =		$aryB[0];
+				$ivr_filename = $aryB[1];
+				$ivr_location = $aryB[2];
+				$rec_countB++;
+				}
+			$sthB->finish();
+
+			if ($sthBrows < 1)
+				{
+				$stmtB = "select recording_id,filename,location from recording_log where lead_id='$lead_id' and start_time > '$shipdate 00:00:01' and start_time < '$shipdate 23:59:59' order by length_in_sec desc limit 1;";
+				$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+				$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+				$sthBrows=$sthB->rows;
+				$rec_countB=0;
+				while ($sthBrows > $rec_countB)
+					{
+					@aryB = $sthB->fetchrow_array;
+					$ivr_id =		$aryB[0];
+					$ivr_filename = $aryB[1];
+					$ivr_location = $aryB[2];
+					$rec_countB++;
+					}
+				$sthB->finish();
+				}
+
+			if (length($ivr_id)<3) 
+				{
+				$stmtB = "select recording_id,filename,location from recording_log where lead_id='$lead_id' order by length_in_sec desc limit 1;";
+				$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+				$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+				$sthBrows=$sthB->rows;
+				$rec_countB=0;
+				while ($sthBrows > $rec_countB)
+					{
+					@aryB = $sthB->fetchrow_array;
+					$ivr_id =		$aryB[0];
+					$ivr_filename = $aryB[1];
+					$ivr_location = $aryB[2];
+					$rec_countB++;
+					}
+				$sthB->finish();
+
+				if (length($ivr_id)<3) 
+					{
+					$stmtB = "select recording_id,filename,location from recording_log where filename LIKE \"%$phone_number%\" order by length_in_sec desc limit 1;";
+					$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+					$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+					$sthBrows=$sthB->rows;
+					$rec_countB=0;
+					while ($sthBrows > $rec_countB)
+						{
+						@aryB = $sthB->fetchrow_array;
+						$ivr_id =		$aryB[0];
+						$ivr_filename = $aryB[1];
+						$ivr_location = $aryB[2];
+						$rec_countB++;
+						}
+					$sthB->finish();
+					}
+				}
+
+			if ( ($ftp_audio_transfer > 0) && (length($ivr_filename) > 3) && (length($ivr_location) > 5) )
+				{
+				@ivr_path = split(/\//,$ivr_location);
+				$path_file = $ivr_path[$#ivr_path];
+				`$wgetbin -q --output-document=$tempdir/$path_file $ivr_location `;
+				}
+			}
+		##### END standard audio lookup #####
+
+		##### BEGIN transfer audio lookup #####
+		else
+			{
+			$ivr_id = '0';
+			$ivr_filename = '';
+			$ivr_location = '';
+
+			$stmtB = "select recording_id,filename,location from recording_log where vicidial_id='$vicidial_id' and start_time > '$shipdate 00:00:01' and start_time < '$shipdate 23:59:59' order by start_time limit 10;";
+			$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+			$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+			$sthBrows=$sthB->rows;
+			$rec_countB=0;
+			while ($sthBrows > $rec_countB)
+				{
+				@aryB = $sthB->fetchrow_array;
+				if ($rec_countB > 0)
+					{
+					$ivr_id .=			"|";
+					$ivr_filename .=	"|";
+					}
+				$ivr_id .=			"$aryB[0]";
+				$ivr_location =		"$aryB[2]";
+				@ivr_path = split(/\//,$ivr_location);
+				$path_file = $ivr_path[$#ivr_path];
+				$ivr_filename .=	"$path_file";
+				$rec_countB++;
+				if ($ftp_audio_transfer > 0)
+					{
+					`$wgetbin -q --output-document=$tempdir/$path_file $aryB[2] `;
+					}
+				}
+			$sthB->finish();
+
+			### Look for other closer calls after this call
+			$more_calls[0]='';
+			$stmtB = "select closecallid,length_in_sec,queue_seconds,agent_alert_delay from vicidial_closer_log,vicidial_inbound_groups where lead_id='$lead_id' and call_date > '$call_date' and call_date < '$shipdate 23:59:59' and campaign_id=group_id order by call_date limit 10;";
+			$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+			$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+			$sthBrows=$sthB->rows;
+			if ($DBX > 0) {print "$sthBrows|$stmtB\n";}
+			$rec_countB=0;
+			while ($sthBrows > $rec_countB)
+				{
+				@aryB = $sthB->fetchrow_array;
+				$more_calls[$rec_countB] =	"$aryB[0]";
+				$Xagent_alert_delay = int($aryB[3] / 1000);
+				$length_in_sec = (($length_in_sec + $aryB[1]) - $Xagent_alert_delay);
+				$queue_seconds = ($queue_seconds + $aryB[2]);
+				$rec_countB++;
+				}
+			$sthB->finish();
+
+			$u=0;
+			while ($sthBrows > $u)
+				{
+				$closecallid = $more_calls[$u];
+
+				$stmtB = "select recording_id,filename,location from recording_log where vicidial_id='$closecallid' and start_time > '$shipdate 00:00:01' and start_time < '$shipdate 23:59:59' order by start_time limit 10;";
+				$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+				$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+				$sthBrowsR=$sthB->rows;
+				if ($DBX > 0) {print "$sthBrowsR|$stmtB\n";}
+				$rec_countBR=0;
+				while ($sthBrowsR > $rec_countBR)
+					{
+					@aryB = $sthB->fetchrow_array;
+					if (length($ivr_id) > 1)
+						{
+						$ivr_id .=			"|";
+						$ivr_filename .=	"|";
+						}
+					$ivr_id .=			"$aryB[0]";
+					$ivr_location =		"$aryB[2]";
+					@ivr_path = split(/\//,$ivr_location);
+					$path_file = $ivr_path[$#ivr_path];
+					$ivr_filename .=	"$path_file";
+					$rec_countBR++;
+					if ($ftp_audio_transfer > 0)
+						{
+						`$wgetbin -q --output-document=$tempdir/$path_file $aryB[2] `;
+						}
+					}
+				$sthB->finish();
+
+				$u++;
+				}
+			}
+		##### END transfer audio lookup #####
+
+		##### BEGIN DID lookup #####
+		if ( ($with_did_lookup > 0) && ($outbound =~ /N/) )
+			{
+			$did_pattern = '';
+			$did_name = '';
+			$did_date = '';
+
+			$stmtB = "select did_pattern,did_description,CONVERT_TZ(call_date,$convert_tz) from vicidial_inbound_dids vid,vicidial_did_log vdl where uniqueid='$uniqueid' and call_date > '$shipdate 00:00:01' and call_date <= '$call_date' and vid.did_id=vdl.did_id order by call_date desc limit 1;";
+			if ($DBX > 0) {print "$stmtB\n";}
+			$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+			$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+			$sthBrows=$sthB->rows;
+			if ($sthBrows > 0)
+				{
+				@aryB = $sthB->fetchrow_array;
+				$did_pattern =	"$aryB[0]";
+				$did_name =		"$aryB[1]";
+				$did_date =		"$aryB[2]";
+				$sthB->finish();
+				}
+			else
+				{
+				$stmtB = "select vc.campaign_cid,vc.campaign_name,CONVERT_TZ(call_date,$convert_tz) from vicidial_campaigns vc,vicidial_log vl where lead_id='$lead_id' and call_date > '$shipdate 00:00:01' and call_date <= '$call_date' and vc.campaign_id=vl.campaign_id order by call_date desc limit 1;";
+				if ($DBX > 0) {print "$stmtB\n";}
+				$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+				$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+				$sthBrows=$sthB->rows;
+				if ($sthBrows > 0)
+					{
+					@aryB = $sthB->fetchrow_array;
+					$did_pattern =	"$aryB[0]";
+					$did_name =		"$aryB[1]";
+					$did_date =		"$aryB[2]";
+					$sthB->finish();
+					}
+				##### UNCOMMENT IF USING LIST ID NAME FOR DID_NAME
+			#	$stmtB = "select list_name,campaign_cid_override from vicidial_lists where list_id='$list_id' limit 1;";
+			#	if ($DBX > 0) {print "$stmtB\n";}
+			#	$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+			#	$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+			#	$sthBrows=$sthB->rows;
+			#	if ($sthBrows > 0)
+			#		{
+			#		@aryB = $sthB->fetchrow_array;
+			#		$did_name =		$aryB[0];
+			#		$did_pattern =	$aryB[1];
+			#		$sthB->finish();
+			#		}
+				}
+			}
+		##### END DID lookup #####
+
+		if ($status =~ /UPSELL/) {$UPSELL='L5';}
+		else {$UPSELL='N';}
+
+		if ($output_format =~ /^pipe-standard$/) 
+			{
+			$str = "$first_name|$last_name|$address1|$address2|$city|$state|$postal_code|$phone_number|$email|$security|$comments|$call_date|$lead_id|$list_id|$user|$agent_name|$status|$vendor_id|$source_id|$campaign|$campaign_id|$ivr_id|$closer|$closer_name|$rank|$owner|\n";
+			}
+
+		if ($output_format =~ /^csv-standard$/) 
+			{
+			$str = "\"$first_name\",\"$last_name\",\"$address1\",\"$address2\",\"$city\",\"$state\",\"$postal_code\",\"$phone_number\",\"$email\",\"$security\",\"$comments\",\"$call_date\",\"$lead_id\",\"$list_id\",\"$user\",\"$agent_name\",\"$status\",\"$vendor_id\",\"$source_id\",\"$campaign\",\"$campaign_id\",\"$ivr_id\",\"$closer\",\"$closer_name\",\"$rank\",\"$owner\"\r\n";
+			}
+
+		if ($output_format =~ /^tab-standard$/) 
+			{
+			$str = "$first_name\t$last_name\t$address1\t$address2\t$city\t$state\t$postal_code\t$phone_number\t$email\t$security\t$comments\t$call_date\t$lead_id\t$list_id\t$user\t$agent_name\t$status\t$vendor_id\t$source_id\t$campaign\t$campaign_id\t$ivr_id\t$closer\t$closer_name\t$rank\t$owner\t\n";
+			}
+
+		if ($output_format =~ /^pipe-triplep$/) 
+			{
+			$str = "$user|$agent_name|$closer|$closer_name|$call_date|$status|$first_name|$last_name|$phone_number|$address1|$address2|$city|$state|$postal_code|$comments|$security|$email|$vendor_id|$source_id|$lead_id|$list_id|$campaign|$campaign_id|$ivr_id|\n";
+			}
+
+		if ($output_format =~ /^pipe-vici$/) 
+			{
+			$str = "VDAD|$agent_name|$first_name|$last_name|$address1|$address2|$city|$state|$postal_code|$phone_number|$ivr_id|DU|$UPSELL|N|||$security|$comments||||||$call_date|CBDISC|$email\r\n";
+			}
+
+		if ($output_format =~ /^html-rec$/) 
+			{
+			$str = "$user|$agent_name|$closer|$closer_name|$call_date|$status|$first_name|$last_name|$phone_number|$address1|$address2|$city|$state|$postal_code|$comments|$security|$email|$vendor_id|$source_id|$lead_id|$list_id|$campaign|$campaign_id|<a href=\"$ivr_location\">$ivr_id</a>|\n";
+			}
+
+		if ($output_format =~ /^fixed-as400$/) 
+			{
+			# 16884259  MRS.      JEAN           BROWN               RISALPUR                      BROMSBERROW HEATYH            LEDBURY                       HEREFORDSHIRE                 ENGLAND             HR8 1PQ  01531650052         1209200809:52NI              3205UK
+			$vendor_id =	sprintf("%-10s",$vendor_id);	while(length($vendor_id)>10)	{$vendor_id =~ s/.$//gi;}
+			$title =		sprintf("%-10s",$title);		while(length($title)>10)		{$title =~ s/.$//gi;}
+			$first_name =	sprintf("%-15s",$first_name);	while(length($first_name)>15)	{$first_name =~ s/.$//gi;}
+			$last_name =	sprintf("%-20s",$last_name);	while(length($last_name)>20)	{$last_name =~ s/.$//gi;}
+			$address1 =		sprintf("%-30s",$address1);		while(length($address1)>30)		{$address1 =~ s/.$//gi;}
+			$address2 =		sprintf("%-30s",$address2);		while(length($address2)>30)		{$address2 =~ s/.$//gi;}
+			$address3 =		sprintf("%-30s",$address3);		while(length($address3)>30)		{$address3 =~ s/.$//gi;}
+			$city =			sprintf("%-50s",$city);			while(length($city)>50)			{$city =~ s/.$//gi;}
+			$postal_code =	sprintf("%-9s",$postal_code);	while(length($postal_code)>9)	{$postal_code =~ s/.$//gi;}
+			$phone_number =	sprintf("%-20s",$phone_number);	while(length($phone_number)>20)	{$phone_number =~ s/.$//gi;}
+			@dtsplit = split(" ",$last_local_call_time); 
+			@datesplit = split("-",$dtsplit[0]);
+			$timesplit = substr($dtsplit[1], 0, 5);
+			$formatted_date = "$datesplit[1]$datesplit[2]$datesplit[0]$timesplit";
+			$user =			sprintf("%-4s",$user);
+			if ($status =~ /^AA$/)		{$status = 'A';}
+			if ($status =~ /^A$/)		{$status = 'A';}
+			if ($status =~ /^B$/)		{$status = 'B';}
+			if ($status =~ /^N$/)		{$status = 'N';}
+			if ($status =~ /^NA$/)		{$status = 'N';}
+			if ($status =~ /^NP$/)		{$status = 'N';}
+			if ($status =~ /^PU$/)		{$status = 'N';}
+			if ($status =~ /^DROP$/)	{$status = 'N';}
+			if ($status =~ /^SALE$/)	{$status = 'AP';}
+			if ($status =~ /^A6$/)		{$status = 'A6';}
+			if ($status =~ /^DC$/) 		{$status = 'D';}
+			if ($status =~ /^DNC$/) 	{$status = 'DC';}
+			if ($status =~ /^DNCL$/) 	{$status = 'DC';}
+			if ($status =~ /^DIED$/)	{$status = 'DD';}
+			if ($status =~ /^COMP$/)	{$status = 'DD';}
+			if ($status =~ /^DEC$/)		{$status = 'DD';}
+			if ($status =~ /^ERI$/)		{$status = 'DD';}
+			if ($status =~ /^INCALL$/)	{$status = 'DD';}
+			if ($status =~ /^SP$/)		{$status = 'DD';}
+			if ($status =~ /^WRON$/)	{$status = 'DD';}
+			if ($status =~ /^HBED$/)	{$status = 'DD';}
+			if ($status =~ /^CALLBK$/)	{$status = 'A6';}
+			if ($status =~ /^HAP1$/)	{$status = 'NI';}
+			if ($status =~ /^HAP2$/)	{$status = 'NI';}
+			if ($status =~ /^NI$/)		{$status = 'NI';}
+
+			$status =	sprintf("%-16s",$status);			while(length($status)>16)		{$status =~ s/.$//gi;}
+			$user =~ s/VDAD/    /gi;	
+			$UK = 'UK';
+
+			$str = "$vendor_id$title$first_name$last_name$address1$address2$address3$city$postal_code$phone_number$formatted_date$status$user$UK\r\n";
+			}
+
+		if ($output_format =~ /^tab-QMcustomUSA$/) 
+			{
+			# 1245328655100219	2009-06-18	05:37:35	937	9375551212	8185551223	8106	35	255	0	DSAW	-	q8187-20090618-053939-1245328655.100219.WAV|q8186-20090618-053735-1245328655.100219.WAV
+			# 1-  unique number (digits only)
+			# 2-  date
+			# 3-  time
+			# 4-  CID arecode
+			# 5-  CID full
+			# 6-  DID
+			# 7-  user
+			# 8-  hold time (seconds)
+			# 9-  talk time (seconds)
+			# 10- after call work time (seconds)
+			# 11- application name, 4 characters
+			# 12- order number (just a dash for now '-')
+			# 13- call recording filenames
+			# 14- outbound/inbound
+			# 15- domestic or international
+
+			$uniqueid =~ s/\.00000//gi;
+			$uniqueid =~ s/\.0000//gi;
+			$uniqueid =~ s/\.000//gi;
+			$uniqueid =~ s/\.00//gi;
+			$uniqueid =~ s/\.0//gi;
+			$uniqueid =~ s/\D//gi;
+			@call_date_array = split(/ /,$call_date);
+			while (length($phone_number)>10) {$phone_number =~ s/^.//gi;}
+			$phone_areacode = substr($phone_number, 0, 3);
+			if (length($closer) < 1) {$closer = $user;}
+			if ($closer =~ /VDCL|VDAD/) {$closer='-';}
+			$application = 	substr($did_name, 0, 4);
+			$queue_seconds = int($queue_seconds + .5);
+			$talk_seconds = ( ($length_in_sec - $queue_seconds) - $agent_alert_delay);
+			if ($talk_seconds < 0) {$talk_seconds=0;}
+			$dispo_time = 0;
+
+			if ($uniqueidLIST !~ /\|$uniqueid\|/)
+				{
+				$str = "103$uniqueid\t$call_date_array[0]\t$call_date_array[1]\t$phone_areacode\t$phone_number\t$did_pattern\t$closer\t$queue_seconds\t$talk_seconds\t$dispo_time\t$application\t-\t$ivr_filename\t$outbound\t$domestic\t\n";
+
+				$uniqueidLIST .= "$uniqueid|";
+				if ($DBX > 0) {print "UNIQUE: -----$uniqueidLIST-----$uniqueid";}
+		#		if ($DBX > 0) {print "$uniqueid|$talk_seconds|$outbound|$INcalls|$OUTcalls\n";}
+
+				if ($outbound =~ /Y/) {$OUTtalk = ($OUTtalk + $talk_seconds);   $OUTcalls++;}
+				else {$INtalk = ($INtalk + $talk_seconds);   $INcalls++;}
+				}
+
+			}
+
+		if ($output_format =~ /^tab-SCcustomUSA$/) 
+			{
+			# 1031266398284129        02-17-2010      01:18:04        727     7275551212              6666    0       114     11              NI      1234567890      20100217-041806_7275551212-all.wav|20100217-041806_7275551212-all.wav  Inbound 02-24-2010  19:00:00    02-17-2010 01:18:47     this is a test
+
+			# 1-  Call id: uniqueid padded
+			# 2-  Date: call date in EST
+			# 3-  Time: call time in EST.
+			# 4-  Area Code: area code of the caller
+			# 5-  CID: full 10-digit phone number of the caller
+			# 6-  DID: inbound number that was dialed by the caller
+			# 7-  Agent id: Who answered the call(user), leave blank is call was dropped / abondoned.
+			# 8-  Hold: time in seconds for how long the call was holding before getting answered by an agent
+			# 9-  Talk: time in seconds for how long the agent was talking with the customer
+			# 10-  ACW: time in seconds for how long the agent spent wrapping up the call before answering the next call.
+			# 11-  Campaign: Name of Campaign(application code, 4 characters)
+			# 12-  Type of Call: status(disposition)
+			# 13-  Work Order #: i.e. Cxxxxxxxxxxx
+			# 14-  Call_Recording_Filenames: file name for recorded file name for the call.. Example: 1001.wav
+			# 15-  Inbound/Outbound: Inbound or Outbound call designation
+			# 16-  Appointment Set Date and Time: Time appt was set for in EST
+			# 17-  Note Time Stamp: Time Stamp of Note
+			# 18-  Note Text: Actual Note taken by agent
+
+			$stmtB = "select CONVERT_TZ(call_date,$convert_tz),order_id,appointment_date,appointment_time,call_notes from vicidial_call_notes where lead_id='$lead_id' and vicidial_id='$uniqueid' and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' order by call_date desc limit 1;";
+			$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+			$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+			$sthBrows=$sthB->rows;
+			if ($DB) {print "$sthBrows|$stmtB|\n";}
+			$rec_countB=0;
+			while ($sthBrows > $rec_countB)
+				{
+				@aryB = $sthB->fetchrow_array;
+				$appointment_call_date =	$aryB[0];
+				$order_id =					$aryB[1];
+				$appointment_date =			$aryB[2];
+				$appointment_time =			$aryB[3];
+				$call_notes =				$aryB[4];
+				$rec_countB++;
+				}
+			$sthB->finish();
+
+			$uniqueid =~ s/\.00000//gi;
+			$uniqueid =~ s/\.0000//gi;
+			$uniqueid =~ s/\.000//gi;
+			$uniqueid =~ s/\.00//gi;
+			$uniqueid =~ s/\.0//gi;
+			$uniqueid =~ s/\D//gi;
+
+			@call_date_array = split(/ /,$call_date);
+			@call_date_format = split(/-/,$call_date_array[0]);
+			$call_date_array[0] = "$call_date_format[1]-$call_date_format[2]-$call_date_format[0]";
+
+			@appointment_date_array = split(/ /,$appointment_date);
+			@appointment_date_format = split(/-/,$appointment_date_array[0]);
+			$appointment_date_array[0] = "$appointment_date_format[1]-$appointment_date_format[2]-$appointment_date_format[0]";
+			$appointment_date = "$appointment_date_array[0] $appointment_date_array[1]";
+
+			@appointment_call_date_array = split(/ /,$appointment_call_date);
+			@appointment_call_date_format = split(/-/,$appointment_call_date_array[0]);
+			$appointment_call_date_array[0] = "$appointment_call_date_format[1]-$appointment_call_date_format[2]-$appointment_call_date_format[0]";
+			$appointment_call_date = "$appointment_call_date_array[0] $appointment_call_date_array[1]";
+
+			while (length($phone_number)>10) {$phone_number =~ s/^.//gi;}
+			$phone_areacode = substr($phone_number, 0, 3);
+			if (length($closer) < 1) {$closer = $user;}
+			if ($closer =~ /VDCL|VDAD/) {$closer='-';}
+			$application = 	substr($did_name, 0, 4);
+			$queue_seconds = int($queue_seconds + .5);
+			$talk_seconds = ( ($length_in_sec - $queue_seconds) - $agent_alert_delay);
+			if ($talk_seconds < 0) {$talk_seconds=0;}
+			$call_notes =~ s/\r|\n|\t//gi;
+			if ($outbound =~ /Y/) {$in_out = "Outbound";}
+			else {$in_out = "Inbound";}
+
+			$dispo_time = 0;
+			$stmtB = "select dispo_sec from vicidial_agent_log where lead_id='$lead_id' and user='$closer' and event_time > '$shipdate 00:00:01' and event_time < '$shipdate 23:59:59' order by event_time desc limit 1;";
+			$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+			$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+			$sthBrows=$sthB->rows;
+			if ($DB) {print "$sthBrows|$stmtB|\n";}
+			$rec_countB=0;
+			while ($sthBrows > $rec_countB)
+				{
+				@aryB = $sthB->fetchrow_array;
+				$dispo_time =	$aryB[0];
+				$rec_countB++;
+				}
+			$sthB->finish();
+
+			if ($uniqueidLIST !~ /\|$uniqueid\|/)
+				{
+				$str = "103$uniqueid\t$call_date_array[0]\t$call_date_array[1]\t$phone_areacode\t$phone_number\t$did_pattern\t$closer\t$queue_seconds\t$talk_seconds\t$dispo_time\t$application\t$status\t$order_id\t$ivr_filename\t$in_out\t$appointment_date $appointment_time\t$appointment_call_date\t$call_notes\t\n";
+
+				$uniqueidLIST .= "$uniqueid|";
+				if ($DBX > 0) {print "UNIQUE: -----$uniqueidLIST-----$uniqueid";}
+		#		if ($DBX > 0) {print "$uniqueid|$talk_seconds|$outbound|$INcalls|$OUTcalls\n";}
+
+				if ($outbound =~ /Y/) {$OUTtalk = ($OUTtalk + $talk_seconds);   $OUTcalls++;}
+				else {$INtalk = ($INtalk + $talk_seconds);   $INcalls++;}
+				}
+
+			}
+
+		$Ealert .= "$str"; 
+
+		print out "$str"; 
+		if ($DBX) {print "$str\n";}
+		}
+	else
+		{$CALLTIME_KICK++;}
+
+	if ($DB > 0)
+		{
+		if ($rec_count =~ /10$/i) {print STDERR "0     $rec_count\r";}
+		if ($rec_count =~ /20$/i) {print STDERR "+     $rec_count\r";}
+		if ($rec_count =~ /30$/i) {print STDERR "|     $rec_count\r";}
+		if ($rec_count =~ /40$/i) {print STDERR "\\     $rec_count\r";}
+		if ($rec_count =~ /50$/i) {print STDERR "-     $rec_count\r";}
+		if ($rec_count =~ /60$/i) {print STDERR "/     $rec_count\r";}
+		if ($rec_count =~ /70$/i) {print STDERR "|     $rec_count\r";}
+		if ($rec_count =~ /80$/i) {print STDERR "+     $rec_count\r";}
+		if ($rec_count =~ /90$/i) {print STDERR "0     $rec_count\r";}
+		if ($rec_count =~ /00$/i) {print "$rec_count|$TOTAL_SALES|$CALLTIME_KICK|         |$phone_number|\n";}
+		}
+	$rec_count++;
+
+	}
+
diff --git a/agc_2-X/trunk/bin/AST_VDsales_export_SFTPSSH2.pl b/agc_2-X/trunk/bin/AST_VDsales_export_SFTPSSH2.pl
new file mode 100644
index 00000000..d23dbc36
--- /dev/null
+++ b/agc_2-X/trunk/bin/AST_VDsales_export_SFTPSSH2.pl
@@ -0,0 +1,1475 @@
+#!/usr/bin/perl
+#
+# AST_VDsales_export_SFTPSSH2.pl                version: 2.4
+#
+# This script is designed to gather sales for a VICIDIAL Outbound-only campaign and
+# post them to a directory
+#
+# /usr/share/astguiclient/AST_VDsales_export_SFTP.pl --campaign=GOODB-GROUP1-GROUP3-GROUP4-SPECIALS-DNC_BEDS --output-format=fixed-as400 --sale-statuses=SALE --debug --filename=BEDSsaleMMDD.txt --date=yesterday --email-list=test@gmail.com --email-sender=test@test.com
+#
+# Copyright (C) 2012  Matt Florell <vicidial@gmail.com>    LICENSE: AGPLv2
+#
+# CHANGES
+# 61219-1118 - First version
+# 70503-2137 - Added upsell
+# 70611-1154 - Added CLI options
+# 70709-1411 - Added FTP transfer option
+# 71005-0054 - Altered script to use astguiclient.conf for settings
+# 90105-1155 - Added AS400 export formats and changed around date override
+# 90106-2309 - Added email sending
+# 90620-0900 - Formatting fixes
+# 90627-0757 - Added time addition when transfer recordings is enabled
+# 90710-0514 - Fixes for data output formatting changes
+# 90721-1314 - Added rank and owner as vicidial_list fields
+# 90731-0555 - Added call time scheme restriction
+# 90807-1632 - Fixed call time bug and call length bug
+# 90825-1249 - Added without-camp and without-in options 
+# 90902-0437 - Added outbound-calltime-ignore and ftp-norun options
+# 90909-2322 - Added totals-only option
+# 101022-1022 - Added hours minutes seconds to filename variables
+# 110829-1045 - Changed recording lookup to try to find by vicidial_id first
+# 120228-1855 - Added SFTP(SSH2) file transmission option
+#
+
+$txt = '.txt';
+$US = '_';
+$MT[0] = '';
+$Q=0;
+$DB=0;
+$uniqueidLIST='|';
+
+# Default FTP account variables
+$VARREPORT_host = '10.0.0.4';
+$VARREPORT_user = 'cron';
+$VARREPORT_pass = 'test';
+$VARREPORT_port = '21';
+$VARREPORT_dir  = 'REPORTS';
+
+# default CLI values
+$campaign = 'TESTCAMP';
+$sale_statuses = 'SALE-UPSELL';
+$output_format = 'pipe-standard';
+$outbound_calltime_ignore=0;
+$totals_only=0;
+$OUTcalls=0;
+$OUTtalk=0;
+$OUTtalkmin=0;
+$INcalls=0;
+$INtalk=0;
+$INtalkmin=0;
+
+$secX = time();
+$time = $secX;
+	($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";}
+$timestamp = "$year-$mon-$mday $hour:$min:$sec";
+$filedate = "$year$mon$mday";
+$ABIfiledate = "$mon-$mday-$year$us$hour$min$sec";
+$shipdate = "$year-$mon-$mday";
+$start_date = "$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";}
+
+
+### 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";
+		print "  [--date=YYYY-MM-DD] = date override\n";
+		print "  [--hour-offset=X] = print datetime strings with this hour offset\n";
+		print "  [--filename=XXX] = Name to be used for file, variables: YYYY=year, MM=month, DD=day, HH=hour, II=minute, SS=second\n";
+		print "  [--campaign=XXX] = Campaign that sales will be pulled from\n";
+		print "  [--without-camp=XXX] = Campaign that will be excluded from ALL\n";
+		print "  [--sale-statuses=XXX-XXY] = Statuses that are deemed to be \"Sales\". Default SALE\n";
+		print "    NOTE: To include all statuses in the export, use \"--sale-statuses=---ALL---\"\n";
+		print "  [--output-format=XXX] = Format of file. Default \"pipe-standard\"\n";
+		print "  [--with-inbound=XXX-XXY] = include the following inbound groups\n";
+		print "  [--without-in=XXX-XXY] = inbound groups that will be excluded from ALL\n";
+		print "  [--calltime=XXX] = filter results to only include those calls during this call time\n";
+		print "  [--outbound-calltime-ignore] = for outbound calls ignores call time\n";
+		print "  [--totals-only] = print totals of time and calls only\n";
+		print "  [--sftp-mode] = Uses SFTP(SSH2) for 'ftp' options\n";
+		print "  [--ftp-transfer] = Send results file by FTP to another server\n";
+		print "  [--ftp-audio-transfer] = Send associated audio files to FTP server, dated directories\n";
+		print "  [--ftp-norun] = Stop program when you get to the FTP transfer\n";
+		print "  [--with-transfer-audio] = Different method for finding audio, also grabs transfer audio filenames\n";
+		print "  [--with-did-lookup] = Looks up the DID pattern and name the call came in on if possible\n";
+		print "  [--email-list=test@test.com:test2@test.com] = send email results to these addresses\n";
+		print "  [--email-sender=vicidial@localhost] = sender for the email results\n";
+		print "  [--quiet] = quiet\n";
+		print "  [--test] = test\n";
+		print "  [--debug] = debugging messages\n";
+		print "  [--debugX] = Super debugging messages\n";
+		print "\n";
+		print "  format options:\n";
+		print "   pipe-standard|csv-standard|tab-standard|pipe-triplep|pipe-vici|html-rec|fixed-as400|tab-QMcustomUSA|tab-SCcustomUSA\n";
+		print "\n";
+
+
+		exit;
+		}
+	else
+		{
+		if ($args =~ /--debug/i)
+			{
+			$DB=1;
+			print "\n----- DEBUG MODE -----\n\n";
+			}
+		if ($args =~ /--debugX/i)
+			{
+			$DBX=1;
+			print "\n----- SUPER DEBUG MODE -----\n\n";
+			}
+		if ($args =~ /-quiet/i)
+			{
+			$q=1;   $Q=1;
+			}
+		if ($args =~ /-totals-only/i)
+			{$totals_only=1;}
+
+		if ($args =~ /--hour-offset=/i)
+			{
+			@data_in = split(/--hour-offset=/,$args);
+			$hour_offset = $data_in[1];
+			$hour_offset =~ s/ .*//gi;
+			if (!$Q) {print "\n----- HOUR OFFSET: $hour_offset -----\n\n";}
+			}
+		else
+			{$hour_offset=0;}
+		if ($args =~ /--date=/i)
+			{
+			@data_in = split(/--date=/,$args);
+			$shipdate = $data_in[1];
+			$shipdate =~ s/ .*//gi;
+			if ($shipdate =~ /today/)
+				{
+				$shipdate="$year-$mon-$mday";
+				$time = $TWOAMsec;
+				}
+			else
+				{
+				if ($shipdate =~ /yesterday/)
+					{
+					$shipdate="$Tyear-$Tmon-$Tmday";
+					$year = $Tyear;
+					$mon =	$Tmon;
+					$mday = $Tmday;
+					$time=$TWOAMsecY;
+					}
+				else
+					{
+					@cli_date = split("-",$shipdate);
+					$year = $cli_date[0];
+					$mon =	$cli_date[1];
+					$mday = $cli_date[2];
+					$cli_date[1] = ($cli_date[1] - 1);
+					$time = timelocal(0,0,2,$cli_date[2],$cli_date[1],$cli_date[0]);
+					}
+				}
+			$start_date = $shipdate;
+			$start_date =~ s/-//gi;
+			if (!$Q) {print "\n----- DATE OVERRIDE: $shipdate($start_date) -----\n\n";}
+			}
+		else
+			{
+			$time=$TWOAMsec;
+			}
+
+
+		if ($args =~ /--campaign=/i)
+			{
+			#	print "\n|$ARGS|\n\n";
+			@data_in = split(/--campaign=/,$args);
+			$campaign = $data_in[1];
+			$campaign =~ s/ .*$//gi;
+			$campaignSQL = $campaign;
+			if ($campaignSQL =~ /-/) 
+				{
+				$campaignSQL =~ s/-/','/gi;
+				}
+			$campaignSQL = "'$campaignSQL'";
+			}
+		if ($args =~ /--without-camp=/i)
+			{
+			#	print "\n|$ARGS|\n\n";
+			@data_in = split(/--without-camp=/,$args);
+			$NOTcampaign = $data_in[1];
+			$NOTcampaign =~ s/ .*$//gi;
+			$NOTcampaignSQL = $NOTcampaign;
+			if ($NOTcampaignSQL =~ /-/) 
+				{
+				$NOTcampaignSQL =~ s/-/','/gi;
+				}
+			$NOTcampaignSQL = "'$NOTcampaignSQL'";
+			}
+		if ($args =~ /--filename=/i)
+			{
+			#	print "\n|$ARGS|\n\n";
+			@data_in = split(/--filename=/,$args);
+			$filename = $data_in[1];
+			$filename =~ s/ .*$//gi;
+			$filename =~ s/YYYY/$year/gi;
+			$filename =~ s/MM/$mon/gi;
+			$filename =~ s/DD/$mday/gi;
+			$filename =~ s/HH/$hour/gi;
+			$filename =~ s/II/$min/gi;
+			$filename =~ s/SS/$sec/gi;
+			$filename_override=1;
+			}
+		if ($args =~ /--sale-statuses=/i)
+			{
+			@data_in = split(/--sale-statuses=/,$args);
+			$sale_statuses = $data_in[1];
+			$sale_statuses =~ s/ .*$//gi;
+			if ($sale_statuses =~ /---ALL---/)
+				{if (!$Q) {print "\n----- EXPORT ALL STATUSES -----\n\n";} }
+			}
+		if ($args =~ /--output-format=/i)
+			{
+			@data_in = split(/--output-format=/,$args);
+			$output_format = $data_in[1];
+			$output_format =~ s/ .*$//gi;
+			}
+		if ($args =~ /--with-inbound=/i)
+			{
+			@data_in = split(/--with-inbound=/,$args);
+			$with_inbound = $data_in[1];
+			$with_inbound =~ s/ .*$//gi;
+			}
+		if ($args =~ /--without-in=/i)
+			{
+			@data_in = split(/--without-in=/,$args);
+			$NOTwith_inbound = $data_in[1];
+			$NOTwith_inbound =~ s/ .*$//gi;
+			}
+		if ($args =~ /--calltime=/i)
+			{
+			#	print "\n|$ARGS|\n\n";
+			@data_in = split(/--calltime=/,$args);
+			$call_time = $data_in[1];
+			$call_time =~ s/ .*$//gi;
+			}
+		if ($args =~ /--outbound-calltime-ignore/i)
+			{
+			$outbound_calltime_ignore=1;
+			if (!$Q)
+				{print "\n----- IGNORE CALLTIME FOR OUTBOUND -----\n\n";}
+			}
+		if ($args =~ /-sftp-mode/i)
+			{
+			if (!$Q)
+				{print "\n----- SFTP MODE FOR FTP TRANSFERS -----\n\n";}
+			$sftp_mode=1;
+			}
+		if ($args =~ /-ftp-transfer/i)
+			{
+			if (!$Q)
+				{print "\n----- FTP TRANSFER MODE -----\n\n";}
+			$ftp_transfer=1;
+			}
+		if ($args =~ /-ftp-audio-transfer/i)
+			{
+			if (!$Q)
+				{print "\n----- FTP AUDIO TRANSFER MODE -----\n\n";}
+			$ftp_audio_transfer=1;
+
+			### find wget binary
+			$wgetbin = '';
+			if ( -e ('/bin/wget')) {$wgetbin = '/bin/wget';}
+			else 
+				{
+				if ( -e ('/usr/bin/wget')) {$wgetbin = '/usr/bin/wget';}
+				else 
+					{
+					if ( -e ('/usr/local/bin/wget')) {$wgetbin = '/usr/local/bin/wget';}
+					else
+						{
+						print "Can't find wget binary! Exiting...\n";
+						exit
+						}
+					}
+				}
+			### find find binary
+			$findbin = '';
+			if ( -e ('/bin/find')) {$findbin = '/bin/find';}
+			else 
+				{
+				if ( -e ('/usr/bin/find')) {$findbin = '/usr/bin/find';}
+				else 
+					{
+					if ( -e ('/usr/local/bin/find')) {$findbin = '/usr/local/bin/find';}
+					else
+						{
+						print "Can't find find binary! Exiting...\n";
+						exit
+						}
+					}
+				}
+			$tempdir = '/root/tempaudioexport';
+			if (!-e "$tempdir") 
+				{`mkdir -p $tempdir`;}
+			## remove old audio files from directory
+			`$findbin $tempdir/ -maxdepth 1 -type f -mtime +0 -print | xargs rm -f`;
+			}
+		if ($args =~ /-ftp-norun/i)
+			{
+			if (!$Q)
+				{print "\n----- FTP NORUN MODE -----\n\n";}
+			$ftp_norun=1;
+			}
+		if ($args =~ /-with-transfer-audio/i)
+			{
+			if (!$Q)
+				{print "\n----- AUDIO TRANSFER LOOKUP MODE -----\n\n";}
+			$with_transfer_audio=1;
+			}
+		if ($args =~ /-with-did-lookup/i)
+			{
+			if (!$Q)
+				{print "\n----- DID LOOKUP ENABLED -----\n\n";}
+			$with_did_lookup=1;
+			}
+		if ($args =~ /--test/i)
+			{
+			$T=1;   $TEST=1;
+			print "\n----- TESTING -----\n\n";
+			}
+		if ($args =~ /--email-list=/i)
+			{
+			@data_in = split(/--email-list=/,$args);
+			$email_list = $data_in[1];
+			$email_list =~ s/ .*//gi;
+			$email_list =~ s/:/,/gi;
+			print "\n----- EMAIL NOTIFICATION: $email_list -----\n\n";
+			}
+		else
+			{$email_list = '';}
+
+		if ($args =~ /--email-sender=/i)
+			{
+			@data_in = split(/--email-sender=/,$args);
+			$email_sender = $data_in[1];
+			$email_sender =~ s/ .*//gi;
+			$email_sender =~ s/:/,/gi;
+			print "\n----- EMAIL NOTIFICATION SENDER: $email_sender -----\n\n";
+			}
+		else
+			{$email_sender = 'vicidial@localhost';}
+		}
+	}
+else
+	{
+	print "no command line options set, using defaults.\n";
+	}
+### 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;}
+	if ( ($line =~ /^VARREPORT_host/) && ($CLIREPORT_host < 1) )
+		{$VARREPORT_host = $line;   $VARREPORT_host =~ s/.*=//gi;}
+	if ( ($line =~ /^VARREPORT_user/) && ($CLIREPORT_user < 1) )
+		{$VARREPORT_user = $line;   $VARREPORT_user =~ s/.*=//gi;}
+	if ( ($line =~ /^VARREPORT_pass/) && ($CLIREPORT_pass < 1) )
+		{$VARREPORT_pass = $line;   $VARREPORT_pass =~ s/.*=//gi;}
+	if ( ($line =~ /^VARREPORT_port/) && ($CLIREPORT_port < 1) )
+		{$VARREPORT_port = $line;   $VARREPORT_port =~ s/.*=//gi;}
+	if ( ($line =~ /^VARREPORT_dir/) && ($CLIREPORT_dir < 1) )
+		{$VARREPORT_dir = $line;   $VARREPORT_dir =~ s/.*=//gi;}
+	$i++;
+	}
+
+# Customized Variables
+$server_ip = $VARserver_ip;		# Asterisk server IP
+
+if ($output_format =~ /^pipe-standard$/) 
+	{$DLT = '|';   $txt='.txt';   print "---- pipe-standard ----\n";}
+if ($output_format =~ /^csv-standard$/) 
+	{$DLT = "','";   $txt='.csv';   print "---- csv-standard ----\n";}
+if ($output_format =~ /^tab-standard$/) 
+	{$DLT = "\t";   $txt='.txt';   print "---- tab-standard ----\n";}
+if ($output_format =~ /^pipe-triplep$/) 
+	{$DLT = '';   $txt='.txt';   print "---- pipe-triplep ----\n";}
+if ($output_format =~ /^pipe-vici$/) 
+	{$DLT = '|';   $txt='.txt';   print "---- pipe-vici ----\n";}
+if ($output_format =~ /^html-rec$/) 
+	{$DLT = ' ';   $txt='.html';   print "---- html-rec ----\n";}
+if ($output_format =~ /^fixed-as400$/) 
+	{$DLT = '';   $txt='.txt';   print "---- fixed-as400 ----\n";}
+
+if ($sale_statuses =~ /---ALL---/)
+	{
+	$sale_statusesSQL='';
+	$close_statusesSQL='';
+	}
+else
+	{
+	$sale_statusesSQL = $sale_statuses;
+	$sale_statusesSQL =~ s/-/','/gi;
+	$sale_statusesSQL = "'$sale_statusesSQL'";
+	$close_statusesSQL = $sale_statusesSQL;
+	$sale_statusesSQL = " and vicidial_log.status IN($sale_statusesSQL)";
+	$close_statusesSQL = " and vicidial_closer_log.status IN($close_statusesSQL)";
+	}
+
+
+if (length($with_inbound) < 2)
+	{
+	if (length($NOTwith_inbound) < 2)
+		{$with_inboundSQL = '';}
+	else
+		{
+		$with_inboundSQL = $NOTwith_inbound;
+		$with_inboundSQL =~ s/-/','/gi;
+		$with_inboundSQL = "vicidial_closer_log.campaign_id NOT IN('$with_inboundSQL')";
+		}
+	}
+else
+	{
+	$with_inboundSQL = $with_inbound;
+	$with_inboundSQL =~ s/-/','/gi;
+	$with_inboundSQL = "vicidial_closer_log.campaign_id IN('$with_inboundSQL')";
+	}
+
+if (length($campaignSQL) < 2)
+	{
+	if (length($NOTcampaignSQL) < 2)
+		{$campaignSQL = "vicidial_log.campaign_id NOT IN('')";}
+	else
+		{$campaignSQL = "vicidial_log.campaign_id NOT IN($NOTcampaignSQL)";}
+	}
+else
+	{$campaignSQL = "vicidial_log.campaign_id IN($campaignSQL)";}
+
+if (!$Q)
+	{
+	print "\n\n\n\n\n\n\n\n\n\n\n\n-- AST_VDsales_export.pl --\n\n";
+	print "This program is designed to gather sales from a VICIDIAL outbound-only campaign and post them to a file. \n";
+	print "\n";
+	print "Campaign:      $campaign    $campaignSQL\n";
+	print "Sale Statuses: $sale_statuses     $sale_statusesSQL\n";
+	print "Output Format: $output_format\n";
+	print "With Inbound:  $with_inbound     $with_inboundSQL\n";
+	print "\n";
+	}
+
+$outfile = "$campaign$US$filedate$US$sale_statuses$txt";
+if ($filename_override > 0) {$outfile = $filename;}
+
+### open the X out file for writing ###
+$PATHoutfile = "$PATHweb/vicidial/server_reports/$outfile";
+open(out, ">$PATHoutfile")
+		|| die "Can't open $PATHoutfile: $!\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;
+
+$TOTAL_SALES=0;
+
+
+$timezone='-5';
+$stmtA = "SELECT local_gmt FROM servers where server_ip='$server_ip';";
+$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
+$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
+$sthArows=$sthA->rows;
+	if ($DBX) {print "   $sthArows|$stmtA|\n";}
+if ($sthArows > 0)
+	{
+	@aryA = $sthA->fetchrow_array;
+	$timezone =	$aryA[0];
+	$sthA->finish();
+	}
+$offset_timezone = ($timezone + $hour_offset);
+$SQLtimezone = sprintf("%10.2f",$timezone);
+$SQLtimezone =~ s/\./:/gi;
+$SQLtimezone =~ s/:50/:30/gi;
+$SQLtimezone =~ s/ //gi;
+$SQLoffset_timezone = sprintf("%10.2f",$offset_timezone);
+$SQLoffset_timezone =~ s/\./:/gi;
+$SQLoffset_timezone =~ s/:50/:30/gi;
+$SQLoffset_timezone =~ s/ //gi;
+$convert_tz = "'$SQLtimezone','$SQLoffset_timezone'";
+
+if (!$Q)
+	{print "\n----- SQL CONVERT_TZ: $SQLtimezone|$SQLoffset_timezone     $convert_tz -----\n\n";}
+
+
+$stmtA = "SELECT call_time_id,call_time_name,call_time_comments,ct_default_start,ct_default_stop,ct_sunday_start,ct_sunday_stop,ct_monday_start,ct_monday_stop,ct_tuesday_start,ct_tuesday_stop,ct_wednesday_start,ct_wednesday_stop,ct_thursday_start,ct_thursday_stop,ct_friday_start,ct_friday_stop,ct_saturday_start,ct_saturday_stop,ct_state_call_times FROM vicidial_call_times where call_time_id='$call_time';";
+$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
+$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
+$sthArows=$sthA->rows;
+	if ($DBX) {print "   $sthArows|$stmtA|\n";}
+if ($sthArows > 0)
+	{
+	@aryA = $sthA->fetchrow_array;
+	$Gct_default_start =	$aryA[3];
+	$Gct_default_stop =		$aryA[4];
+	$Gct_sunday_start =		$aryA[5];
+	$Gct_sunday_stop =		$aryA[6];
+	$Gct_monday_start =		$aryA[7];
+	$Gct_monday_stop =		$aryA[8];
+	$Gct_tuesday_start =	$aryA[9];
+	$Gct_tuesday_stop =		$aryA[10];
+	$Gct_wednesday_start =	$aryA[11];
+	$Gct_wednesday_stop =	$aryA[12];
+	$Gct_thursday_start =	$aryA[13];
+	$Gct_thursday_stop =	$aryA[14];
+	$Gct_friday_start =		$aryA[15];
+	$Gct_friday_stop =		$aryA[16];
+	$Gct_saturday_start =	$aryA[17];
+	$Gct_saturday_stop =	$aryA[18];
+	$sthA->finish();
+	}
+else
+	{
+	if ($DB > 0) {print "CALL TIME NOT FOUND: $call_time\n";}
+	$call_time='';
+	}
+
+
+###########################################################################
+########### CURRENT DAY SALES GATHERING outbound-only: vicidial_log  ######
+###########################################################################
+$stmtA = "select vicidial_log.user,first_name,last_name,address1,address2,city,state,postal_code,vicidial_list.phone_number,vicidial_list.email,security_phrase,vicidial_list.comments,CONVERT_TZ(call_date,$convert_tz),vicidial_list.lead_id,vicidial_users.full_name,vicidial_log.status,vicidial_list.vendor_lead_code,vicidial_list.source_id,vicidial_log.list_id,title,address3,last_local_call_time,uniqueid,length_in_sec,vicidial_list.list_id,vicidial_list.list_id,UNIX_TIMESTAMP(vicidial_log.call_date),vicidial_campaigns.campaign_name,vicidial_campaigns.campaign_cid from vicidial_list,vicidial_log,vicidial_users,vicidial_campaigns where $campaignSQL $sale_statusesSQL and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' and vicidial_log.lead_id=vicidial_list.lead_id and vicidial_users.user=vicidial_log.user and vicidial_log.campaign_id=vicidial_campaigns.campaign_id order by call_date;";
+if ($output_format =~ /^tab-QMcustomUSA$|^tab-SCcustomUSA$/)
+	{
+	$stmtA = "select vicidial_log.user,8,8,8,8,8,8,8,vicidial_log.phone_number,8,8,8,CONVERT_TZ(call_date,$convert_tz),vicidial_log.lead_id,vicidial_users.full_name,vicidial_log.status,8,8,vicidial_log.list_id,8,8,CONVERT_TZ(call_date,$convert_tz),uniqueid,length_in_sec,vicidial_log.list_id,vicidial_log.list_id,UNIX_TIMESTAMP(vicidial_log.call_date),vicidial_campaigns.campaign_name,vicidial_campaigns.campaign_cid from vicidial_log,vicidial_users,vicidial_campaigns where $campaignSQL $sale_statusesSQL and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' and vicidial_users.user=vicidial_log.user and vicidial_log.campaign_id=vicidial_campaigns.campaign_id order by call_date;";
+	}
+$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
+$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
+$sthArows=$sthA->rows;
+$rec_count=0;
+	if ($DB) {print "$sthArows|$stmtA|\n";}
+while ($sthArows > $rec_count)
+	{
+	@aryA = $sthA->fetchrow_array;
+	$user =			$aryA[0];
+	$first_name =	$aryA[1];
+	$last_name =	$aryA[2];
+	$address1 =		$aryA[3];
+	$address2 =		$aryA[4];
+	$city =			$aryA[5];
+	$state =		$aryA[6];
+	$postal_code =	$aryA[7];
+	$phone_number =	$aryA[8];
+	$email =		$aryA[9];
+	$security =		$aryA[10];
+	$comments =		$aryA[11];
+	$call_date =	$aryA[12];
+	$lead_id =		$aryA[13];
+	$agent_name =	$aryA[14];
+	$status =		$aryA[15];
+	$vendor_id =	$aryA[16];
+	$source_id =	$aryA[17];
+	$list_id =		$aryA[18];
+	$title =		$aryA[19];
+	$address3 =		$aryA[20];
+	$last_local_call_time = $aryA[21];
+	$vicidial_id =	$aryA[22];
+	$uniqueid =		$aryA[22];
+	$length_in_sec = $aryA[23];
+	$rank =			$aryA[24];
+	$owner =		$aryA[25];
+	$epoch =		$aryA[26];
+	$did_name =		$aryA[27];
+	$did_pattern =	$aryA[28];
+
+	$outbound = 'Y';
+	$domestic = 'Y';
+	$queue_seconds = '0';
+	$closer='';
+
+	&select_format_loop;
+
+	$TOTAL_SALES++;
+	}
+$sthA->finish();
+
+if (length($with_inboundSQL)>3)
+	{
+	###########################################################################
+	########### CURRENT DAY SALES GATHERING inbound-only: vicidial_closer_log  ######
+	###########################################################################
+	$stmtA = "select vicidial_closer_log.user,first_name,last_name,address1,address2,city,state,postal_code,vicidial_list.phone_number,vicidial_list.email,security_phrase,vicidial_list.comments,CONVERT_TZ(call_date,$convert_tz),vicidial_list.lead_id,vicidial_users.full_name,vicidial_closer_log.status,vicidial_list.vendor_lead_code,vicidial_list.source_id,vicidial_closer_log.list_id,campaign_id,title,address3,last_local_call_time,xfercallid,closecallid,uniqueid,length_in_sec,queue_seconds,vicidial_list.list_id,vicidial_list.list_id,UNIX_TIMESTAMP(vicidial_closer_log.call_date),agent_alert_delay from vicidial_list,vicidial_closer_log,vicidial_users,vicidial_inbound_groups where $with_inboundSQL $close_statusesSQL and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' and vicidial_closer_log.lead_id=vicidial_list.lead_id and vicidial_users.user=vicidial_closer_log.user and vicidial_inbound_groups.group_id=vicidial_closer_log.campaign_id order by call_date;";
+	if ($output_format =~ /^tab-QMcustomUSA$|^tab-SCcustomUSA$/)
+		{
+		$stmtA = "select vicidial_closer_log.user,8,8,8,8,8,8,8,vicidial_closer_log.phone_number,8,8,8,CONVERT_TZ(call_date,$convert_tz),vicidial_closer_log.lead_id,vicidial_users.full_name,vicidial_closer_log.status,8,8,vicidial_closer_log.list_id,campaign_id,8,8,CONVERT_TZ(call_date,$convert_tz),xfercallid,closecallid,uniqueid,length_in_sec,queue_seconds,vicidial_closer_log.list_id,vicidial_closer_log.list_id,UNIX_TIMESTAMP(vicidial_closer_log.call_date),agent_alert_delay from vicidial_closer_log,vicidial_users,vicidial_inbound_groups where $with_inboundSQL $close_statusesSQL and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' and vicidial_users.user=vicidial_closer_log.user and vicidial_inbound_groups.group_id=vicidial_closer_log.campaign_id order by call_date;";
+		}
+	$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
+	$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
+	$sthArows=$sthA->rows;
+	if ($DB) {print "$sthArows|$stmtA|\n";}
+	$rec_count=0;
+	while ($sthArows > $rec_count)
+		{
+		@aryA = $sthA->fetchrow_array;
+		$closer =		$aryA[0];
+		$first_name =	$aryA[1];
+		$last_name =	$aryA[2];
+		$address1 =		$aryA[3];
+		$address2 =		$aryA[4];
+		$city =			$aryA[5];
+		$state =		$aryA[6];
+		$postal_code =	$aryA[7];
+		$phone_number =	$aryA[8];
+		$email =		$aryA[9];
+		$security =		$aryA[10];
+		$comments =		$aryA[11];
+		$call_date =	$aryA[12];
+		$lead_id =		$aryA[13];
+		$closer_name =	$aryA[14];
+		$status =		$aryA[15];
+		$vendor_id =	$aryA[16];
+		$source_id =	$aryA[17];
+		$list_id =		$aryA[18];
+		$campaign_id =	$aryA[19];
+		$title =		$aryA[20];
+		$address3 =		$aryA[21];
+		$last_local_call_time = $aryA[22];
+		$xfercallid =	$aryA[23];
+		$vicidial_id =	$aryA[24];
+		$uniqueid =		$aryA[25];
+		$length_in_sec = $aryA[26];
+		$queue_seconds = $aryA[27];
+		$rank =			$aryA[28];
+		$owner =		$aryA[29];
+		$epoch =		$aryA[30];
+		$agent_alert_delay = int($aryA[31] / 1000);
+
+		$outbound = 'N';
+		$domestic = 'Y';
+		$user = '';
+		$agent_name='';
+
+		$stmtB = "select vicidial_xfer_log.user,full_name from vicidial_xfer_log,vicidial_users where lead_id='$lead_id' and closer='$closer' and xfercallid='$xfercallid' and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' and vicidial_users.user=vicidial_xfer_log.user order by call_date desc limit 1;";
+		$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+		$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+		$sthBrows=$sthB->rows;
+		if ($sthBrows > 0)
+			{
+			@aryB = $sthB->fetchrow_array;
+			$user =			$aryB[0];
+			$agent_name =	$aryB[1];
+			}
+		$sthB->finish();
+
+		&select_format_loop;
+
+		$TOTAL_SALES++;
+		}
+	$sthA->finish();
+	}
+
+close(out);
+
+
+###### EMAIL SECTION
+
+if ( (length($Ealert)>5) && (length($email_list) > 3) )
+	{
+	print "Sending email: $email_list\n";
+
+	use MIME::QuotedPrint;
+	use MIME::Base64;
+	use Mail::Sendmail;
+
+	$mailsubject = "VICIDIAL Lead Export $outfile";
+
+	%mail = ( To      => "$email_list",
+						From    => "$email_sender",
+						Subject => "$mailsubject",
+				   );
+	$boundary = "====" . time() . "====";
+	$mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
+
+	$message = encode_qp( "VICIDIAL Lead Export:\n\n Attachment: $outfile\n Total Records: $TOTAL_SALES\n" );
+
+	$Zfile = "$PATHoutfile";
+
+	open (F, $Zfile) or die "Cannot read $Zfile: $!";
+	binmode F; undef $/;
+	$attachment = encode_base64(<F>);
+	close F;
+
+	$boundary = '--'.$boundary;
+	$mail{body} .= "$boundary\n";
+	$mail{body} .= "Content-Type: text/plain; charset=\"iso-8859-1\"\n";
+	$mail{body} .= "Content-Transfer-Encoding: quoted-printable\n\n";
+	$mail{body} .= "$message\n";
+	$mail{body} .= "$boundary\n";
+	$mail{body} .= "Content-Type: application/octet-stream; name=\"$outfile\"\n";
+	$mail{body} .= "Content-Transfer-Encoding: base64\n";
+	$mail{body} .= "Content-Disposition: attachment; filename=\"$outfile\"\n\n";
+	$mail{body} .= "$attachment\n";
+	$mail{body} .= "$boundary";
+	$mail{body} .= "--\n";
+
+	sendmail(%mail) or die $mail::Sendmail::error;
+	print "ok. log says:\n", $mail::sendmail::log;  ### print mail log for status
+
+	}
+
+
+
+# FTP/SFTP overrides-
+#	$VARREPORT_host =	'10.0.0.4';
+#	$VARREPORT_port =	'21';
+#	$VARREPORT_user =	'cron';
+#	$VARREPORT_pass =	'test';
+#	$VARREPORT_dir =	'';
+
+$NODATEDIR = 0;	# Don't use dated directories for audio
+$YEARDIR = 1;	# put dated directories in a year directory first
+
+if ($ftp_transfer > 0)
+	{
+	if ($sftp_mode > 0)
+		{
+		use Net::SSH2;
+
+		if (!$Q) {print "Sending File Over SFTP: $outfile\n";}
+		my $ssh2 = Net::SSH2->new();
+		if ($DB > 0)
+			{$ssh2->debug("1");}
+		$ssh2->connect("$VARREPORT_host","$VARREPORT_port") or die "Unable to connect Host $@ \n";
+		$ssh2->auth_password("$VARREPORT_user","$VARREPORT_pass") or die "Unable to login $@ \n";
+		$ssh2->scp_put("$PATHweb/vicidial/server_reports/$outfile", "$VARREPORT_dir/$outfile");
+		$ssh2->disconnect();
+		}
+	else
+		{
+		use Net::FTP;
+
+		if (!$Q) {print "Sending File Over FTP: $outfile\n";}
+		$ftp = Net::FTP->new("$VARREPORT_host", Port => $VARREPORT_port);
+		$ftp->login("$VARREPORT_user","$VARREPORT_pass");
+		$ftp->cwd("$VARREPORT_dir");
+		$ftp->put("$PATHweb/vicidial/server_reports/$outfile", "$outfile");
+		$ftp->quit;
+		}
+	}
+
+
+if ( ( ($DB) || ($totals_only > 0) ) && ($output_format =~ /^tab-QMcustomUSA$|^tab-SCcustomUSA$/) )
+	{
+	if ($OUTtalk > 0) {$OUTtalkmin = ($OUTtalk / 60);}
+	if ($INtalk > 0) {$INtalkmin = ($INtalk / 60);}
+	$OUTtalkmin = sprintf("%10.2f",$OUTtalkmin);
+	$INtalkmin = sprintf("%10.2f",$INtalkmin);
+	$OUTcalls = sprintf("%10s",$OUTcalls);
+	$INcalls = sprintf("%10s",$INcalls);
+	$OUTtalk = sprintf("%10s",$OUTtalk);
+	$INtalk = sprintf("%10s",$INtalk);
+	print "OUTBOUND CALLS:   $OUTcalls\n";
+	print "OUTBOUND SECONDS: $OUTtalk\n";
+	print "OUTBOUND MINUTES: $OUTtalkmin\n";
+	print "INBOUND CALLS:    $INcalls\n";
+	print "INBOUND SECONDS:  $INtalk\n";
+	print "INBOUND MINUTES:  $INtalkmin\n";
+	}
+
+if ($ftp_audio_transfer > 0)
+	{
+	if ($sftp_mode > 0)
+		{use Net::SSH2;}
+	else
+		{use Net::FTP;}
+	opendir(FILE, "$tempdir/");
+	@FILES = readdir(FILE);
+
+	if (!$Q) {print "Sending Audio Over FTP: $#FILES\n";}
+
+	if ($ftp_norun > 0)
+		{exit;}
+
+	$i=0;
+	foreach(@FILES)
+		{
+		if ( (length($FILES[$i]) > 4) && (!-d "$tempdir/$FILES[$i]") )
+			{
+			if ($sftp_mode > 0)
+				{
+				if (!$Q) {print "Sending Audio Over SFTP: $FILES[$i]\n";}
+				use Net::SSH2::SFTP;
+				use Data::Dumper;
+				my $ssh2 = Net::SSH2->new();
+				if ($DB > 0)
+					{$ssh2->debug("1");}
+				$ssh2->connect("$VARREPORT_host","$VARREPORT_port") or die "Unable to connect Host $@ \n";
+				$ssh2->auth_password("$VARREPORT_user","$VARREPORT_pass") or die "Unable to login $@ \n";
+				my $sftp = $ssh2->sftp();
+				$newVARREPORT_dir = $VARREPORT_dir;
+				if ($NODATEDIR < 1)
+					{
+					if ($YEARDIR > 0)
+						{
+						if ($DB > 0) {print "making directory: $VARREPORT_dir/$year\n";}
+						$sftp->mkdir("$VARREPORT_dir/$year");
+						$newVARREPORT_dir = "$VARREPORT_dir/$year/$start_date";
+						}
+					else
+						{
+						$newVARREPORT_dir = "$VARREPORT_dir/$start_date";
+						}
+					if ($DB > 0) {print "making directory: $newVARREPORT_dir\n";}
+					$sftp->mkdir("$newVARREPORT_dir");
+					my %stat = $sftp->stat($newVARREPORT_dir);
+					print Dumper([\%stat]), "\n";
+					}
+				$ssh2->scp_put("$tempdir/$FILES[$i]", "$newVARREPORT_dir/$FILES[$i]");
+				$ssh2->disconnect();
+				}
+			else
+				{
+				$ftp = Net::FTP->new("$VARREPORT_host", Port => "$VARREPORT_port", Debug => "$DB", Passive => "1");
+				$ftp->login("$VARREPORT_user","$VARREPORT_pass");
+				if (length($VARREPORT_dir) > 0)
+					{$ftp->cwd("$VARREPORT_dir");}
+				if ($NODATEDIR < 1)
+					{
+					if ($YEARDIR > 0)
+						{
+						$ftp->mkdir("$year");
+						$ftp->cwd("$year");
+						}
+					$ftp->mkdir("$start_date");
+					$ftp->cwd("$start_date");
+					}
+				$start_date_PATH = "$start_date/";
+				$ftp->binary();
+				$ftp->put("$tempdir/$FILES[$i]", "$FILES[$i]");
+				$ftp->quit;
+				}
+			}
+		$i++;
+		}
+	}
+
+
+### calculate time to run script ###
+$secY = time();
+$secZ = ($secY - $secX);
+$secZm = ($secZ /60);
+
+if (!$Q) {print "SALES EXPORT FOR $shipdate: $outfile\n";}
+if (!$Q) {print "TOTAL SALES: $TOTAL_SALES\n";}
+if (!$Q) {print "TOTAL EXCLUDED BY CALLTIME: $CALLTIME_KICK\n";}
+if (!$Q) {print "script execution time in seconds: $secZ     minutes: $secZm\n";}
+
+exit;
+
+
+
+
+
+### Subroutine for formatting of the output ###
+sub select_format_loop
+	{
+	$within_calltime = 1;
+
+	if (length($call_time) > 0)
+		{
+		$CTtarget = ($secX - 10);
+		($Csec,$Cmin,$Chour,$Cmday,$Cmon,$Cyear,$Cwday,$Cyday,$Cisdst) = localtime($epoch);
+		if ($Chour < 10) {$Chour = "0$Chour";}
+		if ($Cmin < 10) {$Cmin = "0$Cmin";}
+		$CThourminute = "$Chour$Cmin";
+
+		$CTstart = $Gct_default_start;
+		$CTstop = $Gct_default_stop;
+
+		if ( ($Cwday == 0) && ( ($Gct_sunday_start > 0) && ($Gct_sunday_stop > 0) ) )
+			{$CTstart = $Gct_sunday_start;   $CTstop = $Gct_sunday_stop;}
+		if ( ($Cwday == 1) && ( ($Gct_monday_start > 0) && ($Gct_monday_stop > 0) ) )
+			{$CTstart = $Gct_monday_start;   $CTstop = $Gct_monday_stop;}
+		if ( ($Cwday == 2) && ( ($Gct_tuesday_start > 0) && ($Gct_tuesday_stop > 0) ) )
+			{$CTstart = $Gct_tuesday_start;   $CTstop = $Gct_tuesday_stop;}
+		if ( ($Cwday == 3) && ( ($Gct_wednesday_start > 0) && ($Gct_wednesday_stop > 0) ) )
+			{$CTstart = $Gct_wednesday_start;   $CTstop = $Gct_wednesday_stop;}
+		if ( ($Cwday == 4) && ( ($Gct_thursday_start > 0) && ($Gct_thursday_stop > 0) ) )
+			{$CTstart = $Gct_thursday_start;   $CTstop = $Gct_thursday_stop;}
+		if ( ($Cwday == 5) && ( ($Gct_friday_start > 0) && ($Gct_friday_stop > 0) ) )
+			{$CTstart = $Gct_friday_start;   $CTstop = $Gct_friday_stop;}
+		if ( ($Cwday == 6) && ( ($Gct_saturday_start > 0) && ($Gct_saturday_stop > 0) ) )
+			{$CTstart = $Gct_saturday_start;   $CTstop = $Gct_saturday_stop;}
+
+		if ( ($CThourminute < $CTstart) || ($CThourminute > $CTstop) )
+			{
+			if ($DB > 0) {print "Call is outside of defined call time: $CThourminute|$Cwday|   |$CTstart|$CTstop| \n";}
+			$within_calltime=0;
+			}
+		}
+	
+	if ( ($within_calltime > 0) || ( ($outbound_calltime_ignore > 0) && ($outbound =~ /Y/) ) )
+		{
+		$str='';
+		if ($T)
+			{
+		#	$user =			'1234';
+			$agent_name =	'Joe Agent';
+		#	$closer =		'4321';
+			$closer_name =	'Jane Closer';
+			$security =		'4111111111111111';
+			$comments =		'VISA';
+			$phone_number =~ s/^\d\d\d\d\d/23456/gi;
+			$address1 =~ s/^..../1234 /gi
+			}
+
+		##### BEGIN standard audio lookup #####
+		if ($with_transfer_audio < 1)
+			{
+			$ivr_id = '0';
+			$ivr_filename = '';
+
+			$stmtB = "select recording_id,filename,location from recording_log where lead_id='$lead_id' and vicidial_id='$vicidial_id' and start_time > '$shipdate 00:00:01' and start_time < '$shipdate 23:59:59' order by start_time desc limit 1;";
+			$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+			$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+			$sthBrows=$sthB->rows;
+			$rec_countB=0;
+			while ($sthBrows > $rec_countB)
+				{
+				@aryB = $sthB->fetchrow_array;
+				$ivr_id =		$aryB[0];
+				$ivr_filename = $aryB[1];
+				$ivr_location = $aryB[2];
+				$rec_countB++;
+				}
+			$sthB->finish();
+
+			if ($sthBrows < 1)
+				{
+				$stmtB = "select recording_id,filename,location from recording_log where lead_id='$lead_id' and start_time > '$shipdate 00:00:01' and start_time < '$shipdate 23:59:59' order by length_in_sec desc limit 1;";
+				$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+				$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+				$sthBrows=$sthB->rows;
+				$rec_countB=0;
+				while ($sthBrows > $rec_countB)
+					{
+					@aryB = $sthB->fetchrow_array;
+					$ivr_id =		$aryB[0];
+					$ivr_filename = $aryB[1];
+					$ivr_location = $aryB[2];
+					$rec_countB++;
+					}
+				$sthB->finish();
+				}
+
+			if (length($ivr_id)<3) 
+				{
+				$stmtB = "select recording_id,filename,location from recording_log where lead_id='$lead_id' order by length_in_sec desc limit 1;";
+				$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+				$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+				$sthBrows=$sthB->rows;
+				$rec_countB=0;
+				while ($sthBrows > $rec_countB)
+					{
+					@aryB = $sthB->fetchrow_array;
+					$ivr_id =		$aryB[0];
+					$ivr_filename = $aryB[1];
+					$ivr_location = $aryB[2];
+					$rec_countB++;
+					}
+				$sthB->finish();
+
+				if (length($ivr_id)<3) 
+					{
+					$stmtB = "select recording_id,filename,location from recording_log where filename LIKE \"%$phone_number%\" order by length_in_sec desc limit 1;";
+					$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+					$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+					$sthBrows=$sthB->rows;
+					$rec_countB=0;
+					while ($sthBrows > $rec_countB)
+						{
+						@aryB = $sthB->fetchrow_array;
+						$ivr_id =		$aryB[0];
+						$ivr_filename = $aryB[1];
+						$ivr_location = $aryB[2];
+						$rec_countB++;
+						}
+					$sthB->finish();
+					}
+				}
+
+			if ( ($ftp_audio_transfer > 0) && (length($ivr_filename) > 3) && (length($ivr_location) > 5) )
+				{
+				@ivr_path = split(/\//,$ivr_location);
+				$path_file = $ivr_path[$#ivr_path];
+				`$wgetbin -q --output-document=$tempdir/$path_file $ivr_location `;
+				}
+			}
+		##### END standard audio lookup #####
+
+		##### BEGIN transfer audio lookup #####
+		else
+			{
+			$ivr_id = '0';
+			$ivr_filename = '';
+			$ivr_location = '';
+
+			$stmtB = "select recording_id,filename,location from recording_log where vicidial_id='$vicidial_id' and start_time > '$shipdate 00:00:01' and start_time < '$shipdate 23:59:59' order by start_time limit 10;";
+			$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+			$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+			$sthBrows=$sthB->rows;
+			$rec_countB=0;
+			while ($sthBrows > $rec_countB)
+				{
+				@aryB = $sthB->fetchrow_array;
+				if ($rec_countB > 0)
+					{
+					$ivr_id .=			"|";
+					$ivr_filename .=	"|";
+					}
+				$ivr_id .=			"$aryB[0]";
+				$ivr_location =		"$aryB[2]";
+				@ivr_path = split(/\//,$ivr_location);
+				$path_file = $ivr_path[$#ivr_path];
+				$ivr_filename .=	"$path_file";
+				$rec_countB++;
+				if ($ftp_audio_transfer > 0)
+					{
+					`$wgetbin -q --output-document=$tempdir/$path_file $aryB[2] `;
+					}
+				}
+			$sthB->finish();
+
+			### Look for other closer calls after this call
+			$more_calls[0]='';
+			$stmtB = "select closecallid,length_in_sec,queue_seconds,agent_alert_delay from vicidial_closer_log,vicidial_inbound_groups where lead_id='$lead_id' and call_date > '$call_date' and call_date < '$shipdate 23:59:59' and campaign_id=group_id order by call_date limit 10;";
+			$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+			$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+			$sthBrows=$sthB->rows;
+			if ($DBX > 0) {print "$sthBrows|$stmtB\n";}
+			$rec_countB=0;
+			while ($sthBrows > $rec_countB)
+				{
+				@aryB = $sthB->fetchrow_array;
+				$more_calls[$rec_countB] =	"$aryB[0]";
+				$Xagent_alert_delay = int($aryB[3] / 1000);
+				$length_in_sec = (($length_in_sec + $aryB[1]) - $Xagent_alert_delay);
+				$queue_seconds = ($queue_seconds + $aryB[2]);
+				$rec_countB++;
+				}
+			$sthB->finish();
+
+			$u=0;
+			while ($sthBrows > $u)
+				{
+				$closecallid = $more_calls[$u];
+
+				$stmtB = "select recording_id,filename,location from recording_log where vicidial_id='$closecallid' and start_time > '$shipdate 00:00:01' and start_time < '$shipdate 23:59:59' order by start_time limit 10;";
+				$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+				$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+				$sthBrowsR=$sthB->rows;
+				if ($DBX > 0) {print "$sthBrowsR|$stmtB\n";}
+				$rec_countBR=0;
+				while ($sthBrowsR > $rec_countBR)
+					{
+					@aryB = $sthB->fetchrow_array;
+					if (length($ivr_id) > 1)
+						{
+						$ivr_id .=			"|";
+						$ivr_filename .=	"|";
+						}
+					$ivr_id .=			"$aryB[0]";
+					$ivr_location =		"$aryB[2]";
+					@ivr_path = split(/\//,$ivr_location);
+					$path_file = $ivr_path[$#ivr_path];
+					$ivr_filename .=	"$path_file";
+					$rec_countBR++;
+					if ($ftp_audio_transfer > 0)
+						{
+						`$wgetbin -q --output-document=$tempdir/$path_file $aryB[2] `;
+						}
+					}
+				$sthB->finish();
+
+				$u++;
+				}
+			}
+		##### END transfer audio lookup #####
+
+		##### BEGIN DID lookup #####
+		if ( ($with_did_lookup > 0) && ($outbound =~ /N/) )
+			{
+			$did_pattern = '';
+			$did_name = '';
+			$did_date = '';
+
+			$stmtB = "select did_pattern,did_description,CONVERT_TZ(call_date,$convert_tz) from vicidial_inbound_dids vid,vicidial_did_log vdl where uniqueid='$uniqueid' and call_date > '$shipdate 00:00:01' and call_date <= '$call_date' and vid.did_id=vdl.did_id order by call_date desc limit 1;";
+			if ($DBX > 0) {print "$stmtB\n";}
+			$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+			$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+			$sthBrows=$sthB->rows;
+			if ($sthBrows > 0)
+				{
+				@aryB = $sthB->fetchrow_array;
+				$did_pattern =	"$aryB[0]";
+				$did_name =		"$aryB[1]";
+				$did_date =		"$aryB[2]";
+				$sthB->finish();
+				}
+			else
+				{
+				$stmtB = "select vc.campaign_cid,vc.campaign_name,CONVERT_TZ(call_date,$convert_tz) from vicidial_campaigns vc,vicidial_log vl where lead_id='$lead_id' and call_date > '$shipdate 00:00:01' and call_date <= '$call_date' and vc.campaign_id=vl.campaign_id order by call_date desc limit 1;";
+				if ($DBX > 0) {print "$stmtB\n";}
+				$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+				$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+				$sthBrows=$sthB->rows;
+				if ($sthBrows > 0)
+					{
+					@aryB = $sthB->fetchrow_array;
+					$did_pattern =	"$aryB[0]";
+					$did_name =		"$aryB[1]";
+					$did_date =		"$aryB[2]";
+					$sthB->finish();
+					}
+				##### UNCOMMENT IF USING LIST ID NAME FOR DID_NAME
+			#	$stmtB = "select list_name,campaign_cid_override from vicidial_lists where list_id='$list_id' limit 1;";
+			#	if ($DBX > 0) {print "$stmtB\n";}
+			#	$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+			#	$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+			#	$sthBrows=$sthB->rows;
+			#	if ($sthBrows > 0)
+			#		{
+			#		@aryB = $sthB->fetchrow_array;
+			#		$did_name =		$aryB[0];
+			#		$did_pattern =	$aryB[1];
+			#		$sthB->finish();
+			#		}
+				}
+			}
+		##### END DID lookup #####
+
+		if ($status =~ /UPSELL/) {$UPSELL='L5';}
+		else {$UPSELL='N';}
+
+		if ($output_format =~ /^pipe-standard$/) 
+			{
+			$str = "$first_name|$last_name|$address1|$address2|$city|$state|$postal_code|$phone_number|$email|$security|$comments|$call_date|$lead_id|$list_id|$user|$agent_name|$status|$vendor_id|$source_id|$campaign|$campaign_id|$ivr_id|$closer|$closer_name|$rank|$owner|\n";
+			}
+
+		if ($output_format =~ /^csv-standard$/) 
+			{
+			$str = "\"$first_name\",\"$last_name\",\"$address1\",\"$address2\",\"$city\",\"$state\",\"$postal_code\",\"$phone_number\",\"$email\",\"$security\",\"$comments\",\"$call_date\",\"$lead_id\",\"$list_id\",\"$user\",\"$agent_name\",\"$status\",\"$vendor_id\",\"$source_id\",\"$campaign\",\"$campaign_id\",\"$ivr_id\",\"$closer\",\"$closer_name\",\"$rank\",\"$owner\"\r\n";
+			}
+
+		if ($output_format =~ /^tab-standard$/) 
+			{
+			$str = "$first_name\t$last_name\t$address1\t$address2\t$city\t$state\t$postal_code\t$phone_number\t$email\t$security\t$comments\t$call_date\t$lead_id\t$list_id\t$user\t$agent_name\t$status\t$vendor_id\t$source_id\t$campaign\t$campaign_id\t$ivr_id\t$closer\t$closer_name\t$rank\t$owner\t\n";
+			}
+
+		if ($output_format =~ /^pipe-triplep$/) 
+			{
+			$str = "$user|$agent_name|$closer|$closer_name|$call_date|$status|$first_name|$last_name|$phone_number|$address1|$address2|$city|$state|$postal_code|$comments|$security|$email|$vendor_id|$source_id|$lead_id|$list_id|$campaign|$campaign_id|$ivr_id|\n";
+			}
+
+		if ($output_format =~ /^pipe-vici$/) 
+			{
+			$str = "VDAD|$agent_name|$first_name|$last_name|$address1|$address2|$city|$state|$postal_code|$phone_number|$ivr_id|DU|$UPSELL|N|||$security|$comments||||||$call_date|CBDISC|$email\r\n";
+			}
+
+		if ($output_format =~ /^html-rec$/) 
+			{
+			$str = "$user|$agent_name|$closer|$closer_name|$call_date|$status|$first_name|$last_name|$phone_number|$address1|$address2|$city|$state|$postal_code|$comments|$security|$email|$vendor_id|$source_id|$lead_id|$list_id|$campaign|$campaign_id|<a href=\"$ivr_location\">$ivr_id</a>|\n";
+			}
+
+		if ($output_format =~ /^fixed-as400$/) 
+			{
+			# 16884259  MRS.      JEAN           BROWN               RISALPUR                      BROMSBERROW HEATYH            LEDBURY                       HEREFORDSHIRE                 ENGLAND             HR8 1PQ  01531650052         1209200809:52NI              3205UK
+			$vendor_id =	sprintf("%-10s",$vendor_id);	while(length($vendor_id)>10)	{$vendor_id =~ s/.$//gi;}
+			$title =		sprintf("%-10s",$title);		while(length($title)>10)		{$title =~ s/.$//gi;}
+			$first_name =	sprintf("%-15s",$first_name);	while(length($first_name)>15)	{$first_name =~ s/.$//gi;}
+			$last_name =	sprintf("%-20s",$last_name);	while(length($last_name)>20)	{$last_name =~ s/.$//gi;}
+			$address1 =		sprintf("%-30s",$address1);		while(length($address1)>30)		{$address1 =~ s/.$//gi;}
+			$address2 =		sprintf("%-30s",$address2);		while(length($address2)>30)		{$address2 =~ s/.$//gi;}
+			$address3 =		sprintf("%-30s",$address3);		while(length($address3)>30)		{$address3 =~ s/.$//gi;}
+			$city =			sprintf("%-50s",$city);			while(length($city)>50)			{$city =~ s/.$//gi;}
+			$postal_code =	sprintf("%-9s",$postal_code);	while(length($postal_code)>9)	{$postal_code =~ s/.$//gi;}
+			$phone_number =	sprintf("%-20s",$phone_number);	while(length($phone_number)>20)	{$phone_number =~ s/.$//gi;}
+			@dtsplit = split(" ",$last_local_call_time); 
+			@datesplit = split("-",$dtsplit[0]);
+			$timesplit = substr($dtsplit[1], 0, 5);
+			$formatted_date = "$datesplit[1]$datesplit[2]$datesplit[0]$timesplit";
+			$user =			sprintf("%-4s",$user);
+			if ($status =~ /^AA$/)		{$status = 'A';}
+			if ($status =~ /^A$/)		{$status = 'A';}
+			if ($status =~ /^B$/)		{$status = 'B';}
+			if ($status =~ /^N$/)		{$status = 'N';}
+			if ($status =~ /^NA$/)		{$status = 'N';}
+			if ($status =~ /^NP$/)		{$status = 'N';}
+			if ($status =~ /^PU$/)		{$status = 'N';}
+			if ($status =~ /^DROP$/)	{$status = 'N';}
+			if ($status =~ /^SALE$/)	{$status = 'AP';}
+			if ($status =~ /^A6$/)		{$status = 'A6';}
+			if ($status =~ /^DC$/) 		{$status = 'D';}
+			if ($status =~ /^DNC$/) 	{$status = 'DC';}
+			if ($status =~ /^DNCL$/) 	{$status = 'DC';}
+			if ($status =~ /^DIED$/)	{$status = 'DD';}
+			if ($status =~ /^COMP$/)	{$status = 'DD';}
+			if ($status =~ /^DEC$/)		{$status = 'DD';}
+			if ($status =~ /^ERI$/)		{$status = 'DD';}
+			if ($status =~ /^INCALL$/)	{$status = 'DD';}
+			if ($status =~ /^SP$/)		{$status = 'DD';}
+			if ($status =~ /^WRON$/)	{$status = 'DD';}
+			if ($status =~ /^HBED$/)	{$status = 'DD';}
+			if ($status =~ /^CALLBK$/)	{$status = 'A6';}
+			if ($status =~ /^HAP1$/)	{$status = 'NI';}
+			if ($status =~ /^HAP2$/)	{$status = 'NI';}
+			if ($status =~ /^NI$/)		{$status = 'NI';}
+
+			$status =	sprintf("%-16s",$status);			while(length($status)>16)		{$status =~ s/.$//gi;}
+			$user =~ s/VDAD/    /gi;	
+			$UK = 'UK';
+
+			$str = "$vendor_id$title$first_name$last_name$address1$address2$address3$city$postal_code$phone_number$formatted_date$status$user$UK\r\n";
+			}
+
+		if ($output_format =~ /^tab-QMcustomUSA$/) 
+			{
+			# 1245328655100219	2009-06-18	05:37:35	937	9375551212	8185551223	8106	35	255	0	DSAW	-	q8187-20090618-053939-1245328655.100219.WAV|q8186-20090618-053735-1245328655.100219.WAV
+			# 1-  unique number (digits only)
+			# 2-  date
+			# 3-  time
+			# 4-  CID arecode
+			# 5-  CID full
+			# 6-  DID
+			# 7-  user
+			# 8-  hold time (seconds)
+			# 9-  talk time (seconds)
+			# 10- after call work time (seconds)
+			# 11- application name, 4 characters
+			# 12- order number (just a dash for now '-')
+			# 13- call recording filenames
+			# 14- outbound/inbound
+			# 15- domestic or international
+
+			$uniqueid =~ s/\.00000//gi;
+			$uniqueid =~ s/\.0000//gi;
+			$uniqueid =~ s/\.000//gi;
+			$uniqueid =~ s/\.00//gi;
+			$uniqueid =~ s/\.0//gi;
+			$uniqueid =~ s/\D//gi;
+			@call_date_array = split(/ /,$call_date);
+			while (length($phone_number)>10) {$phone_number =~ s/^.//gi;}
+			$phone_areacode = substr($phone_number, 0, 3);
+			if (length($closer) < 1) {$closer = $user;}
+			if ($closer =~ /VDCL|VDAD/) {$closer='-';}
+			$application = 	substr($did_name, 0, 4);
+			$queue_seconds = int($queue_seconds + .5);
+			$talk_seconds = ( ($length_in_sec - $queue_seconds) - $agent_alert_delay);
+			if ($talk_seconds < 0) {$talk_seconds=0;}
+			$dispo_time = 0;
+
+			if ($uniqueidLIST !~ /\|$uniqueid\|/)
+				{
+				$str = "103$uniqueid\t$call_date_array[0]\t$call_date_array[1]\t$phone_areacode\t$phone_number\t$did_pattern\t$closer\t$queue_seconds\t$talk_seconds\t$dispo_time\t$application\t-\t$ivr_filename\t$outbound\t$domestic\t\n";
+
+				$uniqueidLIST .= "$uniqueid|";
+				if ($DBX > 0) {print "UNIQUE: -----$uniqueidLIST-----$uniqueid";}
+		#		if ($DBX > 0) {print "$uniqueid|$talk_seconds|$outbound|$INcalls|$OUTcalls\n";}
+
+				if ($outbound =~ /Y/) {$OUTtalk = ($OUTtalk + $talk_seconds);   $OUTcalls++;}
+				else {$INtalk = ($INtalk + $talk_seconds);   $INcalls++;}
+				}
+
+			}
+
+		if ($output_format =~ /^tab-SCcustomUSA$/) 
+			{
+			# 1031266398284129        02-17-2010      01:18:04        727     7275551212              6666    0       114     11              NI      1234567890      20100217-041806_7275551212-all.wav|20100217-041806_7275551212-all.wav  Inbound 02-24-2010  19:00:00    02-17-2010 01:18:47     this is a test
+
+			# 1-  Call id: uniqueid padded
+			# 2-  Date: call date in EST
+			# 3-  Time: call time in EST.
+			# 4-  Area Code: area code of the caller
+			# 5-  CID: full 10-digit phone number of the caller
+			# 6-  DID: inbound number that was dialed by the caller
+			# 7-  Agent id: Who answered the call(user), leave blank is call was dropped / abondoned.
+			# 8-  Hold: time in seconds for how long the call was holding before getting answered by an agent
+			# 9-  Talk: time in seconds for how long the agent was talking with the customer
+			# 10-  ACW: time in seconds for how long the agent spent wrapping up the call before answering the next call.
+			# 11-  Campaign: Name of Campaign(application code, 4 characters)
+			# 12-  Type of Call: status(disposition)
+			# 13-  Work Order #: i.e. Cxxxxxxxxxxx
+			# 14-  Call_Recording_Filenames: file name for recorded file name for the call.. Example: 1001.wav
+			# 15-  Inbound/Outbound: Inbound or Outbound call designation
+			# 16-  Appointment Set Date and Time: Time appt was set for in EST
+			# 17-  Note Time Stamp: Time Stamp of Note
+			# 18-  Note Text: Actual Note taken by agent
+
+			$stmtB = "select CONVERT_TZ(call_date,$convert_tz),order_id,appointment_date,appointment_time,call_notes from vicidial_call_notes where lead_id='$lead_id' and vicidial_id='$uniqueid' and call_date > '$shipdate 00:00:01' and call_date < '$shipdate 23:59:59' order by call_date desc limit 1;";
+			$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+			$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+			$sthBrows=$sthB->rows;
+			if ($DB) {print "$sthBrows|$stmtB|\n";}
+			$rec_countB=0;
+			while ($sthBrows > $rec_countB)
+				{
+				@aryB = $sthB->fetchrow_array;
+				$appointment_call_date =	$aryB[0];
+				$order_id =					$aryB[1];
+				$appointment_date =			$aryB[2];
+				$appointment_time =			$aryB[3];
+				$call_notes =				$aryB[4];
+				$rec_countB++;
+				}
+			$sthB->finish();
+
+			$uniqueid =~ s/\.00000//gi;
+			$uniqueid =~ s/\.0000//gi;
+			$uniqueid =~ s/\.000//gi;
+			$uniqueid =~ s/\.00//gi;
+			$uniqueid =~ s/\.0//gi;
+			$uniqueid =~ s/\D//gi;
+
+			@call_date_array = split(/ /,$call_date);
+			@call_date_format = split(/-/,$call_date_array[0]);
+			$call_date_array[0] = "$call_date_format[1]-$call_date_format[2]-$call_date_format[0]";
+
+			@appointment_date_array = split(/ /,$appointment_date);
+			@appointment_date_format = split(/-/,$appointment_date_array[0]);
+			$appointment_date_array[0] = "$appointment_date_format[1]-$appointment_date_format[2]-$appointment_date_format[0]";
+			$appointment_date = "$appointment_date_array[0] $appointment_date_array[1]";
+
+			@appointment_call_date_array = split(/ /,$appointment_call_date);
+			@appointment_call_date_format = split(/-/,$appointment_call_date_array[0]);
+			$appointment_call_date_array[0] = "$appointment_call_date_format[1]-$appointment_call_date_format[2]-$appointment_call_date_format[0]";
+			$appointment_call_date = "$appointment_call_date_array[0] $appointment_call_date_array[1]";
+
+			while (length($phone_number)>10) {$phone_number =~ s/^.//gi;}
+			$phone_areacode = substr($phone_number, 0, 3);
+			if (length($closer) < 1) {$closer = $user;}
+			if ($closer =~ /VDCL|VDAD/) {$closer='-';}
+			$application = 	substr($did_name, 0, 4);
+			$queue_seconds = int($queue_seconds + .5);
+			$talk_seconds = ( ($length_in_sec - $queue_seconds) - $agent_alert_delay);
+			if ($talk_seconds < 0) {$talk_seconds=0;}
+			$call_notes =~ s/\r|\n|\t//gi;
+			if ($outbound =~ /Y/) {$in_out = "Outbound";}
+			else {$in_out = "Inbound";}
+
+			$dispo_time = 0;
+			$stmtB = "select dispo_sec from vicidial_agent_log where lead_id='$lead_id' and user='$closer' and event_time > '$shipdate 00:00:01' and event_time < '$shipdate 23:59:59' order by event_time desc limit 1;";
+			$sthB = $dbhB->prepare($stmtB) or die "preparing: ",$dbhB->errstr;
+			$sthB->execute or die "executing: $stmtB ", $dbhB->errstr;
+			$sthBrows=$sthB->rows;
+			if ($DB) {print "$sthBrows|$stmtB|\n";}
+			$rec_countB=0;
+			while ($sthBrows > $rec_countB)
+				{
+				@aryB = $sthB->fetchrow_array;
+				$dispo_time =	$aryB[0];
+				$rec_countB++;
+				}
+			$sthB->finish();
+
+			if ($uniqueidLIST !~ /\|$uniqueid\|/)
+				{
+				$str = "103$uniqueid\t$call_date_array[0]\t$call_date_array[1]\t$phone_areacode\t$phone_number\t$did_pattern\t$closer\t$queue_seconds\t$talk_seconds\t$dispo_time\t$application\t$status\t$order_id\t$ivr_filename\t$in_out\t$appointment_date $appointment_time\t$appointment_call_date\t$call_notes\t\n";
+
+				$uniqueidLIST .= "$uniqueid|";
+				if ($DBX > 0) {print "UNIQUE: -----$uniqueidLIST-----$uniqueid";}
+		#		if ($DBX > 0) {print "$uniqueid|$talk_seconds|$outbound|$INcalls|$OUTcalls\n";}
+
+				if ($outbound =~ /Y/) {$OUTtalk = ($OUTtalk + $talk_seconds);   $OUTcalls++;}
+				else {$INtalk = ($INtalk + $talk_seconds);   $INcalls++;}
+				}
+
+			}
+
+		$Ealert .= "$str"; 
+
+		print out "$str"; 
+		if ($DBX) {print "$str\n";}
+		}
+	else
+		{$CALLTIME_KICK++;}
+
+	if ($DB > 0)
+		{
+		if ($rec_count =~ /10$/i) {print STDERR "0     $rec_count\r";}
+		if ($rec_count =~ /20$/i) {print STDERR "+     $rec_count\r";}
+		if ($rec_count =~ /30$/i) {print STDERR "|     $rec_count\r";}
+		if ($rec_count =~ /40$/i) {print STDERR "\\     $rec_count\r";}
+		if ($rec_count =~ /50$/i) {print STDERR "-     $rec_count\r";}
+		if ($rec_count =~ /60$/i) {print STDERR "/     $rec_count\r";}
+		if ($rec_count =~ /70$/i) {print STDERR "|     $rec_count\r";}
+		if ($rec_count =~ /80$/i) {print STDERR "+     $rec_count\r";}
+		if ($rec_count =~ /90$/i) {print STDERR "0     $rec_count\r";}
+		if ($rec_count =~ /00$/i) {print "$rec_count|$TOTAL_SALES|$CALLTIME_KICK|         |$phone_number|\n";}
+		}
+	$rec_count++;
+
+	}
+
diff --git a/agc_2-X/trunk/www/agc/api.php b/agc_2-X/trunk/www/agc/api.php
index 5fce269e..f03d75d8 100644
--- a/agc_2-X/trunk/www/agc/api.php
+++ b/agc_2-X/trunk/www/agc/api.php
@@ -1,7 +1,7 @@
 <?php
 # api.php
 # 
-# Copyright (C) 2011  Matt Florell <vicidial@gmail.com>    LICENSE: AGPLv2
+# Copyright (C) 2012  Matt Florell <vicidial@gmail.com>    LICENSE: AGPLv2
 #
 # This script is designed as an API(Application Programming Interface) to allow
 # other programs to interact with the VICIDIAL Agent screen
@@ -56,10 +56,11 @@
 # 110430-0953 - Added option to external_dial by lead_id with alt_dial option
 # 110911-1555 - Added logout function
 # 111114-0037 - Added scheduled callback and qm-dispo-code fields to external_status function
+# 120301-1745 - Fixed ereg statements dashes
 #
 
-$version = '2.4-22';
-$build = '111114-0037';
+$version = '2.4-23';
+$build = '120301-1745';
 
 $startMS = microtime();
 
@@ -218,7 +219,7 @@ if ($non_latin < 1)
 	$focus = ereg_replace("[^-\_0-9a-zA-Z]","",$focus);
 	$preview = ereg_replace("[^-\_0-9a-zA-Z]","",$preview);
 		$notes = ereg_replace("\+"," ",$notes);
-	$notes = ereg_replace("[^ -\.\_0-9a-zA-Z]","",$notes);
+	$notes = ereg_replace("[^- \.\_0-9a-zA-Z]","",$notes);
 	$phone_code = ereg_replace("[^0-9X]","",$phone_code);
 	$search = ereg_replace("[^-\_0-9a-zA-Z]","",$search);
 	$group_alias = ereg_replace("[^0-9a-zA-Z]","",$group_alias);
@@ -228,39 +229,39 @@ if ($non_latin < 1)
 	$vtiger_callback = ereg_replace("[^A-Z]","",$vtiger_callback);
 	$alt_dial = ereg_replace("[^0-9A-Z]","",$alt_dial);
 	$blended = ereg_replace("[^A-Z]","",$blended);
-	$ingroup_choices = ereg_replace("[^ -\_0-9a-zA-Z]","",$ingroup_choices);
+	$ingroup_choices = ereg_replace("[^- \_0-9a-zA-Z]","",$ingroup_choices);
 	$set_as_default = ereg_replace("[^A-Z]","",$set_as_default);
 	$phone_number = ereg_replace("[^0-9]","",$phone_number);
-	$address1 = ereg_replace("[^ -\_0-9a-zA-Z]","",$address1);
-	$address2 = ereg_replace("[^ -\_0-9a-zA-Z]","",$address2);
-	$address3 = ereg_replace("[^ -\_0-9a-zA-Z]","",$address3);
-	$alt_phone = ereg_replace("[^ -\_0-9a-zA-Z]","",$alt_phone);
-	$city = ereg_replace("[^ -\_0-9a-zA-Z]","",$city);
-	$comments = ereg_replace("[^ -\_0-9a-zA-Z]","",$comments);
+	$address1 = ereg_replace("[^- \_0-9a-zA-Z]","",$address1);
+	$address2 = ereg_replace("[^- \_0-9a-zA-Z]","",$address2);
+	$address3 = ereg_replace("[^- \_0-9a-zA-Z]","",$address3);
+	$alt_phone = ereg_replace("[^- \_0-9a-zA-Z]","",$alt_phone);
+	$city = ereg_replace("[^- \_0-9a-zA-Z]","",$city);
+	$comments = ereg_replace("[^- \_0-9a-zA-Z]","",$comments);
 	$country_code = ereg_replace("[^A-Z]","",$country_code);
-	$date_of_birth = ereg_replace("[^ -\_0-9]","",$date_of_birth);
+	$date_of_birth = ereg_replace("[^- \_0-9]","",$date_of_birth);
 	$email = ereg_replace("[^-\.\:\/\@\_0-9a-zA-Z]","",$email);
-	$first_name = ereg_replace("[^ -\_0-9a-zA-Z]","",$first_name);
+	$first_name = ereg_replace("[^- \_0-9a-zA-Z]","",$first_name);
 	$gender = ereg_replace("[^A-Z]","",$gender);
-	$gmt_offset_now = ereg_replace("[^ \.-\_0-9]","",$gmt_offset_now);
-	$last_name = ereg_replace("[^ -\_0-9a-zA-Z]","",$last_name);
+	$gmt_offset_now = ereg_replace("[^- \.\_0-9]","",$gmt_offset_now);
+	$last_name = ereg_replace("[^- \_0-9a-zA-Z]","",$last_name);
 	$lead_id = ereg_replace("[^0-9]","",$lead_id);
-	$middle_initial = ereg_replace("[^ -\_0-9a-zA-Z]","",$middle_initial);
-	$province = ereg_replace("[^ -\.\_0-9a-zA-Z]","",$province);
-	$security_phrase = ereg_replace("[^ -\.\_0-9a-zA-Z]","",$security_phrase);
-	$source_id = ereg_replace("[^ -\.\_0-9a-zA-Z]","",$source_id);
-	$state = ereg_replace("[^ -\_0-9a-zA-Z]","",$state);
-	$title = ereg_replace("[^ -\_0-9a-zA-Z]","",$title);
-	$vendor_lead_code = ereg_replace("[^ -\.\_0-9a-zA-Z]","",$vendor_lead_code);
+	$middle_initial = ereg_replace("[^- \_0-9a-zA-Z]","",$middle_initial);
+	$province = ereg_replace("[^- \.\_0-9a-zA-Z]","",$province);
+	$security_phrase = ereg_replace("[^- \.\_0-9a-zA-Z]","",$security_phrase);
+	$source_id = ereg_replace("[^- \.\_0-9a-zA-Z]","",$source_id);
+	$state = ereg_replace("[^- \_0-9a-zA-Z]","",$state);
+	$title = ereg_replace("[^- \_0-9a-zA-Z]","",$title);
+	$vendor_lead_code = ereg_replace("[^- \.\_0-9a-zA-Z]","",$vendor_lead_code);
 	$rank = ereg_replace("[^-0-9]","",$rank);
 	$owner = ereg_replace("[^-\.\:\/\@\_0-9a-zA-Z]","",$owner);
 	$dial_override = ereg_replace("[^A-Z]","",$dial_override);
 	$consultative = ereg_replace("[^A-Z]","",$consultative);
 		$callback_datetime = ereg_replace("\+"," ",$callback_datetime);
-	$callback_datetime = ereg_replace("[^ -\.\_0-9a-zA-Z]","",$callback_datetime);
+	$callback_datetime = ereg_replace("[^- \.\_0-9a-zA-Z]","",$callback_datetime);
 	$callback_type = ereg_replace("[^A-Z]","",$callback_type);
 		$callback_comments = ereg_replace("\+"," ",$callback_comments);
-	$callback_comments = ereg_replace("[^ -\.\_0-9a-zA-Z]","",$callback_comments);
+	$callback_comments = ereg_replace("[^- \.\_0-9a-zA-Z]","",$callback_comments);
 	$qm_dispo_code = ereg_replace("[^-\.\_0-9a-zA-Z]","",$qm_dispo_code);
 	}
 else
diff --git a/agc_2-X/trunk/www/vicidial/admin.php b/agc_2-X/trunk/www/vicidial/admin.php
index 5c79c820..0f98ec27 100644
--- a/agc_2-X/trunk/www/vicidial/admin.php
+++ b/agc_2-X/trunk/www/vicidial/admin.php
@@ -20344,6 +20344,8 @@ if ($ADD==31)
 		$dial_status_d = $row[6];
 		$dial_status_e = $row[7];
 		$lead_order = $row[8];
+		$park_ext = $row[9];
+		$park_file_name = $row[10];
 		$web_form_address = stripslashes($row[11]);
 		$allow_closers = $row[12];
 		$hopper_level = $row[13];
@@ -20807,7 +20809,7 @@ if ($ADD==31)
 		echo "<form action=$PHP_SELF method=POST>\n";
 		echo "<input type=hidden name=ADD value=41>\n";
 		echo "<input type=hidden name=campaign_id value=\"$campaign_id\">\n";
-		echo "<input type=hidden name=park_ext value=\"$row[9]\">\n";
+		echo "<input type=hidden name=park_ext value=\"$park_ext\">\n";
 		echo "<input type=hidden name=old_campaign_allow_inbound value=\"$campaign_allow_inbound\">\n";
 		echo "<TABLE width=$section_width cellspacing=3>\n";
 		echo "<tr bgcolor=#B6D3FC><td align=right>Campaign ID: </td><td align=left><b>$campaign_id</b>$NWB#vicidial_campaigns-campaign_id$NWE</td></tr>\n";
@@ -20827,7 +20829,7 @@ if ($ADD==31)
 		echo "<option SELECTED value=\"$user_group\">$user_group</option>\n";
 		echo "</select>$NWB#vicidial_campaigns-user_group$NWE</td></tr>\n";
 
-		echo "<tr bgcolor=#B6D3FC><td align=right>Park Music-on-Hold: </td><td align=left><input type=text name=park_file_name id=park_file_name size=20 maxlength=100 value=\"$row[10]\"> <a href=\"javascript:launch_moh_chooser('park_file_name','moh',200);\">moh chooser</a> $NWB#vicidial_campaigns-park_ext$NWE</td></tr>\n";
+		echo "<tr bgcolor=#B6D3FC><td align=right>Park Music-on-Hold: </td><td align=left><input type=text name=park_file_name id=park_file_name size=20 maxlength=100 value=\"$park_file_name\"> <a href=\"javascript:launch_moh_chooser('park_file_name','moh',200);\">moh chooser</a> $NWB#vicidial_campaigns-park_ext$NWE</td></tr>\n";
 		echo "<tr bgcolor=#B6D3FC><td align=right>Web Form: </td><td align=left><input type=text name=web_form_address size=70 maxlength=9999 value=\"$web_form_address\">$NWB#vicidial_campaigns-web_form_address$NWE</td></tr>\n";
 		if ($SSenable_second_webform > 0)
 			{