MAB Ingenieros

mabingenieros

Desarrollo y Legalización de Proyectos de Ingeniería. Realización de proyecto técnico y memoria para la obtención de licencia de apertura.

Plugin geoip_region_cbl para mostrar estadísticas por regiones en AWStats

Mediante este plugin se pueden obtener estadísticas por regiones en AWStats usando la base de datos gratuíta GeoLiteCity de Maxmind, su instalación debe realizarse según lo indicado en el artículo "Incluir información GeoIP para AWStats en Windows"

#!/usr/bin/perl
#-----------------------------------------------------------------------------
# geoip_region_cbl AWStats plugin
# Este plugin permite añadir informe de regiones con las regiones detectadas
# desde una base de datos geográfica.
# Requiere la versión gratuíta GeoLiteCity de Maxmind.
#-----------------------------------------------------------------------------
# Perl Required Modules: Geo::IP::PurePerl
#-----------------------------------------------------------------------------
# $Revision: 0.01 $ - $Author: cbl $ - $Date: 2007/11/20 02:00:10 $
# <-----
# ENTER HERE THE USE COMMAND FOR ALL REQUIRED PERL MODULES
use vars qw/ $type /;
$type='geoip';
if (!eval ('require "Geo/IP.pm";')) {
 $error1=$@;
 $type='geoippureperl';
 if (!eval ('require "Geo/IP/PurePerl.pm";')) {
  $error2=$@;
  $ret=($error1||$error2)?"Error:\n$error1$error2":"";
  $ret.="Error: Need Perl module Geo::IP or Geo::IP::PurePerl";
  return $ret;
 }
}
# ----->
use strict;no strict "refs";
#-----------------------------------------------------------------------------
# PLUGIN VARIABLES
#-----------------------------------------------------------------------------
# <-----
# ENTER HERE THE MINIMUM AWSTATS VERSION REQUIRED BY YOUR PLUGIN
# AND THE NAME OF ALL FUNCTIONS THE PLUGIN MANAGE.
my $PluginNeedAWStatsVersion="6.5";
my $PluginHooksFunctions="AddHTMLMenuLink AddHTMLGraph ShowInfoHost SectionInitHashArray
SectionProcessIp SectionProcessHostname SectionReadHistory SectionWriteHistory";
# -----> # <-----
# IF YOUR PLUGIN NEED GLOBAL VARIABLES, THEY MUST BE DECLARED HERE.
use vars qw/
%TmpDomainLookup
$geoip_region_cbl
%_region_p
%_region_h
%_region_k
%_region_l
$MAXNBOFSECTIONGIR
%region
/;
my %countrylib=(
'CA'=>'Canadá',
'US'=>'Estados Unidos',
'AD'=>'Andorra',
'AE'=>'Emiratos Árabes Unidos',
'AF'=>'Afganistán',
'AG'=>'Antigua y Barbuda',
'AL'=>'Albania',
'AM'=>'Armenia',
'AO'=>'Angola',
'AR'=>'Argentina',
'AT'=>'Austria',
'AU'=>'Australia',
'AZ'=>'Azerbaiján',
'BA'=>'Bosnia Herzegovina',
'BB'=>'Barbados',
'BD'=>'Bangla Desh',
'BE'=>'Bélgica',
'BF'=>'Burkina Faso',
'BG'=>'Bulgaria',
'BH'=>'Bahrein',
'BI'=>'Burundi',
'BJ'=>'Benin',
'BM'=>'Bermudas',
'BN'=>'Brunei Darussalam',
'BO'=>'Bolivia',
'BR'=>'Brasil',
'BS'=>'Bahamas',
'BT'=>'Bhután',
'BW'=>'Botswana',
'BY'=>'Bielorrusia',
'BZ'=>'Belice',
'CF'=>'República Centroafricana',
'CG'=>'Congo',
'CH'=>'Suiza',
'CI'=>'Costa de Ivório',
'CL'=>'Chile',
'CM'=>'Camerún',
'CN'=>'China',
'CO'=>'Colombia',
'CR'=>'Costa Rica',
'CU'=>'Cuba',
'CV'=>'Cabo Verde',
'CY'=>'Cipria',
'CZ'=>'Republica Checa',
'DE'=>'Alemania',
'DJ'=>'Djabuti',
'DK'=>'Dinamarca',
'DM'=>'Dominica',
'DO'=>'Republica Dominicana',
'DZ'=>'Argelia',
'EC'=>'Ecuador',
'EE'=>'Estonia',
'EG'=>'Egipto',
'ES'=>'España',
'ET'=>'Etiopía',
'FI'=>'Finlandia',
'FJ'=>'Fiji',
'FM'=>'Estados Federados de la Micronesia',
'FR'=>'Francia',
'GA'=>'Gabón',
'GB'=>'Reino Unido',
'GD'=>'Granada',
'GE'=>'Georgia',
'GH'=>'Ghana',
'GL'=>'Groenlandia',
'GM'=>'Gambia',
'GN'=>'Guinea',
'GQ'=>'Guinea Ecuatorial',
'GR'=>'Grecia',
'GT'=>'Guatemala',
'GW'=>'Guinea-Bissau',
'GY'=>'Guyana',
'HN'=>'Honduras',
'HR'=>'Croacia',
'HT'=>'Haití',
'HU'=>'Hungría',
'ID'=>'Indonesia',
'IE'=>'Irlanda',
'IL'=>'Israel',
'IN'=>'India',
'IQ'=>'Iraq',
'IR'=>'República Islámica de Irán',
'IS'=>'Islandia',
'IT'=>'Italia',
'JM'=>'Jamaica',
'JO'=>'Jordán',
'JP'=>'Japón',
'KE'=>'Kenya',
'KG'=>'Kyrgyzstán',
'KH'=>'Camboya',
'KI'=>'Kiribati',
'KM'=>'Comores',
'KN'=>'San Kitts y Nevis',
'KP'=>'Corea, República Democrática del Pueblo de',
'KR'=>'Corea, República de',
'KW'=>'Kuwait',
'KY'=>'Islas Caimán',
'KZ'=>'Kazajstán',
'LA'=>'República Democrática del Pueblo de Lao',
'LB'=>'El Líbano',
'LC'=>'Santa Lucía',
'LI'=>'Liechtenstein',
'LK'=>'Sri Lanka',
'LR'=>'Liberia',
'LS'=>'Lesotho',
'LT'=>'Lituania',
'LU'=>'Luxemburgo',
'LV'=>'Latvia',
'LY'=>'Jamahiriya Árabe Libio',
'MA'=>'Marruecos',
'MC'=>'Mónaco',
'MD'=>'República de Moldavia',
'MG'=>'Madagascar',
'MK'=>'Macedonia',
'ML'=>'Malí',
'MM'=>'Myanmar',
'MN'=>'Mongolia',
'MO'=>'Macao',
'MR'=>'Mauritania',
'MS'=>'Montserrat',
'MU'=>'Mauricio',
'MV'=>'Maldivas',
'MW'=>'Malawi',
'MX'=>'México',
'MY'=>'Malasia',
'MZ'=>'Mozambique',
'NA'=>'Namibia',
'NE'=>'Níger',
'NG'=>'Nigeria',
'NI'=>'Nicaragua',
'NL'=>'Holanda',
'NO'=>'Noruega',
'NP'=>'Nepal',
'NR'=>'Nauru',
'NZ'=>'Nueva Zelanda',
'OM'=>'Omán',
'PA'=>'Panamá',
'PE'=>'Perú',
'PG'=>'Papúa Nueva Guinea',
'PH'=>'Filipinas',
'PK'=>'Pakistán',
'PL'=>'Polonia',
'PT'=>'Portugal',
'PY'=>'Paraguay',
'QA'=>'Qatar',
'RO'=>'Rumania',
'RU'=>'Federación Rusa',
'RW'=>'Ruanda',
'SA'=>'Arabia Saudita',
'SB'=>'Islas Salomón',
'SC'=>'Seychelles',
'SD'=>'Sudán',
'SE'=>'Suecia',
'SH'=>'Santa Helena',
'SK'=>'Eslovaquia',
'SL'=>'Sierra Leone',
'SM'=>'San Marino',
'SN'=>'Senegal',
'SO'=>'Somalia',
'SR'=>'Surinam',
'ST'=>'Sao Tome y Príncipe',
'SV'=>'El Salvador',
'SY'=>'República Árabe Siria',
'SZ'=>'Swazilandia',
'TD'=>'Chad',
'TG'=>'Togo',
'TH'=>'Tailandia',
'TM'=>'Turkmenistán',
'TN'=>'Túnez',
'TO'=>'Tonga',
'TR'=>'Turquía',
'TT'=>'Trinidad y Tobago',
'TW'=>'Taiwán',
'TZ'=>'Taiwán, Provincia de China',
'UA'=>'Ucrania',
'UG'=>'Uganda',
'UY'=>'Uruguay',
'UZ'=>'Uzbekistán',
'VC'=>'San Vicente y los Granadinos',
'VE'=>'Venezuela',
'VN'=>'Vietnam',
'VU'=>'Vanuatu',
'WS'=>'Samoa',
'YE'=>'República del Yemen',
'ZA'=>'Sudáfrica',
'ZM'=>'Zambia',
'ZR'=>'Zaire',
'ZW'=>'Zimbabwe');
my %countryregionlib=(
'CA'=>'Canadá',
'US'=>'Estados Unidos',
'AD'=>'Andorra',
'AE'=>'Emiratos Árabes Unidos',
'AF'=>'Afganistán',
'AG'=>'Antigua y Barbuda',
'AL'=>'Albania',
'AM'=>'Armenia',
'AO'=>'Angola',
'AR'=>'Argentina',
'AT'=>'Austria',
'AU'=>'Australia',
'AZ'=>'Azerbaiján',
'BA'=>'Bosnia Herzegovina',
'BB'=>'Barbados',
'BD'=>'Bangla Desh',
'BE'=>'Bélgica',
'BF'=>'Burkina Faso',
'BG'=>'Bulgaria',
'BH'=>'Bahrein',
'BI'=>'Burundi',
'BJ'=>'Benin',
'BM'=>'Bermudas',
'BN'=>'Brunei Darussalam',
'BO'=>'Bolivia',
'BR'=>'Brasil',
'BS'=>'Bahamas',
'BT'=>'Bhután',
'BW'=>'Botswana',
'BY'=>'Bielorrusia',
'BZ'=>'Belice',
'CF'=>'República Centroafricana',
'CG'=>'Congo',
'CH'=>'Suiza',
'CI'=>'Costa de Ivório',
'CL'=>'Chile',
'CM'=>'Camerún',
'CN'=>'China',
'CO'=>'Colombia',
'CR'=>'Costa Rica',
'CU'=>'Cuba',
'CV'=>'Cabo Verde',
'CY'=>'Cipria',
'CZ'=>'Republica Checa',
'DE'=>'Alemania',
'DJ'=>'Djabuti',
'DK'=>'Dinamarca',
'DM'=>'Dominica',
'DO'=>'Republica Dominicana',
'DZ'=>'Argelia',
'EC'=>'Ecuador',
'EE'=>'Estonia',
'EG'=>'Egipto',
'ES'=>'España',
'ET'=>'Etiopía',
'FI'=>'Finlandia',
'FJ'=>'Fiji',
'FM'=>'Estados Federados de la Micronesia',
'FR'=>'Francia',
'GA'=>'Gabón',
'GB'=>'Reino Unido',
'GD'=>'Granada',
'GE'=>'Georgia',
'GH'=>'Ghana',
'GL'=>'Groenlandia',
'GM'=>'Gambia',
'GN'=>'Guinea',
'GQ'=>'Guinea Ecuatorial',
'GR'=>'Grecia',
'GT'=>'Guatemala',
'GW'=>'Guinea-Bissau',
'GY'=>'Guyana',
'HN'=>'Honduras',
'HR'=>'Croacia',
'HT'=>'Haití',
'HU'=>'Hungría',
'ID'=>'Indonesia',
'IE'=>'Irlanda',
'IL'=>'Israel',
'IN'=>'India',
'IQ'=>'Iraq',
'IR'=>'República Islámica de Irán',
'IS'=>'Islandia',
'IT'=>'Italia',
'JM'=>'Jamaica',
'JO'=>'Jordán',
'JP'=>'Japón',
'KE'=>'Kenya',
'KG'=>'Kyrgyzstán',
'KH'=>'Camboya',
'KI'=>'Kiribati',
'KM'=>'Comores',
'KN'=>'San Kitts y Nevis',
'KP'=>'Corea, República Democrática del Pueblo de',
'KR'=>'Corea, República de',
'KW'=>'Kuwait',
'KY'=>'Islas Caimán',
'KZ'=>'Kazajstán',
'LA'=>'República Democrática del Pueblo de Lao',
'LB'=>'El Líbano',
'LC'=>'Santa Lucía',
'LI'=>'Liechtenstein',
'LK'=>'Sri Lanka',
'LR'=>'Liberia',
'LS'=>'Lesotho',
'LT'=>'Lituania',
'LU'=>'Luxemburgo',
'LV'=>'Latvia',
'LY'=>'Jamahiriya Árabe Libio',
'MA'=>'Marruecos',
'MC'=>'Mónaco',
'MD'=>'República de Moldavia',
'MG'=>'Madagascar',
'MK'=>'Macedonia',
'ML'=>'Malí',
'MM'=>'Myanmar',
'MN'=>'Mongolia',
'MO'=>'Macao',
'MR'=>'Mauritania',
'MS'=>'Montserrat',
'MU'=>'Mauricio',
'MV'=>'Maldivas',
'MW'=>'Malawi',
'MX'=>'México',
'MY'=>'Malasia',
'MZ'=>'Mozambique',
'NA'=>'Namibia',
'NE'=>'Níger',
'NG'=>'Nigeria',
'NI'=>'Nicaragua',
'NL'=>'Holanda',
'NO'=>'Noruega',
'NP'=>'Nepal',
'NR'=>'Nauru',
'NZ'=>'Nueva Zelanda',
'OM'=>'Omán',
'PA'=>'Panamá',
'PE'=>'Perú',
'PG'=>'Papúa Nueva Guinea',
'PH'=>'Filipinas',
'PK'=>'Pakistán',
'PL'=>'Polonia',
'PT'=>'Portugal',
'PY'=>'Paraguay',
'QA'=>'Qatar',
'RO'=>'Rumania',
'RU'=>'Federación Rusa',
'RW'=>'Ruanda',
'SA'=>'Arabia Saudita',
'SB'=>'Islas Salomón',
'SC'=>'Seychelles',
'SD'=>'Sudán',
'SE'=>'Suecia',
'SH'=>'Santa Helena',
'SK'=>'Eslovaquia',
'SL'=>'Sierra Leone',
'SM'=>'San Marino',
'SN'=>'Senegal',
'SO'=>'Somalia',
'SR'=>'Surinam',
'ST'=>'Sao Tome y Príncipe',
'SV'=>'El Salvador',
'SY'=>'República Árabe Siria',
'SZ'=>'Swazilandia',
'TD'=>'Chad',
'TG'=>'Togo',
'TH'=>'Tailandia',
'TM'=>'Turkmenistán',
'TN'=>'Túnez',
'TO'=>'Tonga',
'TR'=>'Turquía',
'TT'=>'Trinidad y Tobago',
'TW'=>'Taiwán',
'TZ'=>'Taiwán, Provincia de China',
'UA'=>'Ucrania',
'UG'=>'Uganda',
'UY'=>'Uruguay',
'UZ'=>'Uzbekistán',
'VC'=>'San Vicente y los Granadinos',
'VE'=>'Venezuela',
'VN'=>'Vietnam',
'VU'=>'Vanuatu',
'WS'=>'Samoa',
'YE'=>'República del Yemen',
'ZA'=>'Sudáfrica',
'ZM'=>'Zambia',
'ZR'=>'Zaire',
'ZW'=>'Zimbabwe');
my %regCA=(
'AB',"Alberta",
'BC',"British Columbia",
'MB',"Manitoba",
'NB',"New Brunswick",
'NF',"Newfoundland",
'NS',"Nova Scotia",
'NU',"Nunavut",
'ON',"Ontario",
'PE',"Prince Edward Island",
'QC',"Quebec",
'SK',"Saskatchewan",
'NT',"Northwest Territories",
'YT',"Yukon Territory"
);
my %regUS=(
'AA',"Armed Forces Americas",
'AE',"Armed Forces Europe, Middle East, & Canada",
'AK',"Alaska",
'AL',"Alabama",
'AP',"Armed Forces Pacific",
'AR',"Arkansas",
'AS',"American Samoa",
'AZ',"Arizona",
'CA',"California",
'CO',"Colorado",
'CT',"Connecticut",
'DC',"District of Columbia",
'DE',"Delaware",
'FL',"Florida",
'FM',"Federated States of Micronesia",
'GA',"Georgia",
'GU',"Guam",
'HI',"Hawaii",
'IA',"Iowa",
'ID',"Idaho",
'IL',"Illinois",
'IN',"Indiana",
'KS',"Kansas",
'KY',"Kentucky",
'LA',"Louisiana",
'MA',"Massachusetts",
'MD',"Maryland",
'ME',"Maine",
'MH',"Marshall Islands",
'MI',"Michigan",
'MN',"Minnesota",
'MO',"Missouri",
'MP',"Northern Mariana Islands",
'MS',"Mississippi",
'MT',"Montana",
'NC',"North Carolina",
'ND',"North Dakota",
'NE',"Nebraska",
'NH',"New Hampshire",
'NJ',"New Jersey",
'NM',"New Mexico",
'NV',"Nevada",
'NY',"New York",
'OH',"Ohio",
'OK',"Oklahoma",
'OR',"Oregon",
'PA',"Pennsylvania",
'PR',"Puerto Rico",
'PW',"Palau",
'RI',"Rhode Island",
'SC',"South Carolina",
'SD',"South Dakota",
'TN',"Tennessee",
'TX',"Texas",
'UT',"Utah",
'VA',"Virginia",
'VI',"Virgin Islands",
'VT',"Vermont",
'WA',"Washington",
'WV',"West Virginia",
'WI',"Wisconsin",
'WY',"Wyoming"
);
my %regAD=(
'02',"Canillo",
'03',"Encamp",
'04',"La Massana",
'05',"Ordino",
'06',"Sant Julia de Loria",
'07',"Andorra la Vella",
'08',"Escaldes-Engordany"
);
my %regAE=(
'01',"Abu Zaby",
'03',"Dubayy",
'04',"Al Fujayrah",
'05',"Ra's al Khaymah",
'06',"Ash Shariqah",
'07',"Umm al Qaywayn"
);
my %regAF=(
'01',"Badakhshan",
'02',"Badghis",
'03',"Baghlan",
'05',"Bamian",
'06',"Farah",
'07',"Faryab",
'08',"Ghazni",
'09',"Ghowr",
'10',"Helmand",
'11',"Herat",
'13',"Kabol",
'14',"Kapisa",
'15',"Konar",
'16',"Laghman",
'17',"Lowgar",
'18',"Nangarhar",
'19',"Nimruz",
'20',"Oruzgan",
'21',"Paktia",
'22',"Parvan",
'23',"Kandahar",
'24',"Kondoz",
'26',"Takhar",
'27',"Vardak",
'28',"Zabol",
'29',"Paktika",
'30',"Balkh",
'31',"Jowzjan",
'32',"Samangan",
'33',"Sar-e Pol"
);
my %regAG=(
'01',"Barbuda",
'03',"Saint George",
'04',"Saint John",
'05',"Saint Mary",
'06',"Saint Paul",
'07',"Saint Peter",
'08',"Saint Philip"
);
my %regAL=(
'01',"Berat",
'02',"Diber",
'03',"Durres",
'04',"Elbasan",
'05',"Fier",
'06',"Gjirokaster",
'07',"Gramsh",
'08',"Kolonje",
'09',"Korce",
'10',"Kruje",
'11',"Kukes",
'12',"Lezhe",
'13',"Librazhd",
'14',"Lushnje",
'15',"Mat",
'16',"Mirdite",
'17',"Permet",
'18',"Pogradec",
'19',"Puke",
'20',"Sarande",
'21',"Shkoder",
'22',"Skrapar",
'23',"Tepelene",
'26',"Tropoje",
'27',"Vlore",
'28',"Tirane",
'29',"Bulqize",
'30',"Delvine",
'31',"Devoll",
'32',"Has",
'33',"Kavaje",
'34',"Kucove",
'35',"Kurbin",
'36',"Malesi e Madhe",
'37',"Mallakaster",
'38',"Peqin",
'39',"Tirane"
);
my %regAM=(
'01',"Aragatsotn",
'02',"Ararat",
'03',"Armavir",
'04',"Geghark'unik'",
'05',"Kotayk'",
'06',"Lorri",
'07',"Shirak",
'08',"Syunik'",
'09',"Tavush",
'10',"Vayots' Dzor",
'11',"Yerevan"
);
my %regAO=(
'01',"Benguela",
'02',"Bie",
'03',"Cabinda",
'04',"Cuando Cubango",
'05',"Cuanza Norte",
'06',"Cuanza Sul",
'07',"Cunene",
'08',"Huambo",
'09',"Huila",
'12',"Malanje",
'14',"Moxico",
'15',"Uige",
'16',"Zaire",
'17',"Lunda Norte",
'18',"Lunda Sul",
'19',"Bengo",
'20',"Luanda"
);
my %regAR=(
'01',"Buenos Aires",
'02',"Catamarca",
'03',"Chaco",
'04',"Chubut",
'05',"Cordoba",
'06',"Corrientes",
'07',"Distrito Federal",
'08',"Entre Rios",
'09',"Formosa",
'10',"Jujuy",
'11',"La Pampa",
'12',"La Rioja",
'13',"Mendoza",
'14',"Misiones",
'15',"Neuquen",
'16',"Rio Negro",
'17',"Salta",
'18',"San Juan",
'19',"San Luis",
'20',"Santa Cruz",
'21',"Santa Fe",
'22',"Santiago del Estero",
'23',"Tierra del Fuego",
'24',"Tucuman"
);
my %regAT=(
'01',"Burgenland",
'02',"Karnten",
'03',"Niederosterreich",
'04',"Oberosterreich",
'05',"Salzburg",
'06',"Steiermark",
'07',"Tirol",
'08',"Vorarlberg",
'09',"Wien"
);
my %regAU=(
'01',"Australian Capital Territory",
'02',"New South Wales",
'03',"Northern Territory",
'04',"Queensland",
'05',"South Australia",
'06',"Tasmania",
'07',"Victoria",
'08',"Western Australia"
);
my %regAZ=(
'01',"Abseron",
'02',"Agcabadi",
'03',"Agdam",
'04',"Agdas",
'05',"Agstafa",
'06',"Agsu",
'07',"Ali Bayramli",
'08',"Astara",
'09',"Baki",
'10',"Balakan",
'11',"Barda",
'12',"Beylaqan",
'13',"Bilasuvar",
'14',"Cabrayil",
'15',"Calilabad",
'16',"Daskasan",
'17',"Davaci",
'18',"Fuzuli",
'19',"Gadabay",
'20',"Ganca",
'21',"Goranboy",
'22',"Goycay",
'23',"Haciqabul",
'24',"Imisli",
'25',"Ismayilli",
'26',"Kalbacar",
'27',"Kurdamir",
'28',"Lacin",
'29',"Lankaran",
'30',"Lankaran",
'31',"Lerik",
'32',"Masalli",
'33',"Mingacevir",
'34',"Naftalan",
'35',"Naxcivan",
'36',"Neftcala",
'37',"Oguz",
'38',"Qabala",
'39',"Qax",
'40',"Qazax",
'41',"Qobustan",
'42',"Quba",
'43',"Qubadli",
'44',"Qusar",
'45',"Saatli",
'46',"Sabirabad",
'47',"Saki",
'48',"Saki",
'49',"Salyan",
'50',"Samaxi",
'51',"Samkir",
'52',"Samux",
'53',"Siyazan",
'54',"Sumqayit",
'55',"Susa",
'56',"Susa",
'57',"Tartar",
'58',"Tovuz",
'59',"Ucar",
'60',"Xacmaz",
'61',"Xankandi",
'62',"Xanlar",
'63',"Xizi",
'64',"Xocali",
'65',"Xocavand",
'66',"Yardimli",
'67',"Yevlax",
'68',"Yevlax",
'69',"Zangilan",
'70',"Zaqatala",
'71',"Zardab"
);
my %regBA=(
'01',"Federation of Bosnia and Herzegovina",
'02',"Republika Srpska"
);
my %regBB=(
'01',"Christ Church",
'02',"Saint Andrew",
'03',"Saint George",
'04',"Saint James",
'05',"Saint John",
'06',"Saint Joseph",
'07',"Saint Lucy",
'08',"Saint Michael",
'09',"Saint Peter",
'10',"Saint Philip",
'11',"Saint Thomas"
);
my %regBD=(
'01',"Barisal",
'04',"Bandarban",
'05',"Comilla",
'12',"Mymensingh",
'13',"Noakhali",
'15',"Patuakhali",
'22',"Bagerhat",
'23',"Bhola",
'24',"Bogra",
'25',"Barguna",
'26',"Brahmanbaria",
'27',"Chandpur",
'28',"Chapai Nawabganj",
'29',"Chattagram",
'30',"Chuadanga",
'31',"Cox's Bazar",
'32',"Dhaka",
'33',"Dinajpur",
'34',"Faridpur",
'35',"Feni",
'36',"Gaibandha",
'37',"Gazipur",
'38',"Gopalganj",
'39',"Habiganj",
'40',"Jaipurhat",
'41',"Jamalpur",
'42',"Jessore",
'43',"Jhalakati",
'44',"Jhenaidah",
'45',"Khagrachari",
'46',"Khulna",
'47',"Kishorganj",
'48',"Kurigram",
'49',"Kushtia",
'50',"Laksmipur",
'51',"Lalmonirhat",
'52',"Madaripur",
'53',"Magura",
'54',"Manikganj",
'55',"Meherpur",
'56',"Moulavibazar",
'57',"Munshiganj",
'58',"Naogaon",
'59',"Narail",
'60',"Narayanganj",
'61',"Narsingdi",
'62',"Nator",
'63',"Netrakona",
'64',"Nilphamari",
'65',"Pabna",
'66',"Panchagar",
'67',"Parbattya Chattagram",
'68',"Pirojpur",
'69',"Rajbari",
'70',"Rajshahi",
'71',"Rangpur",
'72',"Satkhira",
'73',"Shariyatpur",
'74',"Sherpur",
'75',"Sirajganj",
'76',"Sunamganj",
'77',"Sylhet",
'78',"Tangail",
'79',"Thakurgaon"
);
my %regBE=(
'01',"Antwerpen",
'02',"Brabant",
'03',"Hainaut",
'04',"Liege",
'05',"Limburg",
'06',"Luxembourg",
'07',"Namur",
'08',"Oost-Vlaanderen",
'09',"West-Vlaanderen",
'10',"Brabant Wallon",
'11',"Brussels Hoofdstedelijk Gewest",
'12',"Vlaams-Brabant"
);
my %regBF=(
'15',"Bam",
'16',"Bazega",
'17',"Bougouriba",
'18',"Boulgou",
'19',"Boulkiemde",
'20',"Ganzourgou",
'21',"Gnagna",
'22',"Gourma",
'23',"Houet",
'24',"Kadiogo",
'25',"Kenedougou",
'26',"Komoe",
'27',"Kossi",
'28',"Kouritenga",
'29',"Mouhoun",
'30',"Namentenga",
'31',"Naouri",
'32',"Oubritenga",
'33',"Oudalan",
'34',"Passore",
'35',"Poni",
'36',"Sanguie",
'37',"Sanmatenga",
'38',"Seno",
'39',"Sissili",
'40',"Soum",
'41',"Sourou",
'42',"Tapoa",
'43',"Yatenga",
'44',"Zoundweogo"
);
my %regBG=(
'33',"Mikhaylovgrad",
'38',"Blagoevgrad",
'39',"Burgas",
'40',"Dobrich",
'41',"Gabrovo",
'42',"Grad Sofiya",
'43',"Khaskovo",
'44',"Kurdzhali",
'45',"Kyustendil",
'46',"Lovech",
'47',"Montana",
'48',"Pazardzhik",
'49',"Pernik",
'50',"Pleven",
'51',"Plovdiv",
'52',"Razgrad",
'53',"Ruse",
'54',"Shumen",
'55',"Silistra",
'56',"Sliven",
'57',"Smolyan",
'58',"Sofiya",
'59',"Stara Zagora",
'60',"Turgovishte",
'61',"Varna",
'62',"Veliko Turnovo",
'63',"Vidin",
'64',"Vratsa",
'65',"Yambol"
);
my %regBH=(
'01',"Al Hadd",
'02',"Al Manamah",
'03',"Al Muharraq",
'05',"Jidd Hafs",
'06',"Sitrah",
'08',"Al Mintaqah al Gharbiyah",
'09',"Mintaqat Juzur Hawar",
'10',"Al Mintaqah ash Shamaliyah",
'11',"Al Mintaqah al Wusta",
'12',"Madinat",
'13',"Ar Rifa",
'14',"Madinat Hamad"
);
my %regBI=(
'02',"Bujumbura",
'09',"Bubanza",
'10',"Bururi",
'11',"Cankuzo",
'12',"Cibitoke",
'13',"Gitega",
'14',"Karuzi",
'15',"Kayanza",
'16',"Kirundo",
'17',"Makamba",
'18',"Muyinga",
'19',"Ngozi",
'20',"Rutana",
'21',"Ruyigi",
'22',"Muramvya",
'23',"Mwaro"
);
my %regBJ=(
'01',"Atakora",
'02',"Atlantique",
'03',"Borgou",
'04',"Mono",
'05',"Oueme",
'06',"Zou"
);
my %regBM=(
'01',"Devonshire",
'02',"Hamilton",
'03',"Hamilton",
'04',"Paget",
'05',"Pembroke",
'06',"Saint George",
'07',"Saint George's",
'08',"Sandys",
'09',"Smiths",
'10',"Southampton",
'11',"Warwick"
);
my %regBN=(
'01',"Belait",
'02',"Brunei and Muara",
'03',"Temburong",
'04',"Tutong"
);
my %regBO=(
'01',"Chuquisaca",
'02',"Cochabamba",
'03',"El Beni",
'04',"La Paz",
'05',"Oruro",
'06',"Pando",
'07',"Potosi",
'08',"Santa Cruz",
'09',"Tarija"
);
my %regBR=(
'01',"Acre",
'02',"Alagoas",
'03',"Amapa",
'04',"Amazonas",
'05',"Bahia",
'06',"Ceara",
'07',"Distrito Federal",
'08',"Espirito Santo",
'11',"Mato Grosso do Sul",
'13',"Maranhao",
'14',"Mato Grosso",
'15',"Minas Gerais",
'16',"Para",
'17',"Paraiba",
'18',"Parana",
'20',"Piaui",
'21',"Rio de Janeiro",
'22',"Rio Grande do Norte",
'23',"Rio Grande do Sul",
'24',"Rondonia",
'25',"Roraima",
'26',"Santa Catarina",
'27',"Sao Paulo",
'28',"Sergipe",
'29',"Goias",
'30',"Pernambuco",
'31',"Tocantins"
);
my %regBS=(
'05',"Bimini",
'06',"Cat Island",
'10',"Exuma",
'13',"Inagua",
'15',"Long Island",
'16',"Mayaguana",
'18',"Ragged Island",
'22',"Harbour Island",
'23',"New Providence",
'24',"Acklins and Crooked Islands",
'25',"Freeport",
'26',"Fresh Creek",
'27',"Governor's Harbour",
'28',"Green Turtle Cay",
'29',"High Rock",
'30',"Kemps Bay",
'31',"Marsh Harbour",
'32',"Nichollstown and Berry Islands",
'33',"Rock Sound",
'34',"Sandy Point",
'35',"San Salvador and Rum Cay"
);
my %regBT=(
'05',"Bumthang",
'06',"Chhukha",
'07',"Chirang",
'08',"Daga",
'09',"Geylegphug",
'10',"Ha",
'11',"Lhuntshi",
'12',"Mongar",
'13',"Paro",
'14',"Pemagatsel",
'15',"Punakha",
'16',"Samchi",
'17',"Samdrup",
'18',"Shemgang",
'19',"Tashigang",
'20',"Thimphu",
'21',"Tongsa",
'22',"Wangdi Phodrang"
);
my %regBW=(
'01',"Central",
'02',"Chobe",
'03',"Ghanzi",
'04',"Kgalagadi",
'05',"Kgatleng",
'06',"Kweneng",
'07',"Ngamiland",
'08',"North-East",
'09',"South-East",
'10',"Southern"
);
my %regBY=(
'01',"Brestskaya Voblasts'",
'02',"Homyel'skaya Voblasts'",
'03',"Hrodzyenskaya Voblasts'",
'04',"Minsk",
'05',"Minskaya Voblasts'",
'06',"Mahilyowskaya Voblasts'",
'07',"Vitsyebskaya Voblasts'"
);
my %regBZ=(
'01',"Belize",
'02',"Cayo",
'03',"Corozal",
'04',"Orange Walk",
'05',"Stann Creek",
'06',"Toledo"
);
my %regCF=(
'01',"Bamingui-Bangoran",
'02',"Basse-Kotto",
'03',"Haute-Kotto",
'04',"Haute-Sangha",
'05',"Haut-Mbomou",
'06',"Kemo-Gribingui",
'07',"Lobaye",
'08',"Mbomou",
'09',"Nana-Mambere",
'11',"Ouaka",
'12',"Ouham",
'13',"Ouham-Pende",
'14',"Vakaga",
'15',"Gribingui",
'16',"Sangha",
'17',"Ombella-Mpoko",
'18',"Bangui"
);
my %regCG=(
'01',"Bouenza",
'03',"Cuvette",
'04',"Kouilou",
'05',"Lekoumou",
'06',"Likouala",
'07',"Niari",
'08',"Plateaux",
'10',"Sangha",
'11',"Pool",
'12',"Brazzaville"
);
my %regCH=(
'01',"Aargau",
'02',"Ausser-Rhoden",
'03',"Basel-Landschaft",
'04',"Basel-Stadt",
'05',"Bern",
'06',"Fribourg",
'07',"Geneve",
'08',"Glarus",
'09',"Graubunden",
'10',"Inner-Rhoden",
'11',"Luzern",
'12',"Neuchatel",
'13',"Nidwalden",
'14',"Obwalden",
'15',"Sankt Gallen",
'16',"Schaffhausen",
'17',"Schwyz",
'18',"Solothurn",
'19',"Thurgau",
'20',"Ticino",
'21',"Uri",
'22',"Valais",
'23',"Vaud",
'24',"Zug",
'25',"Zurich",
'26',"Jura"
);
my %regCI=(
'01',"Abengourou",
'03',"Dabakala",
'05',"Adzope",
'06',"Agboville",
'07',"Biankouma",
'11',"Bouna",
'12',"Boundiali",
'14',"Danane",
'16',"Divo",
'17',"Ferkessedougou",
'18',"Gagnoa",
'20',"Katiola",
'21',"Korhogo",
'23',"Odienne",
'25',"Seguela",
'26',"Touba",
'27',"Bongouanou",
'28',"Issia",
'29',"Lakota",
'30',"Mankono",
'31',"Oume",
'32',"Soubre",
'33',"Tingrela",
'34',"Zuenoula",
'36',"Bangolo",
'37',"Beoumi",
'38',"Bondoukou",
'39',"Bouafle",
'40',"Bouake",
'41',"Daloa",
'42',"Daoukro",
'44',"Duekoue",
'45',"Grand-Lahou",
'47',"Man",
'48',"Mbahiakro",
'49',"Sakassou",
'50',"San Pedro",
'51',"Sassandra",
'52',"Sinfra",
'53',"Tabou",
'54',"Tanda",
'55',"Tiassale",
'56',"Toumodi",
'57',"Vavoua",
'61',"Abidjan",
'62',"Aboisso",
'63',"Adiake",
'64',"Alepe",
'65',"Bocanda",
'66',"Dabou",
'67',"Dimbokro",
'68',"Grand-Bassam",
'69',"Guiglo",
'70',"Jacqueville",
'71',"Tiebissou",
'72',"Toulepleu",
'73',"Yamoussoukro"
);
my %regCL=(
'01',"Valparaiso",
'02',"Aisen del General Carlos Ibanez del Campo",
'03',"Antofagasta",
'04',"Araucania",
'05',"Atacama",
'06',"Bio-Bio",
'07',"Coquimbo",
'08',"Libertador General Bernardo O'Higgins",
'09',"Los Lagos",
'10',"Magallanes y de la Antartica Chilena",
'11',"Maule",
'12',"Region Metropolitana",
'13',"Tarapaca"
);
my %regCM=(
'04',"Est",
'05',"Littoral",
'07',"Nord-Ouest",
'08',"Ouest",
'09',"Sud-Ouest",
'10',"Adamaoua",
'11',"Centre",
'12',"Extreme-Nord",
'13',"Nord",
'14',"Sud"
);
my %regCN=(
'01',"Anhui",
'02',"Zhejiang",
'03',"Jiangxi",
'04',"Jiangsu",
'05',"Jilin",
'06',"Qinghai",
'07',"Fujian",
'08',"Heilongjiang",
'09',"Henan",
'10',"Hebei",
'11',"Hunan",
'12',"Hubei",
'13',"Xinjiang",
'14',"Xizang",
'15',"Gansu",
'16',"Guangxi",
'18',"Guizhou",
'19',"Liaoning",
'20',"Nei Mongol",
'21',"Ningxia",
'22',"Beijing",
'23',"Shanghai",
'24',"Shanxi",
'25',"Shandong",
'26',"Shaanxi",
'27',"Sichuan",
'28',"Tianjin",
'29',"Yunnan",
'30',"Guangdong",
'31',"Hainan"
);
my %regCO=(
'01',"Amazonas",
'02',"Antioquia",
'03',"Arauca",
'04',"Atlantico",
'08',"Caqueta",
'09',"Cauca",
'10',"Cesar",
'11',"Choco",
'12',"Cordoba",
'14',"Guaviare",
'15',"Guainia",
'16',"Huila",
'17',"La Guajira",
'19',"Meta",
'20',"Narino",
'21',"Norte de Santander",
'22',"Putumayo",
'23',"Quindio",
'24',"Risaralda",
'25',"San Andres y Providencia",
'26',"Santander",
'27',"Sucre",
'28',"Tolima",
'29',"Valle del Cauca",
'30',"Vaupes",
'31',"Vichada",
'32',"Casanare",
'33',"Cundinamarca",
'34',"Distrito Especial",
'35',"Bolivar",
'36',"Boyaca",
'37',"Caldas",
'38',"Magdalena"
);
my %regCR=(
'01',"Alajuela",
'02',"Cartago",
'03',"Guanacaste",
'04',"Heredia",
'06',"Limon",
'07',"Puntarenas",
'08',"San Jose"
);
my %regCU=(
'01',"Pinar del Rio",
'02',"Ciudad de la Habana",
'03',"Matanzas",
'04',"Isla de la Juventud",
'05',"Camaguey",
'07',"Ciego de Avila",
'08',"Cienfuegos",
'09',"Granma",
'10',"Guantanamo",
'11',"La Habana",
'12',"Holguin",
'13',"Las Tunas",
'14',"Sancti Spiritus",
'15',"Santiago de Cuba",
'16',"Villa Clara"
);
my %regCV=(
'01',"Boa Vista",
'02',"Brava",
'03',"Fogo",
'04',"Maio",
'05',"Paul",
'06',"Praia",
'07',"Ribeira Grande",
'08',"Sal",
'09',"Santa Catarina",
'10',"Sao Nicolau",
'11',"Sao Vicente",
'12',"Tarrafal"
);
my %regCY=(
'01',"Famagusta",
'02',"Kyrenia",
'03',"Larnaca",
'04',"Nicosia",
'05',"Limassol",
'06',"Paphos"
);
my %regCZ=(
'52',"Hlavni Mesto Praha",
'78',"Jihomoravsky Kraj",
'79',"Jihocesky Kraj",
'80',"Vysocina",
'81',"Karlovarsky Kraj",
'82',"Kralovehradecky Kraj",
'83',"Liberecky Kraj",
'84',"Olomoucky Kraj",
'85',"Moravskoslezsky Kraj",
'86',"Pardubicky Kraj",
'87',"Plzensky Kraj",
'88',"Stredocesky Kraj",
'89',"Ustecky Kraj",
'90',"Zlinsky Kraj"
);
my %regDE=(
'01',"Baden-Wurttemberg",
'02',"Bayern",
'03',"Bremen",
'04',"Hamburg",
'05',"Hessen",
'06',"Niedersachsen",
'07',"Nordrhein-Westfalen",
'08',"Rheinland-Pfalz",
'09',"Saarland",
'10',"Schleswig-Holstein",
'11',"Brandenburg",
'12',"Mecklenburg-Vorpommern",
'13',"Sachsen",
'14',"Sachsen-Anhalt",
'15',"Thuringen",
'16',"Berlin"
);
my %regDJ=(
'02',"Dikhil",
'03',"Djibouti",
'04',"Obock",
'05',"Tadjoura"
);
my %regDK=(
'01',"Arhus",
'02',"Bornholm",
'03',"Frederiksborg",
'04',"Fyn",
'05',"Kobenhavn",
'06',"Staden Kobenhavn",
'07',"Nordjylland",
'08',"Ribe",
'09',"Ringkobing",
'10',"Roskilde",
'11',"Sonderjylland",
'12',"Storstrom",
'13',"Vejle",
'14',"Vestsjalland",
'15',"Viborg"
);
my %regDM=(
'02',"Saint Andrew",
'03',"Saint David",
'04',"Saint George",
'05',"Saint John",
'06',"Saint Joseph",
'07',"Saint Luke",
'08',"Saint Mark",
'09',"Saint Patrick",
'10',"Saint Paul",
'11',"Saint Peter"
);
my %regDO=(
'01',"Azua",
'02',"Baoruco",
'03',"Barahona",
'04',"Dajabon",
'05',"Distrito Nacional",
'06',"Duarte",
'08',"Espaillat",
'09',"Independencia",
'10',"La Altagracia",
'11',"Elias Pina",
'12',"La Romana",
'14',"Maria Trinidad Sanchez",
'15',"Monte Cristi",
'16',"Pedernales",
'17',"Peravia",
'18',"Puerto Plata",
'19',"Salcedo",
'20',"Samana",
'21',"Sanchez Ramirez",
'23',"San Juan",
'24',"San Pedro De Macoris",
'25',"Santiago",
'26',"Santiago Rodriguez",
'27',"Valverde",
'28',"El Seibo",
'29',"Hato Mayor",
'30',"La Vega",
'31',"Monsenor Nouel",
'32',"Monte Plata",
'33',"San Cristobal"
);
my %regDZ=(
'01',"Alger",
'03',"Batna",
'04',"Constantine",
'06',"Medea",
'07',"Mostaganem",
'09',"Oran",
'10',"Saida",
'12',"Setif",
'13',"Tiaret",
'14',"Tizi Ouzou",
'15',"Tlemcen",
'18',"Bejaia",
'19',"Biskra",
'20',"Blida",
'21',"Bouira",
'22',"Djelfa",
'23',"Guelma",
'24',"Jijel",
'25',"Laghouat",
'26',"Mascara",
'27',"M'sila",
'29',"Oum el Bouaghi",
'30',"Sidi Bel Abbes",
'31',"Skikda",
'33',"Tebessa",
'34',"Adrar",
'35',"Ain Defla",
'36',"Ain Temouchent",
'37',"Annaba",
'38',"Bechar",
'39',"Bordj Bou Arreridj",
'40',"Boumerdes",
'41',"Chlef",
'42',"El Bayadh",
'43',"El Oued",
'44',"El Tarf",
'45',"Ghardaia",
'46',"Illizi",
'47',"Khenchela",
'48',"Mila",
'49',"Naama",
'50',"Ouargla",
'51',"Relizane",
'52',"Souk Ahras",
'53',"Tamanghasset",
'54',"Tindouf",
'55',"Tipaza",
'56',"Tissemsilt"
);
my %regEC=(
'01',"Galapagos",
'02',"Azuay",
'03',"Bolivar",
'04',"Canar",
'05',"Carchi",
'06',"Chimborazo",
'07',"Cotopaxi",
'08',"El Oro",
'09',"Esmeraldas",
'10',"Guayas",
'11',"Imbabura",
'12',"Loja",
'13',"Los Rios",
'14',"Manabi",
'15',"Morona-Santiago",
'17',"Pastaza",
'18',"Pichincha",
'19',"Tungurahua",
'20',"Zamora-Chinchipe",
'22',"Sucumbios",
'23',"Napo",
'24',"Orellana"
);
my %regEE=(
'01',"Harjumaa",
'02',"Hiiumaa",
'03',"Ida-Virumaa",
'04',"Jarvamaa",
'05',"Jogevamaa",
'06',"Kohtla-Jarve",
'07',"Laanemaa",
'08',"Laane-Virumaa",
'09',"Narva",
'10',"Parnu",
'11',"Parnumaa",
'12',"Polvamaa",
'13',"Raplamaa",
'14',"Saaremaa",
'15',"Sillamae",
'16',"Tallinn",
'17',"Tartu",
'18',"Tartumaa",
'19',"Valgamaa",
'20',"Viljandimaa",
'21',"Vorumaa"
);
my %regEG=(
'01',"Ad Daqahliyah",
'02',"Al Bahr al Ahmar",
'03',"Al Buhayrah",
'04',"Al Fayyum",
'05',"Al Gharbiyah",
'06',"Al Iskandariyah",
'07',"Al Isma'iliyah",
'08',"Al Jizah",
'09',"Al Minufiyah",
'10',"Al Minya",
'11',"Al Qahirah",
'12',"Al Qalyubiyah",
'13',"Al Wadi al Jadid",
'14',"Ash Sharqiyah",
'15',"As Suways",
'16',"Aswan",
'17',"Asyut",
'18',"Bani Suwayf",
'19',"Bur Sa'id",
'20',"Dumyat",
'21',"Kafr ash Shaykh",
'22',"Matruh",
'23',"Qina",
'24',"Suhaj",
'26',"Janub Sina'",
'27',"Shamal Sina'"
);
my %regES=(
'07',"Islas Baleares",
'27',"La Rioja",
'29',"Madrid",
'31',"Murcia",
'32',"Navarra",
'34',"Asturias",
'39',"Cantabria",
'51',"Andalucia",
'52',"Aragon",
'53',"Canarias",
'54',"Castilla-La Mancha",
'55',"Castilla y Leon",
'56',"Cataluna",
'57',"Extremadura",
'58',"Galicia",
'59',"Pais Vasco",
'60',"Comunidad Valenciana"
);
my %regET=(
'02',"Amhara",
'07',"Somali",
'08',"Gambella",
'10',"Addis Abeba",
'11',"Southern",
'12',"Tigray",
'13',"Benishangul",
'14',"Afar",
'44',"Adis Abeba",
'45',"Afar",
'46',"Amara",
'47',"Binshangul Gumuz",
'48',"Dire Dawa",
'49',"Gambela Hizboch",
'50',"Hareri Hizb",
'51',"Oromiya",
'52',"Sumale",
'53',"Tigray",
'54',"YeDebub Biheroch Bihereseboch na Hizboch"
);
my %regFI=(
'01',"Ã?land",
'06',"Lapland",
'08',"Oulu",
'13',"Southern Finland",
'14',"Eastern Finland",
'15',"Western Finland"
);
my %regFJ=(
'01',"Central",
'02',"Eastern",
'03',"Northern",
'04',"Rotuma",
'05',"Western"
);
my %regFM=(
'01',"Kosrae",
'02',"Pohnpei",
'03',"Chuuk",
'04',"Yap"
);
my %regFR=(
'97',"Aquitaine",
'98',"Auvergne",
'99',"Basse-Normandie",
'A1',"Bourgogne",
'A2',"Bretagne",
'A3',"Centre",
'A4',"Champagne-Ardenne",
'A5',"Corse",
'A6',"Franche-Comte",
'A7',"Haute-Normandie",
'A8',"Ile-de-France",
'A9',"Languedoc-Roussillon",
'B1',"Limousin",
'B2',"Lorraine",
'B3',"Midi-Pyrenees",
'B4',"Nord-Pas-de-Calais",
'B5',"Pays de la Loire",
'B6',"Picardie",
'B7',"Poitou-Charentes",
'B8',"Provence-Alpes-Cote d'Azur",
'B9',"Rhone-Alpes",
'C1',"Alsace"
);
my %regGA=(
'01',"Estuaire",
'02',"Haut-Ogooue",
'03',"Moyen-Ogooue",
'04',"Ngounie",
'05',"Nyanga",
'06',"Ogooue-Ivindo",
'07',"Ogooue-Lolo",
'08',"Ogooue-Maritime",
'09',"Woleu-Ntem"
);
my %regGB=(
'01',"Avon",
'03',"Berkshire",
'07',"Cleveland",
'08',"Cornwall",
'09',"Cumbria",
'17',"Greater London",
'18',"Greater Manchester",
'20',"Hereford and Worcester",
'22',"Humberside",
'28',"Merseyside",
'37',"South Yorkshire",
'41',"Tyne and Wear",
'43',"West Midlands",
'45',"West Yorkshire",
'79',"Central",
'82',"Grampian",
'84',"Lothian",
'87',"Strathclyde",
'88',"Tayside",
'90',"Clwyd",
'91',"Dyfed",
'92',"Gwent",
'94',"Mid Glamorgan",
'96',"South Glamorgan",
'97',"West Glamorgan",
'A1',"Barking and Dagenham",
'A2',"Barnet",
'A3',"Barnsley",
'A4',"Bath and North East Somerset",
'A5',"Bedfordshire",
'A6',"Bexley",
'A7',"Birmingham",
'A8',"Blackburn with Darwen",
'A9',"Blackpool",
'B1',"Bolton",
'B2',"Bournemouth",
'B3',"Bracknell Forest",
'B4',"Bradford",
'B5',"Brent",
'B6',"Brighton and Hove",
'B7',"Bristol, City of",
'B8',"Bromley",
'B9',"Buckinghamshire",
'C1',"Bury",
'C2',"Calderdale",
'C3',"Cambridgeshire",
'C4',"Camden",
'C5',"Cheshire",
'C7',"Coventry",
'C8',"Croydon",
'D1',"Darlington",
'D2',"Derby",
'D3',"Derbyshire",
'D4',"Devon",
'D5',"Doncaster",
'D6',"Dorset",
'D7',"Dudley",
'D8',"Durham",
'D9',"Ealing",
'E1',"East Riding of Yorkshire",
'E2',"East Sussex",
'E3',"Enfield",
'E4',"Essex",
'E5',"Gateshead",
'E6',"Gloucestershire",
'E7',"Greenwich",
'E8',"Hackney",
'E9',"Halton",
'F1',"Hammersmith and Fulham",
'F2',"Hampshire",
'F3',"Haringey",
'F4',"Harrow",
'F5',"Hartlepool",
'F6',"Havering",
'F7',"Herefordshire",
'F8',"Hertford",
'F9',"Hillingdon",
'G1',"Hounslow",
'G2',"Isle of Wight",
'G3',"Islington",
'G4',"Kensington and Chelsea",
'G5',"Kent",
'G6',"Kingston upon Hull, City of",
'G7',"Kingston upon Thames",
'G8',"Kirklees",
'G9',"Knowsley",
'H1',"Lambeth",
'H2',"Lancashire",
'H3',"Leeds",
'H4',"Leicester",
'H5',"Leicestershire",
'H6',"Lewisham",
'H7',"Lincolnshire",
'H8',"Liverpool",
'H9',"London, City of",
'I1',"Luton",
'I2',"Manchester",
'I3',"Medway",
'I4',"Merton",
'I5',"Middlesbrough",
'I6',"Milton Keynes",
'I7',"Newcastle upon Tyne",
'I8',"Newham",
'I9',"Norfolk",
'J1',"Northamptonshire",
'J2',"North East Lincolnshire",
'J3',"North Lincolnshire",
'J4',"North Somerset",
'J5',"North Tyneside",
'J6',"Northumberland",
'J7',"North Yorkshire",
'J8',"Nottingham",
'J9',"Nottinghamshire",
'K1',"Oldham",
'K2',"Oxfordshire",
'K3',"Peterborough",
'K4',"Plymouth",
'K5',"Poole",
'K6',"Portsmouth",
'K7',"Reading",
'K8',"Redbridge",
'K9',"Redcar and Cleveland",
'L1',"Richmond upon Thames",
'L2',"Rochdale",
'L3',"Rotherham",
'L4',"Rutland",
'L5',"Salford",
'L6',"Shropshire",
'L7',"Sandwell",
'L8',"Sefton",
'L9',"Sheffield",
'M1',"Slough",
'M2',"Solihull",
'M3',"Somerset",
'M4',"Southampton",
'M5',"Southend-on-Sea",
'M6',"South Gloucestershire",
'M7',"South Tyneside",
'M8',"Southwark",
'M9',"Staffordshire",
'N1',"St. Helens",
'N2',"Stockport",
'N3',"Stockton-on-Tees",
'N4',"Stoke-on-Trent",
'N5',"Suffolk",
'N6',"Sunderland",
'N7',"Surrey",
'N8',"Sutton",
'N9',"Swindon",
'O1',"Tameside",
'O2',"Telford and Wrekin",
'O3',"Thurrock",
'O4',"Torbay",
'O5',"Tower Hamlets",
'O6',"Trafford",
'O7',"Wakefield",
'O8',"Walsall",
'O9',"Waltham Forest",
'P1',"Wandsworth",
'P2',"Warrington",
'P3',"Warwickshire",
'P4',"West Berkshire",
'P5',"Westminster",
'P6',"West Sussex",
'P7',"Wigan",
'P8',"Wiltshire",
'P9',"Windsor and Maidenhead",
'Q1',"Wirral",
'Q2',"Wokingham",
'Q3',"Wolverhampton",
'Q4',"Worcestershire",
'Q5',"York",
'Q6',"Antrim",
'Q7',"Ards",
'Q8',"Armagh",
'Q9',"Ballymena",
'R1',"Ballymoney",
'R2',"Banbridge",
'R3',"Belfast",
'R4',"Carrickfergus",
'R5',"Castlereagh",
'R6',"Coleraine",
'R7',"Cookstown",
'R8',"Craigavon",
'R9',"Down",
'S1',"Dungannon",
'S2',"Fermanagh",
'S3',"Larne",
'S4',"Limavady",
'S5',"Lisburn",
'S6',"Derry",
'S7',"Magherafelt",
'S8',"Moyle",
'S9',"Newry and Mourne",
'T1',"Newtownabbey",
'T2',"North Down",
'T3',"Omagh",
'T4',"Strabane",
'T5',"Aberdeen City",
'T6',"Aberdeenshire",
'T7',"Angus",
'T8',"Argyll and Bute",
'T9',"Scottish Borders, The",
'U1',"Clackmannanshire",
'U2',"Dumfries and Galloway",
'U3',"Dundee City",
'U4',"East Ayrshire",
'U5',"East Dunbartonshire",
'U6',"East Lothian",
'U7',"East Renfrewshire",
'U8',"Edinburgh, City of",
'U9',"Falkirk",
'V1',"Fife",
'V2',"Glasgow City",
'V3',"Highland",
'V4',"Inverclyde",
'V5',"Midlothian",
'V6',"Moray",
'V7',"North Ayrshire",
'V8',"North Lanarkshire",
'V9',"Orkney",
'W1',"Perth and Kinross",
'W2',"Renfrewshire",
'W3',"Shetland Islands",
'W4',"South Ayrshire",
'W5',"South Lanarkshire",
'W6',"Stirling",
'W7',"West Dunbartonshire",
'W8',"Eilean Siar",
'W9',"West Lothian",
'X1',"Isle of Anglesey",
'X2',"Blaenau Gwent",
'X3',"Bridgend",
'X4',"Caerphilly",
'X5',"Cardiff",
'X6',"Ceredigion",
'X7',"Carmarthenshire",
'X8',"Conwy",
'X9',"Denbighshire",
'Y1',"Flintshire",
'Y2',"Gwynedd",
'Y3',"Merthyr Tydfil",
'Y4',"Monmouthshire",
'Y5',"Neath Port Talbot",
'Y6',"Newport",
'Y7',"Pembrokeshire",
'Y8',"Powys",
'Y9',"Rhondda Cynon Taff",
'Z1',"Swansea",
'Z2',"Torfaen",
'Z3',"Vale of Glamorgan, The",
'Z4',"Wrexham"
);
my %regGD=(
'01',"Saint Andrew",
'02',"Saint David",
'03',"Saint George",
'04',"Saint John",
'05',"Saint Mark",
'06',"Saint Patrick"
);
my %regGE=(
'01',"Abashis Raioni",
'02',"Abkhazia",
'03',"Adigenis Raioni",
'04',"Ajaria",
'05',"Akhalgoris Raioni",
'06',"Akhalk'alak'is Raioni",
'07',"Akhalts'ikhis Raioni",
'08',"Akhmetis Raioni",
'09',"Ambrolauris Raioni",
'10',"Aspindzis Raioni",
'11',"Baghdat'is Raioni",
'12',"Bolnisis Raioni",
'13',"Borjomis Raioni",
'14',"Chiat'ura",
'15',"Ch'khorotsqus Raioni",
'16',"Ch'okhatauris Raioni",
'17',"Dedop'listsqaros Raioni",
'18',"Dmanisis Raioni",
'19',"Dushet'is Raioni",
'20',"Gardabanis Raioni",
'21',"Gori",
'22',"Goris Raioni",
'23',"Gurjaanis Raioni",
'24',"Javis Raioni",
'25',"K'arelis Raioni",
'26',"Kaspis Raioni",
'27',"Kharagaulis Raioni",
'28',"Khashuris Raioni",
'29',"Khobis Raioni",
'30',"Khonis Raioni",
'31',"K'ut'aisi",
'32',"Lagodekhis Raioni",
'33',"Lanch'khut'is Raioni",
'34',"Lentekhis Raioni",
'35',"Marneulis Raioni",
'36',"Martvilis Raioni",
'37',"Mestiis Raioni",
'38',"Mts'khet'is Raioni",
'39',"Ninotsmindis Raioni",
'40',"Onis Raioni",
'41',"Ozurget'is Raioni",
'42',"P'ot'i",
'43',"Qazbegis Raioni",
'44',"Qvarlis Raioni",
'45',"Rust'avi",
'46',"Sach'kheris Raioni",
'47',"Sagarejos Raioni",
'48',"Samtrediis Raioni",
'49',"Senakis Raioni",
'50',"Sighnaghis Raioni",
'51',"T'bilisi",
'52',"T'elavis Raioni",
'53',"T'erjolis Raioni",
'54',"T'et'ritsqaros Raioni",
'55',"T'ianet'is Raioni",
'56',"Tqibuli",
'57',"Ts'ageris Raioni",
'58',"Tsalenjikhis Raioni",
'59',"Tsalkis Raioni",
'60',"Tsqaltubo",
'61',"Vanis Raioni",
'62',"Zestap'onis Raioni",
'63',"Zugdidi",
'64',"Zugdidis Raioni"
);
my %regGH=(
'01',"Greater Accra",
'02',"Ashanti",
'03',"Brong-Ahafo",
'04',"Central",
'05',"Eastern",
'06',"Northern",
'08',"Volta",
'09',"Western",
'10',"Upper East",
'11',"Upper West"
);
my %regGL=(
'01',"Nordgronland",
'02',"Ostgronland",
'03',"Vestgronland"
);
my %regGM=(
'01',"Banjul",
'02',"Lower River",
'03',"MacCarthy Island",
'04',"Upper River",
'05',"Western",
'07',"North Bank"
);
my %regGN=(
'01',"Beyla",
'02',"Boffa",
'03',"Boke",
'04',"Conakry",
'05',"Dabola",
'06',"Dalaba",
'07',"Dinguiraye",
'09',"Faranah",
'10',"Forecariah",
'11',"Fria",
'12',"Gaoual",
'13',"Gueckedou",
'15',"Kerouane",
'16',"Kindia",
'17',"Kissidougou",
'18',"Koundara",
'19',"Kouroussa",
'21',"Macenta",
'22',"Mali",
'23',"Mamou",
'25',"Pita",
'27',"Telimele",
'28',"Tougue",
'29',"Yomou",
'30',"Coyah",
'31',"Dubreka",
'32',"Kankan",
'33',"Koubia",
'34',"Labe",
'35',"Lelouma",
'36',"Lola",
'37',"Mandiana",
'38',"Nzerekore",
'39',"Siguiri"
);
my %regGQ=(
'03',"Annobon",
'04',"Bioko Norte",
'05',"Bioko Sur",
'06',"Centro Sur",
'07',"Kie-Ntem",
'08',"Litoral",
'09',"Wele-Nzas"
);
my %regGR=(
'01',"Evros",
'02',"Rodhopi",
'03',"Xanthi",
'04',"Drama",
'05',"Serrai",
'06',"Kilkis",
'07',"Pella",
'08',"Florina",
'09',"Kastoria",
'10',"Grevena",
'11',"Kozani",
'12',"Imathia",
'13',"Thessaloniki",
'14',"Kavala",
'15',"Khalkidhiki",
'16',"Pieria",
'17',"Ioannina",
'18',"Thesprotia",
'19',"Preveza",
'20',"Arta",
'21',"Larisa",
'22',"Trikala",
'23',"Kardhitsa",
'24',"Magnisia",
'25',"Kerkira",
'26',"Levkas",
'27',"Kefallinia",
'28',"Zakinthos",
'29',"Fthiotis",
'30',"Evritania",
'31',"Aitolia kai Akarnania",
'32',"Fokis",
'33',"Voiotia",
'34',"Evvoia",
'35',"Attiki",
'36',"Argolis",
'37',"Korinthia",
'38',"Akhaia",
'39',"Ilia",
'40',"Messinia",
'41',"Arkadhia",
'42',"Lakonia",
'43',"Khania",
'44',"Rethimni",
'45',"Iraklion",
'46',"Lasithi",
'47',"Dhodhekanisos",
'48',"Samos",
'49',"Kikladhes",
'50',"Khios",
'51',"Lesvos"
);
my %regGT=(
'01',"Alta Verapaz",
'02',"Baja Verapaz",
'03',"Chimaltenango",
'04',"Chiquimula",
'05',"El Progreso",
'06',"Escuintla",
'07',"Guatemala",
'08',"Huehuetenango",
'09',"Izabal",
'10',"Jalapa",
'11',"Jutiapa",
'12',"Peten",
'13',"Quetzaltenango",
'14',"Quiche",
'15',"Retalhuleu",
'16',"Sacatepequez",
'17',"San Marcos",
'18',"Santa Rosa",
'19',"Solola",
'20',"Suchitepequez",
'21',"Totonicapan",
'22',"Zacapa"
);
my %regGW=(
'01',"Bafata",
'02',"Quinara",
'04',"Oio",
'05',"Bolama",
'06',"Cacheu",
'07',"Tombali",
'10',"Gabu",
'11',"Bissau",
'12',"Biombo"
);
my %regGY=(
'10',"Barima-Waini",
'11',"Cuyuni-Mazaruni",
'12',"Demerara-Mahaica",
'13',"East Berbice-Corentyne",
'14',"Essequibo Islands-West Demerara",
'15',"Mahaica-Berbice",
'16',"Pomeroon-Supenaam",
'17',"Potaro-Siparuni",
'18',"Upper Demerara-Berbice",
'19',"Upper Takutu-Upper Essequibo"
);
my %regHN=(
'01',"Atlantida",
'02',"Choluteca",
'03',"Colon",
'04',"Comayagua",
'05',"Copan",
'06',"Cortes",
'07',"El Paraiso",
'08',"Francisco Morazan",
'09',"Gracias a Dios",
'10',"Intibuca",
'11',"Islas de la Bahia",
'12',"La Paz",
'13',"Lempira",
'14',"Ocotepeque",
'15',"Olancho",
'16',"Santa Barbara",
'17',"Valle",
'18',"Yoro"
);
my %regHR=(
'01',"Bjelovarsko-Bilogorska",
'02',"Brodsko-Posavska",
'03',"Dubrovacko-Neretvanska",
'04',"Istarska",
'05',"Karlovacka",
'06',"Koprivnicko-Krizevacka",
'07',"Krapinsko-Zagorska",
'08',"Licko-Senjska",
'09',"Medimurska",
'10',"Osjecko-Baranjska",
'11',"Pozesko-Slavonska",
'12',"Primorsko-Goranska",
'13',"Sibensko-Kninska",
'14',"Sisacko-Moslavacka",
'15',"Splitsko-Dalmatinska",
'16',"Varazdinska",
'17',"Viroviticko-Podravska",
'18',"Vukovarsko-Srijemska",
'19',"Zadarska",
'20',"Zagrebacka",
'21',"Grad Zagreb"
);
my %regHT=(
'03',"Nord-Ouest",
'06',"Artibonite",
'07',"Centre",
'08',"Grand' Anse",
'09',"Nord",
'10',"Nord-Est",
'11',"Ouest",
'12',"Sud",
'13',"Sud-Est"
);
my %regHU=(
'01',"Bacs-Kiskun",
'02',"Baranya",
'03',"Bekes",
'04',"Borsod-Abauj-Zemplen",
'05',"Budapest",
'06',"Csongrad",
'07',"Debrecen",
'08',"Fejer",
'09',"Gyor-Moson-Sopron",
'10',"Hajdu-Bihar",
'11',"Heves",
'12',"Komarom-Esztergom",
'13',"Miskolc",
'14',"Nograd",
'15',"Pecs",
'16',"Pest",
'17',"Somogy",
'18',"Szabolcs-Szatmar-Bereg",
'19',"Szeged",
'20',"Jasz-Nagykun-Szolnok",
'21',"Tolna",
'22',"Vas",
'23',"Veszprem",
'24',"Zala",
'25',"Gyor",
'26',"Bekescsaba",
'27',"Dunaujvaros",
'28',"Eger",
'29',"Hodmezovasarhely",
'30',"Kaposvar",
'31',"Kecskemet",
'32',"Nagykanizsa",
'33',"Nyiregyhaza",
'34',"Sopron",
'35',"Szekesfehervar",
'36',"Szolnok",
'37',"Szombathely",
'38',"Tatabanya",
'39',"Veszprem",
'40',"Zalaegerszeg"
);
my %regID=(
'01',"Aceh",
'02',"Bali",
'03',"Bengkulu",
'04',"Jakarta Raya",
'05',"Jambi",
'07',"Jawa Tengah",
'08',"Jawa Timur",
'09',"Papua",
'10',"Yogyakarta",
'11',"Kalimantan Barat",
'12',"Kalimantan Selatan",
'13',"Kalimantan Tengah",
'14',"Kalimantan Timur",
'15',"Lampung",
'17',"Nusa Tenggara Barat",
'18',"Nusa Tenggara Timur",
'19',"Riau",
'20',"Sulawesi Selatan",
'21',"Sulawesi Tengah",
'22',"Sulawesi Tenggara",
'24',"Sumatera Barat",
'26',"Sumatera Utara",
'27',"Timor Timur",
'28',"Maluku",
'29',"Maluku Utara",
'30',"Jawa Barat",
'31',"Sulawesi Utara",
'32',"Sumatera Selatan",
'33',"Banten",
'34',"Gorontalo",
'35',"Kepulauan Bangka Belitung"
);
my %regIE=(
'01',"Carlow",
'02',"Cavan",
'03',"Clare",
'04',"Cork",
'06',"Donegal",
'07',"Dublin",
'10',"Galway",
'11',"Kerry",
'12',"Kildare",
'13',"Kilkenny",
'14',"Leitrim",
'15',"Laois",
'16',"Limerick",
'18',"Longford",
'19',"Louth",
'20',"Mayo",
'21',"Meath",
'22',"Monaghan",
'23',"Offaly",
'24',"Roscommon",
'25',"Sligo",
'26',"Tipperary",
'27',"Waterford",
'29',"Westmeath",
'30',"Wexford",
'31',"Wicklow"
);
my %regIL=(
'01',"HaDarom",
'02',"HaMerkaz",
'03',"HaZafon",
'04',"Hefa",
'05',"Tel Aviv",
'06',"Yerushalayim"
);
my %regIN=(
'01',"Andaman and Nicobar Islands",
'02',"Andhra Pradesh",
'03',"Assam",
'05',"Chandigarh",
'06',"Dadra and Nagar Haveli",
'07',"Delhi",
'09',"Gujarat",
'10',"Haryana",
'11',"Himachal Pradesh",
'12',"Jammu and Kashmir",
'13',"Kerala",
'14',"Lakshadweep",
'16',"Maharashtra",
'17',"Manipur",
'18',"Meghalaya",
'19',"Karnataka",
'20',"Nagaland",
'21',"Orissa",
'22',"Pondicherry",
'23',"Punjab",
'24',"Rajasthan",
'25',"Tamil Nadu",
'26',"Tripura",
'28',"West Bengal",
'29',"Sikkim",
'30',"Arunachal Pradesh",
'31',"Mizoram",
'32',"Daman and Diu",
'33',"Goa",
'34',"Bihar",
'35',"Madhya Pradesh",
'36',"Uttar Pradesh",
'37',"Chhattisgarh",
'38',"Jharkhand",
'39',"Uttaranchal"
);
my %regIQ=(
'01',"Al Anbar",
'02',"Al Basrah",
'03',"Al Muthanna",
'04',"Al Qadisiyah",
'05',"As Sulaymaniyah",
'06',"Babil",
'07',"Baghdad",
'08',"Dahuk",
'09',"Dhi Qar",
'10',"Diyala",
'11',"Arbil",
'12',"Karbala'",
'13',"At Ta'mim",
'14',"Maysan",
'15',"Ninawa",
'16',"Wasit",
'17',"An Najaf",
'18',"Salah ad Din"
);
my %regIR=(
'01',"Azarbayjan-e Bakhtari",
'02',"Azarbayjan-e Khavari",
'03',"Chahar Mahall va Bakhtiari",
'04',"Sistan va Baluchestan",
'05',"Kohkiluyeh va Buyer Ahmadi",
'07',"Fars",
'08',"Gilan",
'09',"Hamadan",
'10',"Ilam",
'11',"Hormozgan",
'13',"Bakhtaran",
'15',"Khuzestan",
'16',"Kordestan",
'22',"Bushehr",
'23',"Lorestan",
'25',"Semnan",
'26',"Tehran",
'28',"Esfahan",
'29',"Kerman",
'30',"Khorasan",
'31',"Yazd",
'34',"Markazi",
'35',"Mazandaran",
'36',"Zanjan",
'37',"Golestan",
'38',"Qazvin",
'39',"Qom"
);
my %regIS=(
'01',"Akranes",
'02',"Akureyri",
'03',"Arnessysla",
'04',"Austur-Bardastrandarsysla",
'05',"Austur-Hunavatnssysla",
'06',"Austur-Skaftafellssysla",
'07',"Borgarfjardarsysla",
'08',"Dalasysla",
'09',"Eyjafjardarsysla",
'10',"Gullbringusysla",
'11',"Hafnarfjordur",
'12',"Husavik",
'13',"Isafjordur",
'14',"Keflavik",
'15',"Kjosarsysla",
'16',"Kopavogur",
'17',"Myrasysla",
'18',"Neskaupstadur",
'19',"Nordur-Isafjardarsysla",
'20',"Nordur-Mulasysla",
'21',"Nordur-Tingeyjarsysla",
'22',"Olafsfjordur",
'23',"Rangarvallasysla",
'24',"Reykjavik",
'25',"Saudarkrokur",
'26',"Seydisfjordur",
'27',"Siglufjordur",
'28',"Skagafjardarsysla",
'29',"Snafellsnes- og Hnappadalssysla",
'30',"Strandasysla",
'31',"Sudur-Mulasysla",
'32',"Sudur-Tingeyjarsysla",
'33',"Vestmannaeyjar",
'34',"Vestur-Bardastrandarsysla",
'35',"Vestur-Hunavatnssysla",
'36',"Vestur-Isafjardarsysla",
'37',"Vestur-Skaftafellssysla"
);
my %regIT=(
'01',"Abruzzi",
'02',"Basilicata",
'03',"Calabria",
'04',"Campania",
'05',"Emilia-Romagna",
'06',"Friuli-Venezia Giulia",
'07',"Lazio",
'08',"Liguria",
'09',"Lombardia",
'10',"Marche",
'11',"Molise",
'12',"Piemonte",
'13',"Puglia",
'14',"Sardegna",
'15',"Sicilia",
'16',"Toscana",
'17',"Trentino-Alto Adige",
'18',"Umbria",
'19',"Valle d'Aosta",
'20',"Veneto"
);
my %regJM=(
'01',"Clarendon",
'02',"Hanover",
'04',"Manchester",
'07',"Portland",
'08',"Saint Andrew",
'09',"Saint Ann",
'10',"Saint Catherine",
'11',"Saint Elizabeth",
'12',"Saint James",
'13',"Saint Mary",
'14',"Saint Thomas",
'15',"Trelawny",
'16',"Westmoreland",
'17',"Kingston"
);
my %regJO=(
'02',"Al Balqa'",
'07',"Ma",
'09',"Al Karak",
'10',"Al Mafraq",
'12',"At Tafilah",
'13',"Az Zarqa",
'14',"Irbid"
);
my %regJP=(
'01',"Aichi",
'02',"Akita",
'03',"Aomori",
'04',"Chiba",
'05',"Ehime",
'06',"Fukui",
'07',"Fukuoka",
'08',"Fukushima",
'09',"Gifu",
'10',"Gumma",
'11',"Hiroshima",
'12',"Hokkaido",
'13',"Hyogo",
'14',"Ibaraki",
'15',"Ishikawa",
'16',"Iwate",
'17',"Kagawa",
'18',"Kagoshima",
'19',"Kanagawa",
'20',"Kochi",
'21',"Kumamoto",
'22',"Kyoto",
'23',"Mie",
'24',"Miyagi",
'25',"Miyazaki",
'26',"Nagano",
'27',"Nagasaki",
'28',"Nara",
'29',"Niigata",
'30',"Oita",
'31',"Okayama",
'32',"Osaka",
'33',"Saga",
'34',"Saitama",
'35',"Shiga",
'36',"Shimane",
'37',"Shizuoka",
'38',"Tochigi",
'39',"Tokushima",
'40',"Tokyo",
'41',"Tottori",
'42',"Toyama",
'43',"Wakayama",
'44',"Yamagata",
'45',"Yamaguchi",
'46',"Yamanashi",
'47',"Okinawa"
);
my %regKE=(
'01',"Central",
'02',"Coast",
'03',"Eastern",
'05',"Nairobi Area",
'06',"North-Eastern",
'07',"Nyanza",
'08',"Rift Valley",
'09',"Western"
);
my %regKG=(
'09',"Batken"
);
my %regKH=(
'02',"Kampong Cham",
'03',"Kampong Chhnang",
'04',"Kampong Spoe",
'05',"Kampong Thum",
'06',"Kampot",
'07',"Kandal",
'08',"Kaoh Kong",
'09',"Kracheh",
'10',"Mondol Kiri",
'11',"Phnum Penh",
'12',"Pouthisat",
'13',"Preah Vihear",
'14',"Prey Veng",
'15',"Rotanokiri",
'16',"Siemreab-Otdar Meanchey",
'17',"Stoeng Treng",
'18',"Svay Rieng",
'19',"Takev",
'29',"Batdambang",
'30',"Pailin"
);
my %regKI=(
'01',"Gilbert Islands",
'02',"Line Islands",
'03',"Phoenix Islands"
);
my %regKM=(
'01',"Anjouan",
'02',"Grande Comore",
'03',"Moheli"
);
my %regKN=(
'01',"Christ Church Nichola Town",
'02',"Saint Anne Sandy Point",
'03',"Saint George Basseterre",
'04',"Saint George Gingerland",
'05',"Saint James Windward",
'06',"Saint John Capisterre",
'07',"Saint John Figtree",
'08',"Saint Mary Cayon",
'09',"Saint Paul Capisterre",
'10',"Saint Paul Charlestown",
'11',"Saint Peter Basseterre",
'12',"Saint Thomas Lowland",
'13',"Saint Thomas Middle Island",
'15',"Trinity Palmetto Point"
);
my %regKP=(
'01',"Chagang-do",
'03',"Hamgyong-namdo",
'06',"Hwanghae-namdo",
'07',"Hwanghae-bukto",
'08',"Kaesong-si",
'09',"Kangwon-do",
'11',"P'yongan-bukto",
'12',"P'yongyang-si",
'13',"Yanggang-do",
'14',"Namp'o-si",
'15',"P'yongan-namdo",
'17',"Hamgyong-bukto",
'18',"Najin Sonbong-si"
);
my %regKR=(
'01',"Cheju-do",
'03',"Cholla-bukto",
'05',"Ch'ungch'ong-bukto",
'06',"Kangwon-do",
'10',"Pusan-jikhalsi",
'11',"Soul-t'ukpyolsi",
'12',"Inch'on-jikhalsi",
'13',"Kyonggi-do",
'14',"Kyongsang-bukto",
'15',"Taegu-jikhalsi",
'16',"Cholla-namdo",
'17',"Ch'ungch'ong-namdo",
'18',"Kwangju-jikhalsi",
'19',"Taejon-jikhalsi",
'20',"Kyongsang-namdo",
'21',"Ulsan-gwangyoksi"
);
my %regKW=(
'01',"Al Ahmadi",
'02',"Al Kuwayt",
'03',"Hawalli"
);
my %regKY=(
'01',"Creek",
'02',"Eastern",
'03',"Midland",
'04',"South Town",
'05',"Spot Bay",
'06',"Stake Bay",
'07',"West End",
'08',"Western"
);
my %regKZ=(
'01',"Almaty",
'02',"Almaty City",
'03',"Aqmola",
'04',"Aqtöbe",
'05',"Astana",
'06',"Atyrau",
'07',"West Kazakhstan",
'08',"Bayqonyr",
'09',"Mangghystau",
'10',"South Kazakhstan",
'11',"Pavlodar",
'12',"Qaraghandy",
'13',"Qostanay",
'14',"Qyzylorda",
'15',"East Kazakhstan",
'16',"North Kazakhstan",
'17',"Zhambyl"
);
my %regLA=(
'01',"Attapu",
'02',"Champasak",
'03',"Houaphan",
'04',"Khammouan",
'05',"Louang Namtha",
'06',"Louangphrabang",
'07',"Oudomxai",
'08',"Phongsali",
'09',"Saravan",
'10',"Savannakhet",
'11',"Vientiane",
'13',"Xaignabouri",
'14',"Xiangkhoang"
);
my %regLB=(
'01',"Beqaa",
'03',"Liban-Nord",
'04',"Beyrouth",
'05',"Mont-Liban",
'06',"Liban-Sud",
'07',"Nabatiye"
);
my %regLC=(
'01',"Anse-la-Raye",
'02',"Dauphin",
'03',"Castries",
'04',"Choiseul",
'05',"Dennery",
'06',"Gros-Islet",
'07',"Laborie",
'08',"Micoud",
'09',"Soufriere",
'10',"Vieux-Fort",
'11',"Praslin"
);
my %regLI=(
'01',"Balzers",
'02',"Eschen",
'03',"Gamprin",
'04',"Mauren",
'05',"Planken",
'06',"Ruggell",
'07',"Schaan",
'08',"Schellenberg",
'09',"Triesen",
'10',"Triesenberg",
'11',"Vaduz"
);
my %regLK=(
'01',"Amparai",
'02',"Anuradhapura",
'03',"Badulla",
'04',"Batticaloa",
'06',"Galle",
'07',"Hambantota",
'09',"Kalutara",
'10',"Kandy",
'11',"Kegalla",
'12',"Kurunegala",
'14',"Matale",
'15',"Matara",
'16',"Moneragala",
'17',"Nuwara Eliya",
'18',"Polonnaruwa",
'19',"Puttalam",
'20',"Ratnapura",
'21',"Trincomalee",
'23',"Colombo",
'24',"Gampaha",
'25',"Jaffna",
'26',"Mannar",
'27',"Mullaittivu",
'28',"Vavuniya"
);
my %regLR=(
'01',"Bong",
'02',"Grand Jide",
'03',"Grand Bassa",
'04',"Grand Cape Mount",
'05',"Lofa",
'06',"Maryland",
'07',"Monrovia",
'08',"Montserrado",
'09',"Nimba",
'10',"Sino"
);
my %regLS=(
'10',"Berea",
'11',"Butha-Buthe",
'12',"Leribe",
'13',"Mafeteng",
'14',"Maseru",
'15',"Mohales Hoek",
'16',"Mokhotlong",
'17',"Qachas Nek",
'18',"Quthing",
'19',"Thaba-Tseka"
);
my %regLT=(
'56',"Alytaus Apskritis",
'57',"Kauno Apskritis",
'58',"Klaipedos Apskritis",
'59',"Marijampoles Apskritis",
'60',"Panevezio Apskritis",
'61',"Siauliu Apskritis",
'62',"Taurages Apskritis",
'63',"Telsiu Apskritis",
'64',"Utenos Apskritis",
'65',"Vilniaus Apskritis"
);
my %regLU=(
'01',"Diekirch",
'02',"Grevenmacher",
'03',"Luxembourg"
);
my %regLV=(
'01',"Aizkraukles",
'02',"Aluksnes",
'03',"Balvu",
'04',"Bauskas",
'05',"Césu",
'06',"Daugavpils",
'07',"Daugavpils",
'08',"Dobeles",
'09',"Gulbenes",
'10',"Jékabpils",
'11',"Jelgava",
'12',"Jelgavas",
'13',"Jurmala",
'14',"Kráslavas",
'15',"Kuldigas",
'16',"Liepája",
'17',"Liepájas",
'18',"Limbazu",
'19',"Ludzas",
'20',"Madonas",
'21',"Ogres",
'22',"Preilu",
'23',"Rézekne",
'24',"Rézeknes",
'25',"Riga",
'26',"Rigas",
'27',"Saldus",
'28',"Talsu",
'29',"Tukuma",
'30',"Valkas",
'31',"Valmieras",
'32',"Ventspils",
'33',"Ventspils"
);
my %regLY=(
'03',"Al",
'05',"Al Jufrah",
'08',"Al Kufrah",
'13',"Ash Shati'",
'30',"Murzuq",
'34',"Sabha",
'41',"Tarhunah",
'42',"Tubruq",
'45',"Zlitan",
'47',"Ajdabiya",
'48',"Al Fatih",
'49',"Al Jabal al Akhdar",
'50',"Al Khums",
'51',"An Nuqat al Khams",
'52',"Awbari",
'53',"Az Zawiyah",
'54',"Banghazi",
'55',"Darnah",
'56',"Ghadamis",
'57',"Gharyan",
'58',"Misratah",
'59',"Sawfajjin",
'60',"Surt",
'61',"Tarabulus",
'62',"Yafran"
);
my %regMA=(
'01',"Agadir",
'02',"Al Hoceima",
'03',"Azilal",
'04',"Ben Slimane",
'05',"Beni Mellal",
'06',"Boulemane",
'07',"Casablanca",
'08',"Chaouen",
'09',"El Jadida",
'10',"El Kelaa des Srarhna",
'11',"Er Rachidia",
'12',"Essaouira",
'13',"Fes",
'14',"Figuig",
'15',"Kenitra",
'16',"Khemisset",
'17',"Khenifra",
'18',"Khouribga",
'19',"Marrakech",
'20',"Meknes",
'21',"Nador",
'22',"Ouarzazate",
'23',"Oujda",
'24',"Rabat-Sale",
'25',"Safi",
'26',"Settat",
'27',"Tanger",
'29',"Tata",
'30',"Taza",
'32',"Tiznit",
'33',"Guelmim",
'34',"Ifrane",
'35',"Laayoune",
'36',"Tan-Tan",
'37',"Taounate",
'38',"Sidi Kacem",
'39',"Taroudannt",
'40',"Tetouan",
'41',"Larache"
);
my %regMC=(
'01',"La Condamine",
'02',"Monaco",
'03',"Monte-Carlo"
);
my %regMD=(
'46',"Balti",
'47',"Cahul",
'48',"Chisinau",
'49',"Stinga Nistrului",
'50',"Edinet",
'51',"Gagauzia",
'52',"Lapusna",
'53',"Orhei",
'54',"Soroca",
'55',"Tighina",
'56',"Ungheni"
);
my %regMG=(
'01',"Antsiranana",
'02',"Fianarantsoa",
'03',"Mahajanga",
'04',"Toamasina",
'05',"Antananarivo",
'06',"Toliara"
);
my %regMK=(
'01',"Aracinovo",
'02',"Bac",
'03',"Belcista",
'04',"Berovo",
'05',"Bistrica",
'06',"Bitola",
'07',"Blatec",
'08',"Bogdanci",
'09',"Bogomila",
'10',"Bogovinje",
'11',"Bosilovo",
'12',"Brvenica",
'13',"Cair",
'14',"Capari",
'15',"Caska",
'16',"Cegrane",
'17',"Centar",
'18',"Centar Zupa",
'19',"Cesinovo",
'20',"Cucer-Sandevo",
'21',"Debar",
'22',"Delcevo",
'23',"Delogozdi",
'24',"Demir Hisar",
'25',"Demir Kapija",
'26',"Dobrusevo",
'27',"Dolna Banjica",
'28',"Dolneni",
'29',"Dorce Petrov",
'30',"Drugovo",
'31',"Dzepciste",
'32',"Gazi Baba",
'33',"Gevgelija",
'34',"Gostivar",
'35',"Gradsko",
'36',"Ilinden",
'37',"Izvor",
'38',"Jegunovce",
'39',"Kamenjane",
'40',"Karbinci",
'41',"Karpos",
'42',"Kavadarci",
'43',"Kicevo",
'44',"Kisela Voda",
'45',"Klecevce",
'46',"Kocani",
'47',"Konce",
'48',"Kondovo",
'49',"Konopiste",
'50',"Kosel",
'51',"Kratovo",
'52',"Kriva Palanka",
'53',"Krivogastani",
'54',"Krusevo",
'55',"Kuklis",
'56',"Kukurecani",
'57',"Kumanovo",
'58',"Labunista",
'59',"Lipkovo",
'60',"Lozovo",
'61',"Lukovo",
'62',"Makedonska Kamenica",
'63',"Makedonski Brod",
'64',"Mavrovi Anovi",
'65',"Meseista",
'66',"Miravci",
'67',"Mogila",
'68',"Murtino",
'69',"Negotino",
'70',"Negotino-Polosko",
'71',"Novaci",
'72',"Novo Selo",
'73',"Oblesevo",
'74',"Ohrid",
'75',"Orasac",
'76',"Orizari",
'77',"Oslomej",
'78',"Pehcevo",
'79',"Petrovec",
'80',"Plasnica",
'81',"Podares",
'82',"Prilep",
'83',"Probistip",
'84',"Radovis",
'85',"Rankovce",
'86',"Resen",
'87',"Rosoman",
'88',"Rostusa",
'89',"Samokov",
'90',"Saraj",
'91',"Sipkovica",
'92',"Sopiste",
'93',"Sopotnica",
'94',"Srbinovo",
'95',"Staravina",
'96',"Star Dojran",
'97',"Staro Nagoricane",
'98',"Stip",
'99',"Struga",
'A1',"Strumica",
'A2',"Studenicani",
'A3',"Suto Orizari",
'A4',"Sveti Nikole",
'A5',"Tearce",
'A6',"Tetovo",
'A7',"Topolcani",
'A8',"Valandovo",
'A9',"Vasilevo",
'B1',"Veles",
'B2',"Velesta",
'B3',"Vevcani",
'B4',"Vinica",
'B5',"Vitoliste",
'B6',"Vranestica",
'B7',"Vrapciste",
'B8',"Vratnica",
'B9',"Vrutok",
'C1',"Zajas",
'C2',"Zelenikovo",
'C3',"Zelino",
'C4',"Zitose",
'C5',"Zletovo",
'C6',"Zrnovci"
);
my %regML=(
'01',"Bamako",
'02',"Gao",
'03',"Kayes",
'04',"Mopti",
'05',"Segou",
'06',"Sikasso",
'07',"Koulikoro",
'08',"Tombouctou"
);
my %regMM=(
'01',"Rakhine State",
'02',"Chin State",
'03',"Irrawaddy",
'04',"Kachin State",
'05',"Karan State",
'06',"Kayah State",
'07',"Magwe",
'08',"Mandalay",
'09',"Pegu",
'10',"Sagaing",
'11',"Shan State",
'12',"Tenasserim",
'13',"Mon State",
'14',"Rangoon"
);
my %regMN=(
'01',"Arhangay",
'02',"Bayanhongor",
'03',"Bayan-Olgiy",
'05',"Darhan",
'06',"Dornod",
'07',"Dornogovi",
'08',"Dundgovi",
'09',"Dzavhan",
'10',"Govi-Altay",
'11',"Hentiy",
'12',"Hovd",
'13',"Hovsgol",
'14',"Omnogovi",
'15',"Ovorhangay",
'16',"Selenge",
'17',"Suhbaatar",
'18',"Tov",
'19',"Uvs",
'20',"Ulaanbaatar",
'21',"Bulgan",
'22',"Erdenet",
'23',"Darhan Uul",
'24',"Govi-Sumber",
'25',"Orhon"
);
my %regMO=(
'01',"Ilhas",
'02',"Macau"
);
my %regMR=(
'01',"Hodh Ech Chargui",
'02',"Hodh El Gharbi",
'03',"Assaba",
'04',"Gorgol",
'05',"Brakna",
'06',"Trarza",
'07',"Adrar",
'08',"Dakhlet Nouadhibou",
'09',"Tagant",
'10',"Guidimaka",
'11',"Tiris Zemmour",
'12',"Inchiri"
);
my %regMS=(
'01',"Saint Anthony",
'02',"Saint Georges",
'03',"Saint Peter"
);
my %regMU=(
'12',"Black River",
'13',"Flacq",
'14',"Grand Port",
'15',"Moka",
'16',"Pamplemousses",
'17',"Plaines Wilhems",
'18',"Port Louis",
'19',"Riviere du Rempart",
'20',"Savanne",
'21',"Agalega Islands",
'22',"Cargados Carajos",
'23',"Rodrigues"
);
my %regMV=(
'01',"Seenu",
'02',"Aliff",
'03',"Laviyani",
'04',"Waavu",
'05',"Laamu",
'07',"Haa Aliff",
'08',"Thaa",
'12',"Meemu",
'13',"Raa",
'14',"Faafu",
'17',"Daalu",
'20',"Baa",
'23',"Haa Daalu",
'24',"Shaviyani",
'25',"Noonu",
'26',"Kaafu",
'27',"Gaafu Aliff",
'28',"Gaafu Daalu",
'29',"Naviyani"
);
my %regMW=(
'02',"Chikwawa",
'03',"Chiradzulu",
'04',"Chitipa",
'05',"Thyolo",
'06',"Dedza",
'07',"Dowa",
'08',"Karonga",
'09',"Kasungu",
'10',"Machinga",
'11',"Lilongwe",
'12',"Mangochi",
'13',"Mchinji",
'14',"Mulanje",
'15',"Mzimba",
'16',"Ntcheu",
'17',"Nkhata Bay",
'18',"Nkhotakota",
'19',"Nsanje",
'20',"Ntchisi",
'21',"Rumphi",
'22',"Salima",
'23',"Zomba",
'24',"Blantyre",
'25',"Mwanza"
);
my %regMX=(
'01',"Aguascalientes",
'02',"Baja California",
'03',"Baja California Sur",
'04',"Campeche",
'05',"Chiapas",
'06',"Chihuahua",
'07',"Coahuila de Zaragoza",
'08',"Colima",
'09',"Distrito Federal",
'10',"Durango",
'11',"Guanajuato",
'12',"Guerrero",
'13',"Hidalgo",
'14',"Jalisco",
'15',"Mexico",
'16',"Michoacan de Ocampo",
'17',"Morelos",
'18',"Nayarit",
'19',"Nuevo Leon",
'20',"Oaxaca",
'21',"Puebla",
'22',"Queretaro de Arteaga",
'23',"Quintana Roo",
'24',"San Luis Potosi",
'25',"Sinaloa",
'26',"Sonora",
'27',"Tabasco",
'28',"Tamaulipas",
'29',"Tlaxcala",
'30',"Veracruz-Llave",
'31',"Yucatan",
'32',"Zacatecas"
);
my %regMY=(
'01',"Johor",
'02',"Kedah",
'03',"Kelantan",
'04',"Melaka",
'05',"Negeri Sembilan",
'06',"Pahang",
'07',"Perak",
'08',"Perlis",
'09',"Pulau Pinang",
'11',"Sarawak",
'12',"Selangor",
'13',"Terengganu",
'14',"Wilayah Persekutuan",
'15',"Labuan",
'16',"Sabah"
);
my %regMZ=(
'01',"Cabo Delgado",
'02',"Gaza",
'03',"Inhambane",
'04',"Maputo",
'05',"Sofala",
'06',"Nampula",
'07',"Niassa",
'08',"Tete",
'09',"Zambezia",
'10',"Manica"
);
my %regNA=(
'01',"Bethanien",
'02',"Caprivi Oos",
'03',"Boesmanland",
'04',"Gobabis",
'05',"Grootfontein",
'06',"Kaokoland",
'07',"Karibib",
'08',"Keetmanshoop",
'09',"Luderitz",
'10',"Maltahohe",
'11',"Okahandja",
'12',"Omaruru",
'13',"Otjiwarongo",
'14',"Outjo",
'15',"Owambo",
'16',"Rehoboth",
'17',"Swakopmund",
'18',"Tsumeb",
'20',"Karasburg",
'21',"Windhoek",
'22',"Damaraland",
'23',"Hereroland Oos",
'24',"Hereroland Wes",
'25',"Kavango",
'26',"Mariental",
'27',"Namaland"
);
my %regNE=(
'01',"Agadez",
'02',"Diffa",
'03',"Dosso",
'04',"Maradi",
'05',"Niamey",
'06',"Tahoua",
'07',"Zinder"
);
my %regNG=(
'05',"Lagos",
'11',"Abuja Capital Territory",
'16',"Ogun",
'21',"Akwa Ibom",
'22',"Cross River",
'23',"Kaduna",
'24',"Katsina",
'25',"Anambra",
'26',"Benue",
'27',"Borno",
'28',"Imo",
'29',"Kano",
'30',"Kwara",
'31',"Niger",
'32',"Oyo",
'35',"Adamawa",
'36',"Delta",
'37',"Edo",
'39',"Jigawa",
'40',"Kebbi",
'41',"Kogi",
'42',"Osun",
'43',"Taraba",
'44',"Yobe",
'45',"Abia",
'46',"Bauchi",
'47',"Enugu",
'48',"Ondo",
'49',"Plateau",
'50',"Rivers",
'51',"Sokoto",
'52',"Bayelsa",
'53',"Ebonyi",
'54',"Ekiti",
'55',"Gombe",
'56',"Nassarawa",
'57',"Zamfara"
);
my %regNI=(
'01',"Boaco",
'02',"Carazo",
'03',"Chinandega",
'04',"Chontales",
'05',"Esteli",
'06',"Granada",
'07',"Jinotega",
'08',"Leon",
'09',"Madriz",
'10',"Managua",
'11',"Masaya",
'12',"Matagalpa",
'13',"Nueva Segovia",
'14',"Rio San Juan",
'15',"Rivas",
'16',"Zelaya"
);
my %regNL=(
'01',"Drenthe",
'02',"Friesland",
'03',"Gelderland",
'04',"Groningen",
'05',"Limburg",
'06',"Noord-Brabant",
'07',"Noord-Holland",
'08',"Overijssel",
'09',"Utrecht",
'10',"Zeeland",
'11',"Zuid-Holland",
'12',"Dronten",
'13',"Zuidelijke IJsselmeerpolders",
'14',"Lelystad",
'15',"Overijssel",
'16',"Flevoland"
);
my %regNO=(
'01',"Akershus",
'02',"Aust-Agder",
'04',"Buskerud",
'05',"Finnmark",
'06',"Hedmark",
'07',"Hordaland",
'08',"More og Romsdal",
'09',"Nordland",
'10',"Nord-Trondelag",
'11',"Oppland",
'12',"Oslo",
'13',"Ostfold",
'14',"Rogaland",
'15',"Sogn og Fjordane",
'16',"Sor-Trondelag",
'17',"Telemark",
'18',"Troms",
'19',"Vest-Agder",
'20',"Vestfold"
);
my %regNP=(
'01',"Bagmati",
'02',"Bheri",
'03',"Dhawalagiri",
'04',"Gandaki",
'05',"Janakpur",
'06',"Karnali",
'07',"Kosi",
'08',"Lumbini",
'09',"Mahakali",
'10',"Mechi",
'11',"Narayani",
'12',"Rapti",
'13',"Sagarmatha",
'14',"Seti"
);
my %regNR=(
'01',"Aiwo",
'02',"Anabar",
'03',"Anetan",
'04',"Anibare",
'05',"Baiti",
'06',"Boe",
'07',"Buada",
'08',"Denigomodu",
'09',"Ewa",
'10',"Ijuw",
'11',"Meneng",
'12',"Nibok",
'13',"Uaboe",
'14',"Yaren"
);
my %regNZ=(
'01',"Akaroa",
'03',"Amuri",
'04',"Ashburton",
'07',"Bay of Islands",
'08',"Bruce",
'09',"Buller",
'10',"Chatham Islands",
'11',"Cheviot",
'12',"Clifton",
'13',"Clutha",
'14',"Cook",
'16',"Dannevirke",
'17',"Egmont",
'18',"Eketahuna",
'19',"Ellesmere",
'20',"Eltham",
'21',"Eyre",
'22',"Featherston",
'24',"Franklin",
'26',"Golden Bay",
'27',"Great Barrier Island",
'28',"Grey",
'29',"Hauraki Plains",
'30',"Hawera",
'31',"Hawke's Bay",
'32',"Heathcote",
'33',"Hobson",
'34',"Hokianga",
'35',"Horowhenua",
'36',"Hutt",
'37',"Inangahua",
'38',"Inglewood",
'39',"Kaikoura",
'40',"Kairanga",
'41',"Kiwitea",
'43',"Lake",
'45',"Mackenzie",
'46',"Malvern",
'47',"Manawatu",
'48',"Mangonui",
'49',"Maniototo",
'50',"Marlborough",
'51',"Masterton",
'52',"Matamata",
'53',"Mount Herbert",
'54',"Ohinemuri",
'55',"Opotiki",
'56',"Oroua",
'57',"Otamatea",
'58',"Otorohanga",
'59',"Oxford",
'60',"Pahiatua",
'61',"Paparua",
'63',"Patea",
'65',"Piako",
'66',"Pohangina",
'67',"Raglan",
'68',"Rangiora",
'69',"Rangitikei",
'70',"Rodney",
'71',"Rotorua",
'72',"Southland",
'73',"Stewart Island",
'74',"Stratford",
'76',"Taranaki",
'77',"Taumarunui",
'78',"Taupo",
'79',"Tauranga",
'81',"Tuapeka",
'82',"Vincent",
'83',"Waiapu",
'84',"Waihemo",
'85',"Waikato",
'86',"Waikohu",
'88',"Waimairi",
'89',"Waimarino",
'90',"Waimate",
'91',"Waimate West",
'92',"Waimea",
'93',"Waipa",
'95',"Waipawa",
'96',"Waipukurau",
'97',"Wairarapa South",
'98',"Wairewa",
'99',"Wairoa",
'A1',"Whangarei",
'A2',"Whangaroa",
'A3',"Woodville",
'A4',"Waitaki",
'A6',"Waitomo",
'A8',"Waitotara",
'B2',"Wanganui",
'B3',"Westland",
'B4',"Whakatane",
'D4',"Hurunui",
'D5',"Silverpeaks",
'D6',"Strathallan",
'D8',"Waiheke",
'D9',"Hikurangi",
'E1',"Manaia",
'E2',"Runanga",
'E3',"Saint Kilda",
'E4',"Thames-Coromandel",
'E5',"Waverley",
'E6',"Wallace"
);
my %regOM=(
'01',"Ad Dakhiliyah",
'02',"Al Batinah",
'03',"Al Wusta",
'04',"Ash Sharqiyah",
'05',"Az Zahirah",
'06',"Masqat",
'07',"Musandam",
'08',"Zufar"
);
my %regPA=(
'01',"Bocas del Toro",
'02',"Chiriqui",
'03',"Cocle",
'04',"Colon",
'05',"Darien",
'06',"Herrera",
'07',"Los Santos",
'08',"Panama",
'09',"San Blas",
'10',"Veraguas"
);
my %regPE=(
'01',"Amazonas",
'02',"Ancash",
'03',"Apurimac",
'04',"Arequipa",
'05',"Ayacucho",
'06',"Cajamarca",
'07',"Callao",
'08',"Cusco",
'09',"Huancavelica",
'10',"Huanuco",
'11',"Ica",
'12',"Junin",
'13',"La Libertad",
'14',"Lambayeque",
'15',"Lima",
'16',"Loreto",
'17',"Madre de Dios",
'18',"Moquegua",
'19',"Pasco",
'20',"Piura",
'21',"Puno",
'22',"San Martin",
'23',"Tacna",
'24',"Tumbes",
'25',"Ucayali"
);
my %regPG=(
'01',"Central",
'02',"Gulf",
'03',"Milne Bay",
'04',"Northern",
'05',"Southern Highlands",
'06',"Western",
'07',"North Solomons",
'08',"Chimbu",
'09',"Eastern Highlands",
'10',"East New Britain",
'11',"East Sepik",
'12',"Madang",
'13',"Manus",
'14',"Morobe",
'15',"New Ireland",
'16',"Western Highlands",
'17',"West New Britain",
'18',"Sandaun",
'19',"Enga",
'20',"National Capital"
);
my %regPH=(
'01',"Abra",
'02',"Agusan del Norte",
'03',"Agusan del Sur",
'04',"Aklan",
'05',"Albay",
'06',"Antique",
'07',"Bataan",
'08',"Batanes",
'09',"Batangas",
'10',"Benguet",
'11',"Bohol",
'12',"Bukidnon",
'13',"Bulacan",
'14',"Cagayan",
'15',"Camarines Norte",
'16',"Camarines Sur",
'17',"Camiguin",
'18',"Capiz",
'19',"Catanduanes",
'20',"Cavite",
'21',"Cebu",
'22',"Basilan",
'23',"Eastern Samar",
'24',"Davao",
'25',"Davao del Sur",
'26',"Davao Oriental",
'27',"Ifugao",
'28',"Ilocos Norte",
'29',"Ilocos Sur",
'30',"Iloilo",
'31',"Isabela",
'32',"Kalinga-Apayao",
'33',"Laguna",
'34',"Lanao del Norte",
'35',"Lanao del Sur",
'36',"La Union",
'37',"Leyte",
'38',"Marinduque",
'39',"Masbate",
'40',"Mindoro Occidental",
'41',"Mindoro Oriental",
'42',"Misamis Occidental",
'43',"Misamis Oriental",
'44',"Mountain",
'46',"Negros Oriental",
'47',"Nueva Ecija",
'48',"Nueva Vizcaya",
'49',"Palawan",
'50',"Pampanga",
'51',"Pangasinan",
'53',"Rizal",
'54',"Romblon",
'55',"Samar",
'56',"Maguindanao",
'57',"North Cotabato",
'58',"Sorsogon",
'59',"Southern Leyte",
'60',"Sulu",
'61',"Surigao del Norte",
'62',"Surigao del Sur",
'63',"Tarlac",
'64',"Zambales",
'65',"Zamboanga del Norte",
'66',"Zamboanga del Sur",
'67',"Northern Samar",
'68',"Quirino",
'69',"Siquijor",
'70',"South Cotabato",
'71',"Sultan Kudarat",
'72',"Tawitawi",
'A1',"Angeles",
'A2',"Bacolod",
'A3',"Bago",
'A4',"Baguio",
'A5',"Bais",
'A6',"Basilan City",
'A7',"Batangas City",
'A8',"Butuan",
'A9',"Cabanatuan",
'B1',"Cadiz",
'B2',"Cagayan de Oro",
'B3',"Calbayog",
'B4',"Caloocan",
'B5',"Canlaon",
'B6',"Cavite City",
'B7',"Cebu City",
'B8',"Cotabato",
'B9',"Dagupan",
'C1',"Danao",
'C2',"Dapitan",
'C3',"Davao City",
'C4',"Dipolog",
'C5',"Dumaguete",
'C6',"General Santos",
'C7',"Gingoog",
'C8',"Iligan",
'C9',"Iloilo City",
'D1',"Iriga",
'D2',"La Carlota",
'D3',"Laoag",
'D4',"Lapu-Lapu",
'D5',"Legaspi",
'D6',"Lipa",
'D7',"Lucena",
'D8',"Mandaue",
'D9',"Manila",
'E1',"Marawi",
'E2',"Naga",
'E3',"Olongapo",
'E4',"Ormoc",
'E5',"Oroquieta",
'E6',"Ozamis",
'E7',"Pagadian",
'E8',"Palayan",
'E9',"Pasay",
'F1',"Puerto Princesa",
'F2',"Quezon City",
'F3',"Roxas",
'F4',"San Carlos",
'F5',"San Carlos",
'F6',"San Jose",
'F7',"San Pablo",
'F8',"Silay",
'F9',"Surigao",
'G1',"Tacloban",
'G2',"Tagaytay",
'G3',"Tagbilaran",
'G4',"Tangub",
'G5',"Toledo",
'G6',"Trece Martires",
'G7',"Zamboanga",
'G8',"Aurora",
'H2',"Quezon",
'H3',"Negros Occidental"
);
my %regPK=(
'01',"Federally Administered Tribal Areas",
'02',"Balochistan",
'03',"North-West Frontier",
'04',"Punjab",
'05',"Sindh",
'06',"Azad Kashmir",
'07',"Northern Areas",
'08',"Islamabad"
);
my %regPL=(
'23',"Biala Podlaska",
'24',"Bialystok",
'25',"Bielsko",
'26',"Bydgoszcz",
'27',"Chelm",
'28',"Ciechanow",
'29',"Czestochowa",
'30',"Elblag",
'31',"Gdansk",
'32',"Gorzow",
'33',"Jelenia Gora",
'34',"Kalisz",
'35',"Katowice",
'36',"Kielce",
'37',"Konin",
'38',"Koszalin",
'39',"Krakow",
'40',"Krosno",
'41',"Legnica",
'42',"Leszno",
'43',"Lodz",
'44',"Lomza",
'45',"Lublin",
'46',"Nowy Sacz",
'47',"Olsztyn",
'48',"Opole",
'49',"Ostroleka",
'50',"Pila",
'51',"Piotrkow",
'52',"Plock",
'53',"Poznan",
'54',"Przemysl",
'55',"Radom",
'56',"Rzeszow",
'57',"Siedlce",
'58',"Sieradz",
'59',"Skierniewice",
'60',"Slupsk",
'61',"Suwalki",
'62',"Szczecin",
'63',"Tarnobrzeg",
'64',"Tarnow",
'65',"Torun",
'66',"Walbrzych",
'67',"Warszawa",
'68',"Wloclawek",
'69',"Wroclaw",
'70',"Zamosc",
'71',"Zielona Gora"
);
my %regPT=(
'02',"Aveiro",
'03',"Beja",
'04',"Braga",
'05',"Braganca",
'06',"Castelo Branco",
'07',"Coimbra",
'08',"Evora",
'09',"Faro",
'10',"Madeira",
'11',"Guarda",
'13',"Leiria",
'14',"Lisboa",
'16',"Portalegre",
'17',"Porto",
'18',"Santarem",
'19',"Setubal",
'20',"Viana do Castelo",
'21',"Vila Real",
'22',"Viseu",
'23',"Azores"
);
my %regPY=(
'01',"Alto Parana",
'02',"Amambay",
'03',"Boqueron",
'04',"Caaguazu",
'05',"Caazapa",
'06',"Central",
'07',"Concepcion",
'08',"Cordillera",
'10',"Guaira",
'11',"Itapua",
'12',"Misiones",
'13',"Neembucu",
'15',"Paraguari",
'16',"Presidente Hayes",
'17',"San Pedro",
'18',"Alto Paraguay",
'19',"Canindeyu",
'20',"Chaco",
'21',"Nueva Asuncion"
);
my %regQA=(
'01',"Ad Dawhah",
'02',"Al Ghuwariyah",
'03',"Al Jumaliyah",
'04',"Al Khawr",
'05',"Al Wakrah",
'06',"Ar Rayyan",
'07',"Jariyan al Batnah",
'08',"Madinat ach Shamal",
'09',"Umm Salal"
);
my %regRO=(
'01',"Alba",
'02',"Arad",
'03',"Arges",
'04',"Bacau",
'05',"Bihor",
'06',"Bistrita-Nasaud",
'07',"Botosani",
'08',"Braila",
'09',"Brasov",
'10',"Bucuresti",
'11',"Buzau",
'12',"Caras-Severin",
'13',"Cluj",
'14',"Constanta",
'15',"Covasna",
'16',"Dambovita",
'17',"Dolj",
'18',"Galati",
'19',"Gorj",
'20',"Harghita",
'21',"Hunedoara",
'22',"Ialomita",
'23',"Iasi",
'25',"Maramures",
'26',"Mehedinti",
'27',"Mures",
'28',"Neamt",
'29',"Olt",
'30',"Prahova",
'31',"Salaj",
'32',"Satu Mare",
'33',"Sibiu",
'34',"Suceava",
'35',"Teleorman",
'36',"Timis",
'37',"Tulcea",
'38',"Vaslui",
'39',"Valcea",
'40',"Vrancea",
'41',"Calarasi",
'42',"Giurgiu"
);
my %regRU=(
'01',"Adygey",
'02',"Aga Buryat",
'03',"Gorno-Altay",
'04',"Altay",
'05',"Amur",
'06',"Arkhangel'sk",
'07',"Astrakhan'",
'08',"Bashkortostan",
'09',"Belgorod",
'10',"Bryansk",
'11',"Buryat",
'12',"Chechnya",
'13',"Chelyabinsk",
'14',"Chita",
'15',"Chukot",
'16',"Chuvash",
'17',"Dagestan",
'18',"Evenk",
'19',"Ingush",
'20',"Irkutsk",
'21',"Ivanovo",
'22',"Kabardin-Balkar",
'23',"Kaliningrad",
'24',"Kalmyk",
'25',"Kaluga",
'26',"Kamchatka",
'27',"Karachay-Cherkess",
'28',"Karelia",
'29',"Kemerovo",
'30',"Khabarovsk",
'31',"Khakass",
'32',"Khanty-Mansiy",
'33',"Kirov",
'34',"Komi",
'35',"Komi-Permyak",
'36',"Koryak",
'37',"Kostroma",
'38',"Krasnodar",
'39',"Krasnoyarsk",
'40',"Kurgan",
'41',"Kursk",
'42',"Leningrad",
'43',"Lipetsk",
'44',"Magadan",
'45',"Mariy-El",
'46',"Mordovia",
'47',"Moskva",
'48',"Moscow City",
'49',"Murmansk",
'50',"Nenets",
'51',"Nizhegorod",
'52',"Novgorod",
'53',"Novosibirsk",
'54',"Omsk",
'55',"Orenburg",
'56',"Orel",
'57',"Penza",
'58',"Perm'",
'59',"Primor'ye",
'60',"Pskov",
'61',"Rostov",
'62',"Ryazan'",
'63',"Sakha",
'64',"Sakhalin",
'65',"Samara",
'66',"Saint Petersburg City",
'67',"Saratov",
'68',"North Ossetia",
'69',"Smolensk",
'70',"Stavropol'",
'71',"Sverdlovsk",
'72',"Tambov",
'73',"Tatarstan",
'74',"Taymyr",
'75',"Tomsk",
'76',"Tula",
'77',"Tver'",
'78',"Tyumen'",
'79',"Tuva",
'80',"Udmurt",
'81',"Ul'yanovsk",
'82',"Ust-Orda Buryat",
'83',"Vladimir",
'84',"Volgograd",
'85',"Vologda",
'86',"Voronezh",
'87',"Yamal-Nenets",
'88',"Yaroslavl'",
'89',"Yevrey"
);
my %regRW=(
'01',"Butare",
'02',"Byumba",
'03',"Cyangugu",
'04',"Gikongoro",
'05',"Gisenyi",
'06',"Gitarama",
'07',"Kibungo",
'08',"Kibuye",
'09',"Kigali",
'10',"Ruhengeri"
);
my %regSA=(
'02',"Al Bahah",
'03',"Al Jawf",
'05',"Al Madinah",
'06',"Ash Sharqiyah",
'08',"Al Qasim",
'09',"Al Qurayyat",
'10',"Ar Riyad",
'13',"Ha'il",
'14',"Makkah",
'15',"Al Hudud ash Shamaliyah",
'16',"Najran",
'17',"Jizan",
'19',"Tabuk"
);
my %regSB=(
'03',"Malaita",
'04',"Western",
'05',"Central",
'06',"Guadalcanal",
'07',"Isabel",
'08',"Makira",
'09',"Temotu"
);
my %regSC=(
'01',"Anse aux Pins",
'02',"Anse Boileau",
'03',"Anse Etoile",
'04',"Anse Louis",
'05',"Anse Royale",
'06',"Baie Lazare",
'07',"Baie Sainte Anne",
'08',"Beau Vallon",
'09',"Bel Air",
'10',"Bel Ombre",
'11',"Cascade",
'12',"Glacis",
'13',"Grand' Anse",
'14',"Grand' Anse",
'15',"La Digue",
'16',"La Riviere Anglaise",
'17',"Mont Buxton",
'18',"Mont Fleuri",
'19',"Plaisance",
'20',"Pointe La Rue",
'21',"Port Glaud",
'22',"Saint Louis",
'23',"Takamaka"
);
my %regSD=(
'27',"Al Wusta",
'28',"Al Istiwa'iyah",
'29',"Al Khartum",
'30',"Ash Shamaliyah",
'31',"Ash Sharqiyah",
'32',"Bahr al Ghazal",
'33',"Darfur",
'34',"Kurdufan"
);
my %regSE=(
'01',"Alvsborgs Lan",
'02',"Blekinge Lan",
'03',"Gavleborgs Lan",
'04',"Goteborgs och Bohus Lan",
'05',"Gotlands Lan",
'06',"Hallands Lan",
'07',"Jamtlands Lan",
'08',"Jonkopings Lan",
'09',"Kalmar Lan",
'10',"Kopparbergs Lan",
'11',"Kristianstads Lan",
'12',"Kronobergs Lan",
'13',"Malmohus Lan",
'14',"Norrbottens Lan",
'15',"Orebro Lan",
'16',"Ostergotlands Lan",
'17',"Skaraborgs Lan",
'18',"Sodermanlands Lan",
'21',"Uppsala Lan",
'22',"Varmlands Lan",
'23',"Vasterbottens Lan",
'24',"Vasternorrlands Lan",
'25',"Vastmanlands Lan",
'26',"Stockholms Lan",
'27',"Skane Lan",
'28',"Vastra Gotaland"
);
my %regSH=(
'01',"Ascension",
'02',"Saint Helena",
'03',"Tristan da Cunha"
);
my %regSK=(
'01',"Banska Bystrica",
'02',"Bratislava",
'03',"Kosice",
'04',"Nitra",
'05',"Presov",
'06',"Trencin",
'07',"Trnava",
'08',"Zilina"
);
my %regSL=(
'01',"Eastern",
'02',"Northern",
'03',"Southern",
'04',"Western Area"
);
my %regSM=(
'01',"Acquaviva",
'02',"Chiesanuova",
'03',"Domagnano",
'04',"Faetano",
'05',"Fiorentino",
'06',"Borgo Maggiore",
'07',"San Marino",
'08',"Monte Giardino",
'09',"Serravalle"
);
my %regSN=(
'01',"Dakar",
'03',"Diourbel",
'04',"Saint-Louis",
'05',"Tambacounda",
'07',"Thies",
'08',"Louga",
'09',"Fatick",
'10',"Kaolack",
'11',"Kolda",
'12',"Ziguinchor"
);
my %regSO=(
'01',"Bakool",
'02',"Banaadir",
'03',"Bari",
'04',"Bay",
'05',"Galguduud",
'06',"Gedo",
'07',"Hiiraan",
'08',"Jubbada Dhexe",
'09',"Jubbada Hoose",
'10',"Mudug",
'11',"Nugaal",
'12',"Sanaag",
'13',"Shabeellaha Dhexe",
'14',"Shabeellaha Hoose",
'15',"Togdheer",
'16',"Woqooyi Galbeed"
);
my %regSR=(
'10',"Brokopondo",
'11',"Commewijne",
'12',"Coronie",
'13',"Marowijne",
'14',"Nickerie",
'15',"Para",
'16',"Paramaribo",
'17',"Saramacca",
'18',"Sipaliwini",
'19',"Wanica"
);
my %regST=(
'01',"Principe",
'02',"Sao Tome"
);
my %regSV=(
'01',"Ahuachapan",
'02',"Cabanas",
'03',"Chalatenango",
'04',"Cuscatlan",
'05',"La Libertad",
'06',"La Paz",
'07',"La Union",
'08',"Morazan",
'09',"San Miguel",
'10',"San Salvador",
'11',"Santa Ana",
'12',"San Vicente",
'13',"Sonsonate",
'14',"Usulutan"
);
my %regSY=(
'01',"Al Hasakah",
'02',"Al Ladhiqiyah",
'03',"Al Qunaytirah",
'04',"Ar Raqqah",
'05',"As Suwayda'",
'06',"Dar",
'07',"Dayr az Zawr",
'08',"Rif Dimashq",
'09',"Halab",
'10',"Hamah",
'11',"Hims",
'12',"Idlib",
'13',"Dimashq",
'14',"Tartus"
);
my %regSZ=(
'01',"Hhohho",
'02',"Lubombo",
'03',"Manzini",
'04',"Shiselweni",
'05',"Praslin"
);
my %regTD=(
'01',"Batha",
'02',"Biltine",
'03',"Borkou-Ennedi-Tibesti",
'04',"Chari-Baguirmi",
'05',"Guera",
'06',"Kanem",
'07',"Lac",
'08',"Logone Occidental",
'09',"Logone Oriental",
'10',"Mayo-Kebbi",
'11',"Moyen-Chari",
'12',"Ouaddai",
'13',"Salamat",
'14',"Tandjile"
);
my %regTG=(
'01',"Amlame",
'02',"Aneho",
'03',"Atakpame",
'04',"Bafilo",
'05',"Bassar",
'06',"Dapaong",
'07',"Kante",
'08',"Klouto",
'09',"Lama-Kara",
'10',"Lome",
'11',"Mango",
'12',"Niamtougou",
'13',"Notse",
'14',"Kpagouda",
'15',"Badou",
'16',"Sotouboua",
'17',"Tabligbo",
'18',"Tsevie",
'19',"Tchamba",
'20',"Tchaoudjo",
'21',"Vogan"
);
my %regTH=(
'01',"Mae Hong Son",
'02',"Chiang Mai",
'03',"Chiang Rai",
'04',"Nan",
'05',"Lamphun",
'06',"Lampang",
'07',"Phrae",
'08',"Tak",
'09',"Sukhothai",
'10',"Uttaradit",
'11',"Kamphaeng Phet",
'12',"Phitsanulok",
'13',"Phichit",
'14',"Phetchabun",
'15',"Uthai Thani",
'16',"Nakhon Sawan",
'17',"Nong Khai",
'18',"Loei",
'19',"Udon Thani",
'20',"Sakon Nakhon",
'21',"Nakhon Phanom",
'22',"Khon Kaen",
'23',"Kalasin",
'24',"Maha Sarakham",
'25',"Roi Et",
'26',"Chaiyaphum",
'27',"Nakhon Ratchasima",
'28',"Buriram",
'29',"Surin",
'30',"Sisaket",
'31',"Narathiwat",
'32',"Chai Nat",
'33',"Sing Buri",
'34',"Lop Buri",
'35',"Ang Thong",
'36',"Phra Nakhon Si Ayutthaya",
'37',"Saraburi",
'38',"Nonthaburi",
'39',"Pathum Thani",
'40',"Krung Thep",
'41',"Phayao",
'42',"Samut Prakan",
'43',"Nakhon Nayok",
'44',"Chachoengsao",
'45',"Prachin Buri",
'46',"Chon Buri",
'47',"Rayong",
'48',"Chanthaburi",
'49',"Trat",
'50',"Kanchanaburi",
'51',"Suphan Buri",
'52',"Ratchaburi",
'53',"Nakhon Pathom",
'54',"Samut Songkhram",
'55',"Samut Sakhon",
'56',"Phetchaburi",
'57',"Prachuap Khiri Khan",
'58',"Chumphon",
'59',"Ranong",
'60',"Surat Thani",
'61',"Phangnga",
'62',"Phuket",
'63',"Krabi",
'64',"Nakhon Si Thammarat",
'65',"Trang",
'66',"Phatthalung",
'67',"Satun",
'68',"Songkhla",
'69',"Pattani",
'70',"Yala",
'71',"Ubon Ratchathani",
'72',"Yasothon"
);
my %regTM=(
'01',"Ahal",
'02',"Balkan",
'03',"Dashoguz",
'04',"Lebap",
'05',"Mary"
);
my %regTN=(
'02',"Al Qasrayn",
'03',"Al Qayrawan",
'06',"Jundubah",
'10',"Qafsah",
'14',"Al Kaf",
'15',"Al Mahdiyah",
'16',"Al Munastir",
'17',"Bajah",
'18',"Banzart",
'19',"Nabul",
'22',"Silyanah",
'23',"Susah",
'26',"Aryanah",
'27',"Bin",
'28',"Madanin",
'29',"Qabis",
'31',"Qibili",
'32',"Safaqis",
'33',"Sidi Bu Zayd",
'34',"Tatawin",
'35',"Tawzar",
'36',"Tunis",
'37',"Zaghwan"
);
my %regTO=(
'01',"Ha",
'02',"Tongatapu",
'03',"Vava"
);
my %regTR=(
'02',"Adiyaman",
'03',"Afyon",
'04',"Agri",
'05',"Amasya",
'07',"Antalya",
'08',"Artvin",
'09',"Aydin",
'10',"Balikesir",
'11',"Bilecik",
'12',"Bingol",
'13',"Bitlis",
'14',"Bolu",
'15',"Burdur",
'16',"Bursa",
'17',"Canakkale",
'19',"Corum",
'20',"Denizli",
'21',"Diyarbakir",
'22',"Edirne",
'23',"Elazig",
'24',"Erzincan",
'25',"Erzurum",
'26',"Eskisehir",
'28',"Giresun",
'31',"Hatay",
'32',"Icel",
'33',"Isparta",
'34',"Istanbul",
'35',"Izmir",
'37',"Kastamonu",
'38',"Kayseri",
'39',"Kirklareli",
'40',"Kirsehir",
'41',"Kocaeli",
'43',"Kutahya",
'44',"Malatya",
'45',"Manisa",
'46',"Kahramanmaras",
'48',"Mugla",
'49',"Mus",
'50',"Nevsehir",
'52',"Ordu",
'53',"Rize",
'54',"Sakarya",
'55',"Samsun",
'57',"Sinop",
'58',"Sivas",
'59',"Tekirdag",
'60',"Tokat",
'61',"Trabzon",
'62',"Tunceli",
'63',"Sanliurfa",
'64',"Usak",
'65',"Van",
'66',"Yozgat",
'68',"Ankara",
'69',"Gumushane",
'70',"Hakkari",
'71',"Konya",
'72',"Mardin",
'73',"Nigde",
'74',"Siirt",
'75',"Aksaray",
'76',"Batman",
'77',"Bayburt",
'78',"Karaman",
'79',"Kirikkale",
'80',"Sirnak",
'81',"Adana",
'82',"Cankiri",
'83',"Gaziantep",
'84',"Kars",
'85',"Zonguldak",
'86',"Ardahan",
'87',"Bartin",
'88',"Igdir",
'89',"Karabuk",
'90',"Kilis",
'91',"Osmaniye",
'92',"Yalova"
);
my %regTT=(
'01',"Arima",
'02',"Caroni",
'03',"Mayaro",
'04',"Nariva",
'05',"Port-of-Spain",
'06',"Saint Andrew",
'07',"Saint David",
'08',"Saint George",
'09',"Saint Patrick",
'10',"San Fernando",
'11',"Tobago",
'12',"Victoria"
);
my %regTW=(
'01',"Fu-chien",
'02',"Kao-hsiung",
'03',"T'ai-pei",
'04',"T'ai-wan"
);
my %regTZ=(
'01',"Arusha",
'02',"Pwani",
'03',"Dodoma",
'04',"Iringa",
'05',"Kigoma",
'06',"Kilimanjaro",
'07',"Lindi",
'08',"Mara",
'09',"Mbeya",
'10',"Morogoro",
'11',"Mtwara",
'12',"Mwanza",
'13',"Pemba North",
'14',"Ruvuma",
'15',"Shinyanga",
'16',"Singida",
'17',"Tabora",
'18',"Tanga",
'19',"Kagera",
'20',"Pemba South",
'21',"Zanzibar Central",
'22',"Zanzibar North",
'23',"Dar es Salaam",
'24',"Rukwa",
'25',"Zanzibar Urban"
);
my %regUA=(
'01',"Cherkas'ka Oblast'",
'02',"Chernihivs'ka Oblast'",
'03',"Chernivets'ka Oblast'",
'04',"Dnipropetrovs'ka Oblast'",
'05',"Donets'ka Oblast'",
'06',"Ivano-Frankivs'ka Oblast'",
'07',"Kharkivs'ka Oblast'",
'08',"Khersons'ka Oblast'",
'09',"Khmel'nyts'ka Oblast'",
'10',"Kirovohrads'ka Oblast'",
'11',"Krym",
'12',"Kyyiv",
'13',"Kyyivs'ka Oblast'",
'14',"Luhans'ka Oblast'",
'15',"L'vivs'ka Oblast'",
'16',"Mykolayivs'ka Oblast'",
'17',"Odes'ka Oblast'",
'18',"Poltavs'ka Oblast'",
'19',"Rivnens'ka Oblast'",
'20',"Sevastopol'",
'21',"Sums'ka Oblast'",
'22',"Ternopil's'ka Oblast'",
'23',"Vinnyts'ka Oblast'",
'24',"Volyns'ka Oblast'",
'25',"Zakarpats'ka Oblast'",
'26',"Zaporiz'ka Oblast'",
'27',"Zhytomyrs'ka Oblast'"
);
my %regUG=(
'05',"Busoga",
'08',"Karamoja",
'12',"South Buganda",
'18',"Central",
'20',"Eastern",
'21',"Nile",
'22',"North Buganda",
'23',"Northern",
'24',"Southern",
'25',"Western",
'65',"Adjumani",
'66',"Bugiri",
'67',"Busia",
'69',"Katakwi",
'73',"Nakasongola",
'74',"Sembabule"
);
my %regUY=(
'01',"Artigas",
'02',"Canelones",
'03',"Cerro Largo",
'04',"Colonia",
'05',"Durazno",
'06',"Flores",
'07',"Florida",
'08',"Lavalleja",
'09',"Maldonado",
'10',"Montevideo",
'11',"Paysandu",
'12',"Rio Negro",
'13',"Rivera",
'14',"Rocha",
'15',"Salto",
'16',"San Jose",
'17',"Soriano",
'18',"Tacuarembo",
'19',"Treinta y Tres"
);
my %regUZ=(
'01',"Andijon",
'02',"Bukhoro",
'03',"Farghona",
'04',"Jizzakh",
'05',"Khorazm",
'06',"Namangan",
'07',"Nawoiy",
'08',"Qashqadaryo",
'09',"Qoraqalpoghiston",
'10',"Samarqand",
'11',"Sirdaryo",
'12',"Surkhondaryo",
'13',"Toshkent",
'14',"Toshkent"
);
my %regVC=(
'01',"Charlotte",
'02',"Saint Andrew",
'03',"Saint David",
'04',"Saint George",
'05',"Saint Patrick",
'06',"Grenadines"
);
my %regVE=(
'01',"Amazonas",
'02',"Anzoategui",
'03',"Apure",
'04',"Aragua",
'05',"Barinas",
'06',"Bolivar",
'07',"Carabobo",
'08',"Cojedes",
'09',"Delta Amacuro",
'11',"Falcon",
'12',"Guarico",
'13',"Lara",
'14',"Merida",
'15',"Miranda",
'16',"Monagas",
'17',"Nueva Esparta",
'18',"Portuguesa",
'19',"Sucre",
'20',"Tachira",
'21',"Trujillo",
'22',"Yaracuy",
'23',"Zulia",
'24',"Dependencias Federales",
'25',"Distrito Federal",
'26',"Vargas"
);
my %regVN=(
'02',"Bac Thai",
'03',"Ben Tre",
'05',"Cao Bang",
'11',"Ha Bac",
'12',"Hai Hung",
'13',"Hai Phong",
'22',"Lai Chau",
'23',"Lam Dong",
'24',"Long An",
'29',"Quang Nam-Da Nang",
'30',"Quang Ninh",
'32',"Son La",
'33',"Tay Ninh",
'34',"Thanh Hoa",
'35',"Thai Binh",
'37',"Tien Giang",
'39',"Lang Son",
'43',"An Giang",
'44',"Dac Lac",
'45',"Dong Nai",
'46',"Dong Thap",
'47',"Kien Giang",
'48',"Minh Hai",
'49',"Song Be",
'50',"Vinh Phu",
'51',"Ha Noi",
'52',"Ho Chi Minh",
'53',"Ba Ria-Vung Tau",
'54',"Binh Dinh",
'55',"Binh Thuan",
'56',"Can Tho",
'57',"Gia Lai",
'58',"Ha Giang",
'59',"Ha Tay",
'60',"Ha Tinh",
'61',"Hoa Binh",
'62',"Khanh Hoa",
'63',"Kon Tum",
'64',"Lao Cai",
'65',"Nam Ha",
'66',"Nghe An",
'67',"Ninh Binh",
'68',"Ninh Thuan",
'69',"Phu Yen",
'70',"Quang Binh",
'71',"Quang Ngai",
'72',"Quang Tri",
'73',"Soc Trang",
'74',"Thua Thien",
'75',"Tra Vinh",
'76',"Tuyen Quang",
'77',"Vinh Long",
'78',"Yen Bai"
);
my %regVU=(
'05',"Ambrym",
'06',"Aoba",
'07',"Banks",
'08',"Efate",
'09',"Epi",
'10',"Malakula",
'11',"Paama",
'12',"Pentecote",
'13',"Santo",
'14',"Shepherd",
'15',"Tafea"
);
my %regWS=(
'02',"Aiga-i-le-Tai",
'03',"Atua",
'04',"Fa",
'05',"Gaga",
'06',"Va",
'07',"Gagaifomauga",
'08',"Palauli",
'09',"Satupa",
'10',"Tuamasaga",
'11',"Vaisigano"
);
my %regYE=(
'01',"Abyan",
'03',"Al Mahrah",
'04',"Hadramawt",
'05',"Shabwah",
'06',"Lahij",
'07',"Al Bayda'",
'08',"Al Hudaydah",
'09',"Al Jawf",
'10',"Al Mahwit",
'11',"Dhamar",
'12',"Hajjah",
'13',"Ibb",
'14',"Ma'rib",
'15',"Sa",
'16',"San",
'17',"Ta"
);
my %regZA=(
'01',"Cape Province",
'02',"Natal",
'03',"Orange Free State",
'04',"Transvaal"
);
my %regZM=(
'01',"Western",
'02',"Central",
'03',"Eastern",
'04',"Luapula",
'05',"Northern",
'06',"North-Western",
'07',"Southern",
'08',"Copperbelt",
'09',"Lusaka"
);
my %regZR=(
'01',"Bandundu",
'02',"Equateur",
'03',"Kasai-Occidental",
'04',"Kasai-Oriental",
'05',"Shaba",
'06',"Kinshasa",
'07',"Kivu",
'08',"Bas-Zaire",
'09',"Haut-Zaire"
);
my %regZW=(
'01',"Manicaland",
'02',"Midlands",
'03',"Mashonaland Central",
'04',"Mashonaland East",
'05',"Mashonaland West",
'06',"Matabeleland North",
'07',"Matabeleland South",
'08',"Masvingo",
'09',"Bulawayo",
'10',"Harare"
);
my %region=(
'CA'=>\%regCA,
'US'=>\%regUS,
'AD'=>\%regAD,
'AE'=>\%regAE,
'AF'=>\%regAF,
'AG'=>\%regAG,
'AL'=>\%regAL,
'AM'=>\%regAM,
'AO'=>\%regAO,
'AR'=>\%regAR,
'AT'=>\%regAT,
'AU'=>\%regAU,
'AZ'=>\%regAZ,
'BA'=>\%regBA,
'BB'=>\%regBB,
'BD'=>\%regBD,
'BE'=>\%regBE,
'BF'=>\%regBF,
'BG'=>\%regBG,
'BH'=>\%regBH,
'BI'=>\%regBI,
'BJ'=>\%regBJ,
'BM'=>\%regBM,
'BN'=>\%regBN,
'BO'=>\%regBO,
'BR'=>\%regBR,
'BS'=>\%regBS,
'BT'=>\%regBT,
'BW'=>\%regBW,
'BY'=>\%regBY,
'BZ'=>\%regBZ,
'CF'=>\%regCF,
'CG'=>\%regCG,
'CH'=>\%regCH,
'CI'=>\%regCI,
'CL'=>\%regCL,
'CM'=>\%regCM,
'CN'=>\%regCN,
'CO'=>\%regCO,
'CR'=>\%regCR,
'CU'=>\%regCU,
'CV'=>\%regCV,
'CY'=>\%regCY,
'CZ'=>\%regCZ,
'DE'=>\%regDE,
'DJ'=>\%regDJ,
'DK'=>\%regDK,
'DM'=>\%regDM,
'DO'=>\%regDO,
'DZ'=>\%regDZ,
'EC'=>\%regEC,
'EE'=>\%regEE,
'EG'=>\%regEG,
'ES'=>\%regES,
'ET'=>\%regET,
'FI'=>\%regFI,
'FJ'=>\%regFJ,
'FM'=>\%regFM,
'FR'=>\%regFR,
'GA'=>\%regGA,
'GB'=>\%regGB,
'GD'=>\%regGD,
'GE'=>\%regGE,
'GH'=>\%regGH,
'GL'=>\%regGL,
'GM'=>\%regGM,
'GN'=>\%regGN,
'GQ'=>\%regGQ,
'GR'=>\%regGR,
'GT'=>\%regGT,
'GW'=>\%regGW,
'GY'=>\%regGY,
'HN'=>\%regHN,
'HR'=>\%regHR,
'HT'=>\%regHT,
'HU'=>\%regHU,
'ID'=>\%regID,
'IE'=>\%regIE,
'IL'=>\%regIL,
'IN'=>\%regIN,
'IQ'=>\%regIQ,
'IR'=>\%regIR,
'IS'=>\%regIS,
'IT'=>\%regIT,
'JM'=>\%regJM,
'JO'=>\%regJO,
'JP'=>\%regJP,
'KE'=>\%regKE,
'KG'=>\%regKG,
'KH'=>\%regKH,
'KI'=>\%regKI,
'KM'=>\%regKM,
'KN'=>\%regKN,
'KP'=>\%regKP,
'KR'=>\%regKR,
'KW'=>\%regKW,
'KY'=>\%regKY,
'KZ'=>\%regKZ,
'LA'=>\%regLA,
'LB'=>\%regLB,
'LC'=>\%regLC,
'LI'=>\%regLI,
'LK'=>\%regLK,
'LR'=>\%regLR,
'LS'=>\%regLS,
'LT'=>\%regLT,
'LU'=>\%regLU,
'LV'=>\%regLV,
'LY'=>\%regLY,
'MA'=>\%regMA,
'MC'=>\%regMC,
'MD'=>\%regMD,
'MG'=>\%regMG,
'MK'=>\%regMK,
'ML'=>\%regML,
'MM'=>\%regMM,
'MN'=>\%regMN,
'MO'=>\%regMO,
'MR'=>\%regMR,
'MS'=>\%regMS,
'MU'=>\%regMU,
'MV'=>\%regMV,
'MW'=>\%regMW,
'MX'=>\%regMX,
'MY'=>\%regMY,
'MZ'=>\%regMZ,
'NA'=>\%regNA,
'NE'=>\%regNE,
'NG'=>\%regNG,
'NI'=>\%regNI,
'NL'=>\%regNL,
'NO'=>\%regNO,
'NP'=>\%regNP,
'NR'=>\%regNR,
'NZ'=>\%regNZ,
'OM'=>\%regOM,
'PA'=>\%regPA,
'PE'=>\%regPE,
'PG'=>\%regPG,
'PH'=>\%regPH,
'PK'=>\%regPK,
'PL'=>\%regPL,
'PT'=>\%regPT,
'PY'=>\%regPY,
'QA'=>\%regQA,
'RO'=>\%regRO,
'RU'=>\%regRU,
'RW'=>\%regRW,
'SA'=>\%regSA,
'SB'=>\%regSB,
'SC'=>\%regSC,
'SD'=>\%regSD,
'SE'=>\%regSE,
'SH'=>\%regSH,
'SK'=>\%regSK,
'SL'=>\%regSL,
'SM'=>\%regSM,
'SN'=>\%regSN,
'SO'=>\%regSO,
'SR'=>\%regSR,
'ST'=>\%regST,
'SV'=>\%regSV,
'SY'=>\%regSY,
'SZ'=>\%regSZ,
'TD'=>\%regTD,
'TG'=>\%regTG,
'TH'=>\%regTH,
'TM'=>\%regTM,
'TN'=>\%regTN,
'TO'=>\%regTO,
'TR'=>\%regTR,
'TT'=>\%regTT,
'TW'=>\%regTW,
'TZ'=>\%regTZ,
'UA'=>\%regUA,
'UG'=>\%regUG,
'UY'=>\%regUY,
'UZ'=>\%regUZ,
'VC'=>\%regVC,
'VE'=>\%regVE,
'VN'=>\%regVN,
'VU'=>\%regVU,
'WS'=>\%regWS,
'YE'=>\%regYE,
'ZA'=>\%regZA,
'ZM'=>\%regZM,
'ZR'=>\%regZR,
'ZW'=>\%regZW
);
# ----->
#-----------------------------------------------------------------------------
# PLUGIN FUNCTION: Init_pluginname
#-----------------------------------------------------------------------------
sub Init_geoip_region_cbl {
 my $InitParams=shift;
 my $checkversion=&Check_Plugin_Version($PluginNeedAWStatsVersion);
    $MAXNBOFSECTIONGIR=10;
   
 # <-----
 # ENTER HERE CODE TO DO INIT PLUGIN ACTIONS
 debug(" Plugin geoip_region_cbl: InitParams=$InitParams",1);
    my ($mode,$datafile)=split(/\s+/,$InitParams,2);
    if (! $datafile) { $datafile="GeoIPRegion.dat"; }
 if ($type eq 'geoippureperl') {
  if ($mode eq '' || $mode eq 'GEOIP_MEMORY_CACHE')  { $mode=Geo::IP::PurePerl::GEOIP_MEMORY_CACHE(); }
  else { $mode=Geo::IP::PurePerl::GEOIP_STANDARD(); }
 } else {
  if ($mode eq '' || $mode eq 'GEOIP_MEMORY_CACHE')  { $mode=Geo::IP::GEOIP_MEMORY_CACHE(); }
  else { $mode=Geo::IP::GEOIP_STANDARD(); }
 }
 %TmpDomainLookup=();
 debug(" Plugin geoip_region_cbl: GeoIP initialized type="$type" mode=$mode",1);
 if ($type eq 'geoippureperl') {
  $geoip_region_cbl = Geo::IP::PurePerl->open($datafile, $mode);
 } else {
  $geoip_region_cbl = Geo::IP->open($datafile, $mode);
 }
# Fails with some geoip versions
#  debug(" Plugin geoip_region_cbl: GeoIP initialized database_info=".$geoip_region_cbl->database_info());
  # ----->  return ($checkversion?$checkversion:"$PluginHooksFunctions");
}
#-----------------------------------------------------------------------------
# PLUGIN FUNCTION: AddHTMLMenuLink_pluginname
# UNIQUE: NO (Several plugins using this function can be loaded)
#-----------------------------------------------------------------------------
sub AddHTMLMenuLink_geoip_region_cbl {
    my $categ=$_[0];
    my $menu=$_[1];
    my $menulink=$_[2];
    my $menutext=$_[3];
 # <-----
 if ($Debug) { debug(" Plugin geoip_region_cbl: AddHTMLMenuLink"); }
    if ($categ eq 'who') {
        $menu->{'plugin_geoip_region_cbl'}=2.1;             # Pos
        $menulink->{'plugin_geoip_region_cbl'}=2;           # Type of link
        $menutext->{'plugin_geoip_region_cbl'}="Regiones";   # Text
    }
 # ----->
 return 0;
}
#-----------------------------------------------------------------------------
# PLUGIN FUNCTION: AddHTMLGraph_pluginname
# UNIQUE: NO (Several plugins using this function can be loaded)
#-----------------------------------------------------------------------------
sub AddHTMLGraph_geoip_region_cbl {
    my $categ=$_[0];
    my $menu=$_[1];
    my $menulink=$_[2];
    my $menutext=$_[3];
 # <-----
    my $ShowRegions='H';
 $MinHit{'Regiones'}=1;
 my $total_p; my $total_h; my $total_k;
 my $rest_p; my $rest_h; my $rest_k;  if ($Debug) { debug(" Plugin geoip_region_cbl: AddHTMLGraph"); }
 my $title='Regiones';
 &tab_head("$title",19,0,'Regiones');
 print "<tr bgcolor=\"#$color_TableBGRowTitle\"><th>US and CA Regions : ".((scalar keys %_region_h)-($_region_h{'unknown'}?1:0))."</th>";
 if ($ShowRegions =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[56]</th>"; }
 if ($ShowRegions =~ /P/i) { print "<th bgcolor=\"#$color_p\" width=\"80\">$Message[15]</th>"; }
 if ($ShowRegions =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[57]</th>"; }
 if ($ShowRegions =~ /H/i) { print "<th bgcolor=\"#$color_h\" width=\"80\">$Message[15]</th>"; }
 if ($ShowRegions =~ /B/i) { print "<th bgcolor=\"#$color_k\" width=\"80\">$Message[75]</th>"; }
 if ($ShowRegions =~ /L/i) { print "<th width=\"120\">$Message[9]</th>"; }
 print "</tr>\n";
 $total_p=$total_h=$total_k=0;
 my $count=0;
 &BuildKeyList($MaxRowsInHTMLOutput,$MinHit{'Regiones'},\%_region_h,\%_region_h);
    # Group by country
    my @countrylist=('ES','PT','CA','US','AD','AE','AF','AG','AL','AM','AO','AR','AT','AU','AZ','BA','BB',
'BD','BE','BF','BG','BH','BI','BJ','BM','BN','BO','BR','BS','BT','BW','BY','BZ','CF','CG','CH','CI','CL','CM','CN',
'CO','CR','CU','CV','CY','CZ','DE','DJ','DK','DM','DO','DZ','EC','EE','EG','ET','FI','FJ','FM','FR','GA','GB','GD',
'GE','GH','GL','GM','GN','GQ','GR','GT','GW','GY','HN','HR','HT','HU','ID','IE','IL','IN','IQ','IR','IS','IT','JM',
'JO','JP','KE','KG','KH','KI','KM','KN','KP','KR','KW','KY','KZ','LA','LB','LC','LI','LK','LR','LS','LT','LU','LV',
'LY','MA','MC','MD','MG','MK','ML','MM','MN','MO','MR','MS','MU','MV','MW','MX','MY','MZ','NA','NE','NG','NI','NL',
'NO','NP','NR','NZ','OM','PA','PE','PG','PH','PK','PL','PY','QA','RO','RU','RW','SA','SB','SC','SD','SE','SH','SK',
'SL','SM','SN','SO','SR','ST','SV','SY','SZ','TD','TG','TH','TM','TN','TO','TR','TT','TW','TZ','UA','UG','UY','UZ',
'VC','VE','VN','VU','WS','YE','ZA','ZM','ZR','ZW');
    foreach my $country (@countrylist) {
my $imp = 1;
     foreach my $key (@keylist) {
            if ($key eq 'unknown') { next; }
         my ($countrycode,$regioncode)=split('_',$key);
            if ($countrycode ne $country) { next; }
if ($imp) {
     print "<tr><td class=\"aws\"><b>".$countryregionlib{$country}."</b></td>";
     if ($ShowRegions =~ /P/i) { print "<td>&nbsp;</td>"; }
     if ($ShowRegions =~ /P/i) { print "<td>&nbsp;</td>"; }
     if ($ShowRegions =~ /H/i) { print "<td>&nbsp;</td>"; }
     if ($ShowRegions =~ /H/i) { print "<td>&nbsp;</td>"; }
     if ($ShowRegions =~ /B/i) { print "<td>&nbsp;</td>"; }
     if ($ShowRegions =~ /L/i) { print "<td>&nbsp;</td>"; }
        print "</tr>\n";
$imp = 0;
}
      my $p_p; my $p_h;
      if ($TotalPages) { $p_p=int($_region_p{$key}/$TotalPages*1000)/10; }
      if ($TotalHits)  { $p_h=int($_region_h{$key}/$TotalHits*1000)/10; }
         print "<tr><td class=\"aws\">".$region{$countrycode}{uc($regioncode)}." ($regioncode)</td>";
      if ($ShowRegions =~ /P/i) { print "<td>".($_region_p{$key}?$_region_p{$key}:"&nbsp;")."</td>"; }
      if ($ShowRegions =~ /P/i) { print "<td>".($_region_p{$key}?"$p_p %":'&nbsp;')."</td>"; }
      if ($ShowRegions =~ /H/i) { print "<td>".($_region_h{$key}?$_region_h{$key}:"&nbsp;")."</td>"; }
      if ($ShowRegions =~ /H/i) { print "<td>".($_region_h{$key}?"$p_h %":'&nbsp;')."</td>"; }
      if ($ShowRegions =~ /B/i) { print "<td>".Format_Bytes($_region_k{$key})."</td>"; }
      if ($ShowRegions =~ /L/i) { print "<td>".($_region_p{$key}?Format_Date($_region_l{$key},1):'-')."</td>"; }
      print "</tr>\n";
      $total_p += $_region_p{$key}||0;
      $total_h += $_region_h{$key};
      $total_k += $_region_k{$key}||0;
      $count++;
     }
    }
 if ($Debug) { debug("Total real / shown : $TotalPages / $total_p - $TotalHits / $total_h - $TotalBytes / $total_h",2); }
 $rest_p=0;
 $rest_h=$TotalHits-$total_h;
 $rest_k=0;
 if ($rest_p > 0 || $rest_h > 0 || $rest_k > 0) { # All other regions
     print "<tr><td class=\"aws\">&nbsp;</td>";
     if ($ShowRegions =~ /P/i) { print "<td>&nbsp;</td>"; }
     if ($ShowRegions =~ /P/i) { print "<td>&nbsp;</td>"; }
     if ($ShowRegions =~ /H/i) { print "<td>&nbsp;</td>"; }
     if ($ShowRegions =~ /H/i) { print "<td>&nbsp;</td>"; }
     if ($ShowRegions =~ /B/i) { print "<td>&nbsp;</td>"; }
     if ($ShowRegions =~ /L/i) { print "<td>&nbsp;</td>"; }
        print "</tr>\n";   my $p_p; my $p_h;
  if ($TotalPages) { $p_p=int($rest_p/$TotalPages*1000)/10; }
  if ($TotalHits)  { $p_h=int($rest_h/$TotalHits*1000)/10; }
  print "<tr><td class=\"aws\"><span style=\"color: #$color_other\">$Message[2]/$Message[0]</span></td>";
  if ($ShowRegions =~ /P/i) { print "<td>".($rest_p?$rest_p:"&nbsp;")."</td>"; }
     if ($ShowRegions =~ /P/i) { print "<td>".($rest_p?"$p_p %":'&nbsp;')."</td>"; }
  if ($ShowRegions =~ /H/i) { print "<td>".($rest_h?$rest_h:"&nbsp;")."</td>"; }
     if ($ShowRegions =~ /H/i) { print "<td>".($rest_h?"$p_h %":'&nbsp;')."</td>"; }
  if ($ShowRegions =~ /B/i) { print "<td>".Format_Bytes($rest_k)."</td>"; }
  if ($ShowRegions =~ /L/i) { print "<td>&nbsp;</td>"; }
  print "</tr>\n";
 }
 &tab_end();  # ----->
 return 0;
} br /> #-----------------------------------------------------------------------------
# PLUGIN FUNCTION: GetCountryCodeByAddr_pluginname
# UNIQUE: YES (Only one plugin using this function can be loaded)
# GetCountryCodeByAddr is called to translate an ip into a country code in lower case.
#-----------------------------------------------------------------------------
# Rem: Not used
sub GetCountryCodeByAddr_geoip_region_cbl {
    my $param="$_[0]";
 # <-----
 my $res=$TmpDomainLookup{$param}||'';
 if (! $res) {
     my ($res1,$res2,$countryregion)=();
     ($res1,$res2)=$geoip_region_cbl->region_by_name($param) if $geoip_region_cbl;
     $res=lc($res1) || 'unknown';
  $TmpDomainLookup{$param}=$res;
     if ($Debug) { debug("  Plugin geoip_region_cbl: GetCountryCodeByAddr for $param: [$res]",5); }
 }
 elsif ($Debug) { debug("  Plugin geoip_region_cbl: GetCountryCodeByAddr for $param: Already resolved to [$res]",5); }
 # ----->
 return $res;
}
#-----------------------------------------------------------------------------
# PLUGIN FUNCTION: GetCountryCodeByName_pluginname
# UNIQUE: YES (Only one plugin using this function can be loaded)
# GetCountryCodeByName is called to translate a host name into a country code in lower case.
#-----------------------------------------------------------------------------
# Rem: Not used
sub GetCountryCodeByName_geoip_region_cbl {
    my $param="$_[0]";
 # <-----
 my $res=$TmpDomainLookup{$param}||'';
 if (! $res) {
     my ($res1,$res2,$countryregion)=();
     ($res1,$res2)=$geoip_region_cbl->region_by_name($param) if $geoip_region_cbl;
     $res=lc($res1) || 'unknown';
  $TmpDomainLookup{$param}=$res;
     if ($Debug) { debug("  Plugin geoip_region_cbl: GetCountryCodeByName for $param: [$res]",5); }
 }
 elsif ($Debug) { debug("  Plugin geoip_region_cbl: GetCountryCodeByName for $param: Already resolved to [$res]",5); }
 # ----->
 return $res;
}
#-----------------------------------------------------------------------------
# PLUGIN FUNCTION: ShowInfoHost_pluginname
# UNIQUE: NO (Several plugins using this function can be loaded)
# Function called to add additionnal columns to the Hosts report.
# This function is called when building rows of the report (One call for each
# row). So it allows you to add a column in report, for example with code :
#   print "<TD>This is a new cell for $param</TD>";
# Parameters: Host name or ip
#-----------------------------------------------------------------------------
sub ShowInfoHost_geoip_region_cbl {
    my $param="$_[0]";
 # <-----
 if ($param eq '__title__') {
     my $NewLinkParams=${QueryString};
     $NewLinkParams =~ s/(^|&|&amp;)update(=\w*|$)//i;
     $NewLinkParams =~ s/(^|&|&amp;)output(=\w*|$)//i;
     $NewLinkParams =~ s/(^|&|&amp;)staticlinks(=\w*|$)//i;
     $NewLinkParams =~ s/(^|&|&amp;)framename=[^&]*//i;
     my $NewLinkTarget='';
     if ($DetailedReportsOnNewWindows) { $NewLinkTarget=" target=\"awstatsbis\""; }
     if (($FrameName eq 'mainleft' || $FrameName eq 'mainright') && $DetailedReportsOnNewWindows < 2) {
      $NewLinkParams.="&framename=mainright";
      $NewLinkTarget=" target=\"mainright\"";
     }
     $NewLinkParams =~ s/(&amp;|&)+/&amp;/i;
     $NewLinkParams =~ s/^&amp;//; $NewLinkParams =~ s/&amp;$//;
     if ($NewLinkParams) { $NewLinkParams="${NewLinkParams}&"; }   print "<th width=\"80\">";
        print "<a href=\"".($ENV{'GATEWAY_INTERFACE'} || !$StaticLinks?XMLEncode("$AWScript?${NewLinkParams}output=plugin_geoip_region_cbl"):"$PROG$StaticLinks.plugin_geoip_region_cbl.$StaticExt")."\"$NewLinkTarget>GeoIP<br>Region</a>";
        print "</th>";
 }
 elsif ($param) {
        my $ip=0;
  my $key;
  if ($param =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) { # IPv4 address
   $ip=4;
   $key=$param;
  }
  elsif ($param =~ /^[0-9A-F]*:/i) {      # IPv6 address
   $ip=6;
   $key=$param;
  }
  print "<td>";
  if ($key && $ip==4) {
         my ($res1,$res2,$countryregion)=();
         ($res1,$res2)=$geoip_region_cbl->region_by_name($param) if $geoip_region_cbl;
         if ($Debug) { debug("  Plugin geoip_region_cbl: GetRegionByIp for $param: [${res1}_${res2}]",5); }
            if (! $PluginsLoaded{'init'}{'geoip'}) {
                # Show country
                if ($res1 =~ /\w\w/) { print $DomainsHashIDLib{lc($res1)}||uc($res1); }
                else { print "<span style=\"color: #$color_other\">$Message[0]</span>"; }
                # Show region
                if ($res1 =~ /\w\w/ && $res2 =~ /\w\w/) {
                    print "&nbsp;(";
                    print $region{lc($res1)}{uc($res2)};
                    print ")";
                }
            }
            else {
             # Show region
                if ($res1 =~ /\w\w/ && $res2 =~ /\w\w/) {
                    print $region{lc($res1)}{uc($res2)};
                }
                else { print "<span style=\"color: #$color_other\">$Message[0]</span>"; }
            }
  }
  if ($key && $ip==6) {
            print "<span style=\"color: #$color_other\">$Message[0]</span>";
        }
  if (! $key) {
         my ($res1,$res2,$countryregion)=();
         ($res1,$res2)=$geoip_region_cbl->region_by_name($param) if $geoip_region_cbl;
         if ($Debug) { debug("  Plugin geoip_region_cbl: GetRegionByName for $param: [${res1}_${res2}]",5); }
            if (! $PluginsLoaded{'init'}{'geoip'}) {
                # Show country
                if ($res1 =~ /\w\w/) { print $DomainsHashIDLib{lc($res1)}||uc($res1); }
                else { print "<span style=\"color: #$color_other\">$Message[0]</span>"; }
                # Show region
                if ($res1 =~ /\w\w/ && $res2 =~ /\w\w/) {
                    print "&nbsp;(";
                    print $region{lc($res1)}{uc($res2)};
                    print ")";
                }
            }
            else {
                # Show region
                if ($res1 =~ /\w\w/ && $res2 =~ /\w\w/) {
                    print $region{lc($res1)}{uc($res2)};
                }
                else { print "<span style=\"color: #$color_other\">$Message[0]</span>"; }
            }
  }
  print "</td>";
 }
 else {
  print "<td>&nbsp;</td>";
 }
 return 1;
 # ----->
}
#-----------------------------------------------------------------------------
# PLUGIN FUNCTION: SectionInitHashArray_pluginname
# UNIQUE: NO (Several plugins using this function can be loaded)
#-----------------------------------------------------------------------------
sub SectionInitHashArray_geoip_region_cbl {
#    my $param="$_[0]";
 # <-----
 if ($Debug) { debug(" Plugin geoip_region_cbl: Init_HashArray"); }
 %_region_p = %_region_h = %_region_k = %_region_l =();
 # ----->
 return 0;
}
#-----------------------------------------------------------------------------
# PLUGIN FUNCTION: SectionProcessHostname_pluginname
# UNIQUE: NO (Several plugins using this function can be loaded)
#-----------------------------------------------------------------------------
sub SectionProcessIp_geoip_region_cbl {
  my $param="$_[0]";      # Param must be an IP
 # <-----
  my ($countryregion)=();
  my @record = ();
  @record=$geoip_region_cbl->get_city_record($param) if $geoip_region_cbl;
  if (@record) { $countryregion=$record[0]."_".$record[3]; }
  else { $countryregion='unknown'; }
  $_region_h{$countryregion}++;
 # ----->
  return;
} #-----------------------------------------------------------------------------
# PLUGIN FUNCTION: SectionProcessHostname_pluginname
# UNIQUE: NO (Several plugins using this function can be loaded)
#-----------------------------------------------------------------------------
sub SectionProcessHostname_geoip_region_cbl {
  my $param="$_[0]";      # Param must be an IP
 # <-----
  my ($countryregion)=();
  my @record = ();
  @record=$geoip_region_cbl->get_city_record($param) if $geoip_region_cbl;
  if (@record) { $countryregion=$record[0]."_".$record[3]; }
  else { $countryregion='unknown'; }
  $_region_h{$countryregion}++;
 # ----->
  return;
} #-----------------------------------------------------------------------------
# PLUGIN FUNCTION: SectionReadHistory_pluginname
# UNIQUE: NO (Several plugins using this function can be loaded)
#-----------------------------------------------------------------------------
sub SectionReadHistory_geoip_region_cbl {
    my $issectiontoload=shift;
    my $xmlold=shift;
    my $xmleb=shift;
 my $countlines=shift;
 # <-----
 if ($Debug) { debug(" Plugin geoip_region_cbl: Begin of PLUGIN_geoip_region_cbl section"); }
 my @field=();
 my $count=0;my $countloaded=0;
 do {
  if ($field[0]) {
   $count++;
   if ($issectiontoload) {
    $countloaded++;
    if ($field[2]) { $_region_h{$field[0]}+=$field[2]; }
   }
  }
  $_=<HISTORY>;
  chomp $_; s/\r//;
  @field=split(/\s+/,($xmlold?CleanFromTags($_):$_));
  $countlines++;
 }
 until ($field[0] eq 'END_PLUGIN_geoip_region_cbl' || $field[0] eq "${xmleb}END_PLUGIN_geoip_region_cbl" || ! $_);
 if ($field[0] ne 'END_PLUGIN_geoip_region_cbl' && $field[0] ne "${xmleb}END_PLUGIN_geoip_region_cbl") { error("History file is corrupted (End of section PLUGIN not found).\nRestore a recent backup of this file (data for this month will be restored to backup date), remove it (data for month will be lost), or remove the corrupted section in file (data for at least this section will be lost).","","",1); }
 if ($Debug) { debug(" Plugin geoip_region_cbl: End of PLUGIN_geoip_region_cbl section ($count entries, $countloaded loaded)"); }
 # ----->
 return 0;
} #-----------------------------------------------------------------------------
# PLUGIN FUNCTION: SectionWriteHistory_pluginname
# UNIQUE: NO (Several plugins using this function can be loaded)
#-----------------------------------------------------------------------------
sub SectionWriteHistory_geoip_region_cbl {
    my ($xml,$xmlbb,$xmlbs,$xmlbe,$xmlrb,$xmlrs,$xmlre,$xmleb,$xmlee)=(shift,shift,shift,shift,shift,shift,shift,shift,shift);
    if ($Debug) { debug(" Plugin geoip_region_cbl: SectionWriteHistory_geoip_region_cbl start - ".(scalar keys %_region_h)); }
 # <-----
 print HISTORYTMP "\n";
 if ($xml) { print HISTORYTMP "<section id='plugin_geoip_region_cbl'><sortfor>$MAXNBOFSECTIONGIR</sortfor><comment>\n"; }
 print HISTORYTMP "# Plugin key - Pages - Hits - Bandwidth - Last access\n";
 #print HISTORYTMP "# The $MaxNbOfExtra[$extranum] first number of hits are first\n";
 $ValueInFile{'plugin_geoip_region_cbl'}=tell HISTORYTMP;
 print HISTORYTMP "${xmlbb}BEGIN_PLUGIN_geoip_region_cbl${xmlbs}".(scalar keys %_region_h)."${xmlbe}\n";
 &BuildKeyList($MAXNBOFSECTIONGIR,1,\%_region_h,\%_region_h);
 my %keysinkeylist=();
 foreach (@keylist) {
  $keysinkeylist{$_}=1;
  #my $page=$_region_p{$_}||0;
  #my $bytes=$_region_k{$_}||0;
  #my $lastaccess=$_region_l{$_}||'';
  print HISTORYTMP "${xmlrb}$_${xmlrs}0${xmlrs}", $_region_h{$_}, "${xmlrs}0${xmlrs}0${xmlre}\n"; next;
 }
 foreach (keys %_region_h) {
  if ($keysinkeylist{$_}) { next; }
  #my $page=$_region_p{$_}||0;
  #my $bytes=$_region_k{$_}||0;
  #my $lastaccess=$_region_l{$_}||'';
  print HISTORYTMP "${xmlrb}$_${xmlrs}0${xmlrs}", $_region_h{$_}, "${xmlrs}0${xmlrs}0${xmlre}\n"; next;
 }
 print HISTORYTMP "${xmleb}END_PLUGIN_geoip_region_cbl${xmlee}\n";
 # ----->
 return 0;
}
1; # Do not remove this line

QR Code
Uso de cookies: Utilizamos cookies propias y de terceros para mejorar nuestros servicios. Si continúa navegando, consideramos que acepta su uso. Puede obtener más información en nuestra Política de cookies