#!/usr/bin/perl -w

use strict;
use warnings;
use File::Basename;
use Locale::Maketext::Extract::Run 'xgettext';

chdir dirname($0) . '/..';

my @files = qw(vroom.pl public/js/vroom.js);
push @files, glob('templates/default/*');

foreach my $lang (map { basename(s/\.pm$//r) } glob('lib/Vroom/I18N/*.pm')){
  xgettext(
    '-o', 'lib/Vroom/I18N/' . $lang . '.po',
    @files
  );
}

Add a script to update po files
Add a script to update po files
