From 284f4d02777904ace389cab1ada9a2de06a4b3ea Mon Sep 17 00:00:00 2001 From: mnaumann Date: Sat, 22 Oct 2011 03:06:31 +0000 Subject: [PATCH] * clear comments and missing translation keys off existing translation files * make merge_new_language_vars.pl report, in comments it adds to language files, only its filename, not path --- .../merge_new_language_vars/merge_new_language_vars.pl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/source/tools/merge_new_language_vars/merge_new_language_vars.pl b/source/tools/merge_new_language_vars/merge_new_language_vars.pl index b757f0021..dce9a2706 100644 --- a/source/tools/merge_new_language_vars/merge_new_language_vars.pl +++ b/source/tools/merge_new_language_vars/merge_new_language_vars.pl @@ -21,6 +21,11 @@ if ( $#ARGV != 1 ) { our %main; our @main_line; +our $self = $0; +$self =~ s;^.*/([^/]*)$;$1;g; +# print "self: $self\n"; +# die; + our $dir = $ARGV[0]; our $main_lang = $ARGV[1]; mkdir $dir; @@ -114,7 +119,7 @@ LNGS: foreach my $file ( @files ) { } # new var not in lng-file, include it from main-lng else { - print OUT "; Next line needs translation, include by $0 on $now\n"; + print OUT "; Next line needs translation, include by $self on $now\n"; print OUT $main_line[ $row ]; } }