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 // Un script utile pour recalculer une URL symbolique des son changement
17 function action_redirect_dist()
19 $type = _request('type');
20 if (!preg_match('/^\w+$/', $type)) return;
21 if ($m = _request('var_mode')) {
22 // forcer la mise a jour de l'url de cet objet !
23 if (!defined('_VAR_URLS')) define('_VAR_URLS',true);
24 $m = 'var_mode='.urlencode($m);
26 $h = generer_url_entite_absolue(intval(_request('id')), $type, $m, '', true);
28 if (_request('status') AND _request('status')=='301')
32 redirige_par_entete(str_replace('&', '&', $h),'',$status);
34 redirige_par_entete('/','',$status);