bin/populate-msgcat

   1 #!/usr/bin/perl
   2
   3 use FS::UID qw(adminsuidsetup);
   4 use FS::msgcat;
   5
   6 my $user = shift or die &usage;
   7 adminsuidsetup $user;
   8
   9 foreach my $del_msgcat ( qsearchs('msgcat', {}) ) {
  10   my $error = $del_msgcat->delete;
  11   die $error if $error;
  12 }
  13
  14 my %messages = messages();
  15
  16 foreach $msgcode ( keys %messages ) {
  17   foreach my $locale ( keys %{$messages{$msgcode}} ) {
  18     my $msgcat = new FS::msgcat( {
  19       'msgcode' => $msgcode,
  20       'locale'  => $locale,
  21     });
  22     my $error = $msgcat->insert;
  23     die $error if $error;
  24   }
  25 }
  26
  27 sub messages {
  28
  29   #  'msgcode' => {
  30   #    'en_US' => 'Message',
  31   #  },
  32
  33   (
  34
  35     'msgcode' => {
  36       'en_US' => 'Message',
  37     },
  38
  39   );
  40 }
  41
  42 sub usage {
  43   die "Usage:\n\n  populate-msgcat user\n";
  44 }
  45