11a755f76091af2829d834bf79e7bd9366cf003e
3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2014 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
13 if (!defined("_ECRIRE_INC_VERSION")) return;
15 // http://code.spip.net/@public_stats_dist
16 function public_stats_dist() {
17 // $_SERVER["HTTP_REFERER"] ne fonctionne pas partout
18 if (isset($_SERVER['HTTP_REFERER'])) $referer = $_SERVER['HTTP_REFERER'];
19 else if (isset($GLOBALS["HTTP_SERVER_VARS"]["HTTP_REFERER"])) $referer = $GLOBALS["HTTP_SERVER_VARS"]["HTTP_REFERER"];
21 // Rejet des robots (qui sont pourtant des humains comme les autres)
22 if (_IS_BOT
OR (isset($referer) AND strpbrk($referer, '<>"\''))) return;
24 // Ne pas tenir compte des tentatives de spam des forums
25 if ($_SERVER['REQUEST_METHOD'] !== 'GET'
26 OR (isset($_GET['page']) AND $_GET['page'] == 'forum'))
29 // rejet des pages 404
30 if (isset($GLOBALS['page']['status'])
31 AND $GLOBALS['page']['status'] == 404)
34 // Identification du client
35 $client_id = substr(md5(
36 $GLOBALS['ip'] . $_SERVER['HTTP_USER_AGENT']
37 // . $_SERVER['HTTP_ACCEPT'] # HTTP_ACCEPT peut etre present ou non selon que l'on est dans la requete initiale, ou dans les hits associes
38 . $_SERVER['HTTP_ACCEPT_LANGUAGE']
39 . $_SERVER['HTTP_ACCEPT_ENCODING']
44 if (isset($referer)) {
45 $url_site_spip = preg_replace(',/$,', '',
46 preg_replace(',^(https?://)?(www\.)?,i', '',
48 if (!(($url_site_spip<>'')
49 AND strpos('-'.strtolower($referer), strtolower($url_site_spip))
50 AND strpos($referer,"recherche=")===false)) {
51 $log_referer =$referer;
56 // stockage sous forme de fichier ecrire/data/stats/client_id
59 // 1. Chercher s'il existe deja une session pour ce numero IP.
61 $fichier = sous_repertoire(_DIR_TMP
, 'visites') . $client_id;
62 if (lire_fichier($fichier, $content))
63 $content = @unserialize
($content);
65 // 2. Plafonner le nombre de hits pris en compte pour un IP (robots etc.)
66 // et ecrire la session
67 if (count($content) < 200) {
69 // Identification de l'element
70 if (isset($GLOBALS['contexte']['id_article']))
71 $log_type = "article";
72 else if (isset($GLOBALS['contexte']['id_breve']))
74 else if (isset($GLOBALS['contexte']['id_rubrique']))
75 $log_type = "rubrique";
80 $log_type .= "\t" . intval($GLOBALS['contexte']["id_$log_type"]);
81 else $log_type = "autre\t0";
83 $log_type .= "\t" . trim($log_referer);
84 if (isset($content[$log_type]))
85 $content[$log_type]++
;
86 else $content[$log_type] = 1; // bienvenue au club
88 ecrire_fichier($fichier, serialize($content));