Taqua OM CDR format, RT#7518

[freeside.git] / FS / FS / cdr / taqua_om.pm

diff --git a/FS/FS/cdr/taqua_om.pm b/FS/FS/cdr/taqua_om.pm
new file mode 100644 (file)
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;