www/ecrire/action/redirect.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2016                                                *
   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 // Un script utile pour recalculer une URL symbolique des son changement
  16
  17 function action_redirect_dist()
  18 {
  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);
  25         }
  26         $h = generer_url_entite_absolue(intval(_request('id')), $type, $m, '', true);
  27         $status = '302';
  28         if (_request('status') AND _request('status')=='301')
  29                 $status = '301';
  30
  31         if ($h)
  32                 redirige_par_entete(str_replace('&amp;', '&', $h),'',$status);
  33         else
  34                 redirige_par_entete('/','',$status);
  35 }
  36
  37 ?>