… | |
… | |
102 | my $W2 = $W + 600; |
102 | my $W2 = $W + 600; |
103 | |
103 | |
104 | my (@path) = split /\//, $path; |
104 | my (@path) = split /\//, $path; |
105 | |
105 | |
106 | print "<?xml version='1.0' encoding='utf-8'?>", |
106 | print "<?xml version='1.0' encoding='utf-8'?>", |
|
|
107 | '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">', |
107 | "<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='en'>", |
108 | "<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='en'>", |
108 | "<head>", |
109 | "<head>", |
109 | "<title>Crossfire Map \"$path\"</title>", |
110 | "<title>Crossfire Map \"$path\"</title>", |
110 | "<link rel='stylesheet' type='text/css' media='all' href='/common.css'/>\n", |
111 | "<link rel='stylesheet' type='text/css' media='all' href='/common.css'/>\n", |
111 | "<link rel='stylesheet' type='text/css' media='all' href='/overlay.css' title='Show Overlays'/>\n", |
112 | "<link rel='stylesheet' type='text/css' media='all' href='/overlay.css' title='Show Overlays'/>\n", |