Statistika přístupů v PHP – domény nejvyšší úrovně -- PHP -- Vývoj aplikací -- Interval.cz

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

Začneme pracovat s doménovou adresou a řekneme si, jak zjistit doménu nejvyšší úrovně (cz, sk, com, atd.), tedy stát, ze kterého 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 názvy.

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. Postup, který byl popsán v článku Jak vědět více o návštěvnících pomocí PHP, ještě jednou zopakuji.

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 $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á $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($HTTP_X_FORWARDED_FOR)):
    $explode_ip = Explode(",", $HTTP_X_FORWARDED_FOR);
    $ip = $explode_ip[0];
else:
    $ip = $REMOTE_ADDR;
endif;

Následně můžeme zjistit i doménovou adresu. V proměnné $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, tj. XXX.XXX.XXX.XXX, kde X je libovolné číslo. V každé části oddělené tečkou musí být alespoň jedno číslo.

// DOMÉNOVÁ ADRESA
if($REMOTE_HOST!=""):
    $ip_name = $REMOTE_HOST;
else:
    $ip_name = GetHostByADDR($ip);
endif;

$ip_name = StrToLower($ip_name);

if($ip_name == "") $ip_name = 0;
// pokud se nepodařilo IP adresu převést na doménovou adresu, vložíme do $ip_name "0"
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),
    description varchar(50),
    PRIMARY KEY (id)
);

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

Tabulka domain je uvedena níže. Pokud se vám tato SQL tabulka bude hodit i v jiných aplikacích, můžete si ji stáhnout jako samostatný soubor.

id	code	description
0	??	Nezjištěno
1	ac	Ascension (ostrov)
2	ad	Andorra
3	ae	Spojené arabské emiráty
4	af	Afghánistán
5	ag	Antigua a Barbuda
6	ai	Anguilla
7	al	Albánie
8	am	Arménie
9	an	Nizozemské Antily
10	ao	Angola
11	aq	Antarktida
12	ar	Argentina
13	as	Americká Samoa
14	at	Rakousko
15	au	Austrálie
16	aw	Aruba
17	az	Ázerbájdžán
18	ba	Bosna a Hercegovina
19	bb	Barbados
20	bd	Bangladéš
21	be	Belgie
22	bf	Burkina
23	bg	Bulharsko
24	bh	Bahrajn
25	bi	Burundi
26	bj	Benin
27	bm	Bermudy
28	bn	Brunej
29	bo	Bolívie
30	br	Brazílie
31	bs	Bahamy
32	bt	Bhútán
33	bv	Bouvetův ostrov
34	bw	Botswana
35	by	Bělorusko
36	bz	Belize
37	ca	Kanada
38	cc	Kokosové ostrovy
39	cd	Kongo - dem. republika
40	cf	Středoafrická republika
41	cg	Kongo
42	ch	Švýcarsko
43	ci	Cote d'Ivoire
44	ck	Cookovy ostrovy
45	cl	Chile
46	cm	Kamerun
47	cn	Čína
48	co	Kolumbie
49	cr	Kostarika
50	cu	Kuba
51	cv	Kapverdy
52	cx	Vánoční ostrov
53	cy	Kypr
54	cz	Česko
55	de	Německo
56	dj	Džibutsko
57	dk	Dánsko
58	dm	Dominika
59	do	Dominikánská republika
60	dz	Alžírsko
61	ec	Ekvádor
62	ee	Estonsko
63	eg	Egypt
64	eh	Západní Sahara
65	er	Eritrea
66	es	Španělsko
67	et	Etiopie
68	fi	Finsko
69	fj	Fidži
70	fk	Falklandy (Malvíny)
71	fm	Federativní státy Mikronésie
72	fo	Faerské ostrovy
73	fr	Francie
74	ga	Gabon
76	gd	Grenada
77	ge	Gruzie
78	gf	Francouzská Guyana
79	gg	Guernsey
80	gh	Ghana
81	gi	Gibraltar
82	gl	Grónsko
83	gm	Gambie
84	gn	Guinea
85	gp	Guadeloupe
86	gq	Rovníková Guinea
87	gr	Řecko
88	gs	Jižní Georgie a Jižní Sandwichovy ostrovy
89	gt	Guatemala
90	gu	Guam
91	gw	Guinea-Bissau
92	gy	Guyana
93	hk	Hongkong
94	hm	Heardův ostrov a McDonaldovy ostrovy
95	hn	Honduras
96	hr	Chorvatsko
97	ht	Haiti
98	hu	Maďarsko
99	id	Indonésie
100	ie	Irsko
101	il	Izrael
102	im	Man (ostrov)
103	in	Indie
104	io	Britské indickooceánské území
105	iq	Irák
106	ir	Írán
107	is	Island
108	it	Itálie
109	je	Jersey
110	jm	Jamajka
111	jo	Jordánsko
112	jp	Japonsko
113	ke	Keňa
114	kg	Kyrgyzstán
115	kh	Kambodža
116	ki	Kiribati
117	km	Komory
118	kn	Sv. Kryštof a Nevis
119	kp	Korejská lidově dem. republika (KLDR)
120	kr	Korejská republika
121	kw	Kuvajt
122	ky	Kajmanské ostrovy
123	kz	Kazachstán
124	la	Laos
125	lb	Libanon
126	lc	Sv. Lucie
127	li	Lichtenštejnsko
128	lk	Srí Lanka
129	lr	Libérie
130	ls	Lesotho
131	lt	Litva
132	lu	Lucembursko
133	lv	Lotyšsko
134	ly	Libye
135	ma	Maroko
136	mc	Monako
137	md	Moldávie
138	mg	Madagaskar
139	mh	Marshallovy ostrovy
140	mk	Makedonie
141	ml	Mali
142	mm	Myanmar
143	mn	Mongolsko
144	mo	Macao
145	mp	Severní Mariany
146	mq	Martinik
147	mr	Mauritánie
148	ms	Montserrat
149	mt	Malta
150	mu	Mauricius
151	mv	Maledivy
152	mw	Malawi
153	mx	Mexiko
154	my	Malajsie
155	mz	Mosambik
156	na	Namibie
157	nc	Nová Kaledonie
158	ne	Niger
159	nf	Norfolk
160	ng	Nigérie
161	ni	Nikaragua
162	nl	Nizozemsko
163	no	Norsko
164	np	Nepál
165	nr	Nauru
166	nu	Niue
167	nz	Nový Zéland
168	om	Omán
169	pa	Panama
170	pe	Peru
171	pf	Francouzská Polynésie
172	pg	Papua - Nová Guinea
173	ph	Filipíny
174	pk	Pákistán
175	pl	Polsko
176	pm	St. Pierre a Miquelon
177	pn	Pitcairnovy ostrovy
178	pr	Portoriko
179	pt	Portugalsko
180	pw	Palau
181	py	Paraguay
182	qa	Katar
183	re	Réunion
184	ro	Rumunsko
185	ru	Rusko
186	rw	Rwanda
187	sa	Saudská Arábie
188	sb	Šalamounovy ostrovy
189	sc	Seychely
190	sd	Súdán
191	se	Švédsko
192	sg	Singapur
193	sh	Sv. Helena
194	si	Slovinsko
195	sj	Svalbard
196	sk	Slovensko
197	sl	Sierra Leone
198	sm	San Marino
199	sn	Senegal
200	so	Somálsko
201	sr	Surinam
202	st	Sv. Tomáš a Princův ostrov
203	sv	Salvador
204	sy	Sýrie
205	sz	Svazijsko
206	tc	Turks a Caicos
207	td	Čad
208	tf	Francouzská jižní území
209	tg	Togo
210	th	Thajsko
211	tj	Tadžikistán
212	tk	Tokelau
213	tm	Turkmenistán
214	tn	Tunisko
215	to	Tonga
216	tp	Východní Timor
217	tr	Turecko
218	tt	Trinidad a Tobago
219	tv	Tuvalu
220	tw	Taiwan
221	tz	Tanzanie
222	ua	Ukrajina
223	ug	Uganda
224	uk	Velká Británie
225	um	Menší odlehlé ostrovy USA
226	us	Spojené státy americké
227	uy	Uruguay
228	uz	Uzbekistán
229	va	Vatikán
230	vc	Sv. Vincenc a Grenadiny
231	ve	Venezuela
232	vg	Britské Panenské ostrovy
233	vi	Americké Panenské ostrovy
234	vn	Vietnam
235	vu	Vanuatu
236	wf	Wallis Futuna
237	ws	Samoa
238	ye	Jemen
239	yt	Mayotte
240	yu	Jugoslávie
241	za	Jihoafrická republika
242	zm	Zambie
245	zw	Zimbabwe
246	com	obchodní společnosti
247	net	provoz intenetu, ISP
248	org	neziskové organizace
249	edu	výchovně-vzdělávací organizace
250	int	mezinárodní organizace
251	arpa	ARPAnet
252	gov	vládní organizace
253	mil	vojenské (obranné) organizace
254	aero	letecká doprava
255	biz	velké obchodní společnosti
256	coop	družstevní společnosti
257	info	obchodní společnosti
258	museum	muzea, výstavy
259	name	osobní stránky
260	pro	profesionálové
261	su	SSSR
262	ps	Okupované palestinské území

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.

// DOMÉNA NEJVYŠŠÍ ÚROVNĚ
if($ip_name!="0"):
    // doména nejvyšší úrovně je poslední částí doménové adresy
    $explode = Explode(".", $ip_name);
    $domain = $explode[Count($explode)-1];

    // je doména v databázi ?
    $query = MySQL_Query("SELECT id FROM domain WHERE code = '$domain'");
    if($result = MySQL_Fetch_Array($query))
        $domain = $result["id"];
    else
        $domain = 0;
else:
    $domain = 0;
endif;

Vyhodnocení

Statistiku domén nejvyšší úrovně vypíšeme do tabulky o třech sloupích - Název domény + český význam, 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 ve třetím díle tohoto seriálu. 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.

// DOMÉNY
echo '<p align="center" class="heading">Domény</p>';
echo '<table width="550" cellspacing="0" align="center">';
echo '<tr><td width="230" class="tableheader">Název</td><td width="50" class="tableheader">Počet</td><td width="280" class="tableheader">Podíl</td>';

// vybíráme domény podle jejich zastoupení
$query = MySQL_Query("SELECT code, description, count(*) AS count_it FROM domain, access WHERE domain.id = domain AND $sql_access_date GROUP BY domain ORDER BY count_it DESC");
$max = MySQL_Result($query, 0, "count_it"); // počet přístupů z nejčastější domény
$move = MySQL_Data_Seek($query, 0); // přesuneme se znovu na začátek

while($result = MySQL_Fetch_Array($query)):
    $width = Round($result["count_it"]/$max*200); // šířka obrázku znázorňujícího podíl
    $rate = BCDiv($result["count_it"], ($pageviews/100), 2); // podíl v procentech
    echo '<tr><td>' . $result["code"] ." (" . $result["description"] . ')</td><td>' . $result["count_it"] . '</td><td><img src="1.gif" width="' . $width . '" height="8" border="0" alt=""> ' . $rate . ' %</td></tr>';
endwhile;

echo '</table><br>';

Příště budeme opět pracovat s doménovou adresou počítače a povíme si něco o regionální lokalizaci návštěvníka, tedy určení kraje, okresu, popřípadě města, ze kterého návštěvník pochází.

Předchozí články:
Statistika přístupů v PHP – vyhledávací fráze
Statistika přístupů v PHP – odkud přicházejí návštěvníci
Statistika přístupů v PHP – rozlišení a barevná hloubka
Statistika přístupů v PHP – detekce operačního systému
Statistika přístupů v PHP – detekce prohlížeče
Statistika přístupů v PHP – počet unikátních návštěvníků

Kebrt, Michal (25. 7. 2002)