From 5700d9bf12d2c5aebac236cfe6805e7a9c2ff66c Mon Sep 17 00:00:00 2001 From: Ceppo Date: Sat, 3 Jan 2026 17:17:17 +0000 Subject: [PATCH 3/3] Drop obsolete translation-check --- dansk.tex | 2 -- deutsch.tex | 3 -- espanyol.tex | 2 -- francaise.tex | 2 -- italiano.tex | 2 -- nederlands.tex | 4 --- portugues.tex | 2 -- svenska.tex | 2 -- translation-check.pl | 79 -------------------------------------------- 9 files changed, 98 deletions(-) delete mode 100755 translation-check.pl diff --git a/dansk.tex b/dansk.tex index c2ecd0c..3ef1f3f 100644 --- a/dansk.tex +++ b/dansk.tex @@ -13,8 +13,6 @@ % along with this program; if not, write to the Free Software % Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA. -% translation-check translation="1.13" - % Contributed by % Jonas Smedegaard , 2005 % Claus Hindsgaul , 2005 diff --git a/deutsch.tex b/deutsch.tex index e34f6ae..97a51da 100644 --- a/deutsch.tex +++ b/deutsch.tex @@ -14,9 +14,6 @@ % Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA. \selectlanguage{german} -% FIXME drop obsolete rcsInfo -\def\MyRCS{\rcsInfo $Id: english.tex,v 1.46 2017/02/16 04:48:33 joostvb Exp $} - \def\Universal{Das universelle Betriebssystem} \def\WhatIsDebianCaption{Was ist Debian GNU/Linux?} diff --git a/espanyol.tex b/espanyol.tex index 6f7c005..db93c17 100644 --- a/espanyol.tex +++ b/espanyol.tex @@ -13,8 +13,6 @@ % along with this program; if not, write to the Free Software % Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA. -% translation-check translation="1.13" - % Translated to Spanish by Javier Fernandez-Sanguino \selectlanguage{spanish} diff --git a/francaise.tex b/francaise.tex index 1968201..4a36e29 100644 --- a/francaise.tex +++ b/francaise.tex @@ -13,8 +13,6 @@ % along with this program; if not, write to the Free Software % Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA. -% translation-check translation="1.13" - \selectlanguage{french} \def\Universal{Le système d'exploitation universel} diff --git a/italiano.tex b/italiano.tex index 3fd8e2b..385c9b4 100644 --- a/italiano.tex +++ b/italiano.tex @@ -16,8 +16,6 @@ % You should have received a copy of the GNU General Public License % along with this program; if not, see . -% translation-check translation="1.16" - % Contributed by: % - Daniele Medri % - Luca Monducci diff --git a/nederlands.tex b/nederlands.tex index d3ac8d3..9661130 100644 --- a/nederlands.tex +++ b/nederlands.tex @@ -13,8 +13,6 @@ % along with this program; if not, write to the Free Software % Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA. -% translation-check translation="1.23" - % Contributed by Wouter Verhelst % Updated by Bas Zoetekouw @@ -32,8 +30,6 @@ \selectlanguage{dutch} -\def\MyRCS{\rcsInfo $Id: nederlands.tex,v 1.28 2017/02/16 04:48:33 joostvb Exp $} - \def\Universal{Het universele besturingssysteem} \def\WhatIsDebianCaption{Wat is Debian GNU/Linux?} diff --git a/portugues.tex b/portugues.tex index a7130d4..182a348 100644 --- a/portugues.tex +++ b/portugues.tex @@ -13,8 +13,6 @@ % along with this program; if not, write to the Free Software % Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA. -% translation-check translation="1.14" - % Contributed by Carlos A P Gomes % Contributed by Marco A C Silva % Contributed by Paulo Henrique de Lima Santana (phls) diff --git a/svenska.tex b/svenska.tex index 745441b..219045a 100644 --- a/svenska.tex +++ b/svenska.tex @@ -13,8 +13,6 @@ % along with this program; if not, write to the Free Software % Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA. -% translation-check translation="1.13" - % Contributed by Lars Bjarby , with suggestions from % some debian-user-swedish mailinglist members % based on a previous translation by: Karl Hammar diff --git a/translation-check.pl b/translation-check.pl deleted file mode 100755 index 26198fb..0000000 --- a/translation-check.pl +++ /dev/null @@ -1,79 +0,0 @@ -#!/usr/bin/perl -w - -# $Id: translation-check.pl,v 1.1 2005/02/27 18:11:29 joostvb Exp $ -# $Source: /cvsroot/debian-flyers/general/translation-check.pl,v $ - -# shamelessly stolen by Joost van Baal from -# cvs/cvs.debian.org/webwml/webwml/english/template/debian/translation-check.wml -# , which is by Javier Fernández-Sanguino - -# See also http://www.nl.debian.org/devel/website/uptodate and -# cvs/cvs.debian.org/webwml/webwml/check_trans.pl - -use strict; - -my $debug = 0; # set to 1 for debugging - -my $version = ''; - -$#ARGV == 0 or die 'usage: ./translation-check.pl .tex'; - -my ($lang) = @ARGV; - -# original file -my $file = "english.tex"; - -# version as stored in translation file translation-check header -my $translation; - -# Read the original CVS/Entries file and extract version from it -if (open (CVS_ENTRY,") { - ($version) = $_ =~ m,/\Q$file\E/([\d\.]*),; - last if $version; - } - close CVS_ENTRY; -} else { - $version = "1.1"; -} - -# find translation-check marker in translation -open (FILE, "$lang") or die "No file $lang\n"; -while () { - ($translation) = $_ =~ /translation\-check\ translation="(\d+\.\d+)"/; - last if $translation; -} - -# maj rev of $file, maj rev in $translation, -my ($major_number, $major_translated_number, $last_number, $last_translated_number); - -if ($version ne "") -{ - $debug and print "File " . $file . "'s original CVS revision is $version.\n"; - - my @version_numbers = split /\./,$version; - $major_number = $version_numbers[0]; - $last_number = pop @version_numbers; - die "Invalid CVS revision for $file: $version\n" - unless ($major_number =~ /\d+/ && $last_number =~ /\d+/); - - my @translation_numbers = split /\./,$translation; - $major_translated_number = $translation_numbers[0]; - $last_translated_number = pop @translation_numbers; - die "Invalid translation revision for $file: $translation.\n" - unless ($major_translated_number =~ /\d+/ && $last_translated_number =~ /\d+/); -} - -# Here we compare the original version with the translated one and print -# a note for the user if their first or last numbers are too far apart - -$debug and print "Comparing original version $version to translation version $translation.\n"; - -if ($version eq "") { - print "Original gone\n"; -} elsif ( $major_number > $major_translated_number ) { - print "Translation $lang out of date: $file has major revision $major_number, while $lang claims to translate major $major_translated_number only.\n"; -} elsif ( $last_number > $last_translated_number ) { - print "Translation $lang out of date: $file has minor revision $last_number, while $lang claims to translate minor $last_translated_number only.\n"; -} - -- 2.51.0