diff options
| -rwxr-xr-x | scripts/doc-check | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/scripts/doc-check b/scripts/doc-check index 83bea7ad9..01501e2ce 100755 --- a/scripts/doc-check +++ b/scripts/doc-check @@ -112,8 +112,25 @@ sub process $plfname =~ s,^en/,$lang/,; checkdiff($plfname, $enfname); } + +sub process_obsolete +{ + my $plfname = $File::Find::name; + return unless $plfname =~ m/\.xml$/; + my $enfname = $plfname; + $enfname =~ s,^$lang/,en/,; + open FILE, $enfname or warn "$plfname: Probably obsoleted\n" and return; + close FILE; +} + +warn "\nChecking for outdated or missing translations...\n" if $opt_v; File::Find::find({ wanted => \&process, no_chdir => 1 }, 'en'); +warn "\nChecking for obsoleted translations...\n" if $opt_v; +File::Find::find({ wanted => \&process_obsolete, no_chdir => 1 }, $lang); + #checkdiff("build/install.$lang.xml", "build/install.en.xml"); #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"); + +warn "All done.\n" if $opt_v; |