3 # This script checks if the translations of the documents are up to date.
4 # When called with "-d" option, it also prints what has changed in the
5 # original since last translation
8 # ./translation-status [-d] [-v] [lang]
10 # (uses $lang set below if lang is not given on commandline)
15 # You may set this to your default language code
16 $lang = shift || "fr";
19 my ($plfname, $enfname) = (@_);
20 my ($plrev, $enrev) = getrev($plfname, $enfname);
21 $plrev and $enrev or return;
22 if ( "$plrev" ne "$enrev" ) {
24 my $s = "cvs diff -b -u -r $plrev -r $enrev $enfname";
25 warn "running $s:\n" if ($opt_v);
28 print "$enfname : $plrev -> $enrev\n";
34 my ($plfname, $enfname) = (@_);
35 my ($plrev, $enrev) = (0, 0);
37 warn "checking $plfname:\n" if $opt_v;
38 open FILE, $plfname or warn "$plfname: $!\n" and return;
40 if (/<!entity\s*cvs-en-rev\s*"([\d\.]+)"/i) {
45 warn "checking $enfname:\n" if $opt_v;
46 open FILE, $enfname or warn "$enfname: $!\n" and return;
48 if (/\$Id: [^\s]+ ([\d\.]+) .* Exp \$/) {
52 if (/\$Revision: ([\d\.]+) \$/) {
58 warn "failed to find revision for $plfname\n" unless $plrev;
59 warn "failed to find revision for $enfname\n" unless $enrev;
60 return ($plrev, $enrev);
63 checkdiff("developers-reference.$lang.sgml", "developers-reference.sgml");