squellete2
[aidenligne_francais_universite.git] / ecrire / action / virtualiser.php
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 ?>