[Sommaire] [Imprimer]

   1  <?php
   2  
   3  /***************************************************************************\
   4   *  SPIP, Systeme de publication pour l'internet                           *
   5   *                                                                         *
   6   *  Copyright (c) 2001-2007                                                *
   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/filtres');
  16  
  17  // http://doc.spip.org/@action_virtualiser_dist
  18  function action_virtualiser_dist() {
  19  
  20      $securiser_action = charger_fonction('securiser_action', 'inc');
  21      $arg = $securiser_action();
  22      $url = _request('virtuel');
  23  
  24      if (!preg_match(",^\W*(\d+)$,", $arg, $r)) {
  25           spip_log("action_virtualiser_dist $arg $url pas compris");
  26      } else action_virtualiser_post($r, $url);
  27  }
  28  
  29  // http://doc.spip.org/@action_virtualiser_post
  30  function action_virtualiser_post($r, $url)
  31  {
  32      $url = eregi_replace("^ *https?://$", "", rtrim($url));
  33      if ($url) $url = corriger_caracteres("=$url");
  34      spip_query("UPDATE spip_articles SET chapo=" . _q($url) . ", date_modif=NOW() WHERE id_article=" . $r[1]);
  35  }
  36  ?>