script to insert CDR header strings into msgcat, #27276

1 files changed, 40 insertions, 0 deletions

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");
+  }
+}