From 412a8d8c6fbbf493fddbc9af723a706484d2e538 Mon Sep 17 00:00:00 2001
From: mattf <mattf@3d104415-ff17-0410-8863-d5cf3c621b8a>
Date: Fri, 17 Jun 2011 06:13:12 +0000
Subject: [PATCH] small archive script bug fix

git-svn-id: svn://192.168.202.10@1675 3d104415-ff17-0410-8863-d5cf3c621b8a
---
 agc_2-X/trunk/bin/ADMIN_archive_log_tables.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/agc_2-X/trunk/bin/ADMIN_archive_log_tables.pl b/agc_2-X/trunk/bin/ADMIN_archive_log_tables.pl
index 946cddc9..c2c63042 100644
--- a/agc_2-X/trunk/bin/ADMIN_archive_log_tables.pl
+++ b/agc_2-X/trunk/bin/ADMIN_archive_log_tables.pl
@@ -105,17 +105,17 @@ if ($mon < 0)
 	{		
 	$mon = ($mon + 12);
 	$year = ($year - 1);		
-	}	
+	}
+
+use Time::Local;
+$del_epoch = timelocal(0,0,2,$mday,$mon,$year);
+
 $mon++;	
 if ($mon < 10) {$mon = "0$mon";}	
 if ($mday < 10) {$mday = "0$mday";}	
 
 $del_time = "$year-$mon-$mday 01:00:00";
 
-use Time::Local;
-
-$del_epoch = timelocal(0,0,2,$mday,$mon,$year);
-
 if (!$Q) {print "\n\n-- ADMIN_archive_log_tables.pl --\n\n";}
 if (!$Q) {print "This program is designed to put all records from  call_log, vicidial_log,\n";}
 if (!$Q) {print "server_performance, vicidial_agent_log, vicidial_carrier_log, \n";}