<html>
<head>
+<meta http-equiv="content-type" content="<:= $header{content_type} :>">
<title>country code cheat sheet</title>
-<meta http-equiv="content-type" content="utf-8">
<link rel="stylesheet" type="text/css" media="all" href="/base.css">
</head>
}
{
- printf '<table class="glyphs">';
+ printf '<table class="glyphs ccmap">';
print '<col>';
for my $section (qw{thead}) {
print "<$section><tr><th>↱";
print $code =~ /^x|^q[m-z]|^aa|^zz/ ? '<td class="X Co">' : '<td>';
next;
};
+ $code = $country->[2] if defined $country->[2];
my $img = sprintf '<img src="/flag/%s.png" alt="%s">', $code, $code
if -e "flag/$code.png";
printf "\n".'<td class="%s" title="%s">%s',