| … | |
… | |
| 34 | sub print_arch { |
34 | sub print_arch { |
| 35 | my ($a) = @_; |
35 | my ($a) = @_; |
| 36 | print "<ul>"; |
36 | print "<ul>"; |
| 37 | for (sort keys %$a) { |
37 | for (sort keys %$a) { |
| 38 | next if $_ eq "_name"; |
38 | next if $_ eq "_name"; |
|
|
39 | next if $_ eq "_atype"; |
| 39 | my $v = escape_html $a->{$_}; |
40 | my $v = escape_html $a->{$_}; |
| 40 | |
41 | |
| 41 | print "<li>"; |
42 | print "<li>"; |
| 42 | if ($_ eq "more") { |
43 | if ($_ eq "more") { |
| 43 | print "more =>\n"; |
44 | print "more =>\n"; |
| 44 | print_arch ($a->{more}); |
45 | print_arch ($a->{more}); |
| 45 | } elsif ($_ eq "other_arch") { |
46 | } elsif ($_ eq "other_arch") { |
| 46 | print "$_ => <a href='#$a->{$_}'>$v</a>\n"; |
47 | print "$_ => <a href='$a->{$_}'>$v</a>\n"; |
| 47 | } elsif ($_ eq "msg" || $_ eq "lore") { |
48 | } elsif ($_ eq "msg" || $_ eq "lore") { |
| 48 | print "$_ =><p class='m'>$v</p>"; |
49 | print "$_ =><p class='m'>$v</p>"; |
| 49 | } else { |
50 | } else { |
| 50 | print "$_ => $v\n"; |
51 | print "$_ => $v\n"; |
| 51 | } |
52 | } |
| … | |
… | |
| 64 | |
65 | |
| 65 | print "<?xml version='1.0' encoding='utf-8'?>", |
66 | print "<?xml version='1.0' encoding='utf-8'?>", |
| 66 | '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">', |
67 | '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">', |
| 67 | "<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='en'>", |
68 | "<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='en'>", |
| 68 | "<head>", |
69 | "<head>", |
| 69 | "<title>Crossfire Archetype '$name'</title>", |
70 | "<title>Deliantra Archetype '$name'</title>", |
| 70 | "<link rel='stylesheet' type='text/css' media='all' href='/common.css'/>", |
71 | "<link rel='stylesheet' type='text/css' media='all' href='/common.css'/>", |
| 71 | "</head>", |
72 | "</head>", |
| 72 | "<body>", |
73 | "<body>", |
| 73 | "<h1>Crossfire Archetype '$name'</h1>"; |
74 | "<h1>Deliantra Archetype '$name'</h1>"; |
| 74 | |
75 | |
| 75 | print_arch $ARCH{$name}; |
76 | print_arch $ARCH{$name}; |
| 76 | |
77 | |
| 77 | print "<p class='footer'>created by <a href='http://software.schmorp.de/pkg/cfmaps'>cfarch2html</a> version $VERSION</p>", |
78 | print "<p class='footer'>created by <a href='http://software.schmorp.de/pkg/cfmaps'>cfarch2html</a> version $VERSION</p>", |
| 78 | "</body></html>"; |
79 | "</body></html>"; |
