diff --git a/ecrire/exec/statistiques_visites.php b/ecrire/exec/statistiques_visites.php
index 36e6dc242323444a320494055ade5077ce18875d..6e9f1dea4041936ed2c88e838c47def0eb46e460 100644
--- a/ecrire/exec/statistiques_visites.php
+++ b/ecrire/exec/statistiques_visites.php
@@ -15,36 +15,6 @@ if (!defined("_ECRIRE_INC_VERSION")) return;
include_spip('inc/presentation');
include_spip('inc/statistiques');
-// Donne la hauteur du graphe en fonction de la valeur maximale
-// Doit etre un entier "rond", pas trop eloigne du max, et dont
-// les graduations (divisions par huit) soient jolies :
-// on prend donc le plus proche au-dessus de x de la forme 12,16,20,40,60,80,100
-// http://doc.spip.org/@maxgraph
-function maxgraph($max) {
-
- switch ($n =strlen($max)) {
- case 0:
- return 1;
- case 1:
- return 16;
- case 2:
- return (floor($max / 8) + 1) * 8;
- case 3:
- return (floor($max / 80) + 1) * 80;
- default:
- $dix = 2 * pow(10, $n-2);
- return (floor($max / $dix) + 1) * $dix;
- }
-}
-
-// http://doc.spip.org/@http_img_rien
-function http_img_rien($width, $height, $class='', $title='') {
- return http_img_pack('rien.gif', $title,
- "width='$width' height='$height'"
- . (!$class ? '' : (" class='$class'"))
- . (!$title ? '' : (" title=\"$title\"")));
-}
-
// http://doc.spip.org/@exec_statistiques_visites_dist
function exec_statistiques_visites_dist()
{
@@ -75,25 +45,30 @@ function exec_statistiques_visites_dist()
}
// http://doc.spip.org/@exec_statistiques_visites_args
-function exec_statistiques_visites_args($id_article, $aff_jours, $limit)
+function exec_statistiques_visites_args($id_article, $aff_jours, $limit,$serveur='')
{
$titre = $pourarticle = "";
if ($id_article){
- $result = sql_select("titre, visites, popularite", "spip_articles", "statut='publie' AND id_article=$id_article");
+ $result = sql_select("titre, visites, popularite", "spip_articles", "statut='publie' AND id_article=$id_article",'','','','',$serveur);
- if ($row = sql_fetch($result)) {
+ if ($row = sql_fetch($result,$serveur)) {
$titre = typo($row['titre']);
$total_absolu = $row['visites'];
$val_popularite = round($row['popularite']);
}
} else {
- $row = sql_fetsel("SUM(visites) AS total_absolu", "spip_visites");
+ $row = sql_fetsel("SUM(visites) AS total_absolu", "spip_visites",'','','','','',$serveur);
$total_absolu = $row ? $row['total_absolu'] : 0;
$val_popularite = 0;
}
if ($titre) $pourarticle = " "._T('info_pour')." « $titre »";
+ if ($serveur) {
+ if ($row = sql_fetsel('valeur','spip_meta',"nom='nom_site'",'','','','',$serveur)){
+ $titre = $row['valeur'].($titre?" / $titre":"");
+ }
+ }
$commencer_page = charger_fonction('commencer_page', 'inc');
echo $commencer_page(_T('titre_page_statistiques_visites').$pourarticle, "statistiques_visites", "statistiques");
@@ -118,102 +93,18 @@ function exec_statistiques_visites_args($id_article, $aff_jours, $limit)
echo "</div>";
echo "</div>";
- // Par popularite
- $result = sql_select("id_article, titre, popularite, visites", "spip_articles", "statut='publie' AND popularite > 0", "", "popularite DESC");
-
- if (sql_count($result)) {
- echo "<br />\n";
- echo "<div class='iconeoff' style='padding: 5px;'>\n";
- echo "<div class='verdana1 spip_x-small'>";
- echo typo(_T('info_visites_plus_populaires'));
- echo "<ol style='padding-left:40px; font-size:x-small;color:#666666;'>";
- $liste = 0;
- while ($row = sql_fetch($result)) {
- $titre = typo(supprime_img($row['titre'],''));
- $l_article = $row['id_article'];
- $visites = $row['visites'];
- $popularite = round($row['popularite']);
- $liste++;
- $classement[$l_article] = $liste;
-
- if ($liste <= 30) {
- $articles_vus[] = $l_article;
-
- if ($l_article == $id_article){
- echo "\n<li><b>$titre</b></li>";
- } else {
- echo "\n<li><a href='" . generer_url_ecrire("statistiques_visites","id_article=$l_article") . "' title='"._T('info_popularite', array('popularite' => $popularite, 'visites' => $visites))."'>$titre</a></li>";
- }
- }
- }
- $recents = array();
- $q = sql_select("id_article", "spip_articles", "statut='publie' AND popularite > 0", "", "date DESC", "10");
-
- while ($r = sql_fetch($q))
- if (!in_array($r['id_article'], $articles_vus))
- $recents[]= $r['id_article'];
-
- if ($recents) {
- $result = sql_select("id_article, titre, popularite, visites", "spip_articles", "statut='publie' AND " . sql_in('id_article', $recents), "", "popularite DESC");
-
- echo "</ol><div style='text-align: center'>[...]</div>","<ol style='padding-left:40px; font-size:x-small;color:#666666;'>";
- while ($row = sql_fetch($result)) {
- $titre = typo(supprime_img($row['titre'], ''));
- $l_article = $row['id_article'];
- $visites = $row['visites'];
- $popularite = round($row['popularite']);
- $numero = $classement[$l_article];
-
- if ($l_article == $id_article){
- echo "\n<li><b>$titre</b></li>";
- } else {
- echo "\n<li><a href='" . generer_url_ecrire("statistiques_visites","id_article=$l_article") . "' title='"._T('info_popularite_3', array('popularite' => $popularite, 'visites' => $visites))."'>$titre</a></li>";
- }
- }
- }
-
- echo "</ol>";
-
- echo "<b>"._T('info_comment_lire_tableau')."</b><br />"._T('texte_comment_lire_tableau');
-
- echo "</div>";
- echo "</div>";
- }
+ echo aff_statistique_visites_popularite($serveur);
// Par visites depuis le debut
- $result = sql_select("id_article, titre, popularite, visites", "spip_articles", "statut='publie' AND popularite > 0", "", "visites DESC", "30");
+ $result = aff_statistique_visites_par_visites($serveur);
- $n = sql_count($result);
- if ($n OR $id_article)
+ if ($result OR $id_article)
echo creer_colonne_droite('', true);
if ($id_article) {
echo bloc_des_raccourcis(icone_horizontale(_T('icone_retour_article'), generer_url_ecrire("articles","id_article=$id_article"), "article-24.gif","rien.gif", false));
}
-
- if ($n) {
- echo "<br /><div class='iconeoff' style='padding: 5px;'>";
- echo "<div style='overflow:hidden;' class='verdana1 spip_x-small'>";
- echo typo(_T('info_affichier_visites_articles_plus_visites'));
- echo "<ol style='padding-left:40px; font-size:x-small;color:#666666;'>";
-
- while ($row = sql_fetch($result)) {
- $titre = typo(supprime_img($row['titre'],''));
- $l_article = $row['id_article'];
- $visites = $row['visites'];
- $popularite = round($row['popularite']);
- $numero = $classement[$l_article];
-
- if ($l_article == $id_article){
- echo "\n<li><b>$titre</b></li>";
- } else {
- echo "\n<li><a href='" . generer_url_ecrire("statistiques_visites","id_article=$l_article") . "'\ntitle='"._T('info_popularite_4', array('popularite' => $popularite, 'visites' => $visites))."'>$titre</a></li>";
- }
- }
- echo "</ol>";
- echo "</div>";
- echo "</div>";
- }
+ echo $result;
echo debut_droite('', true);
@@ -227,14 +118,14 @@ function exec_statistiques_visites_args($id_article, $aff_jours, $limit)
$where = "0=0";
}
- $select = "UNIX_TIMESTAMP(date) AS date, UNIX_TIMESTAMP(date) AS date_time, visites";
+ $select = "UNIX_TIMESTAMP(date) AS date_entree, UNIX_TIMESTAMP(date) AS date_time, visites as total";
$where2 = " date > DATE_SUB(NOW(),INTERVAL $aff_jours DAY)";
- $order = "date";
+ $order = "date_entree";
- $log = statistiques_collecte_date($select, $table, "$where AND $where2", '', $order);
+ $log = statistiques_collecte_date($select, $table, "$where AND $where2", '', $order, array(), $serveur);
if ($log) {
- $r = sql_fetsel($select, $table, $where, '', $order, "1");
+ $r = sql_fetsel($select, $table, $where, '', $order, "1",'',$serveur);
$last = 0;
echo debut_cadre_relief("statistiques-24.gif", true);
echo statistiques_tous($log,$r[$order], $last, $total_absolu, $val_popularite, $aff_jours, $classement, $id_article, $liste);
@@ -244,16 +135,17 @@ function exec_statistiques_visites_args($id_article, $aff_jours, $limit)
echo "<span class='verdana1 spip_small'><b>"
._T('info_visites_par_mois')."</b></span>";
- echo statistiques_par_mois(sql_select("FROM_UNIXTIME(UNIX_TIMESTAMP(date),'%Y-%m') AS date_unix, SUM(visites) AS total_visites", $table, "$where AND date > DATE_SUB(NOW(),INTERVAL 2700 DAY)", 'date_unix', "date"), $last);
+ $log_mois = statistiques_collecte_date("FROM_UNIXTIME(UNIX_TIMESTAMP(date),'%Y-%m') AS date_entree, SUM(visites) AS total", $table, "$where AND date > DATE_SUB(NOW(),INTERVAL 2700 DAY)", 'date_entree', 'date', array(), $serveur);
+ echo statistiques_par_mois($log_mois, $last);
}
echo fin_cadre_relief(true), statistiques_mode('visites');
}
- if ($id_article AND $n = sql_countsel('spip_signatures', "id_article=$id_article")) {
- echo statistiques_signatures($aff_jours, $id_article, statistiques_mode('signatures'), $n);
+ if ($id_article AND $n = sql_countsel('spip_signatures', "id_article=$id_article",'','','',$serveur)) {
+ echo statistiques_signatures($aff_jours, $id_article, statistiques_mode('signatures'), $n, $serveur);
}
- $r = sql_select("referer, referer_md5, visites AS vis", $table_ref, $where, "", "vis DESC", $limit);
+ $r = sql_select("referer, referer_md5, visites AS vis", $table_ref, $where, "", "vis DESC", $limit,'',$serveur);
$res = aff_referers ($r, $limit, generer_url_ecrire('statistiques_visites', ($id_article?"id_article=$id_article&":'').('limit=' . strval($limit+200))));
if ($res) {
@@ -267,23 +159,30 @@ function exec_statistiques_visites_args($id_article, $aff_jours, $limit)
}
// http://doc.spip.org/@statistiques_signatures
-function statistiques_signatures($aff_jours, $id_article, $mode, $n)
+function statistiques_signatures($aff_jours, $id_article, $mode, $n, $serveur)
{
$stable = "spip_signatures";
$swhere = "id_article=$id_article";
- $sselect = "UNIX_TIMESTAMP(date_time) AS date_time, (ROUND(UNIX_TIMESTAMP(date_time) / (24*3600)) * (24*3600)) AS date, COUNT(*) AS visites";
+ $sselect = "UNIX_TIMESTAMP(date_time) AS date_time, (ROUND(UNIX_TIMESTAMP(date_time) / (24*3600)) * (24*3600)) AS date_entree, COUNT(*) AS total";
$swhere2 = " date_time > DATE_SUB(NOW(),INTERVAL 420 DAY)";
- $sgroupby = 'date';
+ $sgroupby = 'date_entree';
$sorder = "date_time";
- $log = statistiques_collecte_date($sselect, $stable, "$swhere AND $swhere2", $sgroupby,$sorder);
+ $log = statistiques_collecte_date($sselect, $stable, "$swhere AND $swhere2", $sgroupby,$sorder,$serveur);
if ($log) {
- $r = sql_fetsel($sselect, $stable, $swhere, $sgroupby, $sorder, "1");
+ $r = sql_fetsel($sselect, $stable, $swhere, $sgroupby, $sorder, "1",'',$serveur);
$last = 0;
$res = statistiques_tous($log, $r[$sorder], $last=0, $n, 0, $aff_jours);
} else $res ='';
+ $log_mois = statistiques_collecte_date(
+ "FROM_UNIXTIME(UNIX_TIMESTAMP(date_time),'%Y-%m') AS date_entree, COUNT(*) AS total",
+ 'spip_signatures',
+ "id_article=$id_article AND date_time > DATE_SUB(NOW(),INTERVAL 2700 DAY)",
+ 'date_entree',
+ 'date_entree',array(),$serveur);
+
return "<br />"
. gros_titre(_L('Nombre de signatures par jour'),'', false)
. debut_cadre_relief("statistiques-24.gif", true)
@@ -292,139 +191,9 @@ function statistiques_signatures($aff_jours, $id_article, $mode, $n)
. $mode
. "<br />"
. gros_titre(_L('Nombre de signatures par mois'),'', false)
- . statistiques_par_mois(sql_select("FROM_UNIXTIME(UNIX_TIMESTAMP(date_time),'%Y-%m') AS date_unix, COUNT(*) AS total_visites", 'spip_signatures', "id_article=$id_article AND date_time > DATE_SUB(NOW(),INTERVAL 2700 DAY)", 'date_unix', "date_unix"), 0);
-}
-
-// http://doc.spip.org/@statistiques_collecte_date
-function statistiques_collecte_date($select, $table, $where, $groupby, $order)
-{
- $result = sql_select($select, $table, $where, $groupby, $order);
- $log = array();
-
- while ($r = sql_fetch($result)) {
- $log[$r['date']] = $r['visites'];
- }
- return $log;
+ . statistiques_par_mois($log_mois, 0);
}
-// Appelee S'il y a au moins cinq minutes de stats :-)
-
-// http://doc.spip.org/@statistiques_tous
-function statistiques_tous($log, $date_premier, $last, $total_absolu, $val_popularite, $aff_jours, $classement=array(), $id_article=0, $liste=0)
-{
- $r = array_keys($log);
- $date_today = max($r);
- $date_debut = min($r);
-
- // les visites du jour ... sauf s'il n'y en a pas :
- if (time()-$date_today>3600*24) {
- $date_today = time();
- $last=0;
- } else {
- $last = $log[$date_today];
- }
-
- $nb_jours = floor(($date_today-$date_debut)/(3600*24));
- $max = max($log);
- $maxgraph = maxgraph($max);
- $rapport = 200 / $maxgraph;
-
- if (count($log) < 420) $largeur = floor(450 / ($nb_jours+1));
- if ($largeur < 1) {
- $largeur = 1;
- $agreg = ceil(count($log) / 420);
- } else {
- $agreg = 1;
- if ($largeur > 50) $largeur = 50;
- }
-
- $largeur_abs = 420 / $aff_jours;
-
- if ($largeur_abs > 1) {
- $inc = ceil($largeur_abs / 5);
- $aff_jours_plus = 420 / ($largeur_abs - $inc);
- $aff_jours_moins = 420 / ($largeur_abs + $inc);
- }
-
- if ($largeur_abs == 1) {
- $aff_jours_plus = 840;
- $aff_jours_moins = 210;
- }
-
- if ($largeur_abs < 1) {
- $aff_jours_plus = 420 * ((1/$largeur_abs) + 1);
- $aff_jours_moins = 420 * ((1/$largeur_abs) - 1);
- }
-
- $pour_article = $id_article ? "&id_article=$id_article" : '';
-
- $zoom = '';
-
- if ($date_premier < $date_debut)
- $zoom= http_href(generer_url_ecrire("statistiques_visites","aff_jours=$aff_jours_plus$pour_article"),
- http_img_pack('loupe-moins.gif',
- _T('info_zoom'). '-',
- "style='border: 0px; vertical-align: middle;'"),
- " ");
- if ( (($date_today - $date_debut) / (24*3600)) > 30)
- $zoom .= http_href(generer_url_ecrire("statistiques_visites","aff_jours=$aff_jours_moins$pour_article"),
- http_img_pack('loupe-plus.gif',
- _T('info_zoom'). '+',
- "style='border: 0px; vertical-align: middle;'"),
- " ");
-
- if (flag_svg()) {
- list($moyenne,$val_prec, $res) = stat_logsvg($aff_jours, $agreg, $date_today, $id_article, $log, $total_absolu, $last);
- } else {
- list($moyenne,$val_prec, $res) = stat_log1($log, $agreg, $date_debut, $date_today, $id_article, $largeur, $total_absolu, $maxgraph, $rapport, $val_popularite, $last);
- }
-
- // cette ligne donne la moyenne depuis le debut
- // (desactive au profit de la moyenne "glissante")
- # $moyenne = round($total_absolu / ((date("U")-$date_premier)/(3600*24)));
-
- $res .= "<span class='arial1 spip_x-small'>"
- . _T('texte_statistiques_visites')
- . "</span><br />"
- . "<table cellpadding='0' cellspacing='0' border='0' width='100%'><tr style='width:100%;'>"
- . "\n<td valign='top' style='width: 33%; ' class='verdana1'>"
- . _T('info_maximum')." "
- . $max . "<br />"
- . _T('info_moyenne')." "
- . round($moyenne). "</td>"
- . "\n<td valign='top' style='width: 33%; ' class='verdana1'>"
- . '<a href="'
- . generer_url_ecrire("statistiques_referers","")
- . '" title="'._T('titre_liens_entrants').'">'
- . _T('info_aujourdhui')
- . '</a> '
- . $last;
-
- if ($val_prec > 0) $res .= '<br /><a href="' . generer_url_ecrire("statistiques_referers","jour=veille").'" title="'._T('titre_liens_entrants').'">'._T('info_hier').'</a> '.$val_prec;
- if ($id_article) $res .= "<br />"._T('info_popularite_5').' '.$val_popularite;
-
- $res .= "</td>"
- ."\n<td valign='top' style='width: 33%; ' class='verdana1'>"
- ."<b>"
- ._T('info_total')." "
- .$total_absolu."</b>";
-
- if ($id_article) {
- if ($classement[$id_article] > 0) {
- if ($classement[$id_article] == 1)
- $ch = _T('info_classement_1', array('liste' => $liste));
- else
- $ch = _T('info_classement_2', array('liste' => $liste));
- $res .= "<br />".$classement[$id_article].$ch;
- }
- } elseif ($liste) {// i.e; pas 'spip_signatures'
- $res .= "<span class='spip_x-small'><br />"
- ._T('info_popularite_2')." " . ceil($GLOBALS['meta']['popularite_total']) . "</span>";
- }
- $res .= "</td></tr></table>";
-
- return $zoom . $res;
-}
// Le bouton pour CSV et pour passer de svg a htm
@@ -449,360 +218,5 @@ function statistiques_mode($table)
. "</div>\n";
}
-// http://doc.spip.org/@stat_log1
-function stat_log1($log, $agreg, $date_debut, $date_today, $id_article, $largeur, &$total_absolu, $maxgraph, $rapport, $val_popularite, $visites_today) {
- $res = '';
-
- $test_agreg = $decal = $jour_prec = $val_prec = $moyenne = 0;
-
- // Presentation graphique (rq: on n'affiche pas le jour courant)
- foreach ($log as $key => $value) {
- # quand on atteint aujourd'hui, stop
- if ($key == $date_today) break;
- $test_agreg ++;
- if ($test_agreg != $agreg) continue;
- $test_agreg = 0;
- if ($decal == 30) $decal = 0;
- $decal ++;
- $tab_moyenne[$decal] = $value;
- // Inserer des jours vides si pas d'entrees
- if ($jour_prec > 0) {
- $ecart = floor(($key-$jour_prec)/((3600*24)*$agreg)-1);
- for ($i=1; $i <= $ecart; $i++){
- if ($decal == 30) $decal = 0;
- $decal ++;
- $tab_moyenne[$decal] = $value;
-
- $ce_jour=date("Y-m-d", $jour_prec+(3600*24*$i));
- $jour = nom_jour($ce_jour).' '.affdate_jourcourt($ce_jour);
- $moyenne = statistiques_moyenne($tab_moyenne);
- $hauteur_moyenne = round($moyenne*$rapport)-1;
- $tagtitle = attribut_html(supprimer_tags("$jour | "
- ._T('info_visites')." | "
- ._T('info_moyenne')." "
- . round($moyenne,2)));
-
- $res .= "\n<td style='width: ${largeur}px'>";
- if ($hauteur_moyenne > 1) {
- $res .= http_img_rien($largeur,1, 'trait_moyen', $tagtitle);
- $res .= http_img_rien($largeur, $hauteur_moyenne, '', $tagtitle);
- }
- $res .= http_img_rien($largeur,1,'trait_bas', $tagtitle);
- $res .= "</td>";
- }
- }
-
- $ce_jour=date("Y-m-d", $key);
- $jour = nom_jour($ce_jour).' '.affdate_jourcourt($ce_jour);
- $moyenne = statistiques_moyenne($tab_moyenne);
- $hauteur = round($value * $rapport) - 1;
- $moyenne = round($moyenne,2); // Pour affichage harmonieux
- $res .= "\n<td style='width: ${largeur}px'>";
-
- if ($hauteur > 0) {
- $hauteur_moyenne = round($moyenne * $rapport) - 1;
- $tagtitle= attribut_html(supprimer_tags("$jour | "
- ._T('info_visites')." ". $value . " | "
- ._T('info_moyenne')." "
- . round($moyenne,2)));
-
- $res .= statistiques_jour($key, $tagtitle, $largeur, $hauteur_moyenne, $hauteur);
- }
- $res .= http_img_rien($largeur, 1, 'trait_bas', $tagtitle);
- $res .= "</td>\n";
-
- $jour_prec = $key;
- $val_prec = $value;
- }
-
- // Dernier jour
- $hauteur = round($visites_today * $rapport) - 1;
- // $total_absolu = $total_absolu + $visites_today;
- // prevision de visites jusqu'a minuit
- // basee sur la moyenne (site) ou popularite (article)
- if (! $id_article) $val_popularite = $moyenne;
- $prevision = (1 - (date("H")*60 + date("i"))/(24*60)) * $val_popularite;
- $hauteurprevision = ceil($prevision * $rapport);
- // preparer le texte de survol (prevision)
- $tagtitle= attribut_html(supprimer_tags(_T('info_aujourdhui')." $visites_today → ".(round($prevision,0)+$visites_today)));
-
- $res .= "\n<td style='width: ${largeur}px'>";
- if ($hauteur+$hauteurprevision>0)
- // Afficher la barre tout en haut
- $res .= http_img_rien($largeur, 1, "trait_haut");
- if ($hauteurprevision>0)
- // afficher la barre previsionnelle
- $res .= http_img_rien($largeur, $hauteurprevision,'couleur_prevision', $tagtitle);
- // afficher la barre deja realisee
- if ($hauteur>0)
- $res .= http_img_rien($largeur, $hauteur, 'couleur_realise', $tagtitle);
- // et afficher la ligne de base
- $res .= http_img_rien($largeur, 1, 'trait_bas')
- . "</td>";
-
- $res = "\n<table cellpadding='0' cellspacing='0' border='0'><tr>" .
- "\n<td ".http_style_background("fond-stats.gif").">"
- . "\n<table cellpadding='0' cellspacing='0' border='0' class='bottom'><tr>"
- . "\n<td style='background-color: black'>" . http_img_rien(1, 200) . "</td>"
- . $res
-
- . "\n<td style='background-color: black'>" .http_img_rien(1, 1) ."</td>"
- . "</tr></table>"
- . "</td>"
- . "\n<td ".http_style_background("fond-stats.gif")." valign='bottom'>" . http_img_rien(3, 1, 'trait_bas') ."</td>"
- . "\n<td>" . http_img_rien(5, 1) ."</td>"
- . "\n<td valign='top'>"
- . statistiques_echelle($maxgraph)
- . "</td>"
- . "</tr></table>"
- . statistiques_nom_des_mois($date_debut, $date_today, ($largeur / (24*3600*$agreg)));
- return array($moyenne, $val_prec, $res);
-}
-
-// http://doc.spip.org/@statistiques_jour
-function statistiques_jour($key, $tagtitle, $largeur, $hauteur_moyenne, $hauteur)
-{
- if ($hauteur_moyenne > $hauteur) {
- $difference = ($hauteur_moyenne - $hauteur) -1;
- $res = http_img_rien($largeur, 1,'trait_moyen',$tagtitle)
- . http_img_rien($largeur, $difference, '', $tagtitle)
- . http_img_rien($largeur,1, "trait_haut", $tagtitle);
- if (date("w",$key) == "0") // Dimanche en couleur foncee
-$res .= http_img_rien($largeur, $hauteur, "couleur_dimanche", $tagtitle);
- else
- $res .= http_img_rien($largeur,$hauteur, "couleur_jour", $tagtitle);
- } else if ($hauteur_moyenne < $hauteur) {
- $difference = ($hauteur - $hauteur_moyenne) -1;
- $res = http_img_rien($largeur,1,"trait_haut", $tagtitle);
- if (date("w",$key) == "0") // Dimanche en couleur foncee
- $couleur = 'couleur_dimanche';
- else
- $couleur = 'couleur_jour';
- $res .= http_img_rien($largeur, $difference, $couleur, $tagtitle)
- . http_img_rien($largeur,1,"trait_moyen", $tagtitle)
- . http_img_rien($largeur, $hauteur_moyenne, $couleur, $tagtitle);
- } else {
- $res = http_img_rien($largeur, 1, "trait_haut", $tagtitle);
- if (date("w",$key) == "0") // Dimanche en couleur foncee
-$res .= http_img_rien($largeur, $hauteur, "couleur_dimanche", $tagtitle);
- else
- $res .= http_img_rien($largeur,$hauteur, "couleur_jour", $tagtitle);
- }
- return $res;
-}
-
-// http://doc.spip.org/@statistiques_nom_des_mois
-function statistiques_nom_des_mois($date_debut, $date_today, $largeur)
-{
- global $spip_lang_left;
-
- $res = '';
- $gauche_prec = -50;
- $pas = (24*3600);
- for ($jour = $date_debut; $jour <= $date_today; $jour += $pas) {
-
- if (date("d", $jour) == "1") {
- $newy = (date("m", $jour) == 1);
- $gauche = floor(($jour - $date_debut) * $largeur);
- if ($gauche - $gauche_prec >= 40 OR $newy) {
- $afficher = $newy ?
- ("<b>".annee(date("Y-m-d", $jour))."</b>")
- : nom_mois(date("Y-m-d", $jour));
-
- $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>";
- $gauche_prec = $gauche;
- }
- }
- }
- return "<div style='position: relative; height: 15px'>$res</div>";
-}
-
-// http://doc.spip.org/@statistiques_par_mois
-function statistiques_par_mois($query, $visites_today)
- {
- $entrees = array();
-
- while ($row = sql_fetch($query)) {
- $entrees[$d=$row['date_unix']] = $row['total_visites'];
- }
- // Pour la derniere date, rajouter les visites du jour sauf si premier jour du mois
- if (date("d",time()) > 1) {
- $entrees[$d] += $visites_today;
- } else { // Premier jour du mois : le rajouter dans le tableau des date (car il n'etait pas dans le resultat de la requete SQL precedente)
- $entrees[date("Y-m",time())] = $visites_today;
- }
-
- $maxgraph = maxgraph(max($entrees));
- $rapport = 200/$maxgraph;
- $largeur = floor(420 / (count($entrees)));
- if ($largeur < 1) $largeur = 1;
- if ($largeur > 50) $largeur = 50;
- $decal = 0;
- $tab_moyenne = "";
-
- $res = ''
- . "\n<table cellpadding='0' cellspacing='0' border='0'><tr>" .
- "\n<td ".http_style_background("fond-stats.gif").">"
- . "\n<table cellpadding='0' cellspacing='0' border='0' class='bottom'><tr>"
- . "\n<td class='trait_bas'>" . http_img_rien(1, 200) ."</td>";
-
- while (list($key, $value) = each($entrees)) {
-
- $mois = affdate_mois_annee($key);
- if ($decal == 30) $decal = 0;
- $decal ++;
- $tab_moyenne[$decal] = $value;
- $moyenne = statistiques_moyenne($tab_moyenne);
- $hauteur_moyenne = round($moyenne * $rapport) - 1;
- $hauteur = round($value * $rapport) - 1;
- $res .= "\n<td style='width: ${largeur}px'>";
-
- $tagtitle= attribut_html(supprimer_tags("$mois | "
- ._T('info_total')." ".$value));
-
- if ($hauteur > 0){
- if ($hauteur_moyenne > $hauteur) {
- $difference = ($hauteur_moyenne - $hauteur) -1;
- $res .= http_img_rien($largeur, 1, 'trait_moyen');
- $res .= http_img_rien($largeur, $difference, '', $tagtitle);
- $res .= http_img_rien($largeur,1,"trait_haut");
- if (preg_match(",-01,",$key)){ // janvier en couleur foncee
- $res .= http_img_rien($largeur,$hauteur,"couleur_janvier", $tagtitle);
- } else {
- $res .= http_img_rien($largeur,$hauteur,"couleur_mois", $tagtitle);
- }
- }
- else if ($hauteur_moyenne < $hauteur) {
- $difference = ($hauteur - $hauteur_moyenne) -1;
- $res .= http_img_rien($largeur,1,"trait_haut", $tagtitle);
- if (preg_match(",-01,",$key)){ // janvier en couleur foncee
- $couleur = 'couleur_janvier';
- } else {
- $couleur = 'couleur_mois';
- }
- $res .= http_img_rien($largeur,$difference, $couleur, $tagtitle);
- $res .= http_img_rien($largeur,1,'trait_moyen',$tagtitle);
- $res .= http_img_rien($largeur,$hauteur_moyenne, $couleur, $tagtitle);
- } else {
- $res .= http_img_rien($largeur,1,"trait_haut", $tagtitle);
- if (preg_match(",-01,",$key)){ // janvier en couleur foncee
- $res .= http_img_rien($largeur, $hauteur, "couleur_janvier", $tagtitle);
- } else {
- $res .= http_img_rien($largeur,$hauteur, "couleur_mois", $tagtitle);
- }
- }
- }
- $res .= http_img_rien($largeur,1,'trait_bas', $tagtitle);
- $res .= "</td>\n";
- }
-
- return $res
- . "\n<td style='background-color: black'>" . http_img_rien(1, 1) . "</td>"
- . "</tr></table></td>"
- . "\n<td ".http_style_background("fond-stats.gif")." valign='bottom'>"
- . http_img_rien(3, 1, 'trait_bas') ."</td>"
- . "\n<td>" . http_img_rien(5, 1) ."</td>"
- . "\n<td valign='top'>"
- . statistiques_echelle($maxgraph)
- . "</td></tr></table>";
- }
-
-// http://doc.spip.org/@statistiques_echelle
-function statistiques_echelle($maxgraph)
-{
- return "<div class='verdana1 spip_x-small'>"
- . "\n<table cellpadding='0' cellspacing='0' border='0'>"
- . "\n<tr><td style='height: 15' valign='top'>"
- . "<span class='arial1 spip_x-small'><b>" .round($maxgraph) ."</b></span>"
- . "</td></tr>"
- . "\n<tr><td valign='middle' class='arial1 spip_x-small' style='color: #a0a0a0;height: 25px'>"
- . round(7*($maxgraph/8))
- . "</td></tr>"
- . "\n<tr><td style='height: 25px' valign='middle'>"
- . "<span class='arial1 spip_x-small'>" .round(3*($maxgraph/4)) ."</span>"
- . "</td></tr>"
- . "\n<tr><td valign='middle' class='arial1 spip_x-small' style='color: #a0a0a0;height: 25px'>"
- . round(5*($maxgraph/8))
- . "</td></tr>"
- . "\n<tr><td style='height: 25px' valign='middle'>"
- . "<span class='arial1 spip_x-small'><b>" .round($maxgraph/2) ."</b></span>"
- . "</td></tr>"
- . "\n<tr><td valign='middle' class='arial1 spip_x-small' style='color: #a0a0a0;height: 25px'>"
- . round(3*($maxgraph/8))
- . "</td></tr>"
- . "\n<tr><td style='height: 25px' valign='middle'>"
- . "<span class='arial1 spip_x-small'>" .round($maxgraph/4) ."</span>"
- . "</td></tr>"
- . "\n<tr><td valign='middle' class='arial1 spip_x-small' style='color: #a0a0a0;height: 25px'>"
- . round(1*($maxgraph/8))
- . "</td></tr>"
- . "\n<tr><td style='height: 10px' valign='bottom'>"
- . "<span class='arial1 spip_x-small'><b>0</b></span>"
- . "</td>"
- . "</tr>"
- . "</table></div>";
-}
-
-// http://doc.spip.org/@stat_logsvg
-function stat_logsvg($aff_jours, $agreg, $date_today, $id_article, $log, &$total_absolu, $visites_today) {
-
- $total_absolu = $total_absolu + $visites_today;
- $test_agreg = $decal = $jour_prec = $val_prec = $total_loc =0;
- $n = ((3600*24)*$agreg);
- foreach ($log as $key => $value) {
- # quand on atteint aujourd'hui, stop
- if ($key == $date_today) break;
- $test_agreg ++;
- if ($test_agreg == $agreg) {
- $test_agreg = 0;
- if ($decal == 30) $decal = 0;
- $decal ++;
- $tab_moyenne[$decal] = $value;
- // Inserer des jours vides si pas d'entrees
- if ($jour_prec > 0) {
- $ecart = floor(($key-$jour_prec)/$n-1);
- for ($i=0; $i < $ecart; $i++){
- if ($decal == 30) $decal = 0;
- $decal ++;
- $tab_moyenne[$decal] = $value;
- reset($tab_moyenne);
- $moyenne = 0;
- while (list(,$v) = each($tab_moyenne))
- $moyenne += $v;
- $moyenne /= count($tab_moyenne);
- // Pour affichage harmonieux
- $moyenne = round($moyenne,2);
- }
- }
- $total_loc = $total_loc + $value;
- reset($tab_moyenne);
-
- $moyenne = 0;
- while (list(,$val_tab) = each($tab_moyenne))
- $moyenne += $val_tab;
- $moyenne = $moyenne / count($tab_moyenne);
- $moyenne = round($moyenne,2); // Pour affichage harmonieux
- $jour_prec = $key;
- $val_prec = $value;
- }
- }
-
- $res = "\n<div>"
- . "<object data='" . generer_url_ecrire('statistiques_svg',"id_article=$id_article&aff_jours=$aff_jours") . "' width='450' height='310' type='image/svg+xml'>"
- . "<embed src='" . generer_url_ecrire('statistiques_svg',"id_article=$id_article&aff_jours=$aff_jours") . "' width='450' height='310' type='image/svg+xml' />"
- . "</object>"
- . "\n</div>";
-
- return array($moyenne, $val_prec, $res);
-}
-
-// http://doc.spip.org/@statistiques_moyenne
-function statistiques_moyenne($tab)
-{
- if (!$tab) return 0;
- $moyenne = 0;
- foreach($tab as $v) $moyenne += $v;
- return $moyenne / count($tab);
-}
-?>
+?>
\ No newline at end of file
diff --git a/ecrire/inc/statistiques.php b/ecrire/inc/statistiques.php
index b16f046131d40b4d6b7b3812ff9ec47e55393b34..de0b44aea95433c28b7f932ca8deafa68fca5bee 100644
--- a/ecrire/inc/statistiques.php
+++ b/ecrire/inc/statistiques.php
@@ -129,11 +129,11 @@ function stats_show_keywords($kw_referer, $kw_referer_host) {
// Recherche des articles pointes par le referer
//
// http://doc.spip.org/@referes
-function referes($referermd5) {
- $refarts = sql_select('J2.id_article, J2.titre', 'spip_referers_articles AS J1 LEFT JOIN spip_articles AS J2 ON J1.id_article = J2.id_article', "(referer_md5='$referermd5' AND J1.maj>=DATE_SUB(NOW(), INTERVAL 2 DAY))", '', "titre");
+function referes($referermd5, $serveur='') {
+ $refarts = sql_select('J2.id_article, J2.titre', 'spip_referers_articles AS J1 LEFT JOIN spip_articles AS J2 ON J1.id_article = J2.id_article', "(referer_md5='$referermd5' AND J1.maj>=DATE_SUB(NOW(), INTERVAL 2 DAY))", '', "titre",'','',$serveur);
$retarts = array();
- while ($rowart = sql_fetch($refarts)) {
+ while ($rowart = sql_fetch($refarts,$serveur)) {
$id_article = $rowart['id_article'];
$titre_article = $rowart['titre'];
$retarts[] = "<a href='".generer_url_article($id_article)."'><i>".typo($titre_article)."</i></a>";
@@ -148,13 +148,13 @@ function referes($referermd5) {
// Afficher les referers d'un article (ou du site)
//
// http://doc.spip.org/@aff_referers
-function aff_referers ($result, $limit, $plus) {
+function aff_referers ($result, $limit, $plus, $serveur='') {
global $spip_lang_right, $source_vignettes;
// Charger les moteurs de recherche
$arr_engines = stats_load_engines();
$nbvisites = array();
$aff = '';
- while ($row = sql_fetch($result)) {
+ while ($row = sql_fetch($result,$serveur)) {
$referermd5 = $row['referer_md5'];
$referer = interdire_scripts($row['referer']);
$visites = $row['vis'];
@@ -251,7 +251,7 @@ function aff_referers ($result, $limit, $plus) {
if ($aff) $aff = "<ul class='referers'>$aff</ul>";
// Le lien pour en afficher "plus"
- if ($plus AND (sql_count($result) == $limit)) {
+ if ($plus AND (sql_count($result,$serveur) == $limit)) {
$aff .= "<div style='text-align:right;'><b><a href='$plus'>+++</a></b></div>";
}
}
@@ -259,4 +259,615 @@ function aff_referers ($result, $limit, $plus) {
return $aff;
}
-?>
+
+function aff_statistique_visites_popularite($serveur){
+ $out = "";
+ // Par popularite
+ $result = sql_select("id_article, titre, popularite, visites", "spip_articles", "statut='publie' AND popularite > 0", "", "popularite DESC",'','',$serveur);
+
+ if (sql_count($result,$serveur)) {
+ $out .= "<br />\n";
+ $out .= "<div class='iconeoff' style='padding: 5px;'>\n";
+ $out .= "<div class='verdana1 spip_x-small'>";
+ $out .= typo(_T('info_visites_plus_populaires'));
+ $out .= "<ol style='padding-left:40px; font-size:x-small;color:#666666;'>";
+ $liste = 0;
+ while ($row = sql_fetch($result,$serveur)) {
+ $titre = typo(supprime_img($row['titre'],''));
+ $l_article = $row['id_article'];
+ $visites = $row['visites'];
+ $popularite = round($row['popularite']);
+ $liste++;
+ $classement[$l_article] = $liste;
+
+ if ($liste <= 30) {
+ $articles_vus[] = $l_article;
+
+ if ($l_article == $id_article){
+ $out .= "\n<li><b>$titre</b></li>";
+ } else {
+ $out .= "\n<li><a href='" . generer_url_ecrire("statistiques_visites","id_article=$l_article") . "' title='"._T('info_popularite', array('popularite' => $popularite, 'visites' => $visites))."'>$titre</a></li>";
+ }
+ }
+ }
+ $recents = array();
+ $q = sql_select("id_article", "spip_articles", "statut='publie' AND popularite > 0", "", "date DESC", "10",'',$serveur);
+
+ while ($r = sql_fetch($q,$serveur))
+ if (!in_array($r['id_article'], $articles_vus))
+ $recents[]= $r['id_article'];
+
+ if ($recents) {
+ $result = sql_select("id_article, titre, popularite, visites", "spip_articles", "statut='publie' AND " . sql_in('id_article', $recents), "", "popularite DESC",'','',$serveur);
+
+ $out .= "</ol><div style='text-align: center'>[...]</div>" . "<ol style='padding-left:40px; font-size:x-small;color:#666666;'>";
+ while ($row = sql_fetch($result,$serveur)) {
+ $titre = typo(supprime_img($row['titre'], ''));
+ $l_article = $row['id_article'];
+ $visites = $row['visites'];
+ $popularite = round($row['popularite']);
+ $numero = $classement[$l_article];
+
+ if ($l_article == $id_article){
+ $out .= "\n<li><b>$titre</b></li>";
+ } else {
+ $out .= "\n<li><a href='" . generer_url_ecrire("statistiques_visites","id_article=$l_article") . "' title='"._T('info_popularite_3', array('popularite' => $popularite, 'visites' => $visites))."'>$titre</a></li>";
+ }
+ }
+ }
+
+ $out .= "</ol>";
+
+ $out .= "<b>"._T('info_comment_lire_tableau')."</b><br />"._T('texte_comment_lire_tableau');
+
+ $out .= "</div>";
+ $out .= "</div>";
+ }
+ return $out;
+}
+
+function aff_statistique_visites_par_visites($serveur=''){
+ $out = '';
+ // Par visites depuis le debut
+ $result = sql_select("id_article, titre, popularite, visites", "spip_articles", "statut='publie' AND popularite > 0", "", "visites DESC", "30",'',$serveur);
+
+ $n = sql_count($result,$serveur);
+ if ($n) {
+ $out .= "<br /><div class='iconeoff' style='padding: 5px;'>";
+ $out .= "<div style='overflow:hidden;' class='verdana1 spip_x-small'>";
+ $out .= typo(_T('info_affichier_visites_articles_plus_visites'));
+ $out .= "<ol style='padding-left:40px; font-size:x-small;color:#666666;'>";
+
+ while ($row = sql_fetch($result,$serveur)) {
+ $titre = typo(supprime_img($row['titre'],''));
+ $l_article = $row['id_article'];
+ $visites = $row['visites'];
+ $popularite = round($row['popularite']);
+ $numero = $classement[$l_article];
+
+ if ($l_article == $id_article){
+ $out .= "\n<li><b>$titre</b></li>";
+ } else {
+ $out .= "\n<li><a href='" . generer_url_ecrire("statistiques_visites","id_article=$l_article") . "'\ntitle='"._T('info_popularite_4', array('popularite' => $popularite, 'visites' => $visites))."'>$titre</a></li>";
+ }
+ }
+ $out .= "</ol>";
+ $out .= "</div>";
+ $out .= "</div>";
+ }
+ return $out;
+}
+
+
+// http://doc.spip.org/@http_img_rien
+function http_img_rien($width, $height, $class='', $title='') {
+ return http_img_pack('rien.gif', $title,
+ "width='$width' height='$height'"
+ . (!$class ? '' : (" class='$class'"))
+ . (!$title ? '' : (" title=\"$title\"")));
+}
+
+
+// Donne la hauteur du graphe en fonction de la valeur maximale
+// Doit etre un entier "rond", pas trop eloigne du max, et dont
+// les graduations (divisions par huit) soient jolies :
+// on prend donc le plus proche au-dessus de x de la forme 12,16,20,40,60,80,100
+// http://doc.spip.org/@maxgraph
+function maxgraph($max) {
+
+ switch ($n =strlen($max)) {
+ case 0:
+ return 1;
+ case 1:
+ return 16;
+ case 2:
+ return (floor($max / 8) + 1) * 8;
+ case 3:
+ return (floor($max / 80) + 1) * 80;
+ default:
+ $dix = 2 * pow(10, $n-2);
+ return (floor($max / $dix) + 1) * $dix;
+ }
+}
+
+
+// http://doc.spip.org/@statistiques_collecte_date
+function statistiques_collecte_date($select, $table, $where, $groupby, $order, $log, $serveur)
+{
+ $result = sql_select($select, $table, $where, $groupby, $order,'','', $serveur);
+ if (!is_array($log))
+ $log = array();
+
+ while ($r = sql_fetch($result,$serveur)) {
+ $log[$r['date_entree']] = (isset($log[$r['date_entree']])?$log[$r['date_entree']]:0) + $r['total'];
+ }
+ return $log;
+}
+
+// Appelee S'il y a au moins cinq minutes de stats :-)
+
+// http://doc.spip.org/@statistiques_tous
+function statistiques_tous($log, $date_premier, $last, $total_absolu, $val_popularite, $aff_jours, $classement=array(), $id_article=0, $liste=0)
+{
+ $r = array_keys($log);
+ $date_today = max($r);
+ $date_debut = min($r);
+
+ // les visites du jour ... sauf s'il n'y en a pas :
+ if (time()-$date_today>3600*24) {
+ $date_today = time();
+ $last=0;
+ } else {
+ $last = $log[$date_today];
+ }
+
+ $nb_jours = floor(($date_today-$date_debut)/(3600*24));
+ $max = max($log);
+ $maxgraph = maxgraph($max);
+ $rapport = 200 / $maxgraph;
+
+ if (count($log) < 420) $largeur = floor(450 / ($nb_jours+1));
+ if ($largeur < 1) {
+ $largeur = 1;
+ $agreg = ceil(count($log) / 420);
+ } else {
+ $agreg = 1;
+ if ($largeur > 50) $largeur = 50;
+ }
+
+ $largeur_abs = 420 / $aff_jours;
+
+ if ($largeur_abs > 1) {
+ $inc = ceil($largeur_abs / 5);
+ $aff_jours_plus = 420 / ($largeur_abs - $inc);
+ $aff_jours_moins = 420 / ($largeur_abs + $inc);
+ }
+
+ if ($largeur_abs == 1) {
+ $aff_jours_plus = 840;
+ $aff_jours_moins = 210;
+ }
+
+ if ($largeur_abs < 1) {
+ $aff_jours_plus = 420 * ((1/$largeur_abs) + 1);
+ $aff_jours_moins = 420 * ((1/$largeur_abs) - 1);
+ }
+
+ $pour_article = $id_article ? "&id_article=$id_article" : '';
+
+ $zoom = '';
+
+ if ($date_premier < $date_debut)
+ $zoom= http_href(generer_url_ecrire("statistiques_visites","aff_jours=$aff_jours_plus$pour_article"),
+ http_img_pack('loupe-moins.gif',
+ _T('info_zoom'). '-',
+ "style='border: 0px; vertical-align: middle;'"),
+ " ");
+ if ( (($date_today - $date_debut) / (24*3600)) > 30)
+ $zoom .= http_href(generer_url_ecrire("statistiques_visites","aff_jours=$aff_jours_moins$pour_article"),
+ http_img_pack('loupe-plus.gif',
+ _T('info_zoom'). '+',
+ "style='border: 0px; vertical-align: middle;'"),
+ " ");
+
+ if (flag_svg()) {
+ list($moyenne,$val_prec, $res) = stat_logsvg($aff_jours, $agreg, $date_today, $id_article, $log, $total_absolu, $last);
+ } else {
+ list($moyenne,$val_prec, $res) = stat_log1($log, $agreg, $date_debut, $date_today, $id_article, $largeur, $total_absolu, $maxgraph, $rapport, $val_popularite, $last);
+ }
+
+ // cette ligne donne la moyenne depuis le debut
+ // (desactive au profit de la moyenne "glissante")
+ # $moyenne = round($total_absolu / ((date("U")-$date_premier)/(3600*24)));
+
+ $res .= "<span class='arial1 spip_x-small'>"
+ . _T('texte_statistiques_visites')
+ . "</span><br />"
+ . "<table cellpadding='0' cellspacing='0' border='0' width='100%'><tr style='width:100%;'>"
+ . "\n<td valign='top' style='width: 33%; ' class='verdana1'>"
+ . _T('info_maximum')." "
+ . $max . "<br />"
+ . _T('info_moyenne')." "
+ . round($moyenne). "</td>"
+ . "\n<td valign='top' style='width: 33%; ' class='verdana1'>"
+ . '<a href="'
+ . generer_url_ecrire("statistiques_referers","")
+ . '" title="'._T('titre_liens_entrants').'">'
+ . _T('info_aujourdhui')
+ . '</a> '
+ . $last;
+
+ if ($val_prec > 0) $res .= '<br /><a href="' . generer_url_ecrire("statistiques_referers","jour=veille").'" title="'._T('titre_liens_entrants').'">'._T('info_hier').'</a> '.$val_prec;
+ if ($id_article) $res .= "<br />"._T('info_popularite_5').' '.$val_popularite;
+
+ $res .= "</td>"
+ ."\n<td valign='top' style='width: 33%; ' class='verdana1'>"
+ ."<b>"
+ ._T('info_total')." "
+ .$total_absolu."</b>";
+
+ if ($id_article) {
+ if ($classement[$id_article] > 0) {
+ if ($classement[$id_article] == 1)
+ $ch = _T('info_classement_1', array('liste' => $liste));
+ else
+ $ch = _T('info_classement_2', array('liste' => $liste));
+ $res .= "<br />".$classement[$id_article].$ch;
+ }
+ } elseif ($liste) {// i.e; pas 'spip_signatures'
+ $res .= "<span class='spip_x-small'><br />"
+ ._T('info_popularite_2')." " . ceil($GLOBALS['meta']['popularite_total']) . "</span>";
+ }
+ $res .= "</td></tr></table>";
+
+ return $zoom . $res;
+}
+
+// http://doc.spip.org/@stat_log1
+function stat_log1($log, $agreg, $date_debut, $date_today, $id_article, $largeur, &$total_absolu, $maxgraph, $rapport, $val_popularite, $visites_today) {
+ $res = '';
+
+ $test_agreg = $decal = $jour_prec = $val_prec = $moyenne = 0;
+
+ // Presentation graphique (rq: on n'affiche pas le jour courant)
+ foreach ($log as $key => $value) {
+ # quand on atteint aujourd'hui, stop
+ if ($key == $date_today) break;
+ $test_agreg ++;
+ if ($test_agreg != $agreg) continue;
+ $test_agreg = 0;
+ if ($decal == 30) $decal = 0;
+ $decal ++;
+ $tab_moyenne[$decal] = $value;
+ // Inserer des jours vides si pas d'entrees
+ if ($jour_prec > 0) {
+ $ecart = floor(($key-$jour_prec)/((3600*24)*$agreg)-1);
+ for ($i=1; $i <= $ecart; $i++){
+ if ($decal == 30) $decal = 0;
+ $decal ++;
+ $tab_moyenne[$decal] = $value;
+
+ $ce_jour=date("Y-m-d", $jour_prec+(3600*24*$i));
+ $jour = nom_jour($ce_jour).' '.affdate_jourcourt($ce_jour);
+ $moyenne = statistiques_moyenne($tab_moyenne);
+ $hauteur_moyenne = round($moyenne*$rapport)-1;
+ $tagtitle = attribut_html(supprimer_tags("$jour | "
+ ._T('info_visites')." | "
+ ._T('info_moyenne')." "
+ . round($moyenne,2)));
+
+ $res .= "\n<td style='width: ${largeur}px'>";
+ if ($hauteur_moyenne > 1) {
+ $res .= http_img_rien($largeur,1, 'trait_moyen', $tagtitle);
+ $res .= http_img_rien($largeur, $hauteur_moyenne, '', $tagtitle);
+ }
+ $res .= http_img_rien($largeur,1,'trait_bas', $tagtitle);
+ $res .= "</td>";
+ }
+ }
+
+ $ce_jour=date("Y-m-d", $key);
+ $jour = nom_jour($ce_jour).' '.affdate_jourcourt($ce_jour);
+ $moyenne = statistiques_moyenne($tab_moyenne);
+ $hauteur = round($value * $rapport) - 1;
+ $moyenne = round($moyenne,2); // Pour affichage harmonieux
+ $res .= "\n<td style='width: ${largeur}px'>";
+
+ if ($hauteur > 0) {
+ $hauteur_moyenne = round($moyenne * $rapport) - 1;
+ $tagtitle= attribut_html(supprimer_tags("$jour | "
+ ._T('info_visites')." ". $value . " | "
+ ._T('info_moyenne')." "
+ . round($moyenne,2)));
+
+ $res .= statistiques_jour($key, $tagtitle, $largeur, $hauteur_moyenne, $hauteur);
+ }
+ $res .= http_img_rien($largeur, 1, 'trait_bas', $tagtitle);
+ $res .= "</td>\n";
+
+ $jour_prec = $key;
+ $val_prec = $value;
+ }
+
+ // Dernier jour
+ $hauteur = round($visites_today * $rapport) - 1;
+ // $total_absolu = $total_absolu + $visites_today;
+ // prevision de visites jusqu'a minuit
+ // basee sur la moyenne (site) ou popularite (article)
+ if (! $id_article) $val_popularite = $moyenne;
+ $prevision = (1 - (date("H")*60 + date("i"))/(24*60)) * $val_popularite;
+ $hauteurprevision = ceil($prevision * $rapport);
+ // preparer le texte de survol (prevision)
+ $tagtitle= attribut_html(supprimer_tags(_T('info_aujourdhui')." $visites_today → ".(round($prevision,0)+$visites_today)));
+
+ $res .= "\n<td style='width: ${largeur}px'>";
+ if ($hauteur+$hauteurprevision>0)
+ // Afficher la barre tout en haut
+ $res .= http_img_rien($largeur, 1, "trait_haut");
+ if ($hauteurprevision>0)
+ // afficher la barre previsionnelle
+ $res .= http_img_rien($largeur, $hauteurprevision,'couleur_prevision', $tagtitle);
+ // afficher la barre deja realisee
+ if ($hauteur>0)
+ $res .= http_img_rien($largeur, $hauteur, 'couleur_realise', $tagtitle);
+ // et afficher la ligne de base
+ $res .= http_img_rien($largeur, 1, 'trait_bas')
+ . "</td>";
+
+ $res = "\n<table cellpadding='0' cellspacing='0' border='0'><tr>" .
+ "\n<td ".http_style_background("fond-stats.gif").">"
+ . "\n<table cellpadding='0' cellspacing='0' border='0' class='bottom'><tr>"
+ . "\n<td style='background-color: black'>" . http_img_rien(1, 200) . "</td>"
+ . $res
+
+ . "\n<td style='background-color: black'>" .http_img_rien(1, 1) ."</td>"
+ . "</tr></table>"
+ . "</td>"
+ . "\n<td ".http_style_background("fond-stats.gif")." valign='bottom'>" . http_img_rien(3, 1, 'trait_bas') ."</td>"
+ . "\n<td>" . http_img_rien(5, 1) ."</td>"
+ . "\n<td valign='top'>"
+ . statistiques_echelle($maxgraph)
+ . "</td>"
+ . "</tr></table>"
+ . statistiques_nom_des_mois($date_debut, $date_today, ($largeur / (24*3600*$agreg)));
+ return array($moyenne, $val_prec, $res);
+}
+
+// http://doc.spip.org/@statistiques_jour
+function statistiques_jour($key, $tagtitle, $largeur, $hauteur_moyenne, $hauteur)
+{
+ if ($hauteur_moyenne > $hauteur) {
+ $difference = ($hauteur_moyenne - $hauteur) -1;
+ $res = http_img_rien($largeur, 1,'trait_moyen',$tagtitle)
+ . http_img_rien($largeur, $difference, '', $tagtitle)
+ . http_img_rien($largeur,1, "trait_haut", $tagtitle);
+ if (date("w",$key) == "0") // Dimanche en couleur foncee
+$res .= http_img_rien($largeur, $hauteur, "couleur_dimanche", $tagtitle);
+ else
+ $res .= http_img_rien($largeur,$hauteur, "couleur_jour", $tagtitle);
+ } else if ($hauteur_moyenne < $hauteur) {
+ $difference = ($hauteur - $hauteur_moyenne) -1;
+ $res = http_img_rien($largeur,1,"trait_haut", $tagtitle);
+ if (date("w",$key) == "0") // Dimanche en couleur foncee
+ $couleur = 'couleur_dimanche';
+ else
+ $couleur = 'couleur_jour';
+ $res .= http_img_rien($largeur, $difference, $couleur, $tagtitle)
+ . http_img_rien($largeur,1,"trait_moyen", $tagtitle)
+ . http_img_rien($largeur, $hauteur_moyenne, $couleur, $tagtitle);
+ } else {
+ $res = http_img_rien($largeur, 1, "trait_haut", $tagtitle);
+ if (date("w",$key) == "0") // Dimanche en couleur foncee
+$res .= http_img_rien($largeur, $hauteur, "couleur_dimanche", $tagtitle);
+ else
+ $res .= http_img_rien($largeur,$hauteur, "couleur_jour", $tagtitle);
+ }
+ return $res;
+}
+
+// http://doc.spip.org/@statistiques_nom_des_mois
+function statistiques_nom_des_mois($date_debut, $date_today, $largeur)
+{
+ global $spip_lang_left;
+
+ $res = '';
+ $gauche_prec = -50;
+ $pas = (24*3600);
+ for ($jour = $date_debut; $jour <= $date_today; $jour += $pas) {
+
+ if (date("d", $jour) == "1") {
+ $newy = (date("m", $jour) == 1);
+ $gauche = floor(($jour - $date_debut) * $largeur);
+ if ($gauche - $gauche_prec >= 40 OR $newy) {
+ $afficher = $newy ?
+ ("<b>".annee(date("Y-m-d", $jour))."</b>")
+ : nom_mois(date("Y-m-d", $jour));
+
+ $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>";
+ $gauche_prec = $gauche;
+ }
+ }
+ }
+ return "<div style='position: relative; height: 15px'>$res</div>";
+}
+
+// http://doc.spip.org/@statistiques_par_mois
+function statistiques_par_mois($entrees, $visites_today){
+
+ // rajouter les visites du jour
+ $entrees[date("Y-m",time())] += $visites_today;
+
+ $maxgraph = maxgraph(max($entrees));
+ $rapport = 200/$maxgraph;
+ $largeur = floor(420 / (count($entrees)));
+ if ($largeur < 1) $largeur = 1;
+ if ($largeur > 50) $largeur = 50;
+ $decal = 0;
+ $tab_moyenne = "";
+
+ $res = ''
+ . "\n<table cellpadding='0' cellspacing='0' border='0'><tr>" .
+ "\n<td ".http_style_background("fond-stats.gif").">"
+ . "\n<table cellpadding='0' cellspacing='0' border='0' class='bottom'><tr>"
+ . "\n<td class='trait_bas'>" . http_img_rien(1, 200) ."</td>";
+
+ while (list($key, $value) = each($entrees)) {
+
+ $mois = affdate_mois_annee($key);
+ if ($decal == 30) $decal = 0;
+ $decal ++;
+ $tab_moyenne[$decal] = $value;
+ $moyenne = statistiques_moyenne($tab_moyenne);
+ $hauteur_moyenne = round($moyenne * $rapport) - 1;
+ $hauteur = round($value * $rapport) - 1;
+ $res .= "\n<td style='width: ${largeur}px'>";
+
+ $tagtitle= attribut_html(supprimer_tags("$mois | "
+ ._T('info_total')." ".$value));
+
+ if ($hauteur > 0){
+ if ($hauteur_moyenne > $hauteur) {
+ $difference = ($hauteur_moyenne - $hauteur) -1;
+ $res .= http_img_rien($largeur, 1, 'trait_moyen');
+ $res .= http_img_rien($largeur, $difference, '', $tagtitle);
+ $res .= http_img_rien($largeur,1,"trait_haut");
+ if (preg_match(",-01,",$key)){ // janvier en couleur foncee
+ $res .= http_img_rien($largeur,$hauteur,"couleur_janvier", $tagtitle);
+ } else {
+ $res .= http_img_rien($largeur,$hauteur,"couleur_mois", $tagtitle);
+ }
+ }
+ else if ($hauteur_moyenne < $hauteur) {
+ $difference = ($hauteur - $hauteur_moyenne) -1;
+ $res .= http_img_rien($largeur,1,"trait_haut", $tagtitle);
+ if (preg_match(",-01,",$key)){ // janvier en couleur foncee
+ $couleur = 'couleur_janvier';
+ } else {
+ $couleur = 'couleur_mois';
+ }
+ $res .= http_img_rien($largeur,$difference, $couleur, $tagtitle);
+ $res .= http_img_rien($largeur,1,'trait_moyen',$tagtitle);
+ $res .= http_img_rien($largeur,$hauteur_moyenne, $couleur, $tagtitle);
+ } else {
+ $res .= http_img_rien($largeur,1,"trait_haut", $tagtitle);
+ if (preg_match(",-01,",$key)){ // janvier en couleur foncee
+ $res .= http_img_rien($largeur, $hauteur, "couleur_janvier", $tagtitle);
+ } else {
+ $res .= http_img_rien($largeur,$hauteur, "couleur_mois", $tagtitle);
+ }
+ }
+ }
+ $res .= http_img_rien($largeur,1,'trait_bas', $tagtitle);
+ $res .= "</td>\n";
+ }
+
+ return $res
+ . "\n<td style='background-color: black'>" . http_img_rien(1, 1) . "</td>"
+ . "</tr></table></td>"
+ . "\n<td ".http_style_background("fond-stats.gif")." valign='bottom'>"
+ . http_img_rien(3, 1, 'trait_bas') ."</td>"
+ . "\n<td>" . http_img_rien(5, 1) ."</td>"
+ . "\n<td valign='top'>"
+ . statistiques_echelle($maxgraph)
+ . "</td></tr></table>";
+ }
+
+// http://doc.spip.org/@statistiques_echelle
+function statistiques_echelle($maxgraph)
+{
+ return "<div class='verdana1 spip_x-small'>"
+ . "\n<table cellpadding='0' cellspacing='0' border='0'>"
+ . "\n<tr><td style='height: 15' valign='top'>"
+ . "<span class='arial1 spip_x-small'><b>" .round($maxgraph) ."</b></span>"
+ . "</td></tr>"
+ . "\n<tr><td valign='middle' class='arial1 spip_x-small' style='color: #a0a0a0;height: 25px'>"
+ . round(7*($maxgraph/8))
+ . "</td></tr>"
+ . "\n<tr><td style='height: 25px' valign='middle'>"
+ . "<span class='arial1 spip_x-small'>" .round(3*($maxgraph/4)) ."</span>"
+ . "</td></tr>"
+ . "\n<tr><td valign='middle' class='arial1 spip_x-small' style='color: #a0a0a0;height: 25px'>"
+ . round(5*($maxgraph/8))
+ . "</td></tr>"
+ . "\n<tr><td style='height: 25px' valign='middle'>"
+ . "<span class='arial1 spip_x-small'><b>" .round($maxgraph/2) ."</b></span>"
+ . "</td></tr>"
+ . "\n<tr><td valign='middle' class='arial1 spip_x-small' style='color: #a0a0a0;height: 25px'>"
+ . round(3*($maxgraph/8))
+ . "</td></tr>"
+ . "\n<tr><td style='height: 25px' valign='middle'>"
+ . "<span class='arial1 spip_x-small'>" .round($maxgraph/4) ."</span>"
+ . "</td></tr>"
+ . "\n<tr><td valign='middle' class='arial1 spip_x-small' style='color: #a0a0a0;height: 25px'>"
+ . round(1*($maxgraph/8))
+ . "</td></tr>"
+ . "\n<tr><td style='height: 10px' valign='bottom'>"
+ . "<span class='arial1 spip_x-small'><b>0</b></span>"
+ . "</td>"
+ . "</tr>"
+ . "</table></div>";
+}
+
+// http://doc.spip.org/@stat_logsvg
+function stat_logsvg($aff_jours, $agreg, $date_today, $id_article, $log, &$total_absolu, $visites_today) {
+
+ $total_absolu = $total_absolu + $visites_today;
+ $test_agreg = $decal = $jour_prec = $val_prec = $total_loc =0;
+ $n = ((3600*24)*$agreg);
+ foreach ($log as $key => $value) {
+ # quand on atteint aujourd'hui, stop
+ if ($key == $date_today) break;
+ $test_agreg ++;
+ if ($test_agreg == $agreg) {
+ $test_agreg = 0;
+ if ($decal == 30) $decal = 0;
+ $decal ++;
+ $tab_moyenne[$decal] = $value;
+ // Inserer des jours vides si pas d'entrees
+ if ($jour_prec > 0) {
+ $ecart = floor(($key-$jour_prec)/$n-1);
+ for ($i=0; $i < $ecart; $i++){
+ if ($decal == 30) $decal = 0;
+ $decal ++;
+ $tab_moyenne[$decal] = $value;
+ reset($tab_moyenne);
+ $moyenne = 0;
+ while (list(,$v) = each($tab_moyenne))
+ $moyenne += $v;
+ $moyenne /= count($tab_moyenne);
+ // Pour affichage harmonieux
+ $moyenne = round($moyenne,2);
+ }
+ }
+ $total_loc = $total_loc + $value;
+ reset($tab_moyenne);
+
+ $moyenne = 0;
+ while (list(,$val_tab) = each($tab_moyenne))
+ $moyenne += $val_tab;
+ $moyenne = $moyenne / count($tab_moyenne);
+ $moyenne = round($moyenne,2); // Pour affichage harmonieux
+ $jour_prec = $key;
+ $val_prec = $value;
+ }
+ }
+
+ $res = "\n<div>"
+ . "<object data='" . generer_url_ecrire('statistiques_svg',"id_article=$id_article&aff_jours=$aff_jours") . "' width='450' height='310' type='image/svg+xml'>"
+ . "<embed src='" . generer_url_ecrire('statistiques_svg',"id_article=$id_article&aff_jours=$aff_jours") . "' width='450' height='310' type='image/svg+xml' />"
+ . "</object>"
+ . "\n</div>";
+
+ return array($moyenne, $val_prec, $res);
+}
+
+// http://doc.spip.org/@statistiques_moyenne
+function statistiques_moyenne($tab)
+{
+ if (!$tab) return 0;
+ $moyenne = 0;
+ foreach($tab as $v) $moyenne += $v;
+ return $moyenne / count($tab);
+}
+
+?>
\ No newline at end of file