diff options
| author | Peter Karlsson <peterk> | 2007-11-27 07:30:34 +0000 |
|---|---|---|
| committer | Peter Karlsson <peterk> | 2007-11-27 07:30:34 +0000 |
| commit | 15f719b7f932b55bffe123b979ab34aa50b4fc01 (patch) | |
| tree | 9f0493126292df7cc245609ee7912a6c312c4ef8 /check_desc_trans.pl | |
| parent | e907f7c038bbe125e85f3cf55afcb6f384e23868 (diff) | |
Report number of untranslated as well.
CVS version numbers
check_desc_trans.pl: 1.1 -> 1.2
Diffstat (limited to 'check_desc_trans.pl')
| -rwxr-xr-x | check_desc_trans.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/check_desc_trans.pl b/check_desc_trans.pl index 94d911cdb25..b92a07f55dc 100755 --- a/check_desc_trans.pl +++ b/check_desc_trans.pl @@ -18,7 +18,7 @@ # There are no command line parameters. # Originally written 2002-10-05 by Peter Karlsson <peterk@debian.org> -# © Copyright 2002-2003 Software in the public interest, Inc. +# © Copyright 2002-2007 Software in the public interest, Inc. # This program is released under the GNU General Public License, v2. # $Id$ @@ -41,16 +41,18 @@ elsif (open CONF, "<language.conf") die "Language not defined in DWWW_LANG or language.conf\n" unless defined $language; -# Counter +# Counters $old = 0; $uptodate = 0; $unknown = 0; +$needtranslation = 0; # Start-up $directory = 'MailingLists/desc'; &process($directory); # Results +print $needtranslation, " need to be translated.\n" if $needtranslation; print $old, " need to be updated.\n" if $old; print $uptodate, " are up to date.\n" if $uptodate; print $unknown, " are orphaned.\n" if $unknown; @@ -120,6 +122,7 @@ sub process { print "Untranslated file: $destination/$untranslated ", $sourcefile{$untranslated}, "\n"; + $needtranslation ++; } } else |