|
|
@ -44,7 +44,7 @@ foreach my $region_page_ref (@$region_pages) |
|
|
|
process_region($grid, $region_name, $region_page->{'*'}, $tile_page->{'*'}); |
|
|
|
process_region($grid, $region_name, $region_page->{'*'}, $tile_page->{'*'}); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
my $site_query_results = $mw->api |
|
|
|
my $site_query_results = $mw->api |
|
|
|
( { |
|
|
|
( { |
|
|
|
action => 'query', |
|
|
|
action => 'query', |
|
|
|
generator => 'categorymembers', |
|
|
|
generator => 'categorymembers', |
|
|
@ -52,7 +52,7 @@ my $site_query_results = $mw->api |
|
|
|
gcmtitle => 'Category:Sites', |
|
|
|
gcmtitle => 'Category:Sites', |
|
|
|
gcmlimit => 'max', |
|
|
|
gcmlimit => 'max', |
|
|
|
rvprop => 'content', |
|
|
|
rvprop => 'content', |
|
|
|
inprop => 'url', |
|
|
|
inprop => 'url', |
|
|
|
} ) || croak $mw->{error}->{code} . ': ' . $mw->{error}->{details}; |
|
|
|
} ) || croak $mw->{error}->{code} . ': ' . $mw->{error}->{details}; |
|
|
|
|
|
|
|
|
|
|
|
# say STDERR "Sites found: " . join(" ,", map { $_->{title} } @$site_pages); |
|
|
|
# say STDERR "Sites found: " . join(" ,", map { $_->{title} } @$site_pages); |
|
|
|