From d1aa5c407f12f8f63fe6e8909409e345c14dcf67 Mon Sep 17 00:00:00 2001
From: aph <aph@313b444b-1b9f-4f58-a734-7bb04f332e8d>
Date: Fri, 6 Dec 2002 10:00:59 +0000
Subject: [PATCH 1/1] retab, no content changes

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

diff --git a/translation-status b/translation-status
index 823b3aa..6f019e4 100755
--- a/translation-status
+++ b/translation-status
@@ -15,51 +15,49 @@ getopts('dv');
 # You may set this to your default language code
 $lang = shift || "fr";
 
-sub checkdiff
-{
-	my ($plfname, $enfname) = (@_);
-	my ($plrev, $enrev) = getrev($plfname, $enfname);
-	$plrev and $enrev or return;
-	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);
-			system($s);
-		} else {
-			print "$enfname : $plrev -> $enrev\n";
-		}
-	}
+sub checkdiff {
+    my ($plfname, $enfname) = (@_);
+    my ($plrev, $enrev) = getrev($plfname, $enfname);
+    $plrev and $enrev or return;
+    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);
+            system($s);
+        } else {
+            print "$enfname : $plrev -> $enrev\n";
+        }
+    }
 }
 
-sub getrev
-{
-	my ($plfname, $enfname) = (@_);
-	my ($plrev, $enrev) = (0, 0);
+sub getrev {
+    my ($plfname, $enfname) = (@_);
+    my ($plrev, $enrev) = (0, 0);
 
-	warn "checking $plfname:\n" if $opt_v;
-	open FILE, $plfname or warn "$plfname: $!\n" and return;
-	while (<FILE>) {
-		if (/<!entity\s*cvs-en-rev\s*"([\d\.]+)"/i) {
-			$plrev = $1;
-			last;
-		}
-	}
-	warn "checking $enfname:\n" if $opt_v;
-	open FILE, $enfname or warn "$enfname: $!\n" and return;
-	while (<FILE>) {
-		if (/\$Id: [^\s]+ ([\d\.]+) .* Exp \$/) {
-			$enrev = $1;
-			last;
-		}
-		if (/\$Revision: ([\d\.]+) \$/) {
-			$enrev = $1;
-			last;
-		}
-	}
-	close FILE;
-	warn "failed to find revision for $plfname\n" unless $plrev;
-	warn "failed to find revision for $enfname\n" unless $enrev;
-	return ($plrev, $enrev);
+    warn "checking $plfname:\n" if $opt_v;
+    open FILE, $plfname or warn "$plfname: $!\n" and return;
+    while (<FILE>) {
+        if (/<!entity\s*cvs-en-rev\s*"([\d\.]+)"/i) {
+            $plrev = $1;
+            last;
+        }
+    }
+    warn "checking $enfname:\n" if $opt_v;
+    open FILE, $enfname or warn "$enfname: $!\n" and return;
+    while (<FILE>) {
+        if (/\$Id: translation-status,v 1.2 2002/12/06 09:59:51 aph Exp $/) {
+            $enrev = $1;
+            last;
+        }
+        if (/\$Revision: 1.2 $/) {
+            $enrev = $1;
+            last;
+        }
+    }
+    close FILE;
+    warn "failed to find revision for $plfname\n" unless $plrev;
+    warn "failed to find revision for $enfname\n" unless $enrev;
+    return ($plrev, $enrev);
 }
 
 checkdiff("developers-reference.$lang.sgml", "developers-reference.sgml");
-- 
2.30.2