[Sommaire] [Imprimer]

   1  <?php
   2  /*****************************************************
   3  * This file is part of Agora, web based content management system.
   4  *
   5  * Agora is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; version 2 of the License.
   8  *
   9  * Agora is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  * GNU General Public License for more details (file "COPYING").
  13  *
  14  * Copyright © Arnaud Martin, Antoine Pitrou et Philippe Rivière.
  15  * List of authors detailed in "copyright_fr.html" file.
  16  * E-mail : agora@sig.premier-ministre.gouv.fr
  17  * Web site : http://www.agora.gouv.fr
  18  *****************************************************/
  19  include  ("ecrire/inc_version.php");
  20  
  21  require_once (dirname(__FILE__). "/ecrire/include/bd/inc_forum_factory.php");
  22  include_ecrire  ("inc_meta.php");
  23  include_ecrire  ("inc_admin.php");
  24  
  25  include_local ("inc-cache.php");
  26  
  27  if ($purger_cache == "oui") {
  28      if (verifier_action_auteur("purger_cache", $hash, $id_auteur)) {
  29          /******* Modification elebescond@clever-age.com *******/
  30          include_once  ('ecrire/include/cacheHTML/inc_cacheHTML_factory.php');
  31          $cacheHTML = &recuperer_instance_cacheHTML(null, null, null, null, null, null);
  32          $cacheHTML->destroyCache();
  33          // Ci dessus on ne purge que le cache HTML, il reste ensuite à supprimer le cache 'intermédiaire', on utilise la fonction de SPIP en attendant le futur ...
  34          purger_repertoire("CACHE", 0);
  35          $forumMetier = &recuperer_instance_forum();
  36          $deleteAllCacheOK = $forumMetier->deleteAllCache();
  37          if (PEAR::isError($deleteAllCacheOK)) {
  38              die ($deleteAllCacheOK->getMessage());
  39          }
  40      }
  41  }
  42  
  43  if ($purger_squelettes == "oui") {
  44      if (verifier_action_auteur("purger_squelettes", $hash, $id_auteur)) {
  45          purger_repertoire('CACHE', 0, '^skel_');
  46      }
  47  }
  48  
  49  $url = "./ecrire/" . $redirect;
  50  @header ("Location: $url");
  51  ?>