Tue, 8 Sep 1998 10:06:29 +0200 Paolo Molaro <lupus@debian.org>

* Script to keep track of documents needing translation or updates.

CVS version numbers

check_trans.pl: INITIAL -> 1.1

1 files changed, 104 insertions, 0 deletions

diff --git a/check_trans.pl b/check_trans.pl
new file mode 100755
index 00000000000..2ab8946fe19
--- /dev/null
+++ b/check_trans.pl
@@ -0,0 +1,104 @@
+#!/usr/bin/perl -w
+
+# This is GPL'ed code, copyright 1998 Paolo Molaro <lupus@debian.org>.
+
+# Little utility to keep track of translations in the debian CVS repo.
+# Invoke as check_trans.pl [-v] [-d] [-s subtree] [language] 
+# from the webwml directory, eg:
+# $ check_trans.pl -v italian
+# You may also check only some subtrees as in:
+# $ check_trans.pl -s devel italian
+
+# Option:
+# 	-v	enable verbose mode
+#	-d	output diff 
+
+# Translators need to embed in the files they translate a comment
+# in its own line with the revision of the file they translated such as:
+# <!--translation revision-->
+# The revision can be obtained from the CVS/Entries files or from
+# the command "cvs status filename".
+
+# TODO: 
+# need to quote dirnames?
+# use a file to bind a file to a translator?
+
+use Getopt::Std;
+
+$opt_d = 0;
+$opt_s = '';
+$opt_p = undef;
+getopts('vds:p:');
+
+warn "Checking subtrre $opt_s only\n" if $opt_v;
+
+# include only files matching $filename
+$filename = $opt_p || '(\.wml$)|(\.html$)';
+
+$from = 'english';
+$to = shift || 'italian';
+
+$from = "$from/$opt_s";
+$to = "$to/$opt_s";
+
+@en= split(/\n/, `find $from -name Entries -print`);
+
+foreach (@en) {
+	my ($path, $tpath, $d);
+	$path = $_;
+	$path =~ s#CVS/Entries$##;
+	$tpath = $path;
+	$tpath =~ s/^$from/$to/o;
+	$d = load_entries($_);
+	foreach $f (keys %$d) {
+		check_file("${tpath}$f", $d->{$f});
+	}
+}
+
+sub load_entries {
+	my ($name) = shift;
+	my (%data);
+	warn "Loading $name\n" if $opt_v;
+	open(F, $name) || die $!;
+	while(<F>) {
+		next unless m#^/#;
+		if ( m#^/([^/]+)/([^/]+)/# ) {
+			my($name, $rev) =($1, $2);
+			$data{$name} = $rev if $name =~ /$filename/o;
+		}
+	}
+	close (F);
+	return \%data;
+}
+
+sub check_file {
+	my ($name, $revision) = @_;
+	my ($oldr, $oldname);
+	warn "Checking $name\n" if $opt_v;
+	unless (-r $name) {
+		print "Missing $name\n";
+		return;
+	}
+	open(F, $name) || die $!;
+	while(<F>) {
+		if (/<!--\s*translation\s+(.*)?\s*-->\s*$/oi) {
+			warn "Found revision $1\n" if $opt_v;
+			$oldr = $1;
+			if ($oldr eq $revision) {
+				close(F);
+				return;
+			}
+			last;
+		}
+	}
+	close(F);
+	if ($opt_d) {
+		$oldr ||= '1.1';
+		$oldname = $name;
+		$oldname =~ s/^$to/$from/;
+		system("cvs -z3 diff -u -r '$oldr' -r '$revision' '$oldname'");
+	} else {
+		print "NeedToUpdate $name to version $revision\n";
+	}
+}
+