| 1 | #!/usr/bin/perl -w |
| 2 | |
| 3 | use File::Copy qw/copy move/; |
| 4 | use Digest::file qw/digest_file_hex/; |
| 5 | |
| 6 | $moveinsteadofcopy = 0; |
| 7 | $noreplace = 0; |
| 8 | $skipvoidtiles = 0; |
| 9 | $verblev = 2; |
| 10 | |
| 11 | @voidtilesizes = ( 334, 854 ); |
| 12 | @voidtilehashes = ( |
| 13 | '1cf52aed67c3ebf045f2fd2996ada35545517129e673dba00ef97c7d18275f144aa67b012556ec8a840fca158f6976e7cf30fcae030acd493e26e28fdff10ca3', |
| 14 | '1feba96da5f6fa6049d7b40dc72295058eabb7e771040dedc8a69527046aa34fdaaf98e676ed8d02e95770dc635b5d4bf292fdd19be3c381847d3883995d3f3f', |
| 15 | '609e45a0c39d961302ed560d9d8bffd798fdbcc912c3875c06ba1faa1fab83cce8d97f257d572138898d2d99fb5a7af80801080bb7be9688e029fce4a9c56f5f' |
| 16 | ); |
| 17 | |
| 18 | # Par. 0: Level on which this gets printed |
| 19 | # Par. 1: Text |
| 20 | sub printlev($$) { |
| 21 | if ($verblev >= $_[0]) { |
| 22 | print($_[1]); |
| 23 | } |
| 24 | } |
| 25 | |
| 26 | sub showhelpandexit() { |
| 27 | print("Syntax: $0 sourcedirectoy destinationdirectory\n"); |
| 28 | exit(1); |
| 29 | } |
| 30 | |
| 31 | sub handlexdir($$$) { |
| 32 | my $z = $_[2]; |
| 33 | my $srcdir = $_[0]; |
| 34 | my $dstdir = $_[1]; |
| 35 | my $dh; |
| 36 | unless (opendir($dh, $srcdir)) { |
| 37 | print(STDERR "failed to read sourcedirectoy '$srcdir' for zoomlevel $z.\n"); |
| 38 | exit(1); |
| 39 | } |
| 40 | unless (-d $dstdir) { |
| 41 | printlev(2, "MKDIR 'dstdir'\n"); |
| 42 | unless (mkdir($dstdir)) { |
| 43 | print(STDERR "Destination directory '$dstdir' for zoomlevel $z does not exist and could not be created: $!\n"); |
| 44 | return; |
| 45 | } |
| 46 | } |
| 47 | while (my $de = readdir($dh)) { |
| 48 | if ($de =~ m/^(\d+)\.png$/) { # just a number dot png => handle this. |
| 49 | my $ynr = $1; |
| 50 | my $correctedynr = ((2 ** $z) - 1) - $ynr; |
| 51 | my $srcname = $srcdir . '/' . $de; |
| 52 | my $dstname = sprintf("%s/%d.png", $dstdir, $correctedynr); |
| 53 | if ($noreplace) { |
| 54 | if (-e $dstname) { |
| 55 | printlev(2, "SKIP '$srcname' ('$dstname' already exists)\n"); |
| 56 | next; |
| 57 | } |
| 58 | } |
| 59 | if ($skipvoidtiles) { |
| 60 | my $fsize = -s $srcname; |
| 61 | if ($fsize ~~ @voidtilesizes) { # One of the relevant filesizes, no |
| 62 | # point in even computing the hash otherwise. |
| 63 | my $sha512 = digest_file_hex($srcname, "SHA-512"); |
| 64 | printlev(3, "HASH $srcname -> $sha512\n"); |
| 65 | if ($sha512 ~~ @voidtilehashes) { # OK, one of the void hashes -> skip |
| 66 | printlev(2, "SKIP '$srcname' (it has the hash of a void file)\n"); |
| 67 | next; |
| 68 | } |
| 69 | } |
| 70 | } |
| 71 | if ($moveinsteadofcopy) { |
| 72 | printlev(2, "MOVE '$srcname' '$dstname'\n"); |
| 73 | move($srcname, $dstname); |
| 74 | } else { |
| 75 | printlev(2, "COPY '$srcname' '$dstname'\n"); |
| 76 | copy($srcname, $dstname); |
| 77 | } |
| 78 | } |
| 79 | } |
| 80 | closedir($dh); |
| 81 | } |
| 82 | |
| 83 | sub handlezoomdir($$$) { |
| 84 | my $z = $_[2]; |
| 85 | my $srcdir = $_[0] . '/' . $z; |
| 86 | my $dstdir = $_[1] . '/' . $z; |
| 87 | unless (-d $srcdir) { |
| 88 | printlev(1, "sourcedirectoy '$srcdir' for zoomlevel $z does not exist, skipping.\n"); |
| 89 | return; |
| 90 | } |
| 91 | my $dh; |
| 92 | unless (opendir($dh, $srcdir)) { |
| 93 | print(STDERR "failed to read sourcedirectoy '$srcdir' for zoomlevel $z.\n"); |
| 94 | exit(1); |
| 95 | } |
| 96 | unless (-d $dstdir) { |
| 97 | printlev(2, "MKDIR '$dstdir'\n"); |
| 98 | unless (mkdir($dstdir)) { |
| 99 | print(STDERR "Destination directory '$dstdir' for zoomlevel $z does not exist and could not be created: $!\n"); |
| 100 | exit(1); |
| 101 | } |
| 102 | } |
| 103 | while (my $de = readdir($dh)) { |
| 104 | if ($de =~ m/^\d+$/) { # just a number -> handle this directory. |
| 105 | handlexdir($srcdir . '/' . $de, $dstdir . '/' . $de, $z); |
| 106 | } |
| 107 | } |
| 108 | closedir($dh); |
| 109 | } |
| 110 | |
| 111 | my $srcdir = undef; |
| 112 | my $dstdir = undef; |
| 113 | foreach $a (@ARGV) { |
| 114 | if ($a eq '--move') { |
| 115 | $moveinsteadofcopy = 1; |
| 116 | } elsif ($a eq '--noreplace') { |
| 117 | $noreplace = 1; |
| 118 | } elsif ($a eq '--skipvoidtiles') { |
| 119 | $skipvoidtiles = 1; |
| 120 | } elsif ($a eq '--help') { |
| 121 | showhelpandexit(); |
| 122 | } elsif ($a eq '-q') { |
| 123 | $verblev--; |
| 124 | } elsif ($a eq '-v') { |
| 125 | $verblev++; |
| 126 | } else { # This will be interpreted as a directory name |
| 127 | if (!defined($srcdir)) { |
| 128 | $srcdir = $a; |
| 129 | } elsif (!defined($dstdir)) { |
| 130 | $dstdir = $a; |
| 131 | } else { # More than 2 directory names? That is wrong. |
| 132 | showhelpandexit(); |
| 133 | } |
| 134 | } |
| 135 | } |
| 136 | unless (-d $srcdir) { |
| 137 | print(STDERR "Source directory '$srcdir' does not seem to exist or is not a directory?\n"); |
| 138 | exit(1); |
| 139 | } |
| 140 | unless (-d $dstdir) { |
| 141 | unless (mkdir($dstdir)) { |
| 142 | print(STDERR "Destination directory '$dstdir' does not exist and could not be created: $!\n"); |
| 143 | exit(1); |
| 144 | } |
| 145 | } |
| 146 | for (my $z = 0; $z < 30; $z++) { |
| 147 | handlezoomdir($srcdir, $dstdir, $z); |
| 148 | } |