4 use FS::UID qw(adminsuidsetup);
5 use FS::Record qw(qsearch);
8 my $user = shift or die &usage;
11 foreach my $del_msgcat ( qsearch('msgcat', {}) ) {
12 my $error = $del_msgcat->delete;
16 my %messages = messages();
18 foreach my $msgcode ( keys %messages ) {
19 foreach my $locale ( keys %{$messages{$msgcode}} ) {
20 my $msgcat = new FS::msgcat( {
21 'msgcode' => $msgcode,
23 'msg' => $messages{$msgcode}{$locale},
25 my $error = $msgcat->insert;
33 # 'en_US' => 'Message',
38 'passwords_dont_match' => {
39 'en_US' => "Passwords don't match",
43 'en_US' => 'Invalid credit card number',
46 'unknown_card_type' => {
47 'en_US' => 'Unknown card type',
58 die "Usage:\n\n populate-msgcat user\n";