squellete2
[aidenligne_francais_universite.git] / ecrire / action / virtualiser.php
CommitLineData
c495c100
P
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
13if (!defined("_ECRIRE_INC_VERSION")) return;
14
15include_spip('inc/filtres');
16
17// http://doc.spip.org/@action_virtualiser_dist
18function 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
30function 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?>