Add a script to update po files

scripts/update_locales.pl

@@ -0,0 +1,18 @@
+#!/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
+  );
+}