X-Git-Url: https://git.openstreetmap.org/rails.git/blobdiff_plain/083500f056f5b995f1979f88b37793046d9e4d37..38b74c1c48521c3de988b774117d6f9febcf1c3f:/script/misc/update-wiki-pages

diff --git a/script/misc/update-wiki-pages b/script/misc/update-wiki-pages
index 3f15c0df0..d40708c96 100755
--- a/script/misc/update-wiki-pages
+++ b/script/misc/update-wiki-pages
@@ -42,6 +42,8 @@ help() unless -f $out_file;
 my $mw = MediaWiki::API->new();
 ok($mw, "Got a MediaWiki API");
 $mw->{config}->{api_url} = 'https://wiki.openstreetmap.org/w/api.php';
+$mw->{config}->{retries} = 5;
+$mw->{config}->{retry_delay} = 30;
 
 # All our goodies
 my (%feature, %count);
@@ -58,6 +60,12 @@ for my $lang ('', map { "${_}:" } qw[ Pt Fi De It HU Cz Fr RU Pl ]) {
     ok(1, "    Got $cnt key pages");
     $count{key} += $cnt;
 
+    # Key prefix pages
+    ok(1, "    Getting key prefix pages");
+    $cnt = stick_content_in_hash("key", "Template:${lang}KeyPrefixDescription", \%feature);
+    ok(1, "    Got $cnt key prefix pages");
+    $count{keyprefix} += $cnt;
+
     # Value pages
     ok(1, "    Getting value pages");
     $cnt = stick_content_in_hash("tag", "Template:${lang}ValueDescription", \%feature);
@@ -65,7 +73,7 @@ for my $lang ('', map { "${_}:" } qw[ Pt Fi De It HU Cz Fr RU Pl ]) {
     $count{value} += $cnt;
 }
 
-ok(1, "Got a total of $count{$_} ${_}s") for qw[ key value ];
+ok(1, "Got a total of $count{$_} ${_}s") for qw[ key keyprefix value ];
 
 # Dump to .yml file
 open my $out, ">", $out_file or die "Can't open file '$out_file' supplied on the command line";