[freeside-commits] freeside/FS/FS/cdr taqua_om.pm,NONE,1.1

[Ivan,,,]

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

Added Files:
	taqua_om.pm 
Log Message:
Taqua OM CDR format, RT#7518

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

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

%info = (
  %FS::cdr::taqua::info,
  'name'         => 'Taqua OM',
  'weight'       => 132,
  'header'       => 0,
  'sep_char'     => ';',
  'row_callback' => sub { my $row = shift;
                          $row =~ s/^<\d+>\|[\da-f\|]+\|(\d+;)/$1/;
                          $row;
                        },
);

1;