Commit | Line | Data |
---|---|---|
1af272b1 MM |
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 | } |