2004-02-02 23:34:39 +00:00
|
|
|
<?php
|
|
|
|
// $Id$
|
|
|
|
// list of countries taken from http://www.cia.gov
|
|
|
|
|
|
|
|
$countries = array(
|
|
|
|
"None",
|
|
|
|
"International",
|
|
|
|
"Afghanistan",
|
|
|
|
"Albania",
|
|
|
|
"Algeria",
|
|
|
|
"American Samoa",
|
|
|
|
"Andorra",
|
|
|
|
"Angola",
|
|
|
|
"Anguilla",
|
|
|
|
"Antarctica",
|
|
|
|
"Antigua and Barbuda",
|
|
|
|
"Argentina",
|
|
|
|
"Armenia",
|
|
|
|
"Aruba",
|
|
|
|
"Australia",
|
|
|
|
"Austria",
|
|
|
|
"Azerbaijan",
|
|
|
|
"Bahamas, The",
|
|
|
|
"Bahrain",
|
|
|
|
"Bangladesh",
|
|
|
|
"Barbados",
|
|
|
|
"Belarus",
|
|
|
|
"Belgium",
|
|
|
|
"Belize",
|
|
|
|
"Benin",
|
|
|
|
"Bermuda",
|
|
|
|
"Bhutan",
|
|
|
|
"Bolivia",
|
|
|
|
"Bosnia and Herzegovina",
|
|
|
|
"Botswana",
|
|
|
|
"Brazil",
|
|
|
|
"British Virgin Islands",
|
|
|
|
"Brunei",
|
|
|
|
"Bulgaria",
|
|
|
|
"Burkina Faso",
|
2007-06-15 23:54:25 +00:00
|
|
|
"Burma",
|
2004-02-02 23:34:39 +00:00
|
|
|
"Burundi",
|
|
|
|
"Cambodia",
|
|
|
|
"Cameroon",
|
|
|
|
"Canada",
|
|
|
|
"Cape Verde",
|
|
|
|
"Cayman Islands",
|
|
|
|
"Central African Republic",
|
|
|
|
"Chad",
|
|
|
|
"Channel Islands",
|
|
|
|
"Chile",
|
|
|
|
"China",
|
|
|
|
"Colombia",
|
|
|
|
"Comoros",
|
|
|
|
"Congo, Democratic Republic of the",
|
|
|
|
"Congo, Republic of the",
|
|
|
|
"Cook Islands",
|
|
|
|
"Costa Rica",
|
|
|
|
"Cote d'Ivoire",
|
|
|
|
"Croatia",
|
|
|
|
"Cuba",
|
|
|
|
"Cyprus",
|
|
|
|
"Czech Republic",
|
|
|
|
"Denmark",
|
|
|
|
"Djibouti",
|
|
|
|
"Dominica",
|
|
|
|
"Dominican Republic",
|
|
|
|
"East Timor",
|
|
|
|
"Ecuador",
|
|
|
|
"Egypt",
|
|
|
|
"El Salvador",
|
|
|
|
"Equatorial Guinea",
|
|
|
|
"Eritrea",
|
|
|
|
"Estonia",
|
|
|
|
"Ethiopia",
|
|
|
|
"Falkland Islands",
|
|
|
|
"Faroe Islands",
|
|
|
|
"Fiji",
|
|
|
|
"Finland",
|
|
|
|
"France",
|
|
|
|
"French Guiana",
|
|
|
|
"French Polynesia",
|
|
|
|
"Gabon",
|
|
|
|
"Gambia, The",
|
|
|
|
"Gaza Strip",
|
|
|
|
"Georgia",
|
|
|
|
"Germany",
|
|
|
|
"Ghana",
|
|
|
|
"Gibraltar",
|
|
|
|
"Greece",
|
|
|
|
"Greenland",
|
|
|
|
"Grenada",
|
|
|
|
"Guadeloupe",
|
|
|
|
"Guam",
|
|
|
|
"Guatemala",
|
|
|
|
"Guinea",
|
|
|
|
"Guinea-Bissau",
|
|
|
|
"Guyana",
|
|
|
|
"Haiti",
|
2007-02-21 16:26:51 +00:00
|
|
|
"Holy See (Vatican City)",
|
2004-02-02 23:34:39 +00:00
|
|
|
"Honduras",
|
|
|
|
"Hong Kong",
|
|
|
|
"Hungary",
|
|
|
|
"Iceland",
|
|
|
|
"India",
|
|
|
|
"Indonesia",
|
|
|
|
"Iran",
|
|
|
|
"Iraq",
|
|
|
|
"Ireland",
|
|
|
|
"Israel",
|
|
|
|
"Italy",
|
|
|
|
"Jamaica",
|
|
|
|
"Japan",
|
|
|
|
"Jordan",
|
|
|
|
"Kazakhstan",
|
|
|
|
"Korea, North",
|
|
|
|
"Korea, South",
|
|
|
|
"Kenya",
|
|
|
|
"Kiribati",
|
|
|
|
"Kuwait",
|
|
|
|
"Kyrgyzstan",
|
|
|
|
"Laos",
|
|
|
|
"Latvia",
|
|
|
|
"Lebanon",
|
|
|
|
"Lesotho",
|
|
|
|
"Liberia",
|
|
|
|
"Libya",
|
|
|
|
"Liechtenstein",
|
|
|
|
"Lithuania",
|
|
|
|
"Luxembourg",
|
|
|
|
"Macau",
|
2005-09-22 23:27:08 +00:00
|
|
|
"Macedonia",
|
2004-02-02 23:34:39 +00:00
|
|
|
"Madagascar",
|
|
|
|
"Malawi",
|
|
|
|
"Malaysia",
|
|
|
|
"Maldives",
|
|
|
|
"Mali",
|
|
|
|
"Malta",
|
|
|
|
"Marshall Islands",
|
|
|
|
"Martinique",
|
|
|
|
"Mauritania",
|
2006-01-17 20:22:25 +00:00
|
|
|
"Mauritius",
|
2004-02-02 23:34:39 +00:00
|
|
|
"Mexico",
|
|
|
|
"Micronesia",
|
|
|
|
"Moldova",
|
|
|
|
"Monaco",
|
|
|
|
"Mongolia",
|
|
|
|
"Montserrat",
|
|
|
|
"Morocco",
|
|
|
|
"Mozambique",
|
|
|
|
"Namibia",
|
|
|
|
"Nauru",
|
|
|
|
"Nepal",
|
|
|
|
"Netherlands",
|
|
|
|
"Netherlands Antilles",
|
|
|
|
"New Caledonia",
|
|
|
|
"New Zealand",
|
|
|
|
"Nicaragua",
|
|
|
|
"Niger",
|
|
|
|
"Nigeria",
|
|
|
|
"Niue",
|
|
|
|
"Northern Mariana Islands",
|
|
|
|
"Norway",
|
|
|
|
"Oman",
|
|
|
|
"Pakistan",
|
|
|
|
"Palau",
|
|
|
|
"Panama",
|
|
|
|
"Papua New Guinea",
|
|
|
|
"Paraguay",
|
|
|
|
"Peru",
|
|
|
|
"Philippines",
|
|
|
|
"Pitcairn Islands",
|
|
|
|
"Poland",
|
|
|
|
"Portugal",
|
|
|
|
"Puerto Rico",
|
|
|
|
"Qatar",
|
|
|
|
"Reunion",
|
|
|
|
"Romania",
|
|
|
|
"Russia",
|
|
|
|
"Rwanda",
|
|
|
|
"Saint Kitts and Nevis",
|
|
|
|
"Saint Lucia",
|
|
|
|
"Saint Pierre and Miquelon",
|
|
|
|
"Saint Vincent and the Grenadines",
|
|
|
|
"Samoa",
|
|
|
|
"San Marino",
|
|
|
|
"Sao Tome and Principe",
|
|
|
|
"Saudi Arabia",
|
|
|
|
"Senegal",
|
|
|
|
"Serbia and Montenegro",
|
|
|
|
"Seychelles",
|
|
|
|
"Sierra Leone",
|
|
|
|
"Singapore",
|
|
|
|
"Slovakia",
|
|
|
|
"Slovenia",
|
|
|
|
"Solomon Islands",
|
|
|
|
"Somalia",
|
|
|
|
"South Africa",
|
|
|
|
"Spain",
|
|
|
|
"Sri Lanka",
|
|
|
|
"Sudan",
|
|
|
|
"Suriname",
|
|
|
|
"Swaziland",
|
|
|
|
"Sweden",
|
|
|
|
"Switzerland",
|
|
|
|
"Syria",
|
|
|
|
"Taiwan",
|
|
|
|
"Tajikistan",
|
|
|
|
"Tanzania",
|
|
|
|
"Thailand",
|
|
|
|
"Togo",
|
|
|
|
"Tokelau",
|
|
|
|
"Tonga",
|
|
|
|
"Trinidad and Tobago",
|
|
|
|
"Tunisia",
|
|
|
|
"Turkey",
|
|
|
|
"Turkmenistan",
|
|
|
|
"Turks and Caicos Islands",
|
|
|
|
"Tuvalu",
|
|
|
|
"Uganda",
|
|
|
|
"Ukraine",
|
|
|
|
"United Arab Emirates",
|
|
|
|
"United Kingdom",
|
2006-07-25 17:39:54 +00:00
|
|
|
"United States",
|
2004-02-02 23:34:39 +00:00
|
|
|
"Uruguay",
|
|
|
|
"Uzbekistan",
|
|
|
|
"Vanuatu",
|
|
|
|
"Venezuela",
|
|
|
|
"Vietnam",
|
|
|
|
"Virgin Islands",
|
|
|
|
"Wallis and Futuna",
|
|
|
|
"West Bank",
|
|
|
|
"Western Sahara",
|
|
|
|
"Yemen",
|
|
|
|
"Zambia",
|
|
|
|
"Zimbabwe"
|
2004-04-21 23:25:05 +00:00
|
|
|
);
|
2004-02-02 23:34:39 +00:00
|
|
|
|
2004-03-26 18:32:57 +00:00
|
|
|
function print_country_select($selected_country="None") {
|
2004-04-21 23:25:05 +00:00
|
|
|
global $countries;
|
2004-03-26 18:32:57 +00:00
|
|
|
|
2006-02-01 20:19:51 +00:00
|
|
|
require_once("../inc/geoip.inc");
|
|
|
|
|
2004-04-21 23:25:05 +00:00
|
|
|
//See if we can find the user's country and select it as default:
|
|
|
|
$gi = geoip_open("../inc/GeoIP.dat",GEOIP_STANDARD);
|
|
|
|
$geoip_country = geoip_country_name_by_addr($gi,$_SERVER["REMOTE_ADDR"]);
|
|
|
|
geoip_close($gi);
|
2004-03-26 18:32:57 +00:00
|
|
|
|
2004-04-21 23:25:05 +00:00
|
|
|
if ($selected_country=="") $selected_country="None";
|
|
|
|
if ($selected_country=="None" and $geoip_country!=""){
|
|
|
|
$selected_country=$geoip_country;
|
|
|
|
}
|
|
|
|
echo "selected: $selected_country\n";
|
2004-03-26 18:32:57 +00:00
|
|
|
|
2004-04-21 23:25:05 +00:00
|
|
|
$numCountries = count($countries);
|
|
|
|
for ($i=0; $i<$numCountries; $i++) {
|
|
|
|
$country = $countries[$i];
|
|
|
|
$selected = ($selected_country == $country ? "selected":"");
|
|
|
|
echo "<option value=\"$country\" $selected>$country</option>\n";
|
|
|
|
}
|
2004-03-26 18:32:57 +00:00
|
|
|
}
|
2004-04-21 23:25:05 +00:00
|
|
|
|
|
|
|
function is_valid_country($country) {
|
|
|
|
global $countries;
|
2007-07-25 15:11:14 +00:00
|
|
|
if ($country == '') return true;
|
2004-04-21 23:25:05 +00:00
|
|
|
return in_array($country, $countries);
|
|
|
|
}
|
|
|
|
|
2004-02-02 23:34:39 +00:00
|
|
|
?>
|