From: Jo-Philipp Wich <jow@openwrt.org>
Date: Sun, 1 Jul 2012 22:46:49 +0000 (+0000)
Subject: build: fixup header order in i18n-update.pl to minimize diffs to pootle
X-Git-Tag: 0.11.0~493
X-Git-Url: http://git.openwrt.org/?p=project%2Fluci.git;a=commitdiff_plain;h=0b0df324bfdcf4bb9870a8edd82567f4091d6ff1

build: fixup header order in i18n-update.pl to minimize diffs to pootle
---

diff --git a/build/i18n-update.pl b/build/i18n-update.pl
index 0dd213a535..16b82e8ddd 100755
--- a/build/i18n-update.pl
+++ b/build/i18n-update.pl
@@ -5,6 +5,22 @@
 my $source  = shift @ARGV;
 my $pattern = shift @ARGV || '*.po';
 
+sub fixup_header_order
+{
+	my $file = shift || return;
+	local $/;
+
+	open P, "< $file" || die "open(): $!";
+	my $data = readline P;
+	close P;
+
+	$data =~ s/("Language-Team: .*?\\n"\n)(.+?)("Language: .*?\\n"\n)/$1$3$2/s;
+
+	open P, "> $file" || die "open(): $!";
+	print P $data;
+	close P;
+}
+
 if( open F, "find $source -type f -name '$pattern' |" )
 {
 	while( chomp( my $file = readline F ) )
@@ -15,6 +31,7 @@ if( open F, "find $source -type f -name '$pattern' |" )
 		{
 			printf "Updating %-40s", $file;
 			system("msgmerge", "-U", "-N", $file, "$source/templates/$basename.pot");
+			fixup_header_order($file);
 		}
 	}