/ScriptServ

;/**********************************************************************
; *
; * aIRC
; * Country
; *
; **********************************************************************/

alias country {
  var %country
  tokenize 32 $_parameter($1-,1,Lookup country [/country],1,$_gethost($_activequery),Host:)
  %country = $_country($1)
  if (%country != $null) { info.a $^b($1) is from $^b(%country) }
  else { info.a $^b($1) is from $^b(Planet Earth) }
}
alias _country {
  tokenize 32 $gettok($1,$numtok($1,64),64) $2

  var %a = $gettok($1,$numtok($1,46),46)

  if ($__country(%a)) { return $ifmatch }

  goto %a

  :ARPA | return Reverse DNS
  :ATO | return Nato field
  :INT | return International
  :RPA | return Old style Arpanet

  :GOV | return US Government
  :MED | return US Medical
  :MIL | return US Military


  :%a
  if ($2) {
    if (%a == COM) { return Commercial }
    if (%a == EDU) { return Educational Institution }
    if (%a == NET) { return Network }
    if (%a == ORG) { return Non-Profit Organization }
    return Unknown
  }
}

alias __country {
  var %a = $gettok($1,$numtok($1,64),64)
  var %a = $gettok(%a,$numtok(%a,46),46)
  if (%a == $null) { %a = _dummy_ }
  goto %a
  :AA | return Aruba (Netherlands)
  :AD | return Andorra
  :AE | return United Arab Emirates
  :AF | return Afghanistan
  :AG | return Antigua and Barbuda
  :AI | return Anguilla (UK)
  :AL | return Albania
  :AM | return Armenia
  :AN | return Netherlands Antilles (Netherlands)
  :AO | return Angola
  :AQ | return Antarctica
  :AR | return Argentina
  :AS | return Samoa (USA)
  :AT | return Austria
  :AU | return Australia
  :AW | return Aruba
  :AZ | return Azerbaidjan
  :BA | return Bosnia-Herzegowina
  :BB | return Barbados
  :BD | return Bangladesh
  :BE | return Belgium
  :BF | return Burkina Faso
  :BG | return Bulgaria
  :BH | return Bahrain
  :BI | return Burundi
  :BJ | return Benin
  :BM | return Bermuda (UK)
  :BN | return Brunei
  :BO | return Bolivia
  :BR | return Brazil
  :BS | return Bahamas
  :BT | return Bhutan
  :BV | return Bouvet Island
  :BW | return Botswana
  :BY | return Belarus
  :BZ | return Belize
  :CA | return Canada
  :CC | return Cocos/Keeling Islands (Australia)
  :CF | return Central African Republic
  :CG | return Congo
  :CH | return Switzerland
  :CI | return Côte d'Ivoire
  :CK | return Cook Islands
  :CL | return Chile
  :CM | return Cameroon
  :CN | return China
  :CO | return Colombia
  :CR | return Costa Rica
  :CS | return Czechoslovakia
  :CU | return Cuba
  :CV | return Cape Verde
  :CX | return Christmas Island (Australia)
  :CY | return Cyprus
  :CZ | return Czech Republic
  :DE | return Germany
  :DJ | return Djibouti
  :DK | return Denmark
  :DM | return Dominica
  :DO | return Dominican Republic
  :DZ | return Algeria
  :EC | return Ecuador
  :EE | return Estonia
  :EG | return Egypt
  :EH | return Western Sahara
  :ER | return Eritrea
  :ES | return Spain
  :ET | return Ethiopia
  :FI | return Finland
  :FJ | return Fiji
  :FK | return Malvinas/Falkland Islands (Argentina?UK)
  :FM | return Micronesia
  :FO | return Faroe Islands (Dinamarca)
  :FR | return France
  :FX | return France (European Territory)
  :GA | return Gabon
  :GB | return Great Britain
  :GD | return Grenada
  :GE | return Georgia
  :GF | return French Guiana (FR)
  :GH | return Ghana
  :GI | return Gibraltar (UK)
  :GL | return Greenland (Dinamarca)
  :GM | return Gambia
  :GN | return Guinea
  :GP | return Guadeloupe (FR)
  :GQ | return Equatorial Guinea
  :GR | return Greece
  :GS | return South Georgia and South Sandwich Islands (UK)
  :GT | return Guatemala
  :GU | return Guam (USA)
  :GW | return Guinea Bissau
  :GY | return Guyana
  :HK | return Hong Kong (China)
  :HM | return Heard and McDonald Islands
  :HN | return Honduras
  :HR | return Croatia
  :HT | return Haiti
  :HU | return Hungary
  :ID | return Indonesia
  :IE | return Ireland
  :IL | return Israel
  :IN | return India
  :IO | return British Indian Ocean Territory (UK)
  :IQ | return Iraq
  :IR | return Iran
  :IS | return Iceland
  :IT | return Italy
  :JM | return Jamaica
  :JO | return Jordan
  :JP | return Japan
  :KE | return Kenya
  :KG | return Kirgistan
  :KH | return Cambodia
  :KI | return Kiribati
  :KM | return Comoros
  :KN | return Saint Kitts Nevis Anguilla
  :KP | return North Korea
  :KR | return South Korea
  :KW | return Kuwait
  :KY | return Cayman Islands (UK)
  :KZ | return Kazakhstan
  :LA | return Laos
  :LB | return Lebanon
  :LC | return Saint Lucia
  :LI | return Liechtenstein
  :LK | return Sri Lanka
  :LR | return Liberia
  :LS | return Lesotho
  :LT | return Lithuania
  :LU | return Luxemburgo
  :LV | return Latvia
  :LY | return Libya
  :MA | return Morocco
  :MC | return Monaco
  :MD | return Moldova
  :MG | return Madagascar
  :MH | return Marshall Islands
  :MK | return Macedonia
  :ML | return Mali
  :MM | return Myanmar
  :MN | return Mongolia
  :MO | return Macau (China)
  :MP | return Northern Mariana Islands (USA)
  :MQ | return Martinique (FR)
  :MR | return Mauritania
  :MS | return Montserrat (UK)
  :MT | return Malta
  :MU | return Mauritius
  :MV | return Maldives
  :MW | return Malawi
  :MX | return Mexico
  :MY | return Malaysia
  :MZ | return Mozambique
  :NA | return Namibia
  :NC | return New Caledonia (FR)
  :NE | return Niger
  :NF | return Norfolk Island (Australia)
  :NG | return Nigeria
  :NI | return Nicaragua
  :NL | return Netherlands
  :NO | return Norway
  :NP | return Nepal
  :NR | return Nauru
  :NT | return Neutral Zone
  :NU | return Niue
  :NZ | return New Zealand
  :OM | return Oman
  :PA | return Panama
  :PE | return Peru
  :PF | return French Polynesia (FR)
  :PG | return Papua New Guinea
  :PH | return Philippines
  :PK | return Pakistan
  :PL | return Poland
  :PM | return Saint Pierre and Miquelon (FR)
  :PN | return Pitcairn (UK)
  :PR | return Puerto Rico (USA)
  :PT | return Portugal
  :PW | return Palau
  :PY | return Paraguay
  :QA | return Qatar
  :RE | return Reunion (FR)
  :RO | return Romania
  :RU | return Russia
  :RW | return Rwanda
  :SA | return Saudi Arabia
  :SB | return Solomon Islands
  :SC | return Seychelles
  :SD | return Sudan
  :SE | return Sweden
  :SG | return Singapore
  :SH | return Saint Helena (UK)
  :SI | return Slovenia
  :SJ | return Svalbard and Jan Mayen Islands
  :SK | return Slovak Republic
  :SL | return Sierra Leone
  :SM | return San Marino
  :SN | return Senegal
  :SO | return Somalia
  :SR | return Suriname
  :ST | return Saint Tome and Principe
  :SU | return USSR
  :SV | return El Salvador
  :SY | return Syria
  :SZ | return Swaziland
  :TC | return Turks and Caicos Islands (UK)
  :TD | return Chad
  :TF | return French Southern Territory (FR)
  :TG | return Togo
  :TH | return Thailand
  :TJ | return Tadjikistan
  :TK | return Tokelau
  :TM | return Turkmenistan
  :TN | return Tunisia
  :TO | return Tonga
  :TP | return East Timor
  :TR | return Turkey
  :TT | return Trinidad and Tobago
  :TV | return Tuvalu
  :TW | return Taiwan
  :TZ | return Tanzania
  :UA | return Ukraine
  :UG | return Uganda
  :UK | return United Kingdom
  :UM | return United States, minor outlying islands
  :US | return United States
  :UY | return Uruguay
  :UZ | return Uzbekistan
  :VA | return Vatican City State
  :VC | return Saint Vincent and Grenadines
  :VE | return Venezuela
  :VG | return Virgin Islands (UK)
  :VI | return Virgin Islands (USA)
  :VN | return Viet Nam
  :VU | return Vanuatu
  :WF | return Wallis and Futuna Islands (FR)
  :WS | return Samoa
  :YE | return Yemen
  :YT | return Mayotte (FR)
  :YU | return Yugoslavia
  :ZA | return South Africa
  :ZM | return Zambia
  :ZR | return Zaire
  :ZW | return Zimbabwe
  :%a
}