3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2014 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
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 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) return;
15 include_spip('inc/filtres');
17 // http://doc.spip.org/@action_virtualiser_dist
18 function action_virtualiser_dist() {
20 $securiser_action = charger_fonction('securiser_action', 'inc');
21 $arg = $securiser_action();
22 $url = _request('virtuel');
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);
29 // http://doc.spip.org/@action_virtualiser_post
30 function action_virtualiser_post($r, $url)
32 $url = preg_replace(",^ *https?://$,i", "", rtrim($url));
33 if ($url) $url = corriger_caracteres("=$url");
34 sql_updateq('spip_articles', array('chapo'=> $url, 'date_modif' => date('Y-m-d H:i:s')), "id_article=" . $r[1]);