Report on download progress

diff --git a/script/locale/merge-from-translatewiki b/script/locale/merge-from-translatewiki
index e1616ce5f54ee688b0ef4047397307ef574cd70c..6f0120a45699232dd2de70376e4db6dfbf8c9c87 100644 (file)
--- a/script/locale/merge-from-translatewiki
+++ b/script/locale/merge-from-translatewiki
@@ -306,9 +306,12 @@ sub get_translatewiki_translations
     }
 
     my %translatewiki_languages;
     }
 
     my %translatewiki_languages;

-    say "All languages are: @languages";
+    my $all_count = scalar @languages;
+    say "Translatewiki has $all_count languages I'm about to get";
+    my $count = 0;

     for my $lang (@languages) {
     for my $lang (@languages) {

-        say STDERR "Getting language $lang from Translatewiki";
+        $count ++;
+        say STDERR "Getting language $count/$all_count ($lang) from Translatewiki";

         my $yaml = get_language_from_translatewiki($lang);
 
         my $flat_data = load_and_flatten_yaml($yaml);
         my $yaml = get_language_from_translatewiki($lang);
 
         my $flat_data = load_and_flatten_yaml($yaml);