├── .gitignore
├── www
    ├── robots.txt
    ├── kml.php
    ├── wld.php
    ├── tiles.txt
    ├── python.php
    ├── perl.php
    ├── bigmap.php
    ├── ozimap.php
    ├── panel.php
    ├── index.html
    └── queue.php
├── LICENSE
├── scripts
    ├── purge_images.pl
    ├── tiles2html.pl
    └── bigmap_download.pl
└── README.md


/.gitignore:
--------------------------------------------------------------------------------
1 | queue/
2 | result/
3 | 


--------------------------------------------------------------------------------
/www/robots.txt:
--------------------------------------------------------------------------------
1 | User-agent: *
2 | Disallow: /
3 | 


--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
 1 |   DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE 
 2 |                     Version 2, December 2004 
 3 | 
 4 |  Copyright (C) 2004 Sam Hocevar <sam@hocevar.net> 
 5 | 
 6 |  Everyone is permitted to copy and distribute verbatim or modified 
 7 |  copies of this software, and changing it is allowed as long 
 8 |  as the name is changed. 
 9 | 
10 |             DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE 
11 |    TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 
12 | 
13 |   0. You just DO WHAT THE FUCK YOU WANT TO.
14 | 


--------------------------------------------------------------------------------
/www/kml.php:
--------------------------------------------------------------------------------
 1 | <?php // BigMap 2 KML export. Written by Ilya Zverev, licensed WTFPL.
 2 | header('Content-type: application/vnd.google-earth.kml+xml');
 3 | header('Content-disposition: attachment; filename="'.$basename.'.kml"');
 4 | echo '<?xml version="1.0" encoding="utf-8"?>'."\n";
 5 | ?>
 6 | <kml xmlns="http://www.opengis.net/kml/2.2">
 7 | 	<GroundOverlay>
 8 | 		<Icon>
 9 | 			<href><?=$basename ?>.png</href>
10 | 		</Icon>
11 | 		<LatLonBox>
12 | 			<north><?=$lat_max ?></north>
13 | 			<south><?=$lat_min ?></south>
14 | 			<east><?=$lon_max ?></east>
15 | 			<west><?=$lon_min ?></west>
16 | 			<rotation>0</rotation>
17 | 		</LatLonBox>
18 | 	</GroundOverlay>
19 | </kml>


--------------------------------------------------------------------------------
/www/wld.php:
--------------------------------------------------------------------------------
 1 | <?php // BigMap 2 WLD export. Written by Ilya Zverev, licensed WTFPL.
 2 | header('Content-type: application/x-wld');
 3 | header('Content-disposition: attachment; filename="'.$basename.'.wld"');
 4 | 
 5 | $width = ($xmax - $xmin + 1) * 256;
 6 | $height = ($ymax - $ymin + 1) * 256;
 7 | $pixel_x_size = ($lon_max - $lon_min) / $width;
 8 | $pixel_y_size = ($lat_max - $lat_min) / $height;
 9 | $left_pixel_center_lon = $lon_min + $pixel_x_size / 2;
10 | $top_pixel_center_lat = $lat_max + $pixel_y_size / 2;
11 | 
12 | echo sprintf('%.8f', $pixel_x_size)."\n";
13 | echo "0.00000000\n";
14 | echo "0.00000000\n";
15 | echo sprintf('%.8f', -$pixel_y_size)."\n";
16 | echo sprintf('%.8f', $left_pixel_center_lon)."\n";
17 | echo sprintf('%.8f', $top_pixel_center_lat);
18 | 


--------------------------------------------------------------------------------
/scripts/purge_images.pl:
--------------------------------------------------------------------------------
 1 | #!/usr/bin/perl
 2 | 
 3 | # Removes all old images that exceed the quota.
 4 | # Written by Ilya Zverev, licensed WTFPL.
 5 | 
 6 | use strict;
 7 | use Cwd 'abs_path';
 8 | use File::Basename;
 9 | 
10 | my $limit = 200 * 1024 * 1024; # in bytes
11 | my $path = abs_path(dirname(__FILE__)).'/../www/result';
12 | 
13 | opendir(my $dh, $path) or die "Cannot open path $path: $!";
14 | my @images = sort { $b->[1] <=> $a->[1] } map { ["$path/$_", (stat "$path/$_")[9], (stat "$path/$_")[7]] } grep {/\.png$/} readdir $dh;
15 | closedir $dh;
16 | 
17 | my $size = 0;
18 | foreach(@images) {
19 | 	$size += $_->[2];
20 | 	#printf "%s: ctime=%d, size=%d, diff=%.1f MB\n", $_->[0], $_->[1], $_->[2], ($limit-$size)/1024/1024;
21 | 	unlink $_->[0] if $size > $limit;
22 | }
23 | 


--------------------------------------------------------------------------------
/scripts/tiles2html.pl:
--------------------------------------------------------------------------------
 1 | #!/usr/bin/perl
 2 | 
 3 | # Converts tiles.txt to a javascript code to be included in index.html
 4 | # Written by Ilya Zverev, licensed WTFPL.
 5 | 
 6 | use strict;
 7 | use Cwd 'abs_path';
 8 | use File::Basename;
 9 | 
10 | my $wwwroot = abs_path(dirname(__FILE__)).'/../www';
11 | 
12 | open INDEX, '<'.$wwwroot.'/index.html' or die "No index.html found: $!";
13 | my @index;
14 | push @index, $_ while <INDEX>;
15 | close INDEX;
16 | 
17 | open TILES, '<'.$wwwroot.'/tiles.txt' or die "No tiles.txt found: $!";
18 | my @base;
19 | my @overlay;
20 | while(<TILES>) {
21 | 	next if /^\s*#/;
22 | 	chomp;
23 | 	my @arr = split /\s*,\s*/;
24 | 	push @{ $arr[1] ? \@overlay : \@base }, \@arr if $#arr >= 4;
25 | }
26 | close TILES;
27 | 
28 | my $res = "\tbase = {\n";
29 | $res .= print_code($_) foreach @base;
30 | $res =~ s/,\n$/\n/;
31 | $res .= "\t};\n";
32 | 
33 | $res .= "\toverlay = {\n";
34 | $res .= print_code($_) foreach @overlay;
35 | $res =~ s/,\n$/\n/;
36 | $res .= "\t};\n";
37 | 
38 | open INDEX, '>'.$wwwroot.'/index.html' or die "Cannot write to index.html: $!";
39 | my $print = 1;
40 | foreach my $line (@index) {
41 | 	$print = 1 if $line =~ m#// END GENERATED#;
42 | 	print INDEX $line if $print;
43 | 	if( $line =~ m#// GENERATED# ) {
44 | 		$print = 0;
45 | 		print INDEX $res;
46 | 	}
47 | }
48 | close INDEX;
49 | 
50 | sub print_code {
51 | 	my $line = shift;
52 | 	my $url = $line->[4];
53 | 	my $sub = '';
54 | 	if( $url =~ /{([a-z0-9]+)}/ ) {
55 | 		$sub = ", subdomains: '$1'";
56 | 		$url =~ s/$1/s/;
57 | 	}
58 | 	$url =~ s/!([xyz])/{\1}/g;
59 | 	my $attr = $line->[5];
60 | 	$attr = 'Map data &copy; <a href="https://www.openstreetmap.org">OpenStreetMap</a>'.($attr ? ' | ' : '').$attr if !$line->[1];
61 | 	$attr =~ s/"/\\"/g;
62 | 
63 | 	my $res = '';
64 | 	$res .= "\t\t'".$line->[0]."': L.tileLayer('$url', {\n";
65 | 	$res .= "\t\t\tname: '".$line->[0]."', minZoom: ".$line->[2].", maxZoom: ".$line->[3].$sub.",\n";
66 | 	$res .= "\t\t\tattribution: '$attr'\n";
67 | 	$res .= "\t\t}),\n";
68 | 	return $res;
69 | }
70 | 


--------------------------------------------------------------------------------
/www/tiles.txt:
--------------------------------------------------------------------------------
 1 | #name,overlay?,minzoom,maxzoom,url,tile attribution
 2 | 
 3 | mapnik,0,0,19,https://tile.openstreetmap.org/!z/!x/!y.png,
 4 | osm-de,0,0,18,https://{abc}.tile.openstreetmap.de/tiles/osmde/!z/!x/!y.png,Tiles &copy; <a href="https://openstreetmap.de/">OSM DE</a>
 5 | osm-fr,0,0,20,https://{abc}.tile.openstreetmap.fr/osmfr/!z/!x/!y.png,Tiles &copy; <a href="https://tile.openstreetmap.fr/">OSM France</a>
 6 | 
 7 | humanitarian,0,0,19,https://{abc}.tile.openstreetmap.fr/hot/!z/!x/!y.png,Tiles &copy; <a href="https://hot.openstreetmap.org">Humanitarian OSM Team</a>
 8 | veloroad,0,6,15,https://tile.osmz.ru/veloroad/!z/!x/!y.png,Tiles &copy; Ilya Zverev
 9 | topomap,0,0,17,https://{abc}.tile.opentopomap.org/!z/!x/!y.png,Tiles &copy; <a href="https://opentopomap.org/">OpenTopoMap</a>
10 | 
11 | seamarks,1,0,18,https://tiles.openseamap.org/seamark/!z/!x/!y.png,Sea Marks &copy; <a href="https://openseamap.org/">OpenSeaMap</a>
12 | harbours,1,0,18,https://t2.openseamap.org/tile/!z/!x/!y.png,Harbours &copy; <a href="https://openseamap.org/">OpenSeaMap</a>
13 | fires,1,0,17,http://www.openfiremap.org/hytiles/!z/!x/!y.png,Fire Hydrants &copy; <a href="https://www.openfiremap.org/">OpenFireMap</a>
14 | 
15 | wmhiking,1,0,18,https://tile.waymarkedtrails.org/hiking/!z/!x/!y.png,Trails &copy; <a href="https://waymarkedtrails.org/">Waymarked Trails</a>
16 | wmcycling,1,0,18,https://tile.waymarkedtrails.org/cycling/!z/!x/!y.png,Trails &copy; <a href="https://waymarkedtrails.org/">Waymarked Trails</a>
17 | wmmtb,1,0,18,https://tile.waymarkedtrails.org/mtb/!z/!x/!y.png,Trails &copy; <a href="https://waymarkedtrails.org/">Waymarked Trails</a>
18 | wmriding,1,0,18,https://tile.waymarkedtrails.org/riding/!z/!x/!y.png,Trails &copy; <a href="https://waymarkedtrails.org/">Waymarked Trails</a>
19 | wmskating,1,0,18,https://tile.waymarkedtrails.org/skating/!z/!x/!y.png,Trails &copy; <a href="https://waymarkedtrails.org/">Waymarked Trails</a>
20 | wmslopes,1,0,18,https://tile.waymarkedtrails.org/slopemap/!z/!x/!y.png,Trails &copy; <a href="https://waymarkedtrails.org/">Waymarked Trails</a>
21 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
 1 | # BigMap 2
 2 | 
 3 | This is a successor to [BigMap](http://wiki.openstreetmap.org/wiki/Bigmap) script: a tool to
 4 | stitch map tiles and produce a PNG image. Among improvements are:
 5 | 
 6 | * Better landing page with Leaflet and URL parsing.
 7 | * More than fifteen popular tile layers to choose from.
 8 | * KML, WLD and OziExplorer MAP meta files generation.
 9 | * Map downloading script can be produced in Python language.
10 | * Fixed user agent and small pauses while downloading.
11 | * Attribution on generated images.
12 | * Server-side stitching with a queue.
13 | 
14 | ## Installation
15 | 
16 | The following directory structure is recommended:
17 | 
18 | | Path | Mode | Description
19 | |---|---|---
20 | | `./` | `0755` | Place scripts from `scripts` directory here, with `0755` mode on them.
21 | | `./queue/` | `0777` | Working directory that should be outside wwwroot.
22 | | `./queue/tasks/` | `0777` | Task files will be put here by PHP scripts.
23 | | `./queue/queue` | `0666` | A queue file that will be modified by PHP scripts.
24 | | `./www/` | `0755` | WWWRoot. Place PHP scripts here and point HTTP server to it.
25 | | `./www/result/` | `0777` | A directory for generated image files.
26 | 
27 | Then modify paths to be absolute in `bigmap_download.pl` and `purge_images.pl` scripts, so they can be
28 | called by cron. Also change server address in `bigmap_download.pl` and size limit in `purge_images.pl`.
29 | And add those two lines in `crontab -e` editor (your intervals may vary):
30 | 
31 |     */2 * * * * /var/www/.../bigmap_download.pl
32 |     2 */6 * * * /var/www/.../purge_images.pl
33 | 
34 | Of all PHP scripts only `queue.php` needs configuring: you should change e-mail in there, and may want to alter limits.
35 | Tile limit is specified in `$max_tiles` variable in `bigmap.php`.
36 | 
37 | After changing `tiles.txt` you would want to update Leaflet layers in `index.html`. To do this, just check paths
38 | in `scripts/tiles2html.pl` and run it.
39 | 
40 | ## License
41 | 
42 | All scripts were written by Ilya Zverev, partly based on public domain code by Frederik Ramm.
43 | Published under WTFPL license.
44 | 


--------------------------------------------------------------------------------
/www/python.php:
--------------------------------------------------------------------------------
 1 | <?php // BigMap 2 Python3 export. Written by Ilya Zverev and Michael Behrens, licensed WTFPL.
 2 | header('Content-type: application/x-python');
 3 | header('Content-disposition: attachment; filename="bigmap.py"');
 4 | 
 5 | $l = '';
 6 | foreach( $layers as $layer ) {
 7 | 	if( strlen($l) )
 8 | 		$l .= ', ';
 9 | 	$l .= '"'.str_replace('"', "\"", $layer).'"';
10 | }
11 | ?>
12 | #!/usr/bin/env python
13 | # Generated by BigMap 2. Permalink: <?=$permalink ?>
14 | 
15 | 
16 | import io, urllib.request, datetime, time, re, random
17 | from PIL import Image, ImageDraw
18 | # ^^^^^^ install "python-pillow" package | pip install Pillow | easy_install Pillow
19 | 
20 | (zoom, xmin, ymin, xmax, ymax) = (<?=$zoom ?>, <?=$xmin ?>, <?=$ymin ?>, <?=$xmax ?>, <?=$ymax ?>)
21 | layers = [<?=$l ?>]
22 | attribution = '<?=str_replace("'", "\'", $attrib_plain) ?>'
23 | xsize = xmax - xmin + 1
24 | ysize = ymax - ymin + 1
25 | tilesize = 256
26 | 
27 | resultImage = Image.new("RGBA", (xsize * tilesize, ysize * tilesize), (0,0,0,0))
28 | counter = 0
29 | for x in range(xmin, xmax+1):
30 | 	for y in range(ymin, ymax+1):
31 | 		for layer in layers:
32 | 			url = layer.replace("!x", str(x)).replace("!y", str(y)).replace("!z", str(zoom))
33 | 			match = re.search("{([a-z0-9]+)}", url)
34 | 			if match:
35 | 				url = url.replace(match.group(0), random.choice(match.group(1)))
36 | 			print(url, "... ");
37 | 			try:
38 | 				req = urllib.request.Request(url, headers={'User-Agent': 'BigMap/2.0'})
39 | 				tile = urllib.request.urlopen(req).read()
40 | 			except Exception as e:
41 | 				print("Error", e)
42 | 				continue;
43 | 			image = Image.open(io.BytesIO(tile))
44 | 			resultImage.paste(image, ((x-xmin)*tilesize, (y-ymin)*tilesize), image.convert("RGBA"))
45 | 			counter += 1
46 | 			if counter == 10:
47 | 				time.sleep(2);
48 | 				counter = 0
49 | 
50 | draw = ImageDraw.Draw(resultImage)
51 | draw.text((5, ysize*tilesize-15), attribution, (0,0,0))
52 | del draw
53 | 
54 | now = datetime.datetime.now()
55 | outputFileName = "map%02d-%02d%02d%02d-%02d%02d.png" % (zoom, now.year % 100, now.month, now.day, now.hour, now.minute)
56 | resultImage.save(outputFileName)
57 | 


--------------------------------------------------------------------------------
/www/perl.php:
--------------------------------------------------------------------------------
 1 | <?php // BigMap 2 Perl export. Written by Frederik Ramm and Ilya Zverev, licensed WTFPL.
 2 | header('Content-type: application/x-perl');
 3 | header('Content-disposition: attachment; filename="bigmap.pl"');
 4 | 
 5 | $l = '';
 6 | foreach( $layers as $layer ) {
 7 | 	if( strlen($l) )
 8 | 		$l .= ', ';
 9 | 	$l .= "'".str_replace("'", "\'", $layer)."'";
10 | }
11 | ?>
12 | #!/usr/bin/perl
13 | # Generated by BigMap 2. Permalink: <?=$permalink ?>
14 | 
15 | 
16 | use strict;
17 | use LWP;
18 | use GD;
19 | 
20 | my ($zoom, $xmin, $ymin, $xmax, $ymax) = (<?php echo "$zoom, $xmin, $ymin, $xmax, $ymax" ?>);
21 | my @layers = (<?=$l ?>);
22 | my $attribution = '<?=str_replace("'", "\'", $attrib_plain) ?>';
23 | my $xsize = $xmax - $xmin + 1;
24 | my $ysize = $ymax - $ymin + 1;
25 | 
26 | my $img = GD::Image->new($xsize*256, $ysize*256, 1);
27 | my $white = $img->colorAllocate(248,248,248);
28 | $img->filledRectangle(0,0,$xsize*256,$ysize*256,$white);
29 | my $ua = LWP::UserAgent->new();
30 | $ua->env_proxy;
31 | $ua->agent('BigMap/2.0');
32 | my $count = 0;
33 | for (my $x=0;$x<$xsize;$x++)
34 | {
35 |     for (my $y=0;$y<$ysize;$y++)
36 |     {
37 | 		my $xx = $x + $xmin;
38 | 		my $yy = $y + $ymin;
39 | 		foreach my $base(@layers)
40 | 		{
41 | 			my $url = $base;
42 | 			$url =~ s/!z/$zoom/g;
43 | 			$url =~ s/!x/$xx/g;
44 | 			$url =~ s/!y/$yy/g;
45 | 			$url =~ s/{([a-z0-9]+)}/substr($1,int(rand(length($1))),1)/e;
46 | 			print STDERR "$url... ";
47 | 			my $resp = $ua->get($url);
48 | 			print STDERR $resp->status_line;
49 | 			print STDERR "\n";
50 | 			next unless $resp->is_success;
51 | 			my $tile = GD::Image->new($resp->content);
52 | 			next if ($tile->width == 1);
53 | 			if ($base =~ /seamark/) {
54 | 			my $black=$tile->colorClosest(0,0,0);
55 | 			$tile->transparent($black);
56 | 			}
57 | 			$img->copy($tile, $x*256,$y*256,0,0,256,256);
58 | 			if( ++$count == 10 ) { sleep 2; $count = 0; }
59 | 		}
60 |     }
61 | }
62 | my $black = $img->colorClosest(0,0,0);
63 | $img->string(gdSmallFont, 5, $ysize*256 - 15, $attribution, $black);
64 | 
65 | my @t = localtime();
66 | open PIC, sprintf('>map%02d-%02d%02d%02d-%02d%02d.png', $zoom, $t[5]%100, $t[4]+1, $t[3], $t[2], $t[1]);
67 | binmode PIC;
68 | print PIC $img->png();
69 | close PIC;
70 | 


--------------------------------------------------------------------------------
/www/bigmap.php:
--------------------------------------------------------------------------------
  1 | <?php // BigMap 2. Written by Ilya Zverev, licensed WTFPL.
  2 | define('IN_BIGMAP', true);
  3 | 
  4 | $max_tiles = 100;
  5 | 
  6 | $zoom = min(20, req_num('zoom'));
  7 | $zoom2 = pow(2, $zoom);
  8 | $xmin = max(0, req_num('xmin'));
  9 | $ymin = max(0, req_num('ymin'));
 10 | $xmax = min($zoom2 - 1, req_num('xmax'));
 11 | $ymax = min($zoom2 - 1, req_num('ymax'));
 12 | if( $xmax < $xmin ) $xmax = $xmin;
 13 | if( $ymax < $ymin ) $ymax = $ymin;
 14 | $xsize = $xmax - $xmin + 1;
 15 | $ysize = $ymax - $ymin + 1;
 16 | $llmin = tile2latlon($xmin, $ymax);
 17 | $llmax = tile2latlon($xmax, $ymin);
 18 | $lat_min = $llmin[0];
 19 | $lon_min = $llmin[1];
 20 | $lat_max = $llmax[2];
 21 | $lon_max = $llmax[3];
 22 | $scale = req_num('scale', 256);
 23 | $tiles = isset($_REQUEST['tiles']) && preg_match('/^[a-z0-9|-]+$/', $_REQUEST['tiles']) ? $_REQUEST['tiles'] : 'mapnik';
 24 | $layers = get_layers($tiles, $zoom);
 25 | $redirect = 'https://'.$_SERVER['HTTP_HOST'].rtrim(dirname($_SERVER['PHP_SELF']), '/\\').'/';
 26 | $permalink = $redirect."bigmap.php?xmin=$xmin&xmax=$xmax&ymin=$ymin&ymax=$ymax&zoom=$zoom&scale=$scale&tiles=$tiles";
 27 | $basename = isset($_REQUEST['basename']) ? $_REQUEST['basename'] : 'bigmap';
 28 | 
 29 | $action = isset($_REQUEST['action']) ? $_REQUEST['action'] : '';
 30 | if( $action == 'ozimap' ) {
 31 | 	require('ozimap.php');
 32 | 	exit;
 33 | } else if( $action == 'wld' ) {
 34 | 	require('wld.php');
 35 | 	exit;
 36 | } else if( $action == 'kml' ) {
 37 | 	require('kml.php');
 38 | 	exit;
 39 | } else if( $action == 'perl' ) {
 40 | 	require('perl.php');
 41 | 	exit;
 42 | } else if( $action == 'python' ) {
 43 | 	require('python.php');
 44 | 	exit;
 45 | } else if( $action == 'enqueue' ) {
 46 | 	require('queue.php');
 47 | 	exit;
 48 | }
 49 | 
 50 | function req_num($name, $default = 0) {
 51 | 	return isset($_REQUEST[$name]) && preg_match('/^\d+$/', $_REQUEST[$name]) ? $_REQUEST[$name] : $default;
 52 | }
 53 | 
 54 | function get_layers($tiles, $zoom) {
 55 | 	global $attribution, $attrib_plain;
 56 | 	$needed = explode('|', $tiles);
 57 | 	$result = array();
 58 | 	$attribution = 'Map data &copy; <a href="https://www.openstreetmap.org">OpenStreetMap</a>';
 59 | 	$file = @fopen('tiles.txt', 'r');
 60 | 	if( $file ) {
 61 | 		while( ($line = fgets($file)) !== false ) {
 62 | 			$layer = explode(',', chop($line));
 63 | 			if( in_array($layer[0], $needed) && (count($result) ? $layer[1] : !$layer[1]) && $layer[2] <= $zoom && $layer[3] >= $zoom ) {
 64 | 				$result[] = $layer[4];
 65 | 				if( strlen($layer[5]) )
 66 | 					$attribution .= ', '.$layer[5];
 67 | 			}
 68 | 			if( count($result) >= 4 )
 69 | 				break;
 70 | 		}
 71 | 		fclose($file);
 72 | 	}
 73 | 	if( !count($result) )
 74 | 		$result[] = 'https://tile.openstreetmap.org/!z/!x/!y.png';
 75 | 	$attrib_plain = str_replace('&copy;', '(c)', preg_replace('/<[^>]+>/', '', $attribution));
 76 | 	return $result;
 77 | }
 78 | 
 79 | function tile2latlon($x, $y) {
 80 | 	global $zoom2;
 81 | 	// taken from https://wiki.openstreetmap.org/wiki/Slippy_map_tilenames#Perl
 82 | 	$relY1 = M_PI * (1 - 2 * $y / $zoom2);
 83 | 	$relY2 = M_PI * (1 - 2 * ($y + 1) / $zoom2);
 84 | 	$lat1 = rad2deg(atan(sinh($relY1)));
 85 | 	$lat2 = rad2deg(atan(sinh($relY2)));
 86 | 	$lon1 = 360 * ($x / $zoom2 - 0.5);
 87 | 	$lon2 = $lon1 + 360 / $zoom2;
 88 | 	return array($lat2, $lon1, $lat1, $lon2);
 89 | }
 90 | 
 91 | ?>
 92 | <!doctype html>
 93 | <html>
 94 | <head>
 95 | <title>BigMap 2</title>
 96 | <meta charset="utf-8">
 97 | <meta name="robots" content="noindex, nofollow">
 98 | </head>
 99 | <body>
100 | <?php
101 | for( $y = $ymin; $y <= $ymax; $y++ ) {
102 | 	for( $x = $xmin; $x <= $xmax; $x++ ) {
103 | 		$xp = $scale * ($x - $xmin);
104 | 		$yp = $scale * ($y - $ymin);
105 | 		$style = "style=\"position: absolute; left: ${xp}px; top: ${yp}px; width: ${scale}px; height: ${scale}px\"";
106 | 		for( $l = 0; $l < count($layers); $l++ ) {
107 | 			$bg = str_replace('!x', $x, str_replace('!y', $y, str_replace('!z', $zoom, $layers[$l])));
108 | 			if( preg_match('/{([a-z0-9]+)}/', $bg, $m) )
109 | 				$bg = str_replace($m[0], substr($m[1], rand(0, strlen($m[1]) - 1), 1), $bg);
110 | 			echo "<img src=\"$bg\" $style onclick=\"getElementById('control').style.display='block';\">";
111 | 		}
112 | 	}
113 | }
114 | echo "<div style=\"position: absolute; left: 5px; top: ".($scale*($ymax-$ymin+1)-15)."px; font-size: 8px;\">$attribution</div>\n";
115 | 
116 | require('panel.php');
117 | ?>
118 | </body>
119 | </html>
120 | 


--------------------------------------------------------------------------------
/www/ozimap.php:
--------------------------------------------------------------------------------
 1 | <?php // BigMap 2 OziExplorer MAP export. Written by Ilya Zverev, licensed WTFPL.
 2 | header('Content-type: application/x-map');
 3 | header('Content-disposition: attachment; filename="'.$basename.'.map"');
 4 | 
 5 | $width = ($xmax - $xmin + 1) * 256;
 6 | $height = ($ymax - $ymin + 1) * 256;
 7 | $lon2 = ($lon_min + $lon_max) / 2;
 8 | $lat2 = ($lat_min + $lat_max) / 2;
 9 | $m_per_px = 156543.034 * cos(deg2rad($lat2)) / $zoom2;
10 | 
11 | function deg( $value, $is_lon ) {
12 | 	$deg = floor(abs($value));
13 | 	$min = (abs($value) - floor(abs($value))) * 60;
14 | 	return sprintf('%4d,%3.5F,%s', $deg, $min, $value < 0 ? ($is_lon ? 'W' : 'S') : ($is_lon ? 'E' : 'N'));
15 | }
16 | ?>
17 | OziExplorer Map Data File Version 2.2
18 | BigMap
19 | <?=$basename ?>.png
20 | 1 ,Map Code,
21 | WGS 84,WGS 84,   0.0000,   0.0000,WGS 84
22 | Reserved 1
23 | Reserved 2
24 | Magnetic Variation,,,E
25 | Map Projection,Mercator,PolyCal,No,AutoCalOnly,No,BSBUseWPX,No
26 | Point01,xy,    0,    0,in, deg,<?=deg($lat_max, false) ?>,<?=deg($lon_min, true) ?>, grid,   ,           ,           ,N
27 | Point02,xy, <?=sprintf('%4d', $width-1) ?>, <?=sprintf('%4d', $height-1) ?>,in, deg,<?=deg($lat_min, false) ?>,<?=deg($lon_max, true) ?>, grid,   ,           ,           ,N
28 | Point03,xy,     ,     ,in, deg,    ,        ,N,    ,        ,E, grid,   ,           ,           ,N
29 | Point04,xy,     ,     ,in, deg,    ,        ,N,    ,        ,E, grid,   ,           ,           ,N
30 | Point05,xy,     ,     ,in, deg,    ,        ,N,    ,        ,E, grid,   ,           ,           ,N
31 | Point06,xy,     ,     ,in, deg,    ,        ,N,    ,        ,E, grid,   ,           ,           ,N
32 | Point07,xy,     ,     ,in, deg,    ,        ,N,    ,        ,E, grid,   ,           ,           ,N
33 | Point08,xy,     ,     ,in, deg,    ,        ,N,    ,        ,E, grid,   ,           ,           ,N
34 | Point09,xy,     ,     ,in, deg,    ,        ,N,    ,        ,E, grid,   ,           ,           ,N
35 | Point10,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
36 | Point11,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
37 | Point12,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
38 | Point13,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
39 | Point14,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
40 | Point15,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
41 | Point16,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
42 | Point17,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
43 | Point18,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
44 | Point19,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
45 | Point20,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
46 | Point21,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
47 | Point22,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
48 | Point23,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
49 | Point24,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
50 | Point25,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
51 | Point26,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
52 | Point27,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
53 | Point28,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
54 | Point29,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
55 | Point30,xy,     ,     ,in, deg,    ,        ,N,    ,        ,W, grid,   ,           ,           ,N
56 | Projection Setup,,,,,,,,,,
57 | Map Feature = MF ; Map Comment = MC     These follow if they exist
58 | Track File = TF      These follow if they exist
59 | Moving Map Parameters = MM?    These follow if they exist
60 | MM0,Yes
61 | MMPNUM,4
62 | MMPXY,1,0,0
63 | <?php
64 | echo "MMPXY,2,$width,0\n";
65 | echo "MMPXY,3,$width,$height\n";
66 | echo "MMPXY,4,0,$height\n";
67 | echo 'MMPLL,1,'.sprintf('%4.6f', $lon_min).','.sprintf('%4.6f', $lat_max)."\n";
68 | echo 'MMPLL,2,'.sprintf('%4.6f', $lon_max).','.sprintf('%4.6f', $lat_max)."\n";
69 | echo 'MMPLL,3,'.sprintf('%4.6f', $lon_max).','.sprintf('%4.6f', $lat_min)."\n";
70 | echo 'MMPLL,4,'.sprintf('%4.6f', $lon_min).','.sprintf('%4.6f', $lat_min)."\n";
71 | echo "MM1B,$m_per_px\n";
72 | echo "MOP,Map Open Position,0,0\n";
73 | echo "IWH,Map Image Width/Height,$width,$height\n";
74 | 


--------------------------------------------------------------------------------
/scripts/bigmap_download.pl:
--------------------------------------------------------------------------------
  1 | #!/usr/bin/perl
  2 | 
  3 | # Check the download queue of BigMap 2 and download some tiles.
  4 | # There can be tiles with errors, need to redownload them.
  5 | # When all tiles are downloaded, make an image out of it.
  6 | # And slap attribution on top.
  7 | 
  8 | # Written by Ilya Zverev, licensed WTFPL.
  9 | 
 10 | use strict;
 11 | use LWP;
 12 | use GD;
 13 | use Cwd 'abs_path';
 14 | use File::Basename;
 15 | 
 16 | my $root_path = abs_path(dirname(__FILE__)).'/..';
 17 | my $work_path = $root_path.'/queue';
 18 | my $result_path = $root_path.'/www/result';
 19 | my $address = 'https://bigmap.osmz.ru';
 20 | 
 21 | # create mutex
 22 | exit if -e $work_path.'/working';
 23 | open TTT, ">$work_path/working";
 24 | close TTT;
 25 | open(my $log, ">>$work_path/log");
 26 | binmode($log, ":unix"); # autoflush
 27 | #print $log "\n";
 28 | 
 29 | # "finally" equivalent
 30 | eval {
 31 | 	# find the task
 32 | 	open QUEUE, "<$work_path/queue" or die 'cannot open queue file: '.$!;
 33 | 	if( open DONE, "<$work_path/done" ) {
 34 | 		# skipping all finished tasks
 35 | 		while(my $taskid = <DONE>) {
 36 | 			chomp $taskid;
 37 | 			while(<QUEUE>) {
 38 | 				last if /^$taskid,/;
 39 | 			}
 40 | 		}
 41 | 		close DONE;
 42 | 	}
 43 | 	my $task = <QUEUE>;
 44 | 	close QUEUE;
 45 | 
 46 | 	if( $task && $task =~ /^([a-z]+\d+),/ ) {
 47 | 		# found task, great! Save task id and read data
 48 | 		my $taskid = $1;
 49 | 		open TASK, "<$work_path/tasks/$taskid" or die "Cannot open task file $taskid: $!";
 50 | 		my @contents;
 51 | 		while(<TASK>) {
 52 | 			chomp;
 53 | 			push @contents, $_;
 54 | 		}
 55 | 		close TASK;
 56 | 
 57 | 		my ($status) = split /,/, $contents[1];
 58 | 		if( $status >= 2 ) {
 59 | 			write_task($taskid, \@contents, $status);
 60 | 			die "Task $taskid with status $status was not marked as done";
 61 | 		}
 62 | 
 63 | 		wlog("Found task $taskid, status $status");
 64 | 		write_task($taskid, \@contents, 1);
 65 | 		clear_tiles() if $status >= 0;
 66 | 		my $ua = LWP::UserAgent->new();
 67 | 		$ua->env_proxy;
 68 | 		$ua->agent('BigMap/2.0 ('.$address.')');
 69 | 		$ua->timeout(15);
 70 | 		if( download_tiles($ua, $contents[2], $contents[3]) ) {
 71 | 			if( create_image($taskid, $contents[2], $contents[4]) ) {
 72 | 				$status = 2;
 73 | 			} else {
 74 | 				$status = 3;
 75 | 			}
 76 | 			clear_tiles();
 77 | 		} else {
 78 | 			$status = $status < 0 ? $status-1 : -1;
 79 | 			$status = 3 if $status <= -3;
 80 | 		}
 81 | 		write_task($taskid, \@contents, $status);
 82 | 		wlog("Task done with status $status");
 83 | 	}
 84 | };
 85 | wlog('Error: '.$@) if $@;
 86 | close $log;
 87 | 
 88 | # remove mutex
 89 | unlink "$work_path/working";
 90 | 
 91 | sub wlog {
 92 | 	my $text = shift;
 93 | 	my @t = localtime;
 94 | 	printf $log "[%02d.%02d.%04d %02d:%02d:%02d] %s\n", $t[3], $t[4]+1, $t[5]+1900, $t[2], $t[1], $t[0], $text;
 95 | }
 96 | 
 97 | sub write_task {
 98 | 	my($taskid, $contents, $status) = @_;
 99 | 	open TASK, ">$work_path/tasks/$taskid" or die "Cannot open task file: $!";
100 | 	print TASK $contents->[0]."\n";
101 | 	print TASK $status.','.time()."\n";
102 | 	print TASK $contents->[$_]."\n" for 2..$#{$contents};
103 | 	close TASK;
104 | 	if( $status >= 2 && open DONE, ">>$work_path/done") {
105 | 		print DONE "$taskid\n";
106 | 		close DONE;
107 | 	}
108 | }
109 | 
110 | sub clear_tiles {
111 | 	return if !-d "$work_path/tiles";
112 | 	opendir(my $dh, "$work_path/tiles") or die "Cannot open tile directory: $!";
113 | 	my @tiles = grep {/\.png/} readdir $dh;
114 | 	closedir $dh;
115 | 	wlog("Removing cached tiles") if scalar @tiles;
116 | 	unlink "$work_path/tiles/$_" foreach @tiles;
117 | }
118 | 
119 | sub download_tiles {
120 | 	my ($ua, $task, $urls) = @_;
121 | 	my ($zoom, $xmin, $ymin, $xmax, $ymax) = split /,/, $task;
122 | 	my @layers = split /\|/, $urls;
123 | 	my $count = 0;
124 | 	my $good = 1;
125 | 	wlog('Downloading tiles...');
126 | 	my %stat;
127 | 	my $stat_ar;
128 | 	for( my $x = $xmin; $x <= $xmax; $x++ ) {
129 | 		for( my $y = $ymin; $y <= $ymax; $y++ ) {
130 | 			my $img = GD::Image->new(256, 256, 1);
131 | 			for( my $l = 0; $l <= $#layers; $l++ ) {
132 | 				my $url = $layers[$l];
133 | 				$url =~ s/!z/$zoom/g;
134 | 				$url =~ s/!x/$x/g;
135 | 				$url =~ s/!y/$y/g;
136 | 				$url =~ s/{([a-z0-9]+)}/substr($1,int(rand(length($1))),1)/e;
137 | 
138 | 				if( exists $stat{$layers[$l]} ) { $stat_ar = $stat{$layers[$l]}; } else {
139 | 					$stat_ar = [0, 0];
140 | 					$stat{$layers[$l]} = $stat_ar;
141 | 				}
142 | 				my $resp = $ua->get($url);
143 | 				#wlog($url.' - '.$resp->status_line);
144 | 				if( !$resp->is_success ) {
145 | 					wlog($url.' - '.$resp->status_line);
146 | 					$img = 0;
147 | 					$good = 0;
148 | 					$stat_ar->[1]++;
149 | 					last;
150 | 				}
151 | 				my $tile = GD::Image->new($resp->content);
152 | 				next if !$tile || $tile->width == 1;
153 | 				$stat_ar->[0]++;
154 | 				if( $url =~ /seamark/ ) {
155 | 					my $black = $tile->colorClosest(0,0,0);
156 | 					$tile->transparent($black);
157 | 				}
158 | 				$img->copy($tile,0,0,0,0,256,256);
159 | 				if( ++$count == 5 ) { sleep 2; $count = 0; }
160 | 			}
161 | 			if( $img ) {
162 | 				mkdir "$work_path/tiles" if !-d "$work_path/tiles";
163 | 				open PIC, sprintf(">$work_path/tiles/%d_%06d_%06d.png", $zoom, $x, $y) or return 0;
164 | 				binmode PIC;
165 | 				print PIC $img->png();
166 | 				close PIC;
167 | 			}
168 | 		}
169 | 	}
170 | 	wlog($_.': '.$stat{$_}->[0].' good, '.$stat{$_}->[1].' failed') foreach keys %stat;
171 | 	return $good;
172 | }
173 | 
174 | sub create_image {
175 | 	my ($taskid, $task, $attribution) = @_;
176 | 	my ($zoom, $xmin, $ymin, $xmax, $ymax) = split /,/, $task;
177 | 	my @t = gmtime();
178 | 	my $filename = sprintf('%s/%s-%02d%02d%02d-%02d%02d.png', $result_path, $taskid, $t[5]%100, $t[4]+1, $t[3], $t[2], $t[1]);
179 | 	wlog("Creating image $filename");
180 | 	my $xsize = $xmax - $xmin + 1;
181 | 	my $ysize = $ymax - $ymin + 1;
182 | 	my $img = GD::Image->new($xsize*256, $ysize*256, 1);
183 | 	my $white = $img->colorAllocate(248,248,248);
184 | 	$img->filledRectangle(0,0,$xsize*256,$ysize*256,$white);
185 | 	for( my $x = $xmin; $x <= $xmax; $x++ ) {
186 | 		for( my $y = $ymin; $y <= $ymax; $y++ ) {
187 | 			my $fn = sprintf("$work_path/tiles/%d_%06d_%06d.png", $zoom, $x, $y);
188 | 			my $tile = GD::Image->new($fn);
189 | 			return 0 if !$tile;
190 | 			$img->copy($tile,($x-$xmin)*256,($y-$ymin)*256,0,0,256,256);
191 | 		}
192 | 	}
193 | 	my $black = $img->colorAllocate(0,0,0);
194 | 	$img->string(gdSmallFont, 5, $ysize*256 - 15, $attribution, $black);
195 | 	open PIC, '>'.$filename;
196 | 	binmode PIC;
197 | 	print PIC $img->png();
198 | 	close PIC;
199 | 	return 1;
200 | }
201 | 


--------------------------------------------------------------------------------
/www/panel.php:
--------------------------------------------------------------------------------
  1 | <?php // BigMap 2 Panel. Written by Frederik Ramm and Ilya Zverev, licensed WTFPL.
  2 | 
  3 | // temporary perl code
  4 |     print '<div id="control" style="align:center;position:fixed;top:50px;margin-left:50px;margin-right:50px;padding:10px;background:#ffffff;opacity:0.8;border:solid 1px;border-color:green;">';
  5 |     $widtiles = $xmax-$xmin+1;
  6 |     $heitiles = $ymax-$ymin+1;
  7 |     $widpix = $widtiles*256;
  8 |     $heipix = $heitiles*256;
  9 |     $asp="1:1";
 10 |     if ($widpix>$heipix)
 11 |     {
 12 |         $asp = sprintf("%.2f:1", $widpix/$heipix);
 13 |     }
 14 |     elseif($widpix<$heipix)
 15 |     {
 16 |         $asp = sprintf("1:%.2f", $heipix/$widpix);
 17 |     }
 18 | 
 19 |     printf("Map is %dx%d tiles (%dx%d px) at zoom %d, aspect %s<br>",
 20 |         $widtiles,$heitiles,$widpix,$heipix,$zoom,$asp);
 21 |     echo '<table cellspacing="0" cellpadding="2"><tr>';
 22 |     echo tde(); // td("tl", "right", $xmin-1, $xmax, $ymin-1, $ymax, $zoom);
 23 |     echo $ymin <= 0 ? tde('top') : td("top", "center", $xmin, $xmax, $ymin-1, $ymax, $zoom);
 24 |     echo tde(); // td("tr", "left", $xmin, $xmax+1, $ymin-1, $ymax, $zoom);
 25 |     echo "<td>&nbsp;</td>";
 26 |     echo tde(); // td("ul", "right", $xmin-1, $xmax-1, $ymin-1, $ymax-1, $zoom);
 27 |     echo $ymin <= 0 ? tde('up') : td("up", "center", $xmin, $xmax, $ymin-1, $ymax-1, $zoom);
 28 |     echo tde(); // td("ur", "left", $xmin+1, $xmax+1, $ymin-1, $ymax-1, $zoom);
 29 |     echo "<td>&nbsp;</td>";
 30 |     echo tde(); // td("tl", "right", $xmin+1, $xmax, $ymin+1, $ymax, $zoom);
 31 |     echo $ymin == $ymax ? tde('top') : td("top", "center", $xmin, $xmax, $ymin+1, $ymax, $zoom);
 32 |     echo tde(); // td("tr", "left", $xmin, $xmax-1, $ymin+1, $ymax, $zoom);
 33 |     echo "</tr><tr>";
 34 |     echo $xmin <= 0 ? tde('left', 'right') : td("left", "right", $xmin-1, $xmax, $ymin, $ymax, $zoom);
 35 |     echo "<td align='center' bgcolor='#aaaaaa'><b>EXPAND</b></td>";
 36 |     echo $xmax >= $zoom2-1 ? tde('right', 'left') : td("right", "left", $xmin, $xmax+1, $ymin, $ymax, $zoom);
 37 |     echo "<td>&nbsp;</td>";
 38 |     echo $xmin <= 0 ? tde('left', 'right') : td("left", "right", $xmin-1, $xmax-1, $ymin, $ymax, $zoom);
 39 |     echo "<td align='center' bgcolor='#aaaaaa'><b>SHIFT</b></td>";
 40 |     echo $xmax >= $zoom2-1 ? tde('right', 'left') : td("right", "left", $xmin+1, $xmax+1, $ymin, $ymax, $zoom);
 41 |     echo "<td>&nbsp;</td>";
 42 |     echo $xmin == $xmax ? tde('left', 'right') : td("left", "right", $xmin+1, $xmax, $ymin, $ymax, $zoom);
 43 |     echo "<td align='center' bgcolor='#aaaaaa'><b>SHRINK</b></td>";
 44 |     echo $xmin == $xmax ? tde('right', 'left') : td("right", "left", $xmin, $xmax-1, $ymin, $ymax, $zoom);
 45 |     echo "</tr><tr>";
 46 |     echo tde(); // td("bl", "right", $xmin-1, $xmax, $ymin, $ymax+1, $zoom);
 47 |     echo $ymax >= $zoom2-1 ? tde('bottom') : td("bottom", "center", $xmin, $xmax, $ymin, $ymax+1, $zoom);
 48 |     echo tde(); // td("br", "left", $xmin, $xmax+1, $ymin, $ymax+1, $zoom);
 49 |     echo "<td>&nbsp;</td>";
 50 |     echo tde(); // td("dl", "right", $xmin-1, $xmax-1, $ymin+1, $ymax+1, $zoom);
 51 |     echo $ymax >= $zoom2-1 ? tde('down') : td("down", "center", $xmin, $xmax, $ymin+1, $ymax+1, $zoom);
 52 |     echo tde(); // td("dr", "left", $xmin+1, $xmax+1, $ymin+1, $ymax+1, $zoom);
 53 |     echo "<td>&nbsp;</td>";
 54 |     echo tde(); // td("bl", "right", $xmin+1, $xmax, $ymin, $ymax-1, $zoom);
 55 |     echo $ymin == $ymax ? tde('bottom') : td("bottom", "center", $xmin, $xmax, $ymin, $ymax-1, $zoom);
 56 |     echo tde(); // td("br", "left", $xmin, $xmax-1, $ymin, $ymax-1, $zoom);
 57 |     echo "</tr><tr><td></td></tr>";
 58 |     echo "<tr><td colspan='11'><table bgcolor='#aaaaaa' width='100%' border='0' cellpadding='0' cellspacing='0'><tr>";
 59 |     echo "<td>&nbsp;</td>";
 60 |     echo td("in/double size", "left", $xmin*2,$xmax*2+1,$ymin*2,$ymax*2+1,$zoom+1);
 61 |     echo "<td>&nbsp;</td>";
 62 |     echo td("in/keep size", "left", $xmin*2+($xmax-$xmin)/2,$xmax*2-($xmax-$xmin)/2,$ymin*2+($ymax-$ymin)/2,$ymax*2-($ymax-$ymin)/2,$zoom+1);
 63 |     echo "<td>&nbsp;</td>";
 64 |     echo "<td bgcolor='#aaaaaa'><b>ZOOM</b></td>";
 65 |     echo "<td>&nbsp;</td>";
 66 |     echo td("out/keep size", "left", $xmin/2-($xmax-$xmin)/4,$xmax/2+($xmax-$xmin)/4,$ymin/2-($ymax-$ymin)/4,$ymax/2+($ymax-$ymin)/4,$zoom-1);
 67 |     echo "<td>&nbsp;</td>";
 68 |     echo td("out/halve size", "left", $xmin/2,$xmax/2,$ymin/2,$ymax/2,$zoom-1);
 69 |     echo "</tr></table></td></tr><tr><td></td></tr>";
 70 |     echo "<tr><td colspan='11'><table bgcolor='#aaaaaa' width='100%' border='0' cellpadding='0' cellspacing='0'><tr>";
 71 |     echo "<td>&nbsp;</td>";
 72 |     echo preg_replace('/\?[^"]+/', sprintf('index.html#map=%d/%f/%f',$zoom,($lat_min+$lat_max)/2,($lon_min+$lon_max)/2), td("<b>BigMap</b>", "left", $xmin,$xmax,$ymin,$ymax,$zoom));
 73 |     echo "<td>&nbsp;</td>";
 74 |     echo td("Permalink", "left", $xmin,$xmax,$ymin,$ymax,$zoom);
 75 |     echo "<td>&nbsp;</td>";
 76 |     echo str_replace('?', '?action=ozimap&', td("OZI", "left", $xmin,$xmax,$ymin,$ymax,$zoom));
 77 |     echo "<td>&nbsp;</td>";
 78 |     echo str_replace('?', '?action=wld&', td("WLD", "left", $xmin,$xmax,$ymin,$ymax,$zoom));
 79 |     echo "<td>&nbsp;</td>";
 80 |     echo str_replace('?', '?action=perl&', td("Perl", "left", $xmin,$xmax,$ymin,$ymax,$zoom));
 81 |     echo "<td>&nbsp;</td>";
 82 |     echo str_replace('?', '?action=python&', td("Py", "left", $xmin,$xmax,$ymin,$ymax,$zoom));
 83 |     echo "<td>&nbsp;</td>";
 84 |     echo ($xmax-$xmin+1) * ($ymax-$ymin+1) > $max_tiles ? tde("<b>Enqueue</b>", "left") :  str_replace('?', '?action=enqueue&', td("<b>Enqueue</b>", "left", $xmin,$xmax,$ymin,$ymax,$zoom));
 85 |     echo "<td>&nbsp;</td>";
 86 |     echo td("100", "left", $xmin,$xmax,$ymin,$ymax,$zoom,256);
 87 |     echo "<td>/</td>";
 88 |     echo td("50", "left", $xmin,$xmax,$ymin,$ymax,$zoom,128);
 89 |     echo "<td>/</td>";
 90 |     echo td("25%", "left", $xmin,$xmax,$ymin,$ymax,$zoom,64);
 91 |     echo "<td>&nbsp;</td>";
 92 |     echo "<td align='right'><a href=\"#\" onclick=\"getElementById('control').style.display='none';\">hide this</a></td>";
 93 |     echo "</tr></table></td></tr></table>";
 94 |     echo "</div></div>";
 95 | 
 96 | # helper to display a table cell with a parametrized link inside
 97 | function td($what, $align, $xmi, $xma, $ymi, $yma, $zm, $scl = 0) {
 98 |     global $scale, $tiles;
 99 |     if( !$scl ) $scl = $scale;
100 |     return sprintf('<td bgcolor="#aaaaaa" align="%s"><a href="?xmin=%d&xmax=%d&ymin=%d&ymax=%d&zoom=%d&scale=%d&tiles=%s" rel="nofollow">%s</a></td>',
101 |         $align,
102 |         $xmi, $xma,
103 |         $ymi, $yma, 
104 |         $zm, $scl, $tiles, $what);
105 | }
106 | 
107 | function tde($text = '', $align = 'center') {
108 |     return '<td bgcolor="#aaaaaa" align="'.$align.'">'.$text.'</td>';
109 | }
110 | ?>
111 | 


--------------------------------------------------------------------------------
/www/index.html:
--------------------------------------------------------------------------------
  1 | <!doctype html>
  2 | <html>
  3 | <head>
  4 | <title>BigMap 2</title>
  5 | <meta charset="utf-8">
  6 | <meta name="viewport" content="width=device-width, initial-scale=1.0, shrink-to-fit=no"/>
  7 | <script src="https://unpkg.com/leaflet@1.8.0/dist/leaflet.js"></script>
  8 | <link rel="stylesheet" href="https://unpkg.com/leaflet@1.8.0/dist/leaflet.css" />
  9 | <style>
 10 | body {
 11 | 	text-align: center;
 12 | 	font-family: sans-serif;
 13 | }
 14 | h1 {
 15 | 	font-size: 24pt;
 16 | }
 17 | #map {
 18 | 	width: 800px;
 19 | 	margin: 0 auto;
 20 | 	height: 500px;
 21 | 	text-align: left;
 22 | }
 23 | #submit {
 24 | 	margin: 1em;
 25 | 	font-size: 24pt;
 26 | }
 27 | #footer {
 28 | 	font-size: 10pt;
 29 | 	font-style: italic;
 30 | }
 31 | </style>
 32 | </head>
 33 | <body onload="javascript:addmap();">
 34 | <h1>BigMap 2</h1>
 35 | <p>Zoom to an area you want to have an image of, or paste map URL here:
 36 | <input type="text" size="40" id="url" value="" onchange="javascript:processURLInput();"><input type="button" value="!" onclick="javascript:processURLInput();"></p>
 37 | <div id="map"></div>
 38 | <form action="bigmap.php" method="get" onsubmit="javascript:getdata(this);">
 39 | <input type="hidden" name="zoom" value="">
 40 | <input type="hidden" name="xmin" value="">
 41 | <input type="hidden" name="ymin" value="">
 42 | <input type="hidden" name="xmax" value="">
 43 | <input type="hidden" name="ymax" value="">
 44 | <input type="hidden" name="tiles" value="mapnik">
 45 | <input type="submit" id="submit" value="Submit">
 46 | </form>
 47 | <p><a href="queue.php">Download queue</a></p>
 48 | <p id="footer">Based on <a href="http://wiki.openstreetmap.org/wiki/Bigmap">Bigmap</a>. Source code is published on <a href="https://github.com/zverik/bigmap2">github</a>.</p>
 49 | <script>
 50 | var map, base, overlay;
 51 | function addmap() {
 52 | 	// GENERATED
 53 | 	base = {
 54 | 		'mapnik': L.tileLayer('https://tile.openstreetmap.org/{z}/{x}/{y}.png', {
 55 | 			name: 'mapnik', minZoom: 0, maxZoom: 19,
 56 | 			attribution: 'Map data &copy; <a href=\"https://www.openstreetmap.org\">OpenStreetMap</a>'
 57 | 		}),
 58 | 		'osm-de': L.tileLayer('https://{s}.tile.openstreetmap.de/tiles/osmde/{z}/{x}/{y}.png', {
 59 | 			name: 'osm-de', minZoom: 0, maxZoom: 18, subdomains: 'abc',
 60 | 			attribution: 'Map data &copy; <a href=\"https://www.openstreetmap.org\">OpenStreetMap</a> | Tiles &copy; <a href=\"https://openstreetmap.de/\">OSM DE</a>'
 61 | 		}),
 62 | 		'osm-fr': L.tileLayer('https://{s}.tile.openstreetmap.fr/osmfr/{z}/{x}/{y}.png', {
 63 | 			name: 'osm-fr', minZoom: 0, maxZoom: 20, subdomains: 'abc',
 64 | 			attribution: 'Map data &copy; <a href=\"https://www.openstreetmap.org\">OpenStreetMap</a> | Tiles &copy; <a href=\"https://tile.openstreetmap.fr/\">OSM France</a>'
 65 | 		}),
 66 | 		'humanitarian': L.tileLayer('https://{s}.tile.openstreetmap.fr/hot/{z}/{x}/{y}.png', {
 67 | 			name: 'humanitarian', minZoom: 0, maxZoom: 19, subdomains: 'abc',
 68 | 			attribution: 'Map data &copy; <a href=\"https://www.openstreetmap.org\">OpenStreetMap</a> | Tiles &copy; <a href=\"https://hot.openstreetmap.org\">Humanitarian OSM Team</a>'
 69 | 		}),
 70 | 		'veloroad': L.tileLayer('https://tile.osmz.ru/veloroad/{z}/{x}/{y}.png', {
 71 | 			name: 'veloroad', minZoom: 6, maxZoom: 15,
 72 | 			attribution: 'Map data &copy; <a href=\"https://www.openstreetmap.org\">OpenStreetMap</a> | Tiles &copy; Ilya Zverev'
 73 | 		}),
 74 | 		'topomap': L.tileLayer('https://{s}.tile.opentopomap.org/{z}/{x}/{y}.png', {
 75 | 			name: 'topomap', minZoom: 0, maxZoom: 17, subdomains: 'abc',
 76 | 			attribution: 'Map data &copy; <a href=\"https://www.openstreetmap.org\">OpenStreetMap</a> | Tiles &copy; <a href=\"https://opentopomap.org/\">OpenTopoMap</a>'
 77 | 		})
 78 | 	};
 79 | 	overlay = {
 80 | 		'seamarks': L.tileLayer('https://tiles.openseamap.org/seamark/{z}/{x}/{y}.png', {
 81 | 			name: 'seamarks', minZoom: 0, maxZoom: 18,
 82 | 			attribution: 'Sea Marks &copy; <a href=\"https://openseamap.org/\">OpenSeaMap</a>'
 83 | 		}),
 84 | 		'harbours': L.tileLayer('https://t2.openseamap.org/tile/{z}/{x}/{y}.png', {
 85 | 			name: 'harbours', minZoom: 0, maxZoom: 18,
 86 | 			attribution: 'Harbours &copy; <a href=\"https://openseamap.org/\">OpenSeaMap</a>'
 87 | 		}),
 88 | 		'fires': L.tileLayer('http://www.openfiremap.org/hytiles/{z}/{x}/{y}.png', {
 89 | 			name: 'fires', minZoom: 0, maxZoom: 17,
 90 | 			attribution: 'Fire Hydrants &copy; <a href=\"https://www.openfiremap.org/\">OpenFireMap</a>'
 91 | 		}),
 92 | 		'wmhiking': L.tileLayer('https://tile.waymarkedtrails.org/hiking/{z}/{x}/{y}.png', {
 93 | 			name: 'wmhiking', minZoom: 0, maxZoom: 18,
 94 | 			attribution: 'Trails &copy; <a href=\"https://waymarkedtrails.org/\">Waymarked Trails</a>'
 95 | 		}),
 96 | 		'wmcycling': L.tileLayer('https://tile.waymarkedtrails.org/cycling/{z}/{x}/{y}.png', {
 97 | 			name: 'wmcycling', minZoom: 0, maxZoom: 18,
 98 | 			attribution: 'Trails &copy; <a href=\"https://waymarkedtrails.org/\">Waymarked Trails</a>'
 99 | 		}),
100 | 		'wmmtb': L.tileLayer('https://tile.waymarkedtrails.org/mtb/{z}/{x}/{y}.png', {
101 | 			name: 'wmmtb', minZoom: 0, maxZoom: 18,
102 | 			attribution: 'Trails &copy; <a href=\"https://waymarkedtrails.org/\">Waymarked Trails</a>'
103 | 		}),
104 | 		'wmriding': L.tileLayer('https://tile.waymarkedtrails.org/riding/{z}/{x}/{y}.png', {
105 | 			name: 'wmriding', minZoom: 0, maxZoom: 18,
106 | 			attribution: 'Trails &copy; <a href=\"https://waymarkedtrails.org/\">Waymarked Trails</a>'
107 | 		}),
108 | 		'wmskating': L.tileLayer('https://tile.waymarkedtrails.org/skating/{z}/{x}/{y}.png', {
109 | 			name: 'wmskating', minZoom: 0, maxZoom: 18,
110 | 			attribution: 'Trails &copy; <a href=\"https://waymarkedtrails.org/\">Waymarked Trails</a>'
111 | 		}),
112 | 		'wmslopes': L.tileLayer('https://tile.waymarkedtrails.org/slopemap/{z}/{x}/{y}.png', {
113 | 			name: 'wmslopes', minZoom: 0, maxZoom: 18,
114 | 			attribution: 'Trails &copy; <a href=\"https://waymarkedtrails.org/\">Waymarked Trails</a>'
115 | 		})
116 | 	};
117 | 	// END GENERATED
118 | 	map = L.map('map').setView([52, 11], 3);
119 | 	var control = L.control.layers(base, overlay, { collapsed: false });
120 | 	map.addControl(control);
121 | 	map.addLayer(base.mapnik);
122 | 
123 | 	if( /(\d+)\/([0-9.-]+)\/([0-9.-]+)/.test(window.location.href) )
124 | 		processURL(window.location.href);
125 | }
126 | 
127 | function processURL(url) {
128 | 	var m, lat, lon, zoom = -1, layer;
129 | 	if( url.indexOf('lat=') > 0 ) {
130 | 		m = /[?&]lat=([0-9.-]+)/.exec(url);
131 | 		if( m ) lat = m[1];
132 | 		m = /[?&]lon=([0-9.-]+)/.exec(url);
133 | 		if( m ) lon = m[1];
134 | 		m = /[?&]zoom=([0-9.-]+)/.exec(url);
135 | 		zoom = m ? m[1] : 12;
136 | 	} else {
137 | 		m = /(\d+)\/([0-9.-]+)\/([0-9.-]+)/.exec(url);
138 | 		if( m ) {
139 | 			zoom = m[1];
140 | 			lat	= m[2];
141 | 			lon = m[3];
142 | 		}
143 | 	}
144 | 	if( !lat || !lon )
145 | 		return;
146 | 	m = /[?&#]layers?=([0-9A-Za-z])/.exec(url);
147 | 	var l = m ? m[1] : '';
148 | 	if( /(?:osm|openstreetmap)\.org/.test(url) ) {
149 | 		if( l == 'C' ) layer = 'cyclemap';
150 | 		else if( l == 'T' ) layer = 'transport';
151 | 		else if( l == 'Q' ) layer = 'mapquest';
152 | 		else if( l == 'H' ) layer = 'humanitarian';
153 | 		else layer = 'mapnik';
154 | 	} else if( /openstreetmap\.ru/.test(url) ) {
155 | 		if( l == 'M' ) layer = 'mapnik';
156 | 		else if( l == 'Q' ) layer = 'mapquest';
157 | 		else if( l == 'C' ) layer = 'cyclemap';
158 | 		else if( l == 'H' ) layer = 'humanitarian';
159 | 		else layer = 'mapsurfer';
160 | 	} else if( /openstreetmap\.de/.test(url) )
161 | 		layer = 'osm-de';
162 | 	if( !layer || !base[layer] )
163 | 		layer = 'mapnik';
164 | 	map.setView([lat, lon], zoom);
165 | 	if( !map.hasLayer(base[layer]) ) {
166 | 		map.eachLayer(function(l) { map.removeLayer(l); });
167 | 		map.addLayer(base[layer]);
168 | 	}
169 | }
170 | 
171 | function processURLInput() {
172 | 	var input = document.getElementById('url');
173 | 	if( input.value === '' ) return;
174 | 	processURL(input.value);
175 | 	input.value = '';
176 | }
177 | 
178 | // from http://wiki.openstreetmap.org/wiki/Slippy_map_tilenames
179 | function lon2tile(lon, zoom) { return (Math.floor((lon+180)/360*Math.pow(2,zoom))); }
180 | function lat2tile(lat, zoom) { return (Math.floor((1-Math.log(Math.tan(lat*Math.PI/180) + 1/Math.cos(lat*Math.PI/180))/Math.PI)/2 *Math.pow(2,zoom))); }
181 | 
182 | function getdata(f) {
183 | 	var z = map.getZoom(), b = map.getBounds();
184 | 	f.elements['zoom'].value = z;
185 | 	f.elements['xmin'].value = lon2tile(b.getWest(), z);
186 | 	f.elements['xmax'].value = lon2tile(b.getEast(), z);
187 | 	f.elements['ymin'].value = lat2tile(b.getNorth(), z);
188 | 	f.elements['ymax'].value = lat2tile(b.getSouth(), z);
189 | 	var layers = '';
190 | 	map.eachLayer(function(l) {
191 | 		if( layers.length ) layers += '|';
192 | 		layers += l.options.name;
193 | 	});
194 | 	f.elements['tiles'].value = layers;
195 | }
196 | </script>
197 | </body>
198 | </html>
199 | 


--------------------------------------------------------------------------------
/www/queue.php:
--------------------------------------------------------------------------------
  1 | <?php // BigMap 2 queue manager. Written by Ilya Zverev, licensed WTFPL.
  2 | $workpath = '../queue';
  3 | $imgpath = 'result';
  4 | $min_interval = 3600*3;
  5 | $max_queue = 10;
  6 | $email = 'zverik@textual.ru'; // for nominatim
  7 | 
  8 | $redirect = 'https://'.$_SERVER['HTTP_HOST'].rtrim(dirname($_SERVER['PHP_SELF']), '/\\').'/';
  9 | date_default_timezone_set('UTC');
 10 | 
 11 | if( defined('IN_BIGMAP') ) {
 12 | 	// 0. validate number of tiles
 13 | 	$total = ($xmax-$xmin+1) * ($ymax-$ymin+1);
 14 | 	if( $total > (count($layers) > 1 ? $max_tiles / 1.5 : $max_tiles) ) {
 15 | 		echo '<p>Too many tiles for this server. Sorry.</p><p><a href="'.$permalink.'">Return to BigMap</a></p>';
 16 | 		exit;
 17 | 	}
 18 | 	// 1. read queue and check that there were no tasks with given params
 19 | 	$ident = "$zoom,$xmin,$ymin,$xmax,$ymax,$tiles";
 20 | 	$taskid = false;
 21 | 	$queue = @fopen($workpath.'/queue', 'r');
 22 | 	if( $queue ) {
 23 | 		while( !$taskid && ($line = fgets($queue)) !== false ) {
 24 | 			$p = strpos($line, ','.$ident.',');
 25 | 			if( $p > 0 )
 26 | 				$taskid = substr($line, 0, $p);
 27 | 		}
 28 | 		fclose($queue);
 29 | 	}
 30 | 	// 2. if there weren't, add task to queue
 31 | 	if( !$taskid ) {
 32 | 		if( get_queue_pos('_') >= $max_queue ) {
 33 | 			echo '<p>Too many tasks in the queue already. Sorry.</p><p><a href="'.$permalink.'">Return to BigMap</a></p>';
 34 | 			exit;
 35 | 		}
 36 | 		$taskid = get_taskid();
 37 | 		if( !is_dir($workpath.'/tasks') )
 38 | 			mkdir($workpath.'/tasks');
 39 | 		$task = fopen($workpath.'/tasks/'.$taskid, 'w');
 40 | 		if( $task ) {
 41 | 			$place = nominatim(($lat_min + $lat_max) / 2, ($lon_min + $lon_max) / 2);
 42 | 			// start time; status; last time; ident; layer urls; attribution; nominatim response
 43 | 			fwrite($task, time()."\n0,".time()."\n");
 44 | 			fwrite($task, "$ident\n");
 45 | 			fwrite($task, implode('|', $layers)."\n");
 46 | 			fwrite($task, "$attrib_plain\n");
 47 | 			fwrite($task, "$place\n");
 48 | 			fclose($task);
 49 | 			chmod($workpath.'/tasks/'.$taskid, 0666);
 50 | 			$queue = fopen($workpath.'/queue', 'a');
 51 | 			fwrite($queue, "$taskid,$ident,$place\n");
 52 | 			fclose($queue);
 53 | 		}
 54 | 	}
 55 | 	// 3. redirect to the task page
 56 | 	header("Location: ${redirect}queue.php?task=$taskid");
 57 | 	exit;
 58 | }
 59 | 
 60 | function get_taskid() {
 61 | 	$t = '';
 62 | 	for( $i = 0; $i < 3; $i++ )
 63 | 		$t .= chr(rand(97,122));
 64 | 	return $t.(time() - 1390000000);
 65 | }
 66 | 
 67 | function nominatim($lat, $lon) {
 68 | 	global $zoom, $email;
 69 | 	$url = 'https://nominatim.openstreetmap.org/reverse?format=json&zoom='.min($zoom, 8).'&addressdetails=0'
 70 | 			.'&email='.urlencode($email).'&lat='.$lat.'&lon='.$lon;
 71 | 	$response = json_decode(file_get_contents($url), true);
 72 | 	if( isset($response) && isset($response['display_name']) )
 73 | 		return $response['display_name'];
 74 | 	return sprintf('Unknown place (%.1f°%s, %.1f°%s)', abs($lat), $lat < 0 ? 'S' : 'N', abs($lon), $lon < 0 ? 'W' : 'E');
 75 | }
 76 | 
 77 | function get_queue_pos($taskid) {
 78 | 	global $workpath;
 79 | 	$queue = fopen($workpath.'/queue', 'r');
 80 | 	if( !$queue )
 81 | 		return 999;
 82 | 	$found_done = false;
 83 | 	$done = @fopen($workpath.'/done', 'r');
 84 | 	if( $done ) {
 85 | 		while( ($donetask = fgets($done)) !== false ) {
 86 | 			$donetask = chop($donetask);
 87 | 			if( $donetask == $taskid )
 88 | 				$found_done = true;
 89 | 			while( ($line = fgets($queue)) !== false ) {
 90 | 				if( substr($line, 0, strlen($donetask)+1 ) == $donetask.',' )
 91 | 					break;
 92 | 			}
 93 | 		}
 94 | 		fclose($done);
 95 | 	}
 96 | 	$cnt = 0;
 97 | 	while( ($line = fgets($queue)) !== false ) {
 98 | 		$cnt++;
 99 | 		if( substr($line, 0, strlen($taskid)+1 ) == $taskid.',' ) {
100 | 			$found_done = false;
101 | 			break;
102 | 		}
103 | 	}
104 | 	fclose($queue);
105 | 	return $found_done ? 0 : $cnt;
106 | }
107 | 
108 | ?>
109 | <!doctype html>
110 | <html>
111 | <head>
112 | <title>BigMap 2</title>
113 | <meta charset="utf-8">
114 | <meta name="robots" content="noindex, nofollow">
115 | </head>
116 | <body>
117 | <?php
118 | 
119 | $taskid = isset($_REQUEST['task']) ? $_REQUEST['task'] : '';
120 | if( preg_match('/^[a-z]+\d+$/', $taskid) ) {
121 | 	$task = @file($workpath.'/tasks/'.$taskid);
122 | 	if( $task !== false ) {
123 | 		// task found
124 | 		$statusar = explode(',', chop($task[1]));
125 | 		if( isset($_REQUEST['restart']) && time() - $statusar[1] > $min_interval ) {
126 | 			$task[1] = '0,'.time()."\n";
127 | 			if( $ftask = fopen($workpath.'/tasks/'.$taskid, 'w') ) {
128 | 				foreach( $task as $taskline )
129 | 					fwrite($ftask, $taskline);
130 | 				fclose($ftask);
131 | 				$queue = fopen($workpath.'/queue', 'a');
132 | 				fwrite($queue, $taskid.','.chop($task[2]).','.chop($task[5])."\n");
133 | 				fclose($queue);
134 | 			}
135 | 		}
136 | 		$statusid = $statusar[0];
137 | 		if( $statusid == 0 ) $status = 'queued';
138 | 		elseif( $statusid == 1 ) $status = 'processing';
139 | 		elseif( $statusid == 2 ) $status = 'ready';
140 | 		elseif( $statusid == 3 ) $status = 'failed';
141 | 		elseif( $statusid < 0 ) $status = 'error, waiting';
142 | 		else $status = 'unknown status';
143 | 		$queuepos = get_queue_pos($taskid);
144 | 		$ident = explode(',', chop($task[2]));
145 | 		$link = $redirect.'bigmap.php?xmin='.$ident[1].'&ymin='.$ident[2].'&xmax='.$ident[3].'&ymax='.$ident[4].'&zoom='.$ident[0].'&tiles='.$ident[5];
146 | ?>
147 | 		<h1>Task <?=$taskid ?>: <?=$status ?></h1>
148 | 		<p><a href="<?=$link ?>"><?=htmlspecialchars(chop($task[5])) ?></a></p>
149 | 		<p><?=$ident[3]-$ident[1]+1 ?>x<?=$ident[4]-$ident[2]+1 ?> tiles at zoom <?=$ident[0] ?>; layers: <?=join(', ', explode('|', $ident[5])) ?>.</p>
150 | 		<p>Opened on <?=date('Y-m-d H:i', chop($task[0])) ?>, last updated on <?=date('Y-m-d H:i', $statusar[1]) ?>.</p>
151 | <?php
152 | 		if( $queuepos > 0 ) {
153 | 			echo "<p>Queue position: $queuepos. Refresh this page in ".($queuepos*2+1)."-".($queuepos*3+1)." minutes to download your image.</p>";
154 | 		} elseif( time() - $statusar[1] > $min_interval ) {
155 | 			echo '<p><a href="queue.php?task='.$taskid.'&restart=1" rel="nofollow">Restart task</a></p>';
156 | 		} else {
157 | 			echo '<p>You can return here later to refresh the image.</p>';
158 | 		}
159 | 
160 | 		// list all generated images
161 | 		if( $dh = opendir($imgpath) ) {
162 | 			$taskidlen = strlen($taskid);
163 | 			$images = array();
164 | 			while( false !== ($filename = readdir($dh)) ) {
165 | 				if( substr($filename, 0, $taskidlen) == $taskid )
166 | 					$images[] = $filename;
167 | 			}
168 | 			closedir($dh);
169 | 
170 | 			if( count($images) ) {
171 | 				echo '<h2>Generated images</h2>';
172 | 				rsort($images);
173 | 				foreach( $images as $image ) {
174 | 					$name = substr($image, $taskidlen + 5, 2).'.'.substr($image, $taskidlen + 3, 2).'.'.substr($image, $taskidlen + 1, 2)
175 | 						.' '.substr($image, $taskidlen + 8, 2).':'.substr($image, $taskidlen + 10, 2);
176 | 					$meta = $link.'&basename='.preg_replace('/\.\w+$/', '', $image).'&action';
177 | 					echo "<a href=\"$imgpath/$image\">$name</a> <a href=\"$meta=ozimap\">.map</a> <a href=\"$meta=wld\">.wld</a> <a href=\"$meta=kml\">.kml</a><br>\n";
178 | 				}
179 | 				echo '<p>Note that images will be purged in a couple of weeks.</p>';
180 | 			}
181 | 		}
182 | 	} else {
183 | 		echo '<h1>Task was not found</h1>';
184 | 	}
185 | 	echo '<p style="margin-top: 2em;"><a href="queue.php">List all tasks</a></p>';
186 | } else {
187 | 	// list all tasks
188 | 	echo '<h1><a href="index.html">BigMap 2</a> Download Queue</h1>';
189 | 	$queue = fopen($workpath.'/queue', 'r');
190 | 	if( !$queue ) {
191 | 		echo '<p>Error: queue was not found.</p>';
192 | 		exit;
193 | 	}
194 | 	$tasks_done = array();
195 | 	$tasks_pending = array();
196 | 
197 | 	$done = @fopen($workpath.'/done', 'r');
198 | 	if( $done ) {
199 | 		while( ($donetask = fgets($done)) !== false ) {
200 | 			$donetask = chop($donetask);
201 | 			while( ($line = fgets($queue)) !== false ) {
202 | 				if( substr($line, 0, strlen($donetask)+1 ) == $donetask.',' ) {
203 | 					$tasks_done[] = explode(',', chop($line), 8);
204 | 					break;
205 | 				}
206 | 			}
207 | 		}
208 | 		fclose($done);
209 | 	}
210 | 	while( ($line = fgets($queue)) !== false ) {
211 | 		$tasks_pending[] = explode(',', chop($line), 8);
212 | 	}
213 | 	fclose($queue);
214 | 
215 | 	if( count($tasks_pending) ) {
216 | 		// check for active task
217 | 		$task = @file($workpath.'/tasks/'.$tasks_pending[0][0]);
218 | 		if( $task && substr($task[1], 0, 1) != '0' ) {
219 | 			echo "<h2>Now processing</h2>\n";
220 | 			echo '<p>'.get_task_line($tasks_pending[0])."</p>\n";
221 | 			array_shift($tasks_pending);
222 | 		}
223 | 	}
224 | 
225 | 	if( count($tasks_pending) ) {
226 | 		echo "<h2>Pending tasks</h2>\n<p>\n";
227 | 		foreach( $tasks_pending as $task )
228 | 			echo get_task_line($task)."<br>\n";
229 | 		echo "</p>\n";
230 | 	}
231 | 
232 | 	$cnt = count($tasks_done);
233 | 	if( $cnt ) {
234 | 		$limit = 50;
235 | 		echo "<h2>Finished tasks</h2>\n<p>\n";
236 | 		for( $i = $cnt - 1; $i >= max(0, $cnt - $limit); $i-- )
237 | 			echo get_task_line($tasks_done[$i])."<br>\n";
238 | 		echo "</p>\n";
239 | 		if( $cnt > $limit )
240 | 			echo "<p>".($cnt-$limit)." older tasks were not included.</p>\n";
241 | 	}
242 | }
243 | 
244 | function get_task_line($task) {
245 | 	return '<a href="queue.php?task='.$task[0].'">'
246 | 		.($task[4]-$task[2]+1).'x'.($task[5]-$task[3]+1).' tiles at zoom '.$task[1].'</a>: '.htmlspecialchars($task[7]);
247 | }
248 | ?>
249 | </body>
250 | </html>
251 | 


--------------------------------------------------------------------------------