5 translators=$(while read mode pofile; do
6 translator=$(git diff --cached -- ${pofile} | perl -le '
8 if (/^(?:\+(?:#|.*?:)|[ +]"Last-Translator:) *(.*?)(<[^@>]+@[^>]+>)/p) {
9 $xltrs{$2} = $1 unless $xltrs{$2};
10 last if $& =~ /Last-Translator:/;
13 push(@out, $n.$e) while (($e, $n) = each %xltrs);
14 print(join(", ", @out));
18 echo " - ${lang}: ${translator}"
19 done < <(git status --porcelain po/*.po | egrep '^[AM] '))
21 git commit -em "Update translations from Transifex
24 ${translators}" po/*.po