From 695d52f6263f0a02cb5eb41b6b8edc2e1fffa3fe Mon Sep 17 00:00:00 2001
From: Peter Eisentraut <peter_e@gmx.net>
Date: Sat, 3 Oct 2009 05:48:19 +0000
Subject: [PATCH] Add generation of qualified list

---
 wwwtools/nls-status-page  | 2 ++
 wwwtools/nls-status-table | 7 ++++++-
 wwwtools/update-nls-www   | 4 ++--
 3 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/wwwtools/nls-status-page b/wwwtools/nls-status-page
index 7caa9dd..f20cc93 100755
--- a/wwwtools/nls-status-page
+++ b/wwwtools/nls-status-page
@@ -119,6 +119,8 @@ foreach $b (@branches) {
     open F, "$dir/table-${b}.html" or die $!;
     print foreach <F>;
     close F;
+
+    print "<p><a href='qualified-list-$b.txt'>qualified list</a></p>\n" if -e "$dir/qualified-list-$b.txt";
 }
 
 print <<_EOF_;
diff --git a/wwwtools/nls-status-table b/wwwtools/nls-status-table
index 43a6125..e98e967 100755
--- a/wwwtools/nls-status-table
+++ b/wwwtools/nls-status-table
@@ -14,8 +14,10 @@ use I18N::LangTags::List;
 our $QUALIFIED_CUTOFF = 80;
 
 my %opts;
-getopts('U:', \%opts) or die;
+getopts('U:l:', \%opts) or die;
 my $po_url = $opts{'U'} || 'po';
+my $list_file = $opts{'l'};
+open LIST, '>', $opts{'l'} if $list_file;
 
 my $everything;
 my $errors;
@@ -136,6 +138,8 @@ foreach my $catalog (sort @catalogs) {
 	    print "&#x00A0;";
 	}
 	print "</td>\n";
+
+	print LIST "$catalog/$lang\n" if $list_file and $pct >= $QUALIFIED_CUTOFF;
     }
 
     print "<td align=\"center\">";
@@ -169,6 +173,7 @@ print "</tr>\n\n";
 print "</table>\n";
 print "</div>\n";
 
+close LIST if $list_file;
 
 
 sub list_sum {
diff --git a/wwwtools/update-nls-www b/wwwtools/update-nls-www
index c08c6ac..46b512b 100755
--- a/wwwtools/update-nls-www
+++ b/wwwtools/update-nls-www
@@ -63,13 +63,13 @@ for branch in $active_branches; do
 	popd
 
 	# remove old data in case it contained garbage
-	rm -rf $WEBDIR/po-$branch $WEBDIR/table-$branch.html
+	rm -rf $WEBDIR/po-$branch $WEBDIR/qualified-list-$branch.txt $WEBDIR/table-$branch.html
 
 	mkdir -p $WEBDIR/po-$branch
 	files=`find $PGSRC.work -name nls.mk`
 	$MYDIR/pg-make-po -o $WEBDIR/po-$branch -v $branch $files
 
-	(cd $WEBDIR/po-$branch && $MYDIR/nls-status-table -U po-$branch *.pot *.po >$WEBDIR/table-$branch.html)
+	(cd $WEBDIR/po-$branch && $MYDIR/nls-status-table -U po-$branch -l $WEBDIR/qualified-list-$branch.txt *.po *.pot >$WEBDIR/table-$branch.html)
 
 #	$MYDIR/pg-make-conflicts $branch $MYDIR $WEBDIR
 
-- 
2.39.5