|
|
@ -253,6 +253,13 @@ foreach my $page (values %{$tile_query_results->{query}{pages}}) |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
say STDERR "Continuing Location processing"; |
|
|
|
|
|
|
|
$_->() for @location_continuations; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my (%path_specs); |
|
|
|
my (%path_specs); |
|
|
|
say STDERR "Getting Path pages"; |
|
|
|
say STDERR "Getting Path pages"; |
|
|
|
my $path_query_results = $mw->api |
|
|
|
my $path_query_results = $mw->api |
|
|
@ -323,13 +330,6 @@ foreach my $page (values %{$path_tile_query_results->{query}{pages}}) |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
say STDERR "Continuing Location processing"; |
|
|
|
|
|
|
|
$_->() for @location_continuations; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
say STDERR "Getting Site pages"; |
|
|
|
say STDERR "Getting Site pages"; |
|
|
|
my $site_query_results = $mw->api |
|
|
|
my $site_query_results = $mw->api |
|
|
|
( { |
|
|
|
( { |
|
|
@ -407,7 +407,7 @@ if($regiondir) |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
say STDERR "Rendering Region's $region grid"; |
|
|
|
say STDERR "Rendering Region $region\'s grid"; |
|
|
|
open (my $region_fh, "> $region.$extension") |
|
|
|
open (my $region_fh, "> $region.$extension") |
|
|
|
or croak "Couldn't open $region.extension for writing: $!"; |
|
|
|
or croak "Couldn't open $region.extension for writing: $!"; |
|
|
|
say $region_fh ($html_document ? wrap_in_html($region_grid) : $region_grid->render); |
|
|
|
say $region_fh ($html_document ? wrap_in_html($region_grid) : $region_grid->render); |
|
|
@ -416,7 +416,7 @@ if($regiondir) |
|
|
|
# Location grids need to import images |
|
|
|
# Location grids need to import images |
|
|
|
while(my ($location_name, $location_grid) = each %location_grids) |
|
|
|
while(my ($location_name, $location_grid) = each %location_grids) |
|
|
|
{ |
|
|
|
{ |
|
|
|
say STDERR "Rendering Location's $location_name grid"; |
|
|
|
say STDERR "Rendering Location $location_name\'s grid"; |
|
|
|
open (my $location_fh, "> $location_name.$extension") |
|
|
|
open (my $location_fh, "> $location_name.$extension") |
|
|
|
or croak "Couldn't open $location_name.extension for writing: $!"; |
|
|
|
or croak "Couldn't open $location_name.extension for writing: $!"; |
|
|
|
say $location_fh ($html_document ? wrap_in_html($location_grid) : $location_grid->render); |
|
|
|
say $location_fh ($html_document ? wrap_in_html($location_grid) : $location_grid->render); |
|
|
|