diff options
author | ivan <ivan> | 2010-06-29 19:51:20 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-06-29 19:51:20 +0000 |
commit | a4dc6eea04eb566cfa21d424fe1bd62661134fdf (patch) | |
tree | 2f177c64a0a498cc5d05ca6a8cc57475fdcd27d1 /FS/FS/cdr/taqua_om.pm | |
parent | f3c6b6245a3ac0f32ff6d30b0315c009687fcffc (diff) |
Taqua OM CDR format, RT#7518
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; |