1 files changed, 22 insertions, 0 deletions
diff --git a/build/i18n-update.pl b/build/i18n-update.pl
new file mode 100755
index 000000000..c41b039b7
--- /dev/null
+++ b/build/i18n-update.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+@ARGV >= 1 || die "Usage: $0 <po directory> [<file pattern>]\n";
+
+my $source  = shift @ARGV;
+my $pattern = shift @ARGV || '*.po';
+
+if( open F, "find $source -type f -name '$pattern' |" )
+{
+	while( chomp( my $file = readline F ) )
+	{
+		my ( $basename ) = $file =~ m{.+/([^/]+)\.po$};
+		
+		if( -f "$source/templates/$basename.pot" )
+		{
+			printf "Updating %-40s", $file;
+			system("msgmerge", "-U", $file, "$source/templates/$basename.pot");
+		}
+	}
+
+	close F;
+}