From 2a68fb7632bce93843dce65fcc581e7dbf840d67 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 3 Nov 2014 12:10:05 -0800
Subject: [PATCH] reformat dates on aradial usage import, RT#29053

---
 bin/aradial-sftp_and_import | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/bin/aradial-sftp_and_import b/bin/aradial-sftp_and_import
index 53357033c..668ec49ba 100755
--- a/bin/aradial-sftp_and_import
+++ b/bin/aradial-sftp_and_import
@@ -4,6 +4,7 @@
 
 use strict;
 use Getopt::Std;
+use Date::Parse;
 use Date::Format;
 use Text::CSV_XS;
 use DBI qw( :sql_types );
@@ -162,6 +163,8 @@ foreach my $filename ( @$ls ) {
     #skip blank records
     next unless grep defined($_), values %dbhash;
 
+    my $date = time2str( '%Y-%m-%d %X', str2time( $hash{'Date'} ) );
+
     $hash{'Status-Type'} = $status_type{ $hash{'Status-Type'} }
       if exists $status_type{ $hash{'Status-Type'} };
 
@@ -170,7 +173,7 @@ foreach my $filename ( @$ls ) {
     if ( $hash{'Status-Type'} eq 'Start' ) {
 
       push @keys, 'AcctStartTime';
-      $dbhash{'AcctStartTime'} = $hash{'Date'};
+      $dbhash{'AcctStartTime'} = $date;
 
       $sql = 'INSERT INTO radacct ( '. join(',', @keys).
              ' ) VALUES ( '. join(',', map ' ? ', @keys ). ' )';
@@ -180,7 +183,7 @@ foreach my $filename ( @$ls ) {
       my $AcctSessionId = delete($dbhash{AcctSessionId});
 
       push @keys, 'AcctStopTime';
-      $dbhash{'AcctStopTime'} = $hash{'Date'};
+      $dbhash{'AcctStopTime'} = $date;
 
       push @extra_values, $AcctSessionId;
 
-- 
2.11.0