| … | |
… | |
| 46 | } |
46 | } |
| 47 | |
47 | |
| 48 | system "cfmap2png", @cfmap2png |
48 | system "cfmap2png", @cfmap2png |
| 49 | if @cfmap2png; |
49 | if @cfmap2png; |
| 50 | |
50 | |
|
|
51 | Deliantra::load_archetypes; |
|
|
52 | |
| 51 | for my $path (@ARGV) { |
53 | for my $path (@ARGV) { |
| 52 | (my $base = $path) =~ s/\.map//; |
54 | (my $base = $path) =~ s/\.map//; |
| 53 | if (!-e "$base.xhtml" |
55 | if (!-e "$base.xhtml" |
| 54 | || -M "$base.xhtml" > -M "$base.map") { |
56 | || -M "$base.xhtml" > -M "$base.map") { |
| 55 | |
57 | |
| 56 | Deliantra::load_archetypes |
|
|
| 57 | unless %ARCH; |
|
|
| 58 | |
|
|
| 59 | my $meta = read_arch "$base.map"; |
58 | my $meta = eval { read_arch "$base.map" } |
|
|
59 | or next; |
| 60 | my $arch = $meta->{arch}; |
60 | my $arch = $meta->{arch}; |
| 61 | |
61 | |
| 62 | open my $fh, ">:utf8", "$base.xhtml" |
62 | open my $fh, ">:utf8", "$base.xhtml" |
| 63 | or die "$base.xhtml: $!"; |
63 | or die "$base.xhtml: $!"; |
| 64 | |
64 | |
