bin/translate-insert-cdr-headers

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use FS::UID qw(adminsuidsetup);
   5 use FS::Conf;
   6 use FS::Record qw(qsearchs);
   7 use FS::cdr;
   8
   9 sub usage {
  10   "usage:
  11   translate-insert-cdr-headers <user> <locale>
  12 ";
  13 }
  14
  15 my $user = shift or die usage();
  16 adminsuidsetup($user);
  17 my $locale = shift or die usage();
  18
  19 $FS::UID::AutoCommit = 1;
  20
  21 my %formats = FS::cdr::invoice_formats();
  22 my @strings = map { FS::cdr::invoice_header($_) } keys %formats;
  23 foreach my $string (@strings) {
  24   print "$string ... ";
  25   if ( qsearchs('msgcat', {
  26       locale    => $locale,
  27       msgcode   => $string,
  28   }) ) {
  29     print "already exists.\n";
  30   } else {
  31     my $newmsgcat = FS::msgcat->new(
  32       {
  33         locale     => $locale,
  34         msgcode    => $string,
  35         msg        => $string,
  36       });
  37     my $error = $newmsgcat->insert;
  38     print (($error || "inserted."). "\n");
  39   }
  40 }