From 7a4a92642de34dc2d453e895a5800d879a93b1ee Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Wed, 12 Feb 2014 14:21:31 -0800
Subject: [PATCH] script to insert CDR header strings into msgcat, #27276

---
 bin/translate-insert-cdr-headers | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100755 bin/translate-insert-cdr-headers

diff --git a/bin/translate-insert-cdr-headers b/bin/translate-insert-cdr-headers
new file mode 100755
index 000000000..b7f1ce0d9
--- /dev/null
+++ b/bin/translate-insert-cdr-headers
@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+
+use strict;
+use FS::UID qw(adminsuidsetup);
+use FS::Conf;
+use FS::Record qw(qsearchs);
+use FS::cdr;
+
+sub usage {
+  "usage:
+  translate-insert-cdr-headers <user> <locale>
+";
+}
+
+my $user = shift or die usage();
+adminsuidsetup($user);
+my $locale = shift or die usage();
+
+$FS::UID::AutoCommit = 1;
+
+my %formats = FS::cdr::invoice_formats();
+my @strings = map { FS::cdr::invoice_header($_) } keys %formats;
+foreach my $string (@strings) {
+  print "$string ... ";
+  if ( qsearchs('msgcat', {
+      locale    => $locale,
+      msgcode   => $string,
+  }) ) {
+    print "already exists.\n";
+  } else {
+    my $newmsgcat = FS::msgcat->new(
+      {
+        locale     => $locale,
+        msgcode    => $string,
+        msg        => $string,
+      });
+    my $error = $newmsgcat->insert;
+    print (($error || "inserted."). "\n");
+  }
+}
-- 
2.11.0