www/plugins-dist/statistiques/exec/base_delete_referers.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2014                                                *
   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
  16 function exec_base_delete_referers_dist()
  17 {
  18         include_spip('inc/autoriser');
  19         if (!autoriser('detruire','_statistiques')) {
  20                 include_spip('inc/minipres');
  21                 echo minipres();
  22         } else {
  23                 include_spip('inc/headers');
  24                 $admin = charger_fonction('admin', 'inc');
  25                 $res = $admin('delete_referers', _T('statistiques:bouton_effacer_referers'), '');
  26                 if ($res) echo $res; else redirige_url_ecrire('stats_referers','');
  27
  28         }
  29 }
  30 ?>