3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2016 *
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 function formulaires_rediriger_article_charger_dist($id_article,$retour=''){
17 include_spip('inc/autoriser');
18 if (!autoriser('modifier', 'article', $id_article))
21 $row = sql_fetsel('id_article,virtuel','spip_articles','id_article='.intval($id_article));
22 if (!$row['id_article'])
24 include_spip('inc/lien');
25 $redirection = virtuel_redirige($row["virtuel"]);
28 AND $GLOBALS['meta']['articles_redirection'] != 'oui')
32 include_spip('inc/texte');
34 'redirection'=>$redirection,
36 '_afficher_url' => ($redirection?
propre("[->$redirection]"):''),
41 function formulaires_rediriger_article_verifier_dist($id_article,$retour=''){
44 if(($redirection = _request('redirection')) == $id_article ||
$redirection == 'art'.$id_article)
45 $erreurs['redirection'] = _T('info_redirection_boucle');
50 function formulaires_rediriger_article_traiter_dist($id_article,$retour=''){
52 $url = preg_replace(",^\s*https?://$,i", "", rtrim(_request('redirection')));
53 if ($url) $url = corriger_caracteres($url);
55 include_spip('action/editer_article');
56 articles_set($id_article, array('virtuel'=>$url));
58 $js = _AJAX ?
'<script type="text/javascript">if (window.ajaxReload) ajaxReload("wysiwyg");</script>':'';
60 return array('message_ok'=>($url?
_T('info_redirection_activee'):_T('info_redirection_desactivee')).$js,'editable'=>true);