www/ecrire/exec/statistiques_referers.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2011                                                *
   7  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
   8  *                                                                         *
   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 \***************************************************************************/
  12
  13 if (!defined('_ECRIRE_INC_VERSION')) return;
  14
  15 include_spip('inc/presentation');
  16
  17 // http://doc.spip.org/@exec_statistiques_referers_dist
  18 function exec_statistiques_referers_dist()
  19 {
  20         $jour = _request('jour');
  21         $limit  = _request('limit');
  22 // nombre de referers a afficher
  23         $limit = intval($limit);        //secu
  24         if (!autoriser('voirstats','article')) {
  25                 include_spip('inc/minipres');
  26                 echo minipres();
  27         } else {
  28
  29         if ($limit == 0) $limit = 100;
  30         if ($jour<>'veille') $jour='jour';
  31
  32         $referenceurs = charger_fonction('referenceurs', 'inc');
  33         $res = $referenceurs (0, "SUM(visites_$jour)", 'spip_referers', "visites_$jour>0", "referer", $limit);
  34
  35         $n =  count($res);
  36         $args = "jour=$jour&limit=" . strval($limit+200);
  37         $plus = generer_url_ecrire('statistiques_referers', $args);
  38
  39         if ($plus) {
  40                 $plus = "<div style='text-align:right;'><b><a href='$plus'>+++</a></b></div>";
  41         }
  42
  43         $titre = _T('titre_liens_entrants')
  44                 . " ($n "
  45                 . ($n <= 1 ?  _T('info_site') :  _T('info_sites'))
  46                 . ")";
  47
  48         $commencer_page = charger_fonction('commencer_page', 'inc');
  49
  50         echo $commencer_page(_T('titre_page_statistiques_referers'), "statistiques_visites", "referers");
  51
  52         echo "<br /><br /><br />";
  53         echo gros_titre($titre,'', false);
  54         echo debut_gauche('', true);
  55         echo debut_boite_info(true);
  56         echo "<p style='font-size:small; text-align:left;' class='verdana1'>";
  57         echo _T('info_gauche_statistiques_referers');
  58         echo "</p>";
  59         echo fin_boite_info(true);
  60         echo debut_droite('', true);
  61         echo barre_onglets("stat_referers", $jour);
  62
  63         if ($res) {
  64                 echo "<br /><div style='font-size:small;' class='verdana1'>";
  65                 echo "<ul class='referers'><li>";
  66                 echo join("</li><li>\n", $res);
  67                 echo "</li></ul>";
  68                 echo $plus;
  69         }
  70         echo "</div><br />";
  71
  72         echo fin_gauche(), fin_page();
  73         }
  74 }
  75
  76 // http://doc.spip.org/@barre_onglets_stat_referers
  77 function barre_onglets_stat_referers() {
  78
  79         $onglets = array();
  80         $onglets['jour']=
  81                   new Bouton(null, 'date_aujourdhui',
  82                         generer_url_ecrire("statistiques_referers",""));
  83         $onglets['veille']=
  84                   new Bouton(null, 'date_hier',
  85                         generer_url_ecrire("statistiques_referers","jour=veille"));
  86         return $onglets;
  87 }
  88
  89 ?>