|
|
@ -1,4 +1,5 @@ |
|
|
|
use v5.36; |
|
|
|
use v5.36; |
|
|
|
|
|
|
|
use rlib '.'; |
|
|
|
|
|
|
|
|
|
|
|
use HexGrid; |
|
|
|
use HexGrid; |
|
|
|
use HexGrid::Pin; |
|
|
|
use HexGrid::Pin; |
|
|
@ -15,7 +16,7 @@ use feature "signatures"; |
|
|
|
no warnings "experimental::signatures"; |
|
|
|
no warnings "experimental::signatures"; |
|
|
|
|
|
|
|
|
|
|
|
# This regex is a whitespace forgiving version of /^(-?\d+),(-?\d+)/, an int pair |
|
|
|
# This regex is a whitespace forgiving version of /^(-?\d+),(-?\d+)/, an int pair |
|
|
|
my $coords_regex = qr/^\s*(-?\s*\d+)\s*,\s*(-?\s*\d+)\s*$/; |
|
|
|
my $coords_regex = qr/^\s*(\s*-?\d+\s*)\s*,\s*(\s*-?\d+\s*)\s*$/; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $api_url; |
|
|
|
my $api_url; |
|
|
@ -57,7 +58,6 @@ my $grid = HexGrid->new(embed_images => $embed_images, defaults => { |
|
|
|
style => { 'stroke-width' => $border_width, stroke => $border_colour }, |
|
|
|
style => { 'stroke-width' => $border_width, stroke => $border_colour }, |
|
|
|
show_coords => $show_coords}); |
|
|
|
show_coords => $show_coords}); |
|
|
|
|
|
|
|
|
|
|
|
# my %region_grids; |
|
|
|
|
|
|
|
my %regions_by_subregion; |
|
|
|
my %regions_by_subregion; |
|
|
|
my %images_for_region_grids; |
|
|
|
my %images_for_region_grids; |
|
|
|
my %location_grids; |
|
|
|
my %location_grids; |
|
|
@ -223,9 +223,6 @@ foreach my $page (values %{$background_query_results->{query}{pages}}) |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
# say STDERR Dumper($grid->{images}); |
|
|
|
|
|
|
|
# say STDERR Dumper(\%images_for_region_grids); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
say STDERR "Getting Tile pages"; |
|
|
|
say STDERR "Getting Tile pages"; |
|
|
@ -269,12 +266,13 @@ my $site_query_results = $mw->api |
|
|
|
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); |
|
|
|
|
|
|
|
foreach my $site_page_ref (values %{$site_query_results->{query}{pages}}) |
|
|
|
foreach my $site_page_ref (values %{$site_query_results->{query}{pages}}) |
|
|
|
{ |
|
|
|
{ |
|
|
|
next if $site_page_ref->{title} =~ /^Category:/; |
|
|
|
next if $site_page_ref->{title} =~ /^Category:/; |
|
|
|
my $site_name = $site_page_ref->{title}; |
|
|
|
my $site_name = $site_page_ref->{title}; |
|
|
|
|
|
|
|
|
|
|
|
say STDERR "Processing Site $site_name"; |
|
|
|
say STDERR "Processing Site $site_name"; |
|
|
|
|
|
|
|
|
|
|
|
my $site_url = $site_page_ref->{canonicalurl}; |
|
|
|
my $site_url = $site_page_ref->{canonicalurl}; |
|
|
|
my $site_content = $site_page_ref->{revisions}[0]{'*'}; |
|
|
|
my $site_content = $site_page_ref->{revisions}[0]{'*'}; |
|
|
|
my $parsed_template = MWTemplate::Parse($site_content, $site_template_name); |
|
|
|
my $parsed_template = MWTemplate::Parse($site_content, $site_template_name); |
|
|
|