X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/c26d5da0a9b989982e7897ff5712d0fc79a714b4..61672b1912da0a1b1669259718e04b268367f98e:/cc.plp?ds=inline diff --git a/cc.plp b/cc.plp index 48b9910..b36d744 100644 --- a/cc.plp +++ b/cc.plp @@ -13,9 +13,15 @@ $header{content_type} = 'text/html; charset=utf-8';
+â±"; print ' | ', $_ for 'a' .. 'z'; @@ -49,10 +55,32 @@ sub quote { print $code =~ /^x|^q[m-z]|^aa|^zz/ ? ' | ' : ' | '; next; }; - my $img = sprintf '', $code, $code - if -e "flag/$code.png"; + my ($name, $class, $short, $ref) = @$country; + $ref ||= $code; + local $_ = $ref; + if (exists $get{show}) { + my $img = "flag/$ref.png"; + $_ = sprintf '', $img, $ref if -e $img; + } + else { + $_ = $short || $name; + s/,.*//; + s/(?<=.)\(.*\)\s*//; + s/ republic\b//gi; + s/ islands?\b//gi; + s/\bthe //g; + s/ and / & /g; + s/\bsaint /st /gi; + s/South /S-/g; + s/North /N-/g; + s/New /n./g; + s/(\S)(\S+)-/$1-/g; # strip most chars preceding dash + s/(\S{4}[b-df-hj-np-tv-xz])(\S{2,})/$1./g; # abbreviate (at consonant) + $_ = quote($_); + } + $name =~ s/([^,]*), (.*)/$2 $1/; printf "\n".' | %s', - $img ? 'X '.$country->[1] : '', quote($country->[0]), $img; + $_ ? 'X '.$class : '', quote("$code: $name"), $_; } print "\n"; } @@ -67,21 +95,23 @@ sub quote { | africa | europe | asia - | oceania | antarctica + | oceania | south america | north america - | reserved + | reserved | user-assigned |
---|