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 # ./doc-check [-d] [-v] [-V] [lang]
10 # (uses $lang set below if lang is not given on commandline)
13 $opt_d = $opt_v = $opt_V = 0;
15 # You may set this to your default language code
16 $lang = shift || "pl";
20 my ($plfname, $enfname) = (@_);
21 my ($plrev, $enrev) = getrev($plfname, $enfname);
22 $plrev and $enrev or return;
23 if ( "$plrev" ne "$enrev" ) {
25 my $s = "cvs diff -b -u -r $plrev -r $enrev $enfname";
26 warn "running $s:\n" if ($opt_V);
29 print "$enfname : $plrev -> $enrev\n";
36 my ($plfname, $enfname) = (@_);
37 my ($plrev, $enrev) = (0, 0);
39 warn "checking $plfname:\n" if $opt_v;
40 open FILE, $plfname or warn "$plfname: $!\n" and return;
42 if (/<!--\s*original version\D*([\d\.]+)\s*-->/) {
46 if (/<!--\s*original document: en\/\S+, revision ([\d\.]+)\s*-->/) {
51 warn "checking $enfname:\n" if $opt_v;
52 open FILE, $enfname or warn "$enfname: $!\n" and return;
54 if (/\$Id: [^\s]+ ([\d\.]+) .* Exp \$/) {
58 if (/\$Revision: ([\d\.]+) \$/) {
64 warn "failed to find revision for $plfname\n" unless $plrev;
65 warn "failed to find revision for $enfname\n" unless $enrev;
66 return ($plrev, $enrev);
69 @subdocs = ("welcome", "hardware", "preparing", "inst-methods", "rescue-boot", "partitioning", "kernel", "boot-new", "post-install", "tech-info", "appendix", "administrivia");
71 foreach $doc (@subdocs) {
72 my $plfname = "$lang/" . "$doc" . ".sgml";
73 my $enfname = "en/" . "$doc" . ".sgml";
74 checkdiff($plfname, $enfname);
76 checkdiff("install.$lang.sgml", "install.sgml");
77 checkdiff("release-notes.$lang.sgml","release-notes.sgml");
78 checkdiff("index.$lang.html.m4","index.en.html.m4");
79 checkdiff("dselect-beginner.$lang.sgml","dselect-beginner.sgml");