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

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