More l10n-stuff

2 files changed, 19 insertions, 0 deletions

diff --git a/docs/createtranslation.pl b/docs/createtranslation.pl
index 4c1c7c38d73..12ba22a5ea4 100644
--- a/docs/createtranslation.pl
+++ b/docs/createtranslation.pl
@@ -16,6 +16,7 @@ foreach my $i ( @files ){
 	my @strings = ();
 	foreach my $key ( keys( %{$hash} )){
 		next if $key eq '""';
+		next if $hash->{$key}->msgstr() eq '""';
 		push( @strings, $hash->{$key}->msgid()." => ".$hash->{$key}->msgstr());
 	}
 
diff --git a/docs/getstrings.pl b/docs/getstrings.pl
new file mode 100644
index 00000000000..0325438b551
--- /dev/null
+++ b/docs/getstrings.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+use strict;
+
+if( -e 'messages.pot' ){
+	`xgettext --files-from=xgettextfiles --join-existing --output=messages.pot --keyword=t`
+}
+else{
+	`xgettext --files-from=xgettextfiles --output=messages.pot --keyword=t`
+}
+
+opendir( DIR, '.' );
+my @files = readdir( DIR );
+closedir( DIR );
+
+foreach my $i ( @files ){
+	next unless $i =~ m/^(.*)\.po$/;
+	`xgettext --files-from=xgettextfiles --join-existing --output=$i --keyword=t`
+}