ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cfmaps/cfmap2html
(Generate patch)

Comparing cfmaps/cfmap2html (file contents):
Revision 1.36 by root, Thu Oct 22 05:11:23 2009 UTC vs.
Revision 1.37 by root, Sat Oct 31 17:26:44 2009 UTC

15# 15#
16# You should have received a copy of the GNU General Public License 16# You should have received a copy of the GNU General Public License
17# along with cfmaps; if not, write to the Free Software 17# along with cfmaps; if not, write to the Free Software
18# Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 18# Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
19 19
20our $VERSION = '2.122'; 20our $VERSION = '2.2';
21 21
22use strict; 22use strict;
23 23
24use List::Util qw(min max); 24use List::Util qw(min max);
25use Deliantra; 25use Deliantra;
40 40
41 if (!-e "$base.png" 41 if (!-e "$base.png"
42 || -M "$base.png" > -M "$base.map") { 42 || -M "$base.png" > -M "$base.map") {
43 # regenerate png and metainfo 43 # regenerate png and metainfo
44 push @cfmap2png, $path; 44 push @cfmap2png, $path;
45 # force xhtml file to be remade as well
46 utime 1, 1, "$base.xhtml";
45 } 47 }
46} 48}
47 49
48system "cfmap2png", @cfmap2png 50system "cfmap2png", @cfmap2png
49 if @cfmap2png; 51 if @cfmap2png;
178 180
179 if ($_ eq "slaying" && $is_exit{$type}) { # door, teleporter, player_changer 181 if ($_ eq "slaying" && $is_exit{$type}) { # door, teleporter, player_changer
180 $a->{msg} =~ /^final_map\s*(\S+)\s*$/m, $v = $1 182 $a->{msg} =~ /^final_map\s*(\S+)\s*$/m, $v = $1
181 if $v eq "/!"; # random map 183 if $v eq "/!"; # random map
182 184
185 if ($v =~ s/^\*//) {
186 print "slaying => <a href='/search?t=$v'>*$v</a>\n";
187 } else {
183 print "slaying => <a href='$v.xhtml'>$v</a>\n"; 188 print "slaying => <a href='$v.xhtml'>$v</a>\n";
189 }
184 } elsif ($_ eq "other_arch") { 190 } elsif ($_ eq "other_arch") {
185 print "$_ => <a href='/a/$a->{$_}'>$v</a>\n"; 191 print "$_ => <a href='/a/$a->{$_}'>$v</a>\n";
186 } elsif ($_ eq "inventory") { 192 } elsif ($_ eq "inventory") {
187 print "inventory =>\n"; 193 print "inventory =>\n";
188 print_archs ($a->{$_}); 194 print_archs ($a->{$_});

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines