allow non-integer ratios of supplemental package period, #37102
[freeside.git] / 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 }