[freeside-commits] branch master updated. 27a6f17d1109cc1b77e7a70724a80859687e3148

[Ivan]

The branch, master has been updated
       via  27a6f17d1109cc1b77e7a70724a80859687e3148 (commit)
      from  28e9ba1b3c8df377394d7f01e4c69a835a9b1b71 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 27a6f17d1109cc1b77e7a70724a80859687e3148
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Mon Oct 27 10:29:54 2014 -0700

    Vitelity API: Use new getcdr command, RT#31037

diff --git a/bin/cdr-vitelity.import b/bin/cdr-vitelity.import
index 39c0361..55eb8cc 100755
--- a/bin/cdr-vitelity.import
+++ b/bin/cdr-vitelity.import
@@ -73,11 +73,20 @@ foreach my $export (@part_exports) {
   print "Downloading to ".$temp->filename."\n" if $opt{'v'};
 
   print "Sending API request..." if $opt{'v'};
-  my @records = eval { $export->vitelity_command('getcdr') };
+
+  my $s = time2str('%m-%d-%Y', $start);
+  my $e = time2str('%m-%d-%Y', $end);
+
+  my @records = eval { $export->vitelity_command('getcdr',
+                                                   'startdate' => $s,
+                                                   'enddate'   => $e,
+                                                );
+                     };
   if ( $@ ) {
     print "download error: $@\n";
     exit(-1);
   }
+
   print "received ".scalar(@records)." records\n" if $opt{'v'};
   if ( !@records ) {
     print "No records to process.\n" if $opt{'v'};
@@ -86,19 +95,10 @@ foreach my $export (@part_exports) {
 
   print $temp "Date,Source,Destination,Seconds,CallerID,Disposition,Cost\n";
 
-  my $regex = qr/^(\d{4})-(\d{2})-(\d{2})/;
-  my $s = time2str('%m-%d-%Y', $start);
-  my $e = time2str('%m-%d-%Y', $end);
-  my $count = 0;
   while (my $rec = shift @records) {
-    my $date = substr($rec, 0, 10);
-    next if ($start and $s gt $date);
-    next if ($end and $e le $date);
     print $temp $rec, "\n";
-    $count++;
   }
   close $temp;
-  print "Selected $count records in date range." if $opt{'v'};
 
   my $format = 'vitelity';
   my $batchname = "vitelity-$exportnum-".time2str('%Y/%m/%d-%T',time);

-----------------------------------------------------------------------

Summary of changes:
 bin/cdr-vitelity.import |   20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)