1 files changed, 20 insertions, 0 deletions
diff --git a/scripts/checktranslation.pl b/scripts/checktranslation.pl
new file mode 100755
index 000000000..0324ad88a
--- /dev/null
+++ b/scripts/checktranslation.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -CS
+
+use strict;
+use utf8;
+use XML::TreeBuilder;
+
+foreach my $file_name (@ARGV) {
+	my $tree = XML::TreeBuilder->new({'NoExpand' => 0, 'ErrorContext' => 0});
+	$tree->parse_file($file_name, ProtocolEncoding => 'UTF-8');
+	foreach my $string ($tree->find_by_tag_name('message')) {
+		my $source = $string->find_by_tag_name('source')->as_text;
+		my $translation = $string->find_by_tag_name('translation')->as_text;
+		next unless $translation =~ /\S/;
+		my @source_args = ($source =~ /\%([^\s\-\(\)])/g);
+		my @translation_args = ($translation =~ /\%([^\s\-\(\)])/g);
+		if (scalar(@source_args) != scalar(@translation_args)) {
+			print "$file_name:\n$source\n->\n$translation\n\n";
+		}
+	}
+}