small archive script bug fix

git-svn-id: svn://192.168.202.10@1675 3d104415-ff17-0410-8863-d5cf3c621b8a
2011-06-17 06:13:12 +00:00
parent 95c9f1f3d3
commit fefd2d0d54
1 changed files with 5 additions and 5 deletions
@@ -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";}