httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From rbo...@apache.org
Subject svn commit: r1039598 - /httpd/httpd/trunk/docs/review_translations.pl
Date Sat, 27 Nov 2010 02:29:47 GMT
Author: rbowen
Date: Sat Nov 27 02:29:47 2010
New Revision: 1039598

URL: http://svn.apache.org/viewvc?rev=1039598&view=rev
Log:
Get the output of -x (the xml containing the missing directives) all as
one lump, rather than one directive at a time.

Modified:
    httpd/httpd/trunk/docs/review_translations.pl

Modified: httpd/httpd/trunk/docs/review_translations.pl
URL: http://svn.apache.org/viewvc/httpd/httpd/trunk/docs/review_translations.pl?rev=1039598&r1=1039597&r2=1039598&view=diff
==============================================================================
--- httpd/httpd/trunk/docs/review_translations.pl (original)
+++ httpd/httpd/trunk/docs/review_translations.pl Sat Nov 27 02:29:47 2010
@@ -48,9 +48,17 @@ foreach my $file (@files) {
     print "Translation available in ". ($LANGS{$lang}?$LANGS{$lang}:$lang) ."\n";
     my $lang_xml = $xs->XMLin( $file );
 
+    my @missing;
     foreach my $d ( @directives ) {
         unless ( defined( $lang_xml->{directivesynopsis}->{$d} ) ) {
             print "Translation does not define $d\n";
+            push @missing, $d;
+        }
+    }
+
+    if ( $opt_x && @missing ) {
+        print "\nPaste the following into the XML:\n\n";
+        foreach my $d ( @missing ) {
             directive_doc( $d, $eng_xml ) if $opt_x;
         }
     }
@@ -60,9 +68,7 @@ foreach my $file (@files) {
 
 sub directive_doc {
     my ($d, $eng_xml) = @_;
-# print Dumper( $eng_xml->{directivesynopsis}->{$d} );
 
-    print "\nPaste the following into the XML:\n\n";
     print "<directivesynopsis>\n";
     print "<name>" . $d . "</name>\n";
     print "<description>" .



Mime
View raw message