FS/FS/cdr/taqua_om.pm

   1 package FS::cdr::taqua_om;
   2
   3 use strict;
   4 use vars qw( %info );
   5 use base qw( FS::cdr::taqua );
   6
   7 %info = (
   8   %FS::cdr::taqua::info,
   9   'name'         => 'Taqua OM',
  10   'weight'       => 132,
  11   'header'       => 0,
  12   'sep_char'     => ';',
  13   'row_callback' => sub { my $row = shift;
  14                           $row =~ s/^<\d+>\|[\da-f\|]+\|(\d+;)/$1/;
  15                           $row;
  16                         },
  17 );
  18
  19 1;