… | |
… | |
43 | my $H = $meta->{height} * $T; |
43 | my $H = $meta->{height} * $T; |
44 | |
44 | |
45 | my (@path) = split /\//, $path; |
45 | my (@path) = split /\//, $path; |
46 | |
46 | |
47 | print "<?xml version='1.0' encoding='utf-8'?>", |
47 | print "<?xml version='1.0' encoding='utf-8'?>", |
48 | "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1//EN\" \"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd\">", |
|
|
49 | "<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='en'>", |
48 | "<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='en'>", |
50 | "<head>", |
49 | "<head>", |
51 | "<title>Crossfire Archetypes</title>", |
50 | "<title>Crossfire Archetypes</title>", |
52 | "<link rel='stylesheet' type='text/css' media='all' href='/common.css'/>", |
51 | "<link rel='stylesheet' type='text/css' media='all' href='/common.css'/>", |
53 | "</head>", |
52 | "</head>", |