From ea8ed8f6658e3c005235d7fc4fc28768d6571387 Mon Sep 17 00:00:00 2001
From: Dominic Reynolds <dreynolds@suse.de>
Date: Wed, 15 Aug 2007 19:24:49 +0000
Subject: [PATCH] utitlity to look for problems in the po files.

---
 utils/check_po.pl | 54 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100755 utils/check_po.pl

diff --git a/utils/check_po.pl b/utils/check_po.pl
new file mode 100755
index 000000000..b9ccec857
--- /dev/null
+++ b/utils/check_po.pl
@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+
+# Look in the po directory and check the files for missing shortcuts - where the
+# msgid has a string "(B)lah" and the msgstr contains no character surrounded by
+# parens
+
+use Data::Dumper;
+
+my $dir = "./po";
+
+opendir(PODIR, $dir) || die "Can't open  directory $dir.";
+my $errors = {};
+for my $file (grep { /.*\.po$/ && -f "$dir/$_" } readdir(PODIR)) {
+    #print STDOUT "Processing $file\n";
+    check_po_for_shortcuts( "$dir/$file", $errors );
+    
+}
+my $msg = Data::Dumper->Dump([$errors], [qw(*ERRORS)]);
+my $count = 0;
+for my $f ( keys %$errors ) {
+   for my $err ( keys %{$errors->{$f}} ) {
+       $count++;
+   }
+} 
+print STDOUT "$count missing shortcuts in the po files\n.$msg\n";
+closedir(PODIR);
+
+
+sub check_po_for_shortcuts {
+    my ($filename, $errors)  = @_;
+    my $line = 0;
+    if (open(PO, "$filename")) {
+        while (<PO>) {
+            $line++;
+            chomp;
+            if ( /^.*msgid.*\(\w{1}?\)*/ ) {
+              $looking_for_msgstr = 1;
+              $msgid = $_;
+            } 
+            if ( /^.*msgstr*/ && $looking_for_msgstr ) {
+                unless (/^.*msgstr.*\(\w{1}?\)*/) {
+                    $errors->{$filename}{$line} =  {
+                                             "msgid" => $msgid,
+                                             "msgstr" => $_,
+                                            };
+                }
+                $msgid = "";
+                $looking_for_msgstr = 0;
+             } 
+        }
+        close(PO);
+    }
+    return $config;
+}