… | |
… | |
28 | my (@path) = split /\//, $path; |
28 | my (@path) = split /\//, $path; |
29 | |
29 | |
30 | print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\" \"http://www.w3.org/TR/REC-html40/strict.dtd\">", |
30 | print "<!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 | |
46 | print "<table>"; |
47 | print "<table>"; |
47 | |
48 | |
48 | sub print_arch { |
49 | sub print_arch { |
49 | my ($a) = @_; |
50 | my ($a) = @_; |