countries.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => 'country code cheat sheet',
   5         version => 'v1.0',
   6         description =>
   7                 "Table of ISO-3166-1 country codes with the names of reserved territories.",
   8         keywords => [qw'country code cc tld cctld continent territory land table'],
   9         stylesheet => [qw'light dark circus mono red'],
  10 });
  11
  12 :>
  13 <h1>ISO-3166-1α2 Country codes</h1>
  14
  15 <:
  16 my $cc = do 'countries.inc.pl';
  17
  18 {
  19         printf '<table class="mcmap">';
  20         print '<col><colgroup span="26">';
  21         for my $section (qw{thead}) {
  22                 print "<$section><tr><th>↳";
  23                 print '<th>', $_ for 'a' .. 'z';
  24                 print "\n";
  25         }
  26         print '<tbody>';
  27         for my $row ('a' .. 'z') {
  28                 print '<tr><th>', $row;
  29                 for my $col ('a' .. 'z') {
  30                         my $code = $row . $col;
  31                         my $country = $cc->{$code} or do {
  32                                 print $code =~ /^x|^q[m-z]|^aa|^zz/ ? '<td class="X Co">' : '<td>';
  33                                 next;
  34                         };
  35                         my ($name, $class, $short, $ref) = @$country;
  36                         $ref ||= $code;
  37                         local $_ = $ref;
  38                         if (exists $get{show}) {
  39                                 my $img = "flag/$ref.png";
  40                                 $_ = sprintf '<img src="/%s" alt="%s">', $img, $ref if -e $img;
  41                         }
  42                         else {
  43                                 $_ = EscapeHTML($short || $name);
  44                         }
  45                         printf "\n".'<td class="%s" title="%s">%s',
  46                                 $_ ? 'X '.$class : '', EscapeHTML("$code: $name"), $_;
  47                 }
  48                 print "\n";
  49         }
  50         print "</table>\n";
  51 }
  52
  53 :>
  54 <hr>
  55
  56 <div class="legend">
  57         <table class="glyphs"><tr>
  58         <td class="X c-af">africa
  59         <td class="X c-eu">europe
  60         <td class="X c-as">asia
  61         <td class="X c-an">antarctica
  62         <td class="X c-oc">oceania
  63         <td class="X c-sa">south america
  64         <td class="X c-na">north america
  65         <td class="X Xr">reserved
  66         <td class="X Xi">unused
  67         <td class="">free
  68         <td class="X Co">user-assigned
  69         </table>
  70
  71         <div class="right">
  72                 <ul class="legend legend-set">
  73                 <li><strong>show</strong>
  74                         <em><:= exists $get{show} ? 'flag images' : 'english names' :></em><:=
  75                                 !exists $get{show} && ' by default' :>
  76                 <li>default <strong>style</strong> is
  77                         <:= defined $get{style} && 'set to ' :><em><:= $style :></em>
  78                 </ul>
  79         </div>
  80 </div>
  81