#!/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");
  }
}