3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2019 *
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')) {
17 function formulaires_rediriger_article_charger_dist($id_article, $retour = '') {
19 include_spip('inc/autoriser');
20 if (!autoriser('modifier', 'article', $id_article)) {
24 $row = sql_fetsel('id_article,virtuel', 'spip_articles', 'id_article=' . intval($id_article));
25 if (!$row['id_article']) {
28 include_spip('inc/lien');
29 $redirection = virtuel_redirige($row['virtuel']);
32 and $GLOBALS['meta']['articles_redirection'] != 'oui'
38 include_spip('inc/texte');
40 'redirection' => $redirection,
42 '_afficher_url' => ($redirection ?
propre("[->$redirection]") : ''),
48 function formulaires_rediriger_article_verifier_dist($id_article, $retour = '') {
51 if (($redirection = _request('redirection')) == $id_article ||
$redirection == 'art' . $id_article) {
52 $erreurs['redirection'] = _T('info_redirection_boucle');
58 function formulaires_rediriger_article_traiter_dist($id_article, $retour = '') {
60 $url = preg_replace(',^\s*https?://$,i', '', rtrim(_request('redirection')));
62 $url = corriger_caracteres($url);
65 include_spip('action/editer_article');
66 articles_set($id_article, array('virtuel' => $url));
68 $js = _AJAX ?
'<script type="text/javascript">if (window.ajaxReload) ajaxReload("wysiwyg");</script>' : '';
71 'message_ok' => ($url ?
_T('info_redirection_activee') : _T('info_redirection_desactivee')) . $js,