From 15f719b7f932b55bffe123b979ab34aa50b4fc01 Mon Sep 17 00:00:00 2001
From: Peter Karlsson <peterk>
Date: Tue, 27 Nov 2007 07:30:34 +0000
Subject: Report number of untranslated as well.

CVS version numbers

check_desc_trans.pl: 1.1 -> 1.2
---
 check_desc_trans.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'check_desc_trans.pl')

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
-- 
cgit v1.2.3