FS/FS/cdr/taqua_om.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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;