WCM Forum

z.B. so:
<?php
$laender = array (
"ad" => "Andorra", "al" => "Albanien", "at" => "Österreich", "ba" => "Bosnien*Herzegowina", "be" => "Belgien", "bg" => "Bulgarien", "by" => "Weißrussland", "ch" => "Schweiz", "cy" => "Zypern ", "cz" => "Tschechische Republik ", "de" => "Deutschland", "yu" => "Jugoslawien", "ae" => "Vereinigte Arabische Emirate ", "af" => "Afghanistan ", "am" => "Armenien ", "az" => "Aserbaidschan ", "bd" => "Bangladesch ", "bh" => "Bahrain ", "bn" => "Brunei ", "bt" => "Bhutan ", "cn" => "China ", "ge" => "Georgien ", "hk" => "Hongkong ", "id" => "Indonesien ", "dk" => "Dänemark", "ee" => "Estland", "es" => "Spanien", "fi" => "Finnland", "fr" => "Frankreich", "gb" => "Großbritannien", "gi" => "Gibraltar", "gr" => "Griechenland", "hr" => "Kroatien", "hu" => "Ungarn", "ie" => "Irland", "is" => "Island", "it" => "Italien", "lb" => "Libanon ", "li" => "Liechtenstein", "lt" => "Litauen", "lu" => "Luxemburg", "lv" => "Lettland", "mc" => "Monaco", "md" => "Moldawien", "mk" => "Makedonien", "mt" => "Malta", "nl" => "Niederlande", "no" => "Norwegen", "pl" => "Polen", "pt" => "Portugal", "ro" => "Rumänien", "ru" => "Russland, Sowjetunion", "se" => "Schweden", "si" => "Slowenien", "sk" => "Slowakei", "sm" => "San Marino", "ua" => "Ukraine", "tw" => "Taiwan ", "uz" => "Usbekistan", "vn" => "Vietnam", "ye" => "Jemen", "tz" => "Tansania ", "ao" => "Angola", "bf" => "Burkina Faso", "bi" => "Burundi", "bj" => "Benin", "bw" => "Botswana", "cd" => "Kongo", "ag" => "Antigua und Barbuda ", "cf" => "Zentralafrikanische Republik", "cg" => "Kongo", "ci" => "Elfenbeinküste", "cm" => "Kamerun", "cv" => "Kapverdische Inseln", "dj" => "Dschibuti", "dz" => "Algerien", "eg" => "Ägypten", "eh" => "Westsahara", "er" => "Eritrea", "et" => "Äthiopien", "ga" => "Gabun", "gh" => "Ghana", "gm" => "Gambia", "gn" => "Guinea", "gq" => "Äquatorialguinea", "gw" => "Guinea*Bissau", "ke" => "Kenia", "km" => "Komoren", "lr" => "Liberia", "ls" => "Lesotho", "ly" => "Libyen", "ma" => "Marokko", "mg" => "Madagaskar", "ml" => "Mali", "mr" => "Mauretanien", "mu" => "Mauritius", "mw" => "Malawi", "mz" => "Moçambique", "na" => "Namibia", "ne" => "Niger", "ng" => "Nigeria", "rw" => "Rwanda", "sc" => "Seychellen", "sd" => "Sudan", "sl" => "Sierra Leone", "sn" => "Senegal", "so" => "Somalia", "st" => "Sao Tomé und Príncipe", "sz" => "Swasiland ", "sr" => "Surinam", "sv" => "ElSalvador", "tc" => "Turks* und Caicos*Inseln", "tt" => "Trinidad und Tobago", "us" => "USA", "uy" => "Uruguay", "vc" => "Saint Vincent and the", "ve" => "Venezuela", "vg" => "Jungferninseln", "hm" => "Heard und McDonaldinseln ", "vi" => "Jungferninseln", "bv" => "Bouvetinsel ", "au" => "Australien", "cc" => "Kokosinseln", "ck" => "Cookinseln", "cx" => "Christmas Island", "fj" => "Fidschi Sandwichinseln ", "fm" => "Mikronesien", "gu" => "Guam", "ki" => "Kiribati", "mh" => "Marshallinseln", "mp" => "Nördliche Marianen Indischen Ozean ", "nc" => "Neukaledonien", "nf" => "Norfolk*Insel", "nr" => "Nauru", "nz" => "Neuseeland", "pf" => "Französisch*Polynesien", "pg" => "Papua*Neuguinea", "pw" => "Palauinseln Überseeinseln ");

$ip = $HTTP_SERVER_VARS["REMOTE_ADDR"];
$name = gethostbyaddr ($ip);
$tld = substr( strrchr ($name, "."), 1);
$land = htmlspecialchars($laender[$tld]);
echo "IP-Adresse des Besuchers: $ip
\n";
echo "Rechnername des Besuchers: $name
\n";
echo "TLD des Besuchers: |$tld|
\n";
echo "Besucher ist aus $land!
\n";
?>

Wobei das noch relativ ungenau ist, da
(a) .com, ... nicht berücksichtigt werden
(b) Proxies nicht berücksichtigt werden
(c) man eigentlich die Whoiseinträge zur Ip-Adresse prüfen müsste, damit es mal halbwegs stimmt.

Eine nette Spielerei zu dem Thema ist z.B.: http://www.networldmap.com/