bin/populate-msgcat

   1 #!/usr/bin/perl -Tw
   2
   3 use strict;
   4 use FS::UID qw(adminsuidsetup);
   5 use FS::Record qw(qsearch);
   6 use FS::msgcat;
   7
   8 my $user = shift or die &usage;
   9 adminsuidsetup $user;
  10
  11 foreach my $del_msgcat ( qsearch('msgcat', {}) ) {
  12   my $error = $del_msgcat->delete;
  13   die $error if $error;
  14 }
  15
  16 my %messages = messages();
  17
  18 foreach my $msgcode ( keys %messages ) {
  19   foreach my $locale ( keys %{$messages{$msgcode}} ) {
  20     my $msgcat = new FS::msgcat( {
  21       'msgcode' => $msgcode,
  22       'locale'  => $locale,
  23       'msg'     => $messages{$msgcode}{$locale},
  24     });
  25     my $error = $msgcat->insert;
  26     die $error if $error;
  27   }
  28 }
  29
  30 sub messages {
  31
  32   #  'msgcode' => {
  33   #    'en_US' => 'Message',
  34   #  },
  35
  36   (
  37
  38     'passwords_dont_match' => {
  39       'en_US' => "Passwords don't match",
  40     },
  41
  42     'invalid_card' => {
  43       'en_US' => 'Invalid credit card number',
  44     },
  45
  46     'unknown_card_type' => {
  47       'en_US' => 'Unknown card type',
  48     },
  49
  50     'not_a' => {
  51       'en_US' => 'Not a ',
  52     },
  53
  54   );
  55 }
  56
  57 sub usage {
  58   die "Usage:\n\n  populate-msgcat user\n";
  59 }
  60