diff --git a/wiki-map.pl b/wiki-map.pl index 78e44ac..3b2e13a 100644 --- a/wiki-map.pl +++ b/wiki-map.pl @@ -1,4 +1,5 @@ use v5.36; +use rlib '.'; use HexGrid; use HexGrid::Pin; @@ -15,7 +16,7 @@ use feature "signatures"; no warnings "experimental::signatures"; # 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; @@ -57,7 +58,6 @@ my $grid = HexGrid->new(embed_images => $embed_images, defaults => { style => { 'stroke-width' => $border_width, stroke => $border_colour }, show_coords => $show_coords}); -# my %region_grids; my %regions_by_subregion; my %images_for_region_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"; @@ -269,12 +266,13 @@ my $site_query_results = $mw->api inprop => 'url', } ) || 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}}) { next if $site_page_ref->{title} =~ /^Category:/; my $site_name = $site_page_ref->{title}; + say STDERR "Processing Site $site_name"; + my $site_url = $site_page_ref->{canonicalurl}; my $site_content = $site_page_ref->{revisions}[0]{'*'}; my $parsed_template = MWTemplate::Parse($site_content, $site_template_name);