Difuse/luci
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Jo-Philipp Wich 2012-07-01 22:46:49 +00:00
parent 4f5638af1d
commit 0b0df324bf
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
build/i18n-update.pl
View file

@ -5,6 +5,22 @@
my $source = shift @ARGV; my $source = shift @ARGV;
my $pattern = shift @ARGV || '*.po'; 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' |" ) if( open F, "find $source -type f -name '$pattern' |" )
{ {
while( chomp( my $file = readline F ) ) while( chomp( my $file = readline F ) )
@ -15,6 +31,7 @@ if( open F, "find $source -type f -name '$pattern' |" )
{ {
printf "Updating %-40s", $file; printf "Updating %-40s", $file;
system("msgmerge", "-U", "-N", $file, "$source/templates/$basename.pot"); system("msgmerge", "-U", "-N", $file, "$source/templates/$basename.pot");
fixup_header_order($file);
} }
} }