From 1f3666f7225eb33d932a7ae067dbca05e57ad9ca Mon Sep 17 00:00:00 2001
From: Jo-Philipp Wich <jow@openwrt.org>
Date: Tue, 19 May 2009 17:21:07 +0000
Subject: [PATCH] build: add i18n-update.pl to refresh *.po files from *.pot
 templates

---
 build/i18n-update.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 build/i18n-update.pl

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;
+}
-- 
2.25.1