# 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
{
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";
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;
}
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");