/usr/lib/xastir/update_langfile.pl is in xastir 2.0.0-2.1ubuntu1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 | #!/usr/bin/perl -w
# $Id: update_langfile.pl,v 1.2 2002/02/12 01:27:39 dk7in Exp $
# Update utility for XASTIR language files 17.04.2001
# Copyright (C) 2001 Rolf Bleher http://www.dk7in.de
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
# see file COPYING for details
#--------------------------------------------------------------------------
# This program adds missing entries to the translated language files and
# deletes obsolete entries.
# If a translated comment before an entry block is found it will be preserved.
# There might be problems with the comment with a changed block sequence.
# I assume that you start it in the directory with the language files,
# call it with the translated language file as parameter.
# DK7IN: for now it assumes that the language files reside
# in the current directory
#--------------------------------------------------------------------------
$LF1 = "language-English.sys"; # original language file
$LF2 = "language-German.sys"; # translated language file
$LFOUT = "language-new.sys"; # modified translated language file
if (@ARGV) {
$LF2 = shift @ARGV;
}
#--------------------------------------------------------------------------
open(IN1,$LF1) or die "ERROR: could not open $LF1!\n";
open(IN2,$LF2) or die "ERROR: could not open $LF2!\n";
open(OUT,">$LFOUT") or die "ERROR: could not write to $LFOUT!\n";
#--------------------------------------------------------------------------
%token = (); # translated tokens
@cmt1 = (); # original comment
@cmt2 = (); # translated comment
# collect all available translated tokens
while (<IN2>) {
next if (/^#/); # skip comment lines
if (/^([A-Z]+[0-9]+)(|.+|.?|.*)$/) {
$token{$1} = $2; # store translated text entry
}
}
# process language file
while (<IN1>) { # original language file
if (/^#/) { # comment line
push(@cmt1,$_); # store comment
} else {
if (/^([A-Z]+)([0-9]+)(|.+|.?|.*)$/) { # data line
$name = $1;
$numb = $2;
$arg = $3;
if (@cmt1) { # pending comment
# try to find the translation
seek IN2, 0, 0; # reposition to begin of file
@cmt2 = (); # translated comment
$match = 0;
while (<IN2>) {
$line = $_;
if (/^([A-Z]+)([0-9]+)(|.+|.?|.*)$/) {
$curr = $1;
if ($name eq $curr) { # same block
$match = 1;
last;
} else {
@cmt2 = (); # clear wrong comment
}
} else {
if (/^#/) { # store comment
push(@cmt2,$_);
}
}
}
if ($match && @cmt2) { # found translated comment
foreach $line (@cmt2) {
print(OUT $line); # translated comment
}
} else {
foreach $line (@cmt1) {
print(OUT $line); # original comment
}
}
@cmt1 = ();
}
if ($token{$name.$numb}) { # found translation
$arg = $token{$name.$numb};
}
printf(OUT "%s%s%s\n",$name,$numb,$arg);
} else {
print("ERROR: $_"); # bad line format
}
}
}
close(IN1);
close(IN2);
close(OUT);
exit;
#--------------------------------------------------------------------------
|