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

Comparing cfmaps/cfarch2html (file contents):
Revision 1.1 by root, Fri Nov 18 12:04:12 2005 UTC vs.
Revision 1.4 by root, Fri Nov 18 23:20:26 2005 UTC

… …
28my (@path) = split /\//, $path; 28my (@path) = split /\//, $path;
29 29
30print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\" \"http://www.w3.org/TR/REC-html40/strict.dtd\">", 30print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\" \"http://www.w3.org/TR/REC-html40/strict.dtd\">",
31 "<html>", 31 "<html>",
32 "<head>", 32 "<head>",
33 "<title>archetypes</title>", 33 "<title>Crossfire Archetypes</title>",
34 "<style type='text/css'><!--\n", 34 "<style type='text/css'><!--\n",
35 "body { background: white; text-color: black; }\n", 35 "body { background: white; text-color: black; }\n",
36 "a { text-color: blue; }\n", 36 "a { text-color: blue; }\n",
37 "a:hover { text-color: red; }\n", 37 "a:hover { text-color: red; }\n",
38 "a:visited { text-color: #008; }\n", 38 "a:visited { text-color: #008; }\n",
39 39
40 "li { white-space: pre; }\n", 40 "li { white-space: pre; }\n",
41 "p.m { white-space: pre; margin-left: 2em; background: #ddd; padding: 2px; border: 1px solid black; }\n", 41 "p.m { white-space: pre; margin-left: 2em; background: #ddd; padding: 2px; border: 1px solid black; }\n",
42 "-->\n</style>", 42 "-->\n</style>",
43 "</head>", 43 "</head>",
44 "<body>"; 44 "<body>",
45 "<h1>Crossfire Archetypes</h1>";
45 46
46print "<table>"; 47print "<table>";
47 48
48sub print_arch { 49sub print_arch {
49 my ($a) = @_; 50 my ($a) = @_;
… …
57 print "more =>\n"; 58 print "more =>\n";
58 print_arch ($a->{more}); 59 print_arch ($a->{more});
59 } elsif ($_ eq "other_arch") { 60 } elsif ($_ eq "other_arch") {
60 print "$_ => <a href='#", (lc $a->{$_}), "'>$v</a>\n"; 61 print "$_ => <a href='#", (lc $a->{$_}), "'>$v</a>\n";
61 } elsif ($_ eq "msg" || $_ eq "lore") { 62 } elsif ($_ eq "msg" || $_ eq "lore") {
62 print "<p class='m'>$v</p>"; 63 print "$_ =><p class='m'>$v</p>";
63 } else { 64 } else {
64 print "$_ => $v\n"; 65 print "$_ => $v\n";
65 } 66 }
66 print "</li>"; 67 print "</li>";
67 } 68 }
… …
71 print "<tr valign='top'><th align='left'><a name='", (lc $name), "'>$name</a></th><td>"; 72 print "<tr valign='top'><th align='left'><a name='", (lc $name), "'>$name</a></th><td>";
72 print_arch $arch->{$name}; 73 print_arch $arch->{$name};
73 print "</td></tr>"; 74 print "</td></tr>";
74} 75}
75 76
76print "</table><hr/><p style='font-size: 6pt'>created by <b>cfarch2html</b> version $VERSION</p>", 77print "</table><hr/><p style='font-size: 8pt'>created by <b>cfarch2html</b> version $VERSION</p>",
77 "</body></html>"; 78 "</body></html>";
78 79
79close $fh; 80close $fh;
80 81
81system "gzip", "-7f", "archetypes.html"; 82system "gzip", "-7f", "archetypes.html";
82__END__
83
84 print_archs $as;
85 print "</div></span>";
86 }
87 print "</td>";
88 }
89 print "</tr>";
90}
91
92}
93

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines