[freeside-commits] freeside/FS/FS/cdr sonus.pm,1.1,1.2

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/FS/FS/cdr
In directory wavetail.420.am:/tmp/cvs-serv18689/FS/FS/cdr

Added Files:
	sonus.pm 
Log Message:
Sonus CDR format, #13053

--- NEW FILE: sonus.pm ---
package FS::cdr::sonus;

use strict;
use base qw( FS::cdr );
use vars qw( %info );
use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );

%info = (
  'name'          => 'Sonus',
  'weight'        => 525,
  'header'        => 0,     #0 default, set to 1 to ignore the first line, or
                            # to higher numbers to ignore that number of lines
  'type'          => 'csv', #csv (default), fixedlength or xls
  'sep_char'      => ',',   #for csv, defaults to ,
  'import_fields' => [
    'src', # also customer id
    'dst',
    _cdr_date_parser_maker('startdate'),
    _cdr_date_parser_maker('enddate'),
    _cdr_min_parser_maker,
    skip(12),
    sub { #rate
      my ($cdr, $rate) = @_;
      $cdr->upstream_price(sprintf("%.4f", $rate * $cdr->duration / 60));
    }
  ],
);

sub skip { map {''} (1..$_[0]) }

1;