Statistika přístupů v PHP – domény nejvyšší úrovně

Tentokrát začneme pracovat s doménovou adresou a řekneme si, jak zjistit doménu nejvyšší úrovně (cz, sk, com a další), což je většinou země, ze které návštěvník pochází. Součástí článku je i SQL tabulka se všemi doménami nejvyšší úrovně a jejich českými popisky.

Hotovou aplikaci si můžete prohlédnout a vyzkoušet. V ukázkové verzi se provádí statistika přístupů stránek http://www.czechia.cz/help/.

Podmínkou pro zjištění domény nejvyšší úrovně je znalost doménové adresy počítače, ze kterého přišel požadavek. Protože do tabulky access budeme ukládat i IP adresu počítače, uložíme si ji do proměnné $ip. Musíme však počítat s tím, že pokud $_SERVER['REMOTE_ADDR'] obsahuje IP proxy serveru, obsahuje (ne vždy) IP adresu počítače, ze kterého přišel požadavek, proměnná $_SERVER['HTTP_X_FORWARDED_FOR']. Ta však může obsahovat několik adres oddělených čárkou, proto použijeme funkci explode().

// IP ADRESA
if(isset($_SERVER[‚HTTP_X_FORWARDED_FOR‘])) {
  $explode_ip = explode(‚,‘, $_SERVER[‚HTTP_X_FORWARDED_FOR‘]);
  $ip = $explode_ip[0];
} else {
  $ip = $_SERVER[‚REMOTE_ADDR‘];
}

Následně můžeme zjistit i doménovou adresu. V proměnné $_SERVER['REMOTE_HOST'] je však doménová adresa obsažena jen velmi zřídka. Proto použijeme funkci gethostbyaddr(), která převádí IP adresu na adresu doménovou. Aby se nám s doménovou adresou pracovalo lépe, převedeme ji na malá písmena. Pomocí dvou podmínek ještě otestujeme, zda se skutečně jedná o doménovou adresu. Komentář si zaslouží snad jen druhá podmínka zjišťující, zda se podařilo IP adresu převést na adresu doménovou. Využijeme k tomu regulární výraz testující, jestli má proměnná $ip_name tvar IP adresy, tedy něco jako XXX.XXX.XXX.XXX, kde X je libovolná číslice. V každé části oddělené tečkou musí být alespoň jedna číslice.

// DOMENOVA ADRESA
if(isset($_SERVER[‚REMOTE_HOST‘]) and $_SERVER[‚REMOTE_HOST‘] != “) {
  $ip_name = $_SERVER[‚REMOTE_HOST‘];
} else {
  $ip_name = gethostbyaddr($ip);
}
// pokud se nepodarilo IP adresu prevest na domenovou adresu, vlozime do $ip_name „0“
$ip_name = strtolower($ip_name);
if($ip_name == “) $ip_name = 0;
else if(eregi(„[[:digit:]]{1,3}\.[[:digit:]]{1,3}\.[[:digit:]]{1,3}\.[[:digit:]]{1,3}“, $ip_name)) $ip_name = 0;

Tabulka domain

V tabulce budou informace o všech existujících doménách nejvyšší úrovně, včetně jejich českého popisu. SQL dotaz, který vytvoří tabulku domain, vypadá následovně:

CREATE TABLE domain (
  id int(11) NOT NULL,
  code varchar(10) NOT NULL,
  description varchar(50) NOT NULL,
  PRIMARY KEY (id)
);

• id – unikátní označení každé domény (primární klíč)
• code – doména (například cz, com, info)
• description – popis domény, většinou stát

Tabulka domain ve skutečnosti vypadá jako tabulka uvedená níže. Pokud se vám bude hodit i v jiných aplikacích, můžete si ji stáhnout jako samostatný soubor.

Doménu nejvyšší úrovně zjistíme tak, že doménovou adresu rozdělíme na části oddělené tečkou, kde poslední část je námi hledaná doména. Jednoduchým SQL dotazem si z databáze vytáhneme id domény a uložíme jej do proměnné $domain. I ta bude součástí závěrečného SQL dotazu, který do tabulky access uloží veškeré informace o daném přístupu.

// DOMENA NEJVYSSI UROVNE
$domain = 0;
if($ip_name != ‚0‘) {
  // domena nejvyssi urovne je posledni casti domenove adresy
  $explode = explode(‚.‘, $ip_name);
  $domain = $explode[count($explode)-1];
  // je domena v databazi ?
  $query = mysql_query(„SELECT id FROM domain WHERE code = ‚$domain'“);
  if($result = mysql_fetch_array($query))
    $domain = $result[‚id‘];
  else
    $domain = 0;
}

Vyhodnocení

Statistiku domén nejvyšší úrovně vypíšeme do tabulky o třech sloupích – Název domény + český popisek, Počet přístupů z dané domény, Podíl domény na celkovém počtu přístupů. Postup, kterým vytváříme statistiku, je opět velmi podobný postupu popsanému v článku o detekci operačního systému. Jen zdůrazním, že spojíme tabulky domain a access – položka id v tabulce domain je primárním klíčem a položka domain v tabulce access je klíčem cizím.

// DOMENY
echo ‚<h2>Domény</h2>‘;
echo ‚<table width=“550″ cellspacing=“0″>‘;
echo ‚<tr><th>Název</th><th>Počet</th><th>Podíl</th></tr>‘;
// vybirame domeny podle jejich zastoupeni
$query = mysql_query(„SELECT code, description, count(domain) AS count_it FROM access JOIN domain ON (domain = domain.id) WHERE $sql_access_date GROUP BY domain ORDER BY count_it DESC“);
$max = mysql_result($query, 0, ‚count_it‘); // pocet pristupu z nejcastejsi domeny
$move = mysql_data_seek($query, 0); // presuneme se znovu na zacatek
while($result = mysql_fetch_array($query)) {
  $width = round($result[‚count_it‘]/$max*200); // sirka obrazku znazornujiciho podil
  $rate = sprintf(‚%.2f‘, $result[‚count_it‘]/($pageviews/100)); // podil v procentech
  echo ‚<tr><td>‘ . $result[‚code‘] . ‚ (‚ . $result[‚description‘] . ‚)</td><td>‘ . $result[‚count_it‘] . ‚</td><td><img src=“1.gif“ width=“‚ . $width . ‚“ height=“8″ alt=““ /> ‚ . $rate . ‚ %</td></tr>‘;
}
echo „</table>\n\n“;

Odkazy, zdroje

• Top-level domain – top-level domény, zajímavé informace o „exotických“, nových a prehistorických doménách
• List of Internet TLDs – přehled domén nejvyšší úrovně
• Počítačová encyklopedie – seriál Jiřího Peterky, o doménách se dočtete v kapitole DNS
• Rodina protokolů TCP/IP – přednáška Jiřího Peterky, o doménách pojednává pojednává kapitola Systém DNS
• Root-Zone Whois – informace o správcích národních domén
• Domain name registries – odkazy na správce národních domén
• Country codes – označení zemí dle několika standardů
• ISO 3166 – standard popisující označení zemí
• Páni interneru – seriál Jiřího Peterky, mimo jiné informace o organizaci IANA či přidělování IP adres
• IANA – organizace bdící nad přidělováním IP adres
• Co že je to ten „RIPE“? – svérázně podané informace o IP adresách

Pozn. red.: Tento článek vyšel poprvé 25. 7. 2002. Původní verze článku a k němu vedené diskuse jsou vám k dispozici v ZIP archivech.

Starší komentáře ke článku

Pokud máte zájem o starší komentáře k tomuto článku, naleznete je zde.