| … | |
… | |
| 35 | |
35 | |
| 36 | print "<?xml version='1.0' encoding='utf-8'?>", |
36 | print "<?xml version='1.0' encoding='utf-8'?>", |
| 37 | '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">', |
37 | '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">', |
| 38 | "<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='en'>", |
38 | "<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='en'>", |
| 39 | "<head>", |
39 | "<head>", |
| 40 | "<title>Crossfire Worldmap</title>", |
40 | "<title>Deliantra Worldmap</title>", |
| 41 | "<link rel='stylesheet' type='text/css' media='all' href='/common.css'/>\n", |
41 | "<link rel='stylesheet' type='text/css' media='all' href='/common.css'/>\n", |
| 42 | "</head>", |
42 | "</head>", |
| 43 | "<body><h1>Crossfire Worldmap</h1><table class='tilemap'>"; |
43 | "<body><h1>Deliantra Worldmap</h1><table class='tilemap'>"; |
| 44 | |
44 | |
| 45 | for my $y (@H) { |
45 | for my $y (@H) { |
| 46 | print "<tr>"; |
46 | print "<tr>"; |
| 47 | for my $x (@W) { |
47 | for my $x (@W) { |
| 48 | print "<td><a href='world_$x\_$y.xhtml'><img src='world_$x\_$y.jpg'/></a></td>"; |
48 | print "<td><a href='world_$x\_$y.xhtml'><img src='world_$x\_$y.jpg'/></a></td>"; |
