Viewing file:  translation_summary.pl (996 B) -rw-rw-rw-
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
#
# Examine all translation files to create a report that shows how
# many translations are missing from each translation file.
#
#######################################################################
$inc_dir = "../includes";
$transdir = "../translations";
opendir ( DIR, $transdir ) || die "Error opening $transdir: $!";
@files = sort readdir ( DIR );
closedir ( DIR );
# ignore everything except .txt files
@files = grep ( /.txt$/, @files );
# header
printf "%-20s %s\n", "Language file", "No. missing translations";
foreach $f ( @files ) {
$out = `perl check_translation.pl ../translations/$f`;
if ( $out =~ / missing./ ) {
# missing some translations
@lines = split ( /\n/, $out );
( $l ) = grep ( / translation.s. missing/, @lines );
if ( $l =~ /^(\d+).*\((\d\S+)% complete/ ) {
printf "%-20s %d (%1.1f%% complete)\n", $f . ":", $1, $2;
}
} else {
# all translations found :-)
printf "%-20s %s\n", $f . ":", "Complete";
}
}
|