diff options
Diffstat (limited to 'FS/FS/cdr/taqua_om.pm')
-rw-r--r-- | FS/FS/cdr/taqua_om.pm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/FS/FS/cdr/taqua_om.pm b/FS/FS/cdr/taqua_om.pm new file mode 100644 index 0000000..c94ea59 --- /dev/null +++ b/FS/FS/cdr/taqua_om.pm @@ -0,0 +1,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; |