PageRenderTime 48ms CodeModel.GetById 14ms RepoModel.GetById 1ms app.codeStats 0ms

/spip/ecrire/inc/statistiques.php

https://github.com/eyeswebcrea/espace-couture-sittler.fr
PHP | 669 lines | 567 code | 58 blank | 44 comment | 79 complexity | 5642838745922296d8e6509fd0fc3fef MD5 | raw file
Possible License(s): LGPL-2.1, GPL-3.0 
    

  1. <?php
    2. 

  2. 

  3. /***************************************************************************\
    4. 

  4.  *  SPIP, Systeme de publication pour l'internet                           *
    5. 

  5.  *                                                                         *
    6. 

  6.  *  Copyright (c) 2001-2011                                                *
    7. 

  7.  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
    8. 

  8.  *                                                                         *
    9. 

  9.  *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
    10. 

  10.  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
    11. 

  11. \***************************************************************************/
    12. 

  12. 

  13. if (!defined('_ECRIRE_INC_VERSION')) return;
    14. 

  14. 

  15. // http://doc.spip.org/@aff_statistique_visites_popularite
    16. 

  16. function aff_statistique_visites_popularite($serveur, $id_article, &$classement, &$liste){
    17. 

  17. 	// Par popularite
    18. 

  18. 	$result = sql_select("id_article, titre, popularite, visites", "spip_articles", "statut='publie' AND popularite > 0", "", "popularite DESC",'','',$serveur);
    19. 

  19. 	$out = '';
    20. 

  20. 	while ($row = sql_fetch($result,$serveur)) {
    21. 

  21. 		$l_article = $row['id_article'];
    22. 

  22. 		$liste++;
    23. 

  23. 		$classement[$l_article] = $liste;
    24. 

  24. 

  25. 		if ($liste <= 30) {
    26. 

  26. 			$articles_vus[] = $l_article;
    27. 

  27. 			$out .= statistiques_populaires($row, $id_article, $liste);
    28. 

  28. 		}
    29. 

  29. 	}
    30. 

  30. 	$recents = array();
    31. 

  31. 	$q = sql_select("id_article", "spip_articles", "statut='publie' AND popularite > 0", "", "date DESC", "10",'',$serveur);
    32. 

  32. 	while ($r = sql_fetch($q,$serveur))
    33. 

  33. 		if (!in_array($r['id_article'], $articles_vus))
    34. 

  34. 			$recents[]= $r['id_article'];
    35. 

  35. 

  36. 	if ($recents) {
    37. 

  37. 		$result = sql_select("id_article, titre, popularite, visites", "spip_articles", "statut='publie' AND " . sql_in('id_article', $recents), "", "popularite DESC",'','',$serveur);
    38. 

  38. 

  39. 		$out .= "</ul><div style='text-align: center'>[...]</div>" .
    40. 

  40. 		"<ul class='classement'>";
    41. 

  41. 		while ($row = sql_fetch($result,$serveur)) {
    42. 

  42. 			$l_article = $row["id_article"];
    43. 

  43. 			$out .= statistiques_populaires($row, $id_article, $classement[$l_article]);
    44. 

  44. 		}
    45. 

  45. 	}
    46. 

  46. 

  47. 	return !$out ? '' : (
    48. 

  48. 		"<div class='cadre cadre-e'>\n"
    49. 

  49. 		."<div class='cadre_padding verdana1 spip_x-small'>"
    50. 

  50. 		.typo(_T('info_visites_plus_populaires'))
    51. 

  51. 		."<ul class='classement'>"
    52. 

  52. 		.$out
    53. 

  53. 

  54. 		."</ul>"
    55. 

  55. 		
    56. 

  56. 		."<div class='arial11'><b>"._T('info_comment_lire_tableau')."</b><br />"._T('texte_comment_lire_tableau')."</div>"
    57. 

  57. 

  58. 		."</div>"
    59. 

  59. 		."</div>");
    60. 

  60. }
    61. 

  61. 

  62. function statistiques_populaires($row, $id_article, $classement)
    63. 

  63. {
    64. 

  64. 	$titre = typo(supprime_img($row['titre'], ''));
    65. 

  65. 	$l_article = $row['id_article'];
    66. 

  66. 

  67. 	if ($l_article == $id_article){
    68. 

  68. 		return "<li class='on'><em>$classement.</em>$titre</li>";
    69. 

  69. 	} else {
    70. 

  70. 		$visites = $row['visites'];
    71. 

  71. 		$popularite = round($row['popularite']);
    72. 

  72. 		return "<li><em>$classement.</em><a href='" . generer_url_ecrire("statistiques_visites","id_article=$l_article") . "' title='"._T('info_popularite_3', array('popularite' => $popularite, 'visites' => $visites))."'>$titre</a></li>";
    73. 

  73. 	}
    74. 

  74. }
    75. 

  75. 

  76. // http://doc.spip.org/@aff_statistique_visites_par_visites
    77. 

  77. function aff_statistique_visites_par_visites($serveur='', $id_article=0, $classement= array()) {
    78. 

  78. 	$res = "";
    79. 

  79. 	// Par visites depuis le debut
    80. 

  80. 	$result = sql_select("id_article, titre, popularite, visites", "spip_articles", "statut='publie' AND popularite > 0", "", "visites DESC", "30",'',$serveur);
    81. 

  81. 

  82. 	while ($row = sql_fetch($result,$serveur)) {
    83. 

  83. 		$titre = typo(supprime_img($row['titre'],''));
    84. 

  84. 		$l_article = $row['id_article'];
    85. 

  85. 

  86. 		if ($l_article == $id_article){
    87. 

  87. 			$res.= "<li class='on'><em>"
    88. 

  88. 			. $classement[$l_article]
    89. 

  89. 			. ".</em>$titre</li>";
    90. 

  90. 		} else {
    91. 

  91. 			$t = _T('info_popularite_4',
    92. 

  92. 				array('popularite' => round($row['popularite']), 'visites' =>  $row['visites']));
    93. 

  93. 			$h = generer_url_ecrire("statistiques_visites","id_article=$l_article");
    94. 

  94. 			$out = "<a href='$h'\ntitle='$t'>$titre</a>";
    95. 

  95. 			$res.= "<li><em>"
    96. 

  96. 				. $classement[$l_article]
    97. 

  97. 				. ".</em>$out</li>";
    98. 

  98. 		}
    99. 

  99. 	}
    100. 

  100. 

  101. 	if (!$res) return '';
    102. 

  102. 

  103. 	return "<div class='cadre cadre-e' style='padding: 5px;'>"
    104. 

  104. 	  . "<div class='cadre_padding verdana1 spip_x-small'>"
    105. 

  105. 	  . typo(_T('info_affichier_visites_articles_plus_visites'))
    106. 

  106. 	  . "<ul class='classement'>"
    107. 

  107. 	  . $res
    108. 

  108. 	  . '</ul></div></div>';
    109. 

  109. }
    110. 

  110. 

  111. // http://doc.spip.org/@http_img_rien
    112. 

  112. function http_img_rien($width, $height, $class='', $title='') {
    113. 

  113. 	return http_img_pack('rien.gif', $title,
    114. 

  114. 		"width='$width' height='$height'"
    115. 

  115. 		. (!$class ? '' : (" class='$class'"))
    116. 

  116. 		. (!$title ? '' : (" title=\"$title\"")));
    117. 

  117. }
    118. 

  118. 

  119. // Donne la hauteur du graphe en fonction de la valeur maximale
    120. 

  120. // Doit etre un entier "rond", pas trop eloigne du max, et dont
    121. 

  121. // les graduations (divisions par huit) soient jolies :
    122. 

  122. // on prend donc le plus proche au-dessus de x de la forme 12,16,20,40,60,80,100
    123. 

  123. // http://doc.spip.org/@maxgraph
    124. 

  124. function maxgraph($max) {
    125. 

  125. 

  126. 	switch ($n =strlen($max)) {
    127. 

  127. 	case 0:
    128. 

  128. 		return 1;
    129. 

  129. 	case 1:
    130. 

  130. 		return 16;
    131. 

  131. 	case 2:
    132. 

  132. 		return (floor($max / 8) + 1) * 8;
    133. 

  133. 	case 3:
    134. 

  134. 		return (floor($max / 80) + 1) * 80;
    135. 

  135. 	default:
    136. 

  136. 		$dix = 2 * pow(10, $n-2);
    137. 

  137. 		return (floor($max / $dix) + 1) * $dix;
    138. 

  138. 	}
    139. 

  139. }
    140. 

  140. 

  141. // http://doc.spip.org/@cadre_stat
    142. 

  142. function cadre_stat($stats, $table, $id_article)
    143. 

  143. {
    144. 

  144. 	if (!$stats) return '';
    145. 

  145. 	return debut_cadre_relief("statistiques-24.gif", true)
    146. 

  146. 	. join('', $stats)
    147. 

  147. 	. fin_cadre_relief(true)
    148. 

  148. 	. statistiques_mode($table, $id_article);
    149. 

  149. }
    150. 

  150. 

  151. // http://doc.spip.org/@statistiques_collecte_date
    152. 

  152. function statistiques_collecte_date($count, $date, $table, $where, $serveur)
    153. 

  153. {
    154. 

  154. 	$result = sql_select("$count AS n, $date AS d", $table, $where, 'd', 'd', '','', $serveur);
    155. 

  155. 	$log = array();
    156. 

  156. 

  157. 	while ($r = sql_fetch($result,$serveur)) $log[$r['d']] = $r['n'];
    158. 

  158. 	return $log;
    159. 

  159. }
    160. 

  160. 

  161. // http://doc.spip.org/@statistiques_tous
    162. 

  162. function statistiques_tous($log, $id_article, $table, $where, $order, $serveur, $duree, $interval, $total, $popularite, $liste='', $classement=array(), $script='')
    163. 

  163. {
    164. 

  164. 	$r = array_keys($log);
    165. 

  165. 	$date_fin = max($r);
    166. 

  166. 	$today = strtotime(date('Y-m-d 01:00:01'));
    167. 

  167. 	if ($today-$date_fin>$interval){
    168. 

  168. 		$log[$today] = 0;
    169. 

  169. 		$r = array_keys($log);
    170. 

  170. 		$date_fin = max($r);
    171. 

  171. 	}
    172. 

  172. 	$date_debut = min($r);
    173. 

  173. 	$date_premier = sql_getfetsel("UNIX_TIMESTAMP($order) AS d", $table, $where, '', $order, 1,'',$serveur);
    174. 

  174. 	$last = $log[$date_fin];
    175. 

  175. 	$max = max($log);
    176. 

  176. 	$maxgraph = maxgraph($max);
    177. 

  177. 	$rapport = 200 / $maxgraph;
    178. 

  178. 	$agreg = ceil(count($log) / 420);
    179. 

  179. 	$x = ceil(($date_fin-$date_debut)/$interval);
    180. 

  180. 	$largeur = ($agreg > 1) ? 1 : (!$x ? 420 :  floor(420 / $x));
    181. 

  181. 

  182. 	if ($largeur > 50) $largeur = 50; elseif ($largeur < 1) $largeur = 1;
    183. 

  183. 

  184. 	list($moyenne,$prec, $res) = stat_log1($log, $agreg, $date_fin, $largeur, $rapport, $interval, $script);
    185. 

  185. 

  186. 	$stats = "\n<table cellpadding='0' cellspacing='0' border='0'><tr>" .
    187. 

  187. 	  "\n<td ".http_style_background("fond-stats.gif").">"
    188. 

  188. 	. "\n<table cellpadding='0' cellspacing='0' border='0' class='bottom'><tr>"
    189. 

  189. 	. "\n<td style='background-color: black'>" . http_img_rien(1, 200) . "</td>"
    190. 

  190. 	. $res
    191. 

  191. 	  . (!is_array($liste) ? '' : // prevision que pour les visites
    192. 

  192. 	     statistiques_prevision($id_article, $largeur, $moyenne, $rapport, $popularite, $last))
    193. 

  193. 	. "\n<td style='background-color: black'>"
    194. 

  194. 	. http_img_rien(1, 1) ."</td>"
    195. 

  195. 	. "</tr></table>"
    196. 

  196. 	. "</td>\n<td "
    197. 

  197. 	. http_style_background("fond-stats.gif")."  valign='bottom'>"
    198. 

  198. 	. http_img_rien(3, 1, 'trait_bas') ."</td>"
    199. 

  199. 	. "\n<td>" . http_img_rien(5, 1) ."</td>"
    200. 

  200. 	. "\n<td valign='top'>"
    201. 

  201. 	. statistiques_echelle($maxgraph)
    202. 

  202. 	. "</td>"
    203. 

  203. 	. "</tr></table>";
    204. 

  204. 

  205. 	$total = "<b>" .  _T('info_total') ." " . $total."</b>";
    206. 

  206. 

  207. 	if  (is_array($liste)) {
    208. 

  208. 		$liste = statistiques_classement($id_article, $classement, $liste);
    209. 

  209. 		$legend = statistiques_nom_des_mois($date_debut, $date_fin, $largeur, $interval,$agreg)
    210. 

  210. 		  . "<span class='arial1 spip_x-small'>"
    211. 

  211. 		  . _T('texte_statistiques_visites')
    212. 

  212. 		  . "</span><br />";
    213. 

  213. 		$resume =  statistiques_resume($max, $moyenne, $last, $prec, $popularite);
    214. 

  214. 	} else {
    215. 

  215. 	  $legend = "<table width='100%'><tr><td width='50%'>" .
    216. 

  216. 	    affdate_heure(date("Y-m-d H:i:s", $date_debut)) .
    217. 

  217. 	    "</td><td width='50%' align='right'>" .
    218. 

  218. 	    affdate_heure(date("Y-m-d H:i:s", $date_fin)) .
    219. 

  219. 	    '</td></tr></table>';
    220. 

  220. 	  $resume = '';
    221. 

  221. 	}
    222. 

  222. 

  223. 	$legend .=
    224. 

  224. 	  "<table cellpadding='0' cellspacing='0' border='0' width='100%'><tr style='width:100%;'>"
    225. 

  225. 	. $resume
    226. 

  226. 	. "\n<td valign='top' style='width: 33%; ' class='verdana1'>"
    227. 

  227. 	. $total
    228. 

  228. 	. $liste
    229. 

  229. 	. "</td></tr></table>";
    230. 

  230. 

  231. 	$x = (!$duree) ? 1 : (420/ $duree);
    232. 

  232. 	$zoom = statistiques_zoom($id_article, $x, $date_premier, $date_debut, $date_fin);
    233. 

  233. 	return array($zoom, $stats, $mark, $legend);
    234. 

  234. }
    235. 

  235. 

  236. // http://doc.spip.org/@statistiques_resume
    237. 

  237. function statistiques_resume($max, $moyenne, $last, $prec, $popularite)
    238. 

  238. {
    239. 

  239. 	return  "\n<td valign='top' style='width: 33%; ' class='verdana1'>"
    240. 

  240. 	. _T('info_maximum')." "
    241. 

  241. 	. $max . "<br />"
    242. 

  242. 	. _T('info_moyenne')." "
    243. 

  243. 	. round($moyenne). "</td>"
    244. 

  244. 	. "\n<td valign='top' style='width: 33%; ' class='verdana1'>"
    245. 

  245. 	. '<a href="'
    246. 

  246. 	. generer_url_ecrire("statistiques_referers")
    247. 

  247. 	. '" title="'._T('titre_liens_entrants').'">'
    248. 

  248. 	. _T('info_aujourdhui')
    249. 

  249. 	. '</a> '
    250. 

  250. 	. $last
    251. 

  251. 	. (($prec <= 0) ? '' :
    252. 

  252. 	     ('<br /><a href="'
    253. 

  253. 	      . generer_url_ecrire("statistiques_referers","jour=veille")
    254. 

  254. 	      .'"  title="'._T('titre_liens_entrants').'">'
    255. 

  255. 	      ._T('info_hier').'</a> '.$prec))
    256. 

  256. 	. (!$popularite ? '' :
    257. 

  257. 	   ("<br />"._T('info_popularite_5').' '.$popularite))
    258. 

  258. 	.  "</td>";
    259. 

  259. }
    260. 

  260. 

  261. // http://doc.spip.org/@statistiques_classement
    262. 

  262. function statistiques_classement($id_article, $classement, $liste)
    263. 

  263. {
    264. 

  264. 	if ($id_article) {
    265. 

  265. 		if ($classement[$id_article] > 0) {
    266. 

  266. 			if ($classement[$id_article] == 1)
    267. 

  267. 			      $ch = _T('info_classement_1', array('liste' => $liste));
    268. 

  268. 			else
    269. 

  269. 			      $ch = _T('info_classement_2', array('liste' => $liste));
    270. 

  270. 			return "<br />".$classement[$id_article].$ch;
    271. 

  271. 		}
    272. 

  272. 	  } else
    273. 

  273. 		return "<span class='spip_x-small'><br />"
    274. 

  274. 		  ._T('info_popularite_2')." "
    275. 

  275. 		  . ceil($GLOBALS['meta']['popularite_total'])
    276. 

  276. 		  . "</span>";
    277. 

  277. }
    278. 

  278. 

  279. // http://doc.spip.org/@statistiques_zoom
    280. 

  280. function statistiques_zoom($id_article, $largeur_abs, $date_premier, $date_debut, $date_fin)
    281. 

  281. {
    282. 

  282. 	if ($largeur_abs > 1) {
    283. 

  283. 		$inc = ceil($largeur_abs / 5);
    284. 

  284. 		$duree_plus = 420 / ($largeur_abs - $inc);
    285. 

  285. 		$duree_moins = 420 / ($largeur_abs + $inc);
    286. 

  286. 	}
    287. 

  287. 

  288. 	if ($largeur_abs == 1) {
    289. 

  289. 		$duree_plus = 840;
    290. 

  290. 		$duree_moins = 210;
    291. 

  291. 	}
    292. 

  292. 

  293. 	if ($largeur_abs < 1) {
    294. 

  294. 		$duree_plus = 420 * ((1/$largeur_abs) + 1);
    295. 

  295. 		$duree_moins = 420 * ((1/$largeur_abs) - 1);
    296. 

  296. 	}
    297. 

  297. 

  298. 	$pour_article = $id_article ? "&id_article=$id_article" : '';
    299. 

  299. 

  300. 	$zoom = '';
    301. 

  301. 	
    302. 

  302. 	if ($date_premier < $date_debut)
    303. 

  303. 		$zoom= lien_ou_expose(generer_url_ecrire("statistiques_visites","duree=$duree_plus$pour_article"),
    304. 

  304. 			 http_img_pack('loupe-moins.gif',
    305. 

  305. 				       _T('info_zoom'). '-',
    306. 

  306. 				       "style='border: 0px; vertical-align: middle;'"), false, '',
    307. 

  307. 			 "&nbsp;");
    308. 

  308. 	if ( (($date_fin - $date_debut) / (24*3600)) > 30)
    309. 

  309. 		$zoom .= lien_ou_expose(generer_url_ecrire("statistiques_visites","duree=$duree_moins$pour_article"),
    310. 

  310. 			 http_img_pack('loupe-plus.gif',
    311. 

  311. 				       _T('info_zoom'). '+',
    312. 

  312. 				       "style='border: 0px; vertical-align: middle;'"), false, '',
    313. 

  313. 			 "&nbsp;");
    314. 

  314. 

  315. 	return $zoom;
    316. 

  316. }
    317. 

  317. 

  318. // Presentation graphique
    319. 

  319. // (rq: on n'affiche pas le jour courant, c'est a la charge de la prevision)
    320. 

  320. // http://doc.spip.org/@stat_log1
    321. 

  321. function stat_log1($log, $agreg, $date_today, $largeur, $rapport, $interval, $script) {
    322. 

  322. 	$res = '';
    323. 

  323. 	$rien = http_img_rien($largeur, 1, 'trait_bas', '');
    324. 

  324. 	$test_agreg = $decal = $date_prec = $val_prec = $moyenne = 0;
    325. 

  325. 	foreach ($log as $key => $value) {
    326. 

  326. 		if ($key == $date_today) break;
    327. 

  327. 		$test_agreg ++;
    328. 

  328. 		if ($test_agreg != $agreg) continue;
    329. 

  329. 		$test_agreg = 0;
    330. 

  330. 		if ($decal == 30) $decal = 0;
    331. 

  331. 		$decal ++;
    332. 

  332. 		$evol[$decal] = $value;
    333. 

  333. 		// Inserer des jours vides si pas d'entrees
    334. 

  334. 		if ($date_prec > 0) {
    335. 

  335. 			$ecart = (($key-$date_prec)/$agreg)-$interval;
    336. 

  336. 			for ($i=$interval; $i <= $ecart; $i+=$interval){
    337. 

  337. 				if ($decal == 30) $decal = 0;
    338. 

  338. 				$decal ++;
    339. 

  339. 				$evol[$decal] = $value;
    340. 

  340. 				$m = statistiques_moyenne($evol);
    341. 

  341. 				$m = statistiques_vides($date_prec+$i, $largeur, $rapport, $m, $script);
    342. 

  342. 				$res .= "\n<td style='width: ${largeur}px'>$m</td>";
    343. 

  343. 			}
    344. 

  344. 		}
    345. 

  345. 		$moyenne = round(statistiques_moyenne($evol),2);
    346. 

  346. 		$hauteur = round($value * $rapport) - 1;
    347. 

  347. 		$m = ($hauteur <= 0) ? '' : statistiques_jour($key, $value, $largeur, $moyenne, $hauteur, $rapport, (date("w",$key) == "0"), $script);
    348. 

  348. 		$res .= "\n<td style='width: ${largeur}px'>$m$rien</td>\n";
    349. 

  349. 		$date_prec = $key;
    350. 

  350. 		$val_prec = $value;
    351. 

  351. 	}
    352. 

  352. 	return array($moyenne, $val_prec, $res);
    353. 

  353. }
    354. 

  354. 

  355. // http://doc.spip.org/@statistiques_href
    356. 

  356. function statistiques_href($jour, $moyenne, $script, $value='')
    357. 

  357. {
    358. 

  358. 	$ce_jour=date("Y-m-d H:i:s", $jour);
    359. 

  359. 	$title = nom_jour($ce_jour) . ' '
    360. 

  360. 	  . ($script ? affdate_heure($ce_jour) :
    361. 

  361. 	     (affdate_jourcourt($ce_jour)  .' '.
    362. 

  362. 	      (" | " ._T('info_visites')." $value | " ._T('info_moyenne')." "
    363. 

  363. 	       . round($moyenne,2))));
    364. 

  364. 	return attribut_html(supprimer_tags($title));
    365. 

  365. }
    366. 

  366. 

  367. // http://doc.spip.org/@statistiques_vides
    368. 

  368. function statistiques_vides($prec, $largeur, $rapport, $moyenne, $script)
    369. 

  369. {
    370. 

  370. 	$hauteur_moyenne = round($moyenne*$rapport)-1;
    371. 

  371. 	$title = statistiques_href($prec, $moyenne, $script);
    372. 

  372. 	$tagtitle = $script ? '' : $title;
    373. 

  373. 	if ($hauteur_moyenne > 1) {
    374. 

  374. 		$res = http_img_rien($largeur,1, 'trait_moyen', $tagtitle)
    375. 

  375. 		. http_img_rien($largeur, $hauteur_moyenne, '', $tagtitle);
    376. 

  376. 	} else $res = '';
    377. 

  377. 	$res .= http_img_rien($largeur,1,'trait_bas', $tagtitle);
    378. 

  378. 	if (!$script) return $res;
    379. 

  379. 	return "<a href='$script' title='$title'>$res</a>";
    380. 

  380. }
    381. 

  381. 

  382. 

  383. // http://doc.spip.org/@statistiques_prevision
    384. 

  384. function statistiques_prevision($id_article, $largeur, $moyenne, $rapport, $val_popularite, $visites_today)
    385. 

  385. {
    386. 

  386. 	$hauteur = round($visites_today * $rapport) - 1;
    387. 

  387. 	// $total_absolu = $total_absolu + $visites_today;
    388. 

  388. 	// prevision de visites jusqu'a minuit
    389. 

  389. 	// basee sur la moyenne (site) ou popularite (article)
    390. 

  390. 	if (! $id_article) $val_popularite = $moyenne;
    391. 

  391. 	$prevision = (1 - (date("H")*60 + date("i"))/(24*60)) * $val_popularite;
    392. 

  392. 	$hauteurprevision = ceil($prevision * $rapport);
    393. 

  393. 	// preparer le texte de survol (prevision)
    394. 

  394. 	$tagtitle= attribut_html(supprimer_tags(_T('info_aujourdhui')." $visites_today &rarr; ".(round($prevision,0)+$visites_today)));
    395. 

  395. 

  396. 	$res .= "\n<td style='width: ${largeur}px'>";
    397. 

  397. 	if ($hauteur+$hauteurprevision>0)
    398. 

  398. 	// Afficher la barre tout en haut
    399. 

  399. 		$res .= http_img_rien($largeur, 1, "trait_haut");
    400. 

  400. 	if ($hauteurprevision>0)
    401. 

  401. 	// afficher la barre previsionnelle
    402. 

  402. 		$res .= http_img_rien($largeur, $hauteurprevision,'couleur_prevision', $tagtitle);
    403. 

  403. 	// afficher la barre deja realisee
    404. 

  404. 	if ($hauteur>0)
    405. 

  405. 		$res .= http_img_rien($largeur, $hauteur, 'couleur_realise', $tagtitle);
    406. 

  406. 	// et afficher la ligne de base
    407. 

  407. 	$res .= http_img_rien($largeur, 1, 'trait_bas')
    408. 

  408. 	. "</td>";
    409. 

  409. 

  410. 	return $res;
    411. 

  411. }
    412. 

  412. 

  413. // Dimanche en couleur foncee
    414. 

  414. // http://doc.spip.org/@statistiques_jour
    415. 

  415. function statistiques_jour($key, $value, $largeur, $moyenne, $hauteur, $rapport, $dimanche, $script)
    416. 

  416. {
    417. 

  417. 	$hauteur_moyenne = round($moyenne * $rapport) - 1;
    418. 

  418. 	$title= statistiques_href($key, $moyenne, $script, $value);
    419. 

  419. 	$tagtitle = $script ? '' : $title;
    420. 

  420. 	$couleur = $dimanche ? "couleur_dimanche" :  "couleur_jour";
    421. 

  421. 	if ($hauteur_moyenne > $hauteur) {
    422. 

  422. 		$difference = ($hauteur_moyenne - $hauteur) -1;
    423. 

  423. 

  424. 		$res = http_img_rien($largeur, 1,'trait_moyen',$tagtitle)
    425. 

  425. 		. http_img_rien($largeur, $difference, '', $tagtitle)
    426. 

  426. 		. http_img_rien($largeur, 1, "trait_haut", $tagtitle)
    427. 

  427. 		. http_img_rien($largeur, $hauteur, $couleur, $tagtitle);
    428. 

  428. 	} else if ($hauteur_moyenne < $hauteur) {
    429. 

  429. 		$difference = ($hauteur - $hauteur_moyenne) -1;
    430. 

  430. 		$res = http_img_rien($largeur,1,"trait_haut", $tagtitle)
    431. 

  431. 		. http_img_rien($largeur, $difference, $couleur, $tagtitle)
    432. 

  432. 		. http_img_rien($largeur,1,"trait_moyen", $tagtitle)
    433. 

  433. 		. http_img_rien($largeur, $hauteur_moyenne, $couleur, $tagtitle);
    434. 

  434. 	} else {
    435. 

  435. 		$res = http_img_rien($largeur, 1, "trait_haut", $tagtitle)
    436. 

  436. 		. http_img_rien($largeur, $hauteur, $couleur, $tagtitle);
    437. 

  437. 	}
    438. 

  438. 	if ($script)
    439. 

  439. 		$script .= "&amp;date=$key";
    440. 

  440. 	else  {
    441. 

  441. 		$y = date("Y", $key);
    442. 

  442. 		$m = date("m", $key);
    443. 

  443. 		$d = date("d", $key);
    444. 

  444. 		$script = generer_url_ecrire('calendrier', 
    445. 

  445. 				"type=semaine&annee=$y&mois=$m&jour=$d");
    446. 

  446. 	} 
    447. 

  447. 	return "<a href='$script' title='$title'>$res</a>";
    448. 

  448. }
    449. 

  449. 

  450. // http://doc.spip.org/@statistiques_nom_des_mois
    451. 

  451. function statistiques_nom_des_mois($date_debut, $date_today, $largeur, $pas, $agreg)
    452. 

  452. {
    453. 

  453. 	global $spip_lang_left;
    454. 

  454. 

  455. 	$res = '';
    456. 

  456. 	$largeur /= ($pas*$agreg);
    457. 

  457. 	$gauche_prec = -50;
    458. 

  458. 	for ($jour = $date_debut; $jour <= $date_today; $jour += $pas) {
    459. 

  459. 		if (date("d", $jour) == "1") {
    460. 

  460. 			$newy = (date("m", $jour) == 1);
    461. 

  461. 			$gauche = floor(($jour - $date_debut) * $largeur);
    462. 

  462. 			if ($gauche - $gauche_prec >= 40 OR $newy) {
    463. 

  463. 				$afficher = $newy ?
    464. 

  464. 				  ("<b>".annee(date("Y-m-d", $jour))."</b>")
    465. 

  465. 				  : nom_mois(date("Y-m-d", $jour));
    466. 

  466. 

  467. 				  $res .= "<div class='arial0' style='border-$spip_lang_left: 1px solid black; padding-$spip_lang_left: 2px; padding-top: 3px; position: absolute; $spip_lang_left: ".$gauche."px; top: -1px;'>".$afficher."</div>";
    468. 

  468. 				$gauche_prec = $gauche;
    469. 

  469. 				if ($gauche > 400) break; //400px max
    470. 

  470. 			}
    471. 

  471. 		}
    472. 

  472. 	}
    473. 

  473. 	return "<div style='position: relative; height: 15px'>$res</div>";
    474. 

  474. }
    475. 

  475. 

  476. // http://doc.spip.org/@statistiques_par_mois
    477. 

  477. function statistiques_par_mois($entrees, $script){
    478. 

  478. 

  479. 	$maxgraph = maxgraph(max($entrees));
    480. 

  480. 	$rapport = 200/$maxgraph;
    481. 

  481. 	$largeur = floor(420 / (count($entrees)));
    482. 

  482. 	if ($largeur < 1) $largeur = 1;
    483. 

  483. 	if ($largeur > 50) $largeur = 50;
    484. 

  484. 	$decal = 0;
    485. 

  485. 	$tab_moyenne = array();
    486. 

  486. 

  487. 	$all = '';
    488. 

  488. 

  489. 	foreach($entrees as $key=>$value) {
    490. 

  490. 		$key = substr($key,0,4).'-'.substr($key,4,2);
    491. 

  491. 		$mois = affdate_mois_annee($key);
    492. 

  492. 		if ($decal == 30) $decal = 0;
    493. 

  493. 		$decal ++;
    494. 

  494. 		$tab_moyenne[$decal] = $value;
    495. 

  495. 		$moyenne = statistiques_moyenne($tab_moyenne);
    496. 

  496. 		$hauteur_moyenne = round($moyenne * $rapport) - 1;
    497. 

  497. 		$hauteur = round($value * $rapport) - 1;
    498. 

  498. 		$res = '';
    499. 

  499. 		$title= attribut_html(supprimer_tags("$mois | "
    500. 

  500. 			._T('info_total')." ".$value));
    501. 

  501. 		$tagtitle = $script ? '' : $title;
    502. 

  502. 		if ($hauteur > 0){
    503. 

  503. 			if ($hauteur_moyenne > $hauteur) {
    504. 

  504. 				$difference = ($hauteur_moyenne - $hauteur) -1;
    505. 

  505. 				$res .= http_img_rien($largeur, 1, 'trait_moyen');
    506. 

  506. 				$res .= http_img_rien($largeur, $difference, '', $tagtitle);
    507. 

  507. 				$res .= http_img_rien($largeur,1,"trait_haut");
    508. 

  508. 				if (preg_match(",-01,",$key)){ // janvier en couleur foncee
    509. 

  509. 					$res .= http_img_rien($largeur,$hauteur,"couleur_janvier", $tagtitle);
    510. 

  510. 				} else {
    511. 

  511. 					$res .= http_img_rien($largeur,$hauteur,"couleur_mois", $tagtitle);
    512. 

  512. 				}
    513. 

  513. 			}
    514. 

  514. 			else if ($hauteur_moyenne < $hauteur) {
    515. 

  515. 				$difference = ($hauteur - $hauteur_moyenne) -1;
    516. 

  516. 				$res .= http_img_rien($largeur,1,"trait_haut", $tagtitle);
    517. 

  517. 				if (preg_match(",-01,",$key)){ // janvier en couleur foncee
    518. 

  518. 						$couleur =  'couleur_janvier';
    519. 

  519. 				} else {
    520. 

  520. 						$couleur = 'couleur_mois';
    521. 

  521. 				}
    522. 

  522. 				$res .= http_img_rien($largeur,$difference, $couleur, $tagtitle);
    523. 

  523. 				$res .= http_img_rien($largeur,1,'trait_moyen',$tagtitle);
    524. 

  524. 				$res .= http_img_rien($largeur,$hauteur_moyenne, $couleur, $tagtitle);
    525. 

  525. 			} else {
    526. 

  526. 				$res .= http_img_rien($largeur,1,"trait_haut", $tagtitle);
    527. 

  527. 				if (preg_match(",-01,",$key)){ // janvier en couleur foncee
    528. 

  528. 					$res .= http_img_rien($largeur, $hauteur, "couleur_janvier", $tagtitle);
    529. 

  529. 				} else {
    530. 

  530. 					$res .= http_img_rien($largeur,$hauteur, "couleur_mois", $tagtitle);
    531. 

  531. 				}
    532. 

  532. 			}
    533. 

  533. 		}
    534. 

  534. 		$res .= http_img_rien($largeur,1,'trait_bas', $tagtitle);
    535. 

  535. 

  536. 		if (!$script) {
    537. 

  537. 			$y = annee($key);
    538. 

  538. 			$m = mois($key);
    539. 

  539. 			$href = generer_url_ecrire('calendrier', "type=mois&annee=$y&mois=$m&jour=1");
    540. 

  540. 		} else $href = "$script&amp;date=$key";
    541. 

  541. 

  542. 		$all .= "\n<td style='width: ${largeur}px'><a href='"
    543. 

  543. 		.  $href
    544. 

  544. 		. '\' title="'
    545. 

  545. 		. $title
    546. 

  546. 		. '">'
    547. 

  547. 		. $res
    548. 

  548. 		. "</a></td>\n";
    549. 

  549. 	}
    550. 

  550. 

  551. 	return
    552. 

  552. 	  "\n<table cellpadding='0' cellspacing='0' border='0'><tr>"
    553. 

  553. 	.  "\n<td ".http_style_background("fond-stats.gif").">"
    554. 

  554. 	. "\n<table cellpadding='0' cellspacing='0' border='0' class='bottom'><tr>"
    555. 

  555. 	. "\n<td class='trait_bas'>" . http_img_rien(1, 200) ."</td>"
    556. 

  556. 	.  $all
    557. 

  557. 	. "\n<td style='background-color: black'>" . http_img_rien(1, 1)
    558. 

  558. 	. "</td>"
    559. 

  559. 	. "</tr></table></td>"
    560. 

  560. 	. "\n<td ".http_style_background("fond-stats.gif")." valign='bottom'>"
    561. 

  561. 	. http_img_rien(3, 1, 'trait_bas') ."</td>"
    562. 

  562. 	. "\n<td>" . http_img_rien(5, 1) ."</td>"
    563. 

  563. 	. "\n<td valign='top'>"
    564. 

  564. 	. statistiques_echelle($maxgraph)
    565. 

  565. 	. "</td></tr></table>";
    566. 

  566.  }
    567. 

  567. 

  568. // http://doc.spip.org/@statistiques_echelle
    569. 

  569. function statistiques_echelle($maxgraph)
    570. 

  570. {
    571. 

  571.   return recuperer_fond('prive/stats/echelle', array('echelle' => $maxgraph));
    572. 

  572. }
    573. 

  573. 

  574. // http://doc.spip.org/@statistiques_moyenne
    575. 

  575. function statistiques_moyenne($tab)
    576. 

  576. {
    577. 

  577. 	if (!$tab) return 0;
    578. 

  578. 	$moyenne = 0;
    579. 

  579. 	foreach($tab as $v) $moyenne += $v;
    580. 

  580. 	return  $moyenne / count($tab);
    581. 

  581. }
    582. 

  582. 

  583. 

  584. // http://doc.spip.org/@statistiques_signatures_dist
    585. 

  585. function statistiques_signatures_dist($duree, $interval, $type, $id_article, $serveur)
    586. 

  586. {
    587. 

  587. 	$where = "id_article=$id_article";
    588. 

  588. 	$total = sql_countsel("spip_signatures", $where);
    589. 

  589. 	if (!$total) return '';
    590. 

  590. 

  591. 	$order = 'date_time';
    592. 

  592. 	if ($duree)
    593. 

  593. 		$where .= " AND $order > DATE_SUB(".sql_quote(date('Y-m-d H:i:s')).",INTERVAL $duree $type)";
    594. 

  594. 

  595. 	$log = statistiques_collecte_date('COUNT(*)', "(FLOOR(UNIX_TIMESTAMP($order) / $interval) *  $interval)", 'spip_signatures', $where, $serveur);
    596. 

  596. 

  597. 	$script = generer_url_ecrire('controle_petition', "id_article=$id_article");
    598. 

  598. 	if (count($log) > 1) {
    599. 

  599. 		$res = statistiques_tous($log, $id_article, "spip_signatures", "id_article=$id_article", "date_time", $serveur, $duree, $interval, $total, 0, '', array(), $script);
    600. 

  600. 		$res = gros_titre(_T('titre_page_statistiques_signatures_jour'),'', false) . cadre_stat($res, 'spip_signatures', $id_article);
    601. 

  601. 	} else $res = '';
    602. 

  602. 

  603. 	$mois = statistiques_collecte_date( "COUNT(*)",
    604. 

  604. 		"DATE_FORMAT(date_time,'%Y%m')",
    605. 

  605. 		"spip_signatures",
    606. 

  606. 		"date_time > DATE_SUB(".sql_quote(date('Y-m-d H:i:s')).",INTERVAL 2700 DAY)"
    607. 

  607. 		. (" AND id_article=$id_article"),
    608. 

  608. 		$serveur);
    609. 

  609. 

  610. 	return "<br />"
    611. 

  611. 	. $res
    612. 

  612. 	. (!$mois ? '' : (
    613. 

  613. 	  "<br />"
    614. 

  614. 	. gros_titre(_T('titre_page_statistiques_signatures_mois'),'', false)
    615. 

  615. 	. statistiques_par_mois($mois, $script)))
    616. 

  616. 	. ($res ? '' : statistiques_mode("spip_signatures", $id_article))
    617. 

  617. ;
    618. 

  618. }
    619. 

  619. 

  620. // http://doc.spip.org/@statistiques_forums_dist
    621. 

  621. function statistiques_forums_dist($duree, $interval, $type, $id_article, $serveur)
    622. 

  622. {
    623. 

  623. 	$where = "id_article=$id_article AND statut='publie'";
    624. 

  624. 	$total = sql_countsel("spip_forum", $where);
    625. 

  625. 	if (!$total) return '';
    626. 

  626. 	$order = 'date_heure';
    627. 

  627. 	$interval = 24 * 3600;
    628. 

  628. 	$oldscore = 420;
    629. 

  629. 	$oldlog = array();
    630. 

  630. 	while ($interval >= 1) {
    631. 

  631. 		$log = statistiques_collecte_date('COUNT(*)', "(FLOOR(UNIX_TIMESTAMP($order) / $interval) *  $interval)", 'spip_forum', $where, $serveur);
    632. 

  632. 		if (count($log) > 3) break;
    633. 

  633. 		$oldlog = $log;
    634. 

  634. 		$oldinterval = $interval;
    635. 

  635. 		$interval /= ($interval>3600) ?  24 : 60;
    636. 

  636. 	}
    637. 

  637. 	if (count($log) > 20) {
    638. 

  638. 	  $interval = $oldinterval;
    639. 

  639. 	  $log = $oldlog;
    640. 

  640. 	}
    641. 

  641. 	$script = generer_url_ecrire('articles_forum', "id_article=$id_article");
    642. 

  642. 	$date = sql_getfetsel('UNIX_TIMESTAMP(date)', 'spip_articles', $where);
    643. 

  643. 	$back = 10*ceil((time()-$date) / 3600);
    644. 

  644. 	$jour = statistiques_tous($log, $id_article, "spip_forum", $where, "date_heure", $serveur, $back, $interval, $total, 0, '', array(), $script);
    645. 

  645. 

  646. 	return "<br />"
    647. 

  647. 	. gros_titre(_T('titre_page_statistiques_messages_forum'),'', false)
    648. 

  648. 	  . cadre_stat($jour, 'spip_forum', $id_article);
    649. 

  649. }
    650. 

  650. 

  651. // Le bouton pour CSV
    652. 

  652. 

  653. // http://doc.spip.org/@statistiques_mode
    654. 

  654. function statistiques_mode($table, $id=0)
    655. 

  655. {
    656. 

  656. 	global $spip_lang_left;
    657. 

  657. 	$t = str_replace('spip_', '', $table);
    658. 

  658. 	$fond = (strstr($t, 'visites') ? 'statistiques' : $t);
    659. 

  659. 	$args = array();
    660. 

  660. 	if ($id) {
    661. 

  661. 		$fond .= "_article"; 
    662. 

  662. 		$args['id_article'] = $id;
    663. 

  663. 	}
    664. 

  664. 	include_spip('inc/acces');
    665. 

  665. 	$args = param_low_sec($fond, $args, '', 'transmettre');
    666. 

  666. 	$url = generer_url_public('transmettre', $args);
    667. 

  667. 	return "<a style='float: $spip_lang_left;' href='$url'>CSV</a>";
    668. 

  668. }
    669. 

  669. ?>
    670. 

  670.