#! /usr/local/bin/perl -c
package net_country_code;
##
## sub get(char *code);
##    -- 指定された country code に対応する国名を返す
##

sub init {
local($codes_) = <<EOB;
AD   Andorra
AE   United Arab Emirates
AF   Afghanistan(Islamic St.)
AG   Antigua and Barbuda
AI   Anguilla
AL   Albania
AM   Armenia    Ex-USSR
AN   Netherland Antilles
AO   Angola (Republic of)
AQ   Antarctica    intermittent    luxor.cc.waikato.ac.nz
AR   Argentina
AS   American Samoa
AT   Austria
AU   Australia
AW   Aruba
AZ   Azerbaijan    Ex-USSR
BA   Bosnia-Herzegovina
BB   Barbados
BD   Bangladesh
BE   Belgium
BF   Burkina Faso
BG   Bulgaria
BH   Bahrain
BI   Burundi
BJ   Benin
BM   Bermuda
BN   Brunei Darussalam
BO   Bolivia
BR   Brazil
BS   Bahamas
BT   Bhutan
BV   Bouvet Island
BW   Botswana
BY   Belarus    Ex-USSR
BZ   Belize 
CA   Canada
CC   Cocos (Keeling) Isl.
CF   Central African Rep.
CG   Congo
CH   Switzerland
CI   Ivory Coast
CK   Cook Islands
CL   Chile
CM   Cameroon
CN   China
CO   Colombia
CR   Costa Rica
CU   Cuba 
CV   Cape Verde
CX   Christmas Island
CY   Cyprus 
CZ   Czech Republic
DE   Germany
DJ   Djibouti
DK   Denmark
DM   Dominica
DO   Dominican Republic
DZ   Algeria
EC   Ecuador
EE   Estonia
EG   Egypt
EH   Western Sahara
ER   Eritrea
ES   Spain
ET   Ethiopia
FI   Finland
FJ   Fiji 
FK   Falkland Isl.(Malvinas)
FM   Micronesia
FO   Faroe Islands
FR   France
FX   France (European Ter.)
GA   Gabon
GB   Great Britain (UK)
GD   Grenada
GE   Georgia    Ex-USSR
GF   Guiana (Fr.)
GG   Guernsey (Ch. Isl)
GH   Ghana
GI   Gibraltar
GL   Greenland
GM   Gambia
GN   Guinea                PI    dial-IP
GP   Guadeloupe (r.)
GQ   Equatorial Guinea
GR   Greece 
GS   South Georgia and South Sandwich Islands
GT   Guatemala
GU   Guam (US)  in US domains
GW   Guinea Bissau
GY   Guyana 
HK   Hong Kong
HM   Heard & McDonald Isl.
HN   Honduras
HR   Croatia
HT   Haiti
HU   Hungary
ID   Indonesia
IE   Ireland
IL   Israel
IN   India
IM   Isle o Man
IO   British Indian O. Terr.
IQ   Iraq
IR   Iran
IS   Iceland
IT   Italy
JE   Jersey (Ch. Isl.)
JM   Jamaica
JO   Jordan 
JP   Japan
KE   Kenya
KG   Kyrgyz Republic    Ex-USSR (in .su domain)
KH   Cambodia
KI   Kiribati
KM   Comoros
KN   St.Kitts Nevis Anguilla
KP   Korea (North)
KR   Korea (South)
KW   Kuwait     No BITNET
KY   Cayman Islands
KZ   Kazakstan    Ex-USSR
LA   Laos
LB   Lebanon
LC   Saint Lucia
LI   Liechtenstein
LK   Sri Lanka
LR   Liberia
LS   Lesotho
LT   Lithuania    Ex-USSR
LU   Luxembourg
LV   Latvia     Ex-USSR
LY   Libya
MA   Morocco
MC   Monaco 
MD   Moldova    Ex-USSR
MG   Madagascar
MH   Marshall Islands
MK   Macedonia (ormer Yug.)I
ML   Mali 
MM   Myanmar
MN   Mongolia
MO   Macau
MP   Northern Mariana Isl.
MQ   Martinique (r.)
MR   Mauritania
MS   Montserrat
MT   Malta
MU   Mauritius
MV   Maldives
MW   Malawi
MX   Mexico 
MY   Malaysia
MZ   Mozambique
NA   Namibia
NC   New Caledonia (r.)
NE   Niger
N   Norolk Island
NG   NigeriaI
NI   Nicaragua
NL   Netherlands
NO   Norway
NP   Nepal
NR   Nauru
NU   Niue
NZ   New Zealand
OM   Oman 
PA   Panama
PE   Peru 
P   Polynesia (r.)
PG   Papua New Guinea
PH   Philippines
PK   Pakistan
PL   Poland
PM   St. Pierre & Miquelon
PN   Pitcairn
PR   Puerto Rico (US)
PT   Portugal
PW   Palau
PY   Paraguay
QA   Qatar
RE   Reunion (r.)    In .r domain
RO   Romania
RU   Russianederation    Ex-USSR
RW   Rwanda    currently cut
SA   Saudi Arabia    dial-ip
SB   Solomon Islands
SC   Seychelles
SD   Sudan
SE   Sweden
SG   Singapore
SH   St. Helena
SI   Slovenia
SJ   Svalbard & Jan Mayen IsI     in .no domain
SK   Slovakia (Slovak Rep)
SL   Sierra Leone
SM   San Marino
SN   Senegal
SO   Somalia
SR   Suriname
ST   St. Tome and Principe
SU   Soviet Union    Still used.
SV   El Salvador
SY   Syria
SZ   Swaziland
TC   Turks & Caicos Islands
TD   Chad Trench Southern Terr.
TG   Togo
TH   Thailand
TJ   Tadjikistan    Ex-USSR
TK   Tokelau
TM   Turkmenistan    Ex-USSR
TN   Tunisia
TO   Tonga
TP   East Timor
TR   Turkey
TT   Trinidad & Tobago
TV   Tuvalu
TW   Taiwan 
TZ   Tanzania
UA   Ukraine
UG   Uganda 
UK   United Kingdom    ISO 3166 is GB
UM   US Minor outlying Isl.
US   United States
UY   Uruguay
UZ   Uzbekistan    Ex-USSR
VA   Vatican City State
VC   St.Vincent & Grenadines     P
VE   Venezuela
VG   Virgin Islands (British)
VI   Virgin Islands (US)
VN   Vietnam
VU   Vanuatu
W   Wallis &utuna Islands
WS   Western Samoa
YE   Yemen
YT   Mayotte
YU   Yugoslavia
ZA   South Arica
ZM   Zambia     intermittent
ZR   Dem. Rep. o Congo    PI    unstable connection
ZW   Zimbabwe
ARPA Old style Arpanet    alias still works ns.nic.ddn.mil
COM  Commercial
EDU  Educational
GOV  Government
INT  Internationalield
MIL  US Military
NET  Network
ORG  Non-Proit Organization
EOB
local(@t) = split(/[ \t\r\n]*\n/,$codes_);
foreach ( @t ) {
  /[ \t]+/;
  local($a,$b) = ( $`, $', ); $a =~ y/A-Z/a-z/;
  $code{$a} = $b;
}}

##
## 指定された country code に対応する国名を返す
##
sub get {
  local($cn) = @_;
  if($init_done !~ /./) { &init;  $init_done = 'done'; }
  $cn =~ s/^.*\.//;
  if($code{$cn} =~ /./) { return $code{$cn}; }
  return undef;
}

1;