3 use FS::UID qw(adminsuidsetup);
6 my $user = shift or die &usage;
9 foreach my $del_msgcat ( qsearchs('msgcat', {}) ) {
10 my $error = $del_msgcat->delete;
14 my %messages = messages();
16 foreach $msgcode ( keys %messages ) {
17 foreach my $locale ( keys %{$messages{$msgcode}} ) {
18 my $msgcat = new FS::msgcat( {
19 'msgcode' => $msgcode,
22 my $error = $msgcat->insert;
30 # 'en_US' => 'Message',
43 die "Usage:\n\n populate-msgcat user\n";