From 87c42235db95ea15b9aaf02fefdacd493469fe61 Mon Sep 17 00:00:00 2001
From: aph <aph@313b444b-1b9f-4f58-a734-7bb04f332e8d>
Date: Fri, 6 Dec 2002 09:59:51 +0000
Subject: [PATCH] adapt script to local context, strip out useless -V option
 too

git-svn-id: svn://anonscm.debian.org/ddp/manuals/trunk/developers-reference@1953 313b444b-1b9f-4f58-a734-7bb04f332e8d
---
 translation-status | 28 +++++++---------------------
 1 file changed, 7 insertions(+), 21 deletions(-)

diff --git a/translation-status b/translation-status
index 71400b7..823b3aa 100755
--- a/translation-status
+++ b/translation-status
@@ -5,15 +5,15 @@
 # original since last translation
 
 # SYNOPSIS:
-#             ./doc-check [-d] [-v] [-V] [lang]
+#             ./translation-status [-d] [-v] [lang]
 #
 #	(uses $lang set below if lang is not given on commandline)
 
 use Getopt::Std;
-$opt_d = $opt_v = $opt_V = 0;
-getopts('dvV');
+$opt_d = $opt_v = 0;
+getopts('dv');
 # You may set this to your default language code
-$lang = shift || "pl";
+$lang = shift || "fr";
 
 sub checkdiff
 {
@@ -23,7 +23,7 @@ sub checkdiff
 	if ( "$plrev" ne "$enrev" ) {
 		if ($opt_d) {
 			my $s = "cvs diff -b -u -r $plrev -r $enrev $enfname";
-			warn "running $s:\n" if ($opt_V);
+			warn "running $s:\n" if ($opt_v);
 			system($s);
 		} else {
 			print "$enfname : $plrev -> $enrev\n";
@@ -39,11 +39,7 @@ sub getrev
 	warn "checking $plfname:\n" if $opt_v;
 	open FILE, $plfname or warn "$plfname: $!\n" and return;
 	while (<FILE>) {
-		if (/<!--\s*original version\D*([\d\.]+)\s*-->/) {
-			$plrev = $1;
-			last;
-		}
-		if (/<!--\s*original document: en\/\S+, revision ([\d\.]+)\s*-->/) {
+		if (/<!entity\s*cvs-en-rev\s*"([\d\.]+)"/i) {
 			$plrev = $1;
 			last;
 		}
@@ -66,14 +62,4 @@ sub getrev
 	return ($plrev, $enrev);
 }
 
-@subdocs = ("welcome", "hardware", "preparing", "inst-methods", "rescue-boot", "partitioning", "kernel", "boot-new", "post-install", "tech-info", "appendix", "administrivia");
-
-foreach $doc (@subdocs) {
-	my $plfname = "$lang/" . "$doc" . ".sgml";
-	my $enfname = "en/" . "$doc" . ".sgml";
-	checkdiff($plfname, $enfname);
-}
-checkdiff("install.$lang.sgml", "install.sgml");
-checkdiff("release-notes.$lang.sgml","release-notes.sgml");
-checkdiff("index.$lang.html.m4","index.en.html.m4");
-checkdiff("dselect-beginner.$lang.sgml","dselect-beginner.sgml");
+checkdiff("developers-reference.$lang.sgml", "developers-reference.sgml");
-- 
2.30.2