… | |
… | |
103 | print HTML $output; |
103 | print HTML $output; |
104 | close HTML; |
104 | close HTML; |
105 | } |
105 | } |
106 | } |
106 | } |
107 | |
107 | |
|
|
108 | my @rightbar; |
|
|
109 | push @rightbar, "src/images/monsters/$_.png" |
|
|
110 | for @{ $static->{rightbar} }; |
|
|
111 | my @leftbar; |
|
|
112 | push @leftbar, "src/images/runes/$_.png" |
|
|
113 | for @{ $static->{leftbar} }; |
|
|
114 | |
108 | generate "src", "html", @files; |
115 | generate "src", "html", @files; |
109 | generate "monsters", "html\/monsters", @monsters; |
116 | generate "monsters", "html\/monsters", @monsters; |
110 | |
117 | |
|
|
118 | system "montage", "-background", "none", "+frame", "+shadow", "+label", "-geometry", "+0+0", "-tile", "1x15", @rightbar, "html/images/monsters-trans.png"; |
|
|
119 | system "montage", "-background", "none", "+frame", "+shadow", "+label", "-geometry", "+0+0", "-tile", "1x15", @leftbar, "html/images/runes-trans.png"; |
111 | |
120 | |
112 | package PodHTML; |
121 | package PodHTML; |
113 | |
122 | |
114 | use strict; |
123 | use strict; |
115 | use warnings; |
124 | use warnings; |
116 | use utf8; |
125 | use utf8; |
117 | |
126 | |
118 | my $rcsid = '$Id: generate,v 1.14 2007/09/16 12:25:35 pippijn Exp $'; |
127 | my $rcsid = '$Id: generate,v 1.15 2007/09/16 15:24:40 pippijn Exp $'; |
119 | |
128 | |
120 | use base "Pod::POM::View"; |
129 | use base "Pod::POM::View"; |
121 | |
130 | |
122 | our $subdir; |
131 | our $subdir; |
123 | our $dir; |
132 | our $dir; |