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; // securiser
15 # donner un exemple d'url pour le formulaire de choix
16 define('URLS_PROPRES_EXEMPLE', 'Titre-de-l-article -Rubrique-');
17 # specifier le form de config utilise pour ces urls
18 define('URLS_PROPRES_CONFIG', 'propres');
20 // TODO: une interface permettant de verifier qu'on veut effectivment modifier
21 // une adresse existante
22 defined('CONFIRMER_MODIFIER_URL') ||
define('CONFIRMER_MODIFIER_URL', false);
26 - Comment utiliser ce jeu d'URLs ?
28 Recopiez le fichier "htaccess.txt" du repertoire de base du site SPIP sous
29 le sous le nom ".htaccess" (attention a ne pas ecraser d'autres reglages
30 que vous pourriez avoir mis dans ce fichier) ; si votre site est en
31 "sous-repertoire", vous devrez aussi editer la ligne "RewriteBase" ce fichier.
32 Les URLs definies seront alors redirigees vers les fichiers de SPIP.
34 Dans les pages de configuration, choisissez 'propres' comme type d'url
36 SPIP calculera alors ses liens sous la forme
37 "Mon-titre-d-article".
39 La variante 'propres2' ajoutera '.html' aux adresses generees :
40 "Mon-titre-d-article.html"
42 Variante 'qs' (experimentale) : ce systeme fonctionne en "Query-String",
43 c'est-a-dire sans utilisation de .htaccess ; les adresses sont de la forme
44 "/?Mon-titre-d-article"
47 if (!defined('_terminaison_urls_propres')) define ('_terminaison_urls_propres', '');
48 if (!defined('_debut_urls_propres')) define ('_debut_urls_propres', '');
50 $config_urls_propres = isset($GLOBALS['meta']['urls_propres'])?
unserialize($GLOBALS['meta']['urls_propres']):array();
51 // pour choisir le caractere de separation titre-id en cas de doublon
52 // (ne pas utiliser '/')
53 if (!defined('_url_propres_sep_id')) define('_url_propres_sep_id',isset($config_urls_propres['url_propres_sep_id'])?
$config_urls_propres['url_propres_sep_id']:'-');
54 // option pour tout passer en minuscules
55 if (!defined('_url_minuscules')) define('_url_minuscules',isset($config_urls_propres['url_minuscules'])?
$config_urls_propres['url_minuscules']:0);
56 if (!defined('_URLS_PROPRES_MAX')) define('_URLS_PROPRES_MAX', isset($config_urls_propres['URLS_PROPRES_MAX'])?
$config_urls_propres['URLS_PROPRES_MAX']:80);
57 if (!defined('_URLS_PROPRES_MIN')) define('_URLS_PROPRES_MIN', isset($config_urls_propres['URLS_PROPRES_MIN'])?
$config_urls_propres['URLS_PROPRES_MIN']:3);
59 if (!defined('_url_sep_id')) define('_url_sep_id',_url_propres_sep_id
);
61 // Ces chaines servaient de marqueurs a l'epoque ou les URL propres devaient
62 // indiquer la table ou les chercher (articles, auteurs etc),
63 // et elles etaient retirees par les preg_match dans la fonction ci-dessous.
64 // Elles peuvent a present etre definies a "" pour avoir des URL plus jolies.
65 // Les preg_match restent necessaires pour gerer les anciens signets.
67 if (!defined('_MARQUEUR_URL')) define('_MARQUEUR_URL', serialize(array('rubrique1' => '-', 'rubrique2' => '-', 'breve1' => '+', 'breve2' => '+', 'site1' => '@', 'site2' => '@', 'auteur1' => '_', 'auteur2' => '_', 'mot1' => '+-', 'mot2' => '-+')));
69 // Retire les marqueurs de type dans une URL propre ancienne maniere
71 // http://code.spip.net/@retirer_marqueurs_url_propre
72 function retirer_marqueurs_url_propre($url_propre) {
73 if (preg_match(',^[+][-](.*?)[-][+]$,', $url_propre, $regs)) {
76 else if (preg_match(',^([-+_@])(.*?)\1?$,', $url_propre, $regs)) {
79 // les articles n'ont pas de marqueur
84 // Pipeline pour creation d'une adresse : il recoit l'url propose par le
85 // precedent, un tableau indiquant le titre de l'objet, son type, son id,
86 // et doit donner en retour une chaine d'url, sans se soucier de la
87 // duplication eventuelle, qui sera geree apres
88 // http://code.spip.net/@creer_chaine_url
89 function urls_propres_creer_chaine_url($x) {
90 // NB: ici url_old ne sert pas, mais un plugin qui ajouterait une date
91 // pourrait l'utiliser pour juste ajouter la
92 $url_old = $x['data'];
94 include_spip('inc/filtres');
96 include_spip('action/editer_url');
97 if (!$url = url_nettoyer($objet['titre'],_URLS_PROPRES_MAX
,_URLS_PROPRES_MIN
,'-',_url_minuscules?
'strtolower':''))
98 $url = $objet['type'].$objet['id_objet'];
105 // Trouver l'URL associee a la n-ieme cle primaire d'une table SQL
107 // http://code.spip.net/@declarer_url_propre
108 function declarer_url_propre($type, $id_objet) {
109 $trouver_table = charger_fonction('trouver_table', 'base');
110 $desc = $trouver_table(table_objet($type));
111 $table = $desc['table'];
112 $champ_titre = $desc['titre'] ?
$desc['titre'] : 'titre';
113 $col_id = @$desc['key']["PRIMARY KEY"];
114 if (!$col_id) return false; // Quand $type ne reference pas une table
116 $id_objet = intval($id_objet);
119 // Recuperer une URL propre correspondant a l'objet.
120 // mais urls a 1 segment uniquement (pas d'urls /)
121 // de preference avec id_parent=0, puis perma, puis par date desc
122 $row = sql_fetsel("U.url, U.date, U.id_parent, U.perma, $champ_titre",
123 "$table AS O LEFT JOIN spip_urls AS U ON (U.type='$type' AND U.id_objet=O.$col_id)",
124 "O.$col_id=$id_objet AND (U.segments IS NULL OR U.segments=1)", '', 'U.id_parent=0 DESC, U.perma DESC, U.date DESC', 1);
126 // en SQLite le left join retourne du vide si il y a une url mais qui ne correspond pas pour la condition sur le segment
127 // on verifie donc que l'objet existe bien avant de sortir ou de creer une url pour cet objet
129 $row = sql_fetsel("'' as url, '' as date, 0 as id_parent, 0 as perma, $champ_titre",
131 "O.$col_id=$id_objet");
133 if (!$row) return ""; # Quand $id_objet n'est pas un numero connu
135 $url_propre = $row['url'];
137 // si url_propre connue mais avec id_parent non nul, essayer de reinserer tel quel avec id_parent=0
138 if ($url_propre AND $row['id_parent']){
139 include_spip('action/editer_url');
140 $set = array('url' => $url_propre, 'type' => $type, 'id_objet' => $id_objet, 'perma' => $row['perma']);
141 // si on arrive pas a reinserer tel quel, on annule url_propre pour forcer un recalcul d'url
142 if (!url_insert($set,false,_url_propres_sep_id
))
145 $url_propre = $row['url'] = $set['url'];
148 // Se contenter de cette URL si elle existe ;
149 // sauf si on invoque par "voir en ligne" avec droit de modifier l'url
151 // l'autorisation est verifiee apres avoir calcule la nouvelle url propre
152 // car si elle ne change pas, cela ne sert a rien de verifier les autorisations
153 // qui requetent en base
154 $modifier_url = (defined('_VAR_URLS') AND _VAR_URLS
AND !$row['perma']);
155 if ($url_propre AND !$modifier_url)
158 // Sinon, creer une URL
159 $url = pipeline('propres_creer_chaine_url',
161 'data' => $url_propre, // le vieux url_propre
162 'objet' => array_merge($row,
163 array('type' => $type, 'id_objet' => $id_objet)
168 // Eviter de tamponner les URLs a l'ancienne (cas d'un article
169 // intitule "auteur2")
170 include_spip('inc/urls');
171 $objets = urls_liste_objets();
172 if (preg_match(',^('.$objets.')[0-9]+$,', $url, $r)
174 $url = $url._url_propres_sep_id
.$id_objet;
176 // Pas de changement d'url
177 if ($url == $url_propre)
180 // verifier l'autorisation, maintenant qu'on est sur qu'on va agir
182 include_spip('inc/autoriser');
183 $modifier_url = autoriser('modifierurl', $type, $id_objet);
186 // Verifier si l'utilisateur veut effectivement changer l'URL
188 AND CONFIRMER_MODIFIER_URL
190 AND $url != preg_replace('/'.preg_quote(_url_propres_sep_id
,'/').'.*/', '', $url_propre))
195 if ($confirmer AND !_request('ok')) {
196 die ("vous changez d'url ? $url_propre -> $url");
199 $set = array('url' => $url, 'type' => $type, 'id_objet' => $id_objet);
200 include_spip('action/editer_url');
201 if (!url_insert($set,$confirmer,_url_propres_sep_id
))
202 return $url_propre; //serveur out ? retourner au mieux
207 // http://code.spip.net/@_generer_url_propre
208 function _generer_url_propre($type, $id, $args='', $ancre='') {
210 if ($generer_url_externe = charger_fonction("generer_url_$type",'urls',true)) {
211 $url = $generer_url_externe($id, $args, $ancre);
212 if (NULL != $url) return $url;
215 // Mode compatibilite pour conserver la distinction -Rubrique-
217 $marqueur = unserialize(_MARQUEUR_URL
);
218 $marqueur1 = isset($marqueur[$type.'1']) ?
$marqueur[$type.'1'] : '' ; // debut '+-'
219 $marqueur2 = isset($marqueur[$type.'2']) ?
$marqueur[$type.'2'] : '' ; // fin '-+'
221 $marqueur1 = $marqueur2 = '';
225 $propre = declarer_url_propre($type, $id);
227 if ($propre === false) return ''; // objet inconnu. raccourci ?
230 $url = _debut_urls_propres
234 . _terminaison_urls_propres
;
236 if (!defined('_SET_HTML_BASE') OR !_SET_HTML_BASE
)
237 // Repositionne l'URL par rapport a la racine du site (#GLOBALS)
238 $url = str_repeat('../', $GLOBALS['profondeur_url']).$url;
240 $url = _DIR_RACINE
. $url;
243 // objet connu mais sans possibilite d'URL lisible, revenir au defaut
244 include_spip('base/connect_sql');
245 $id_type = id_table_objet($type);
246 $url = _DIR_RACINE
. get_spip_script('./')."?"._SPIP_PAGE
."=$type&$id_type=$id";
251 $url .= ((strpos($url, '?')===false) ?
'?' : '&') . $args;
260 // retrouve le fond et les parametres d'une URL propre
261 // ou produit une URL propre si on donne un parametre
262 // @return array([contexte],[type],[url_redirect],[fond]) : url decodee
263 // http://code.spip.net/@urls_propres_dist
264 function urls_propres_dist($i, $entite, $args='', $ancre='') {
267 return _generer_url_propre($entite, $i, $args, $ancre);
270 $id_objet = $type = 0;
271 $url_redirect = null;
272 // recuperer les &debut_xx;
276 parse_str($args,$contexte);
279 // Migration depuis anciennes URLs ?
280 // traiter les injections domain.tld/spip.php/n/importe/quoi/rubrique23
281 if ($GLOBALS['profondeur_url']<=0
282 AND $_SERVER['REQUEST_METHOD'] != 'POST') {
283 include_spip('inc/urls');
284 $r = nettoyer_url_page($i, $contexte);
286 list($contexte, $type,,, $suite) = $r;
287 $_id = id_table_objet($type);
288 $id_objet = $contexte[$_id];
289 $url_propre = generer_url_entite($id_objet, $type);
290 if (strlen($url_propre)
291 AND !strstr($url,$url_propre)) {
292 list(,$hash) = explode('#', $url_propre);
294 foreach(array_filter(explode('&', $suite)) as $fragment) {
295 if ($fragment != "$_id=$id_objet")
298 $url_redirect = generer_url_entite($id_objet, $type, join('&',array_filter($args)), $hash);
300 return array($contexte, $type, $url_redirect, $type);
304 /* Fin compatibilite anciennes urls */
305 // Chercher les valeurs d'environnement qui indiquent l'url-propre
306 if (isset($_SERVER['REDIRECT_url_propre']))
307 $url_propre = $_SERVER['REDIRECT_url_propre'];
308 elseif (isset($_ENV['url_propre']))
309 $url_propre = $_ENV['url_propre'];
311 // ne prendre que le segment d'url qui correspond, en fonction de la profondeur calculee
312 $url = ltrim($url,'/');
313 $url = explode('/',$url);
314 while (count($url)>$GLOBALS['profondeur_url']+
1)
316 $url = implode('/',$url);
317 $url_propre = preg_replace(',[?].*,', '', $url);
320 // Mode Query-String ?
323 AND preg_match(',[?]([^=/?&]+)(&.*)?$,', $url, $r)) {
329 OR $url_propre==_DIR_RESTREINT_ABS
330 OR $url_propre==_SPIP_SCRIPT
) return; // qu'est-ce qu'il veut ???
333 // gerer le cas de retour depuis des urls arbos
334 // mais si url arbo ne trouve pas, on veut une 404 par securite
335 if ($GLOBALS['profondeur_url']>0 AND !defined('_FORCE_URLS_PROPRES')){
336 $urls_anciennes = charger_fonction('arbo','urls');
337 return $urls_anciennes($url_propre, $entite, $contexte);
340 include_spip('base/abstract_sql'); // chercher dans la table des URLS
342 // Compatibilite avec propres2
343 $url_propre = preg_replace(',\.html$,i', '', $url_propre);
345 // Revenir en utf-8 si encodage type %D8%A7 (farsi)
346 $url_propre = rawurldecode($url_propre);
348 // Compatibilite avec les anciens marqueurs d'URL propres
349 // Tester l'entree telle quelle (avec 'url_libre' des sites ont pu avoir des entrees avec marqueurs dans la table spip_urls)
350 if (!$row = sql_fetsel('id_objet, type, date, url', 'spip_urls', 'url='.sql_quote($url_propre, '', 'TEXT'))) {
351 // Sinon enlever les marqueurs eventuels
352 $url_propre2 = retirer_marqueurs_url_propre($url_propre);
354 $row = sql_fetsel('id_objet, type, date, url', 'spip_urls', 'url='.sql_quote($url_propre2, '', 'TEXT'));
358 $type = $row['type'];
359 $col_id = id_table_objet($type);
360 $contexte[$col_id] = $row['id_objet'];
361 $entite = $row['type'];
363 // Si l'url est vieux, donner le nouveau
364 if ($recent = sql_fetsel('url, date', 'spip_urls',
365 'type='.sql_quote($row['type'], '', 'TEXT').' AND id_objet='.sql_quote($row['id_objet'])
366 .' AND date>'.sql_quote($row['date'], '', 'TEXT')
367 .' AND url<>'.sql_quote($row['url'], '', 'TEXT'), '', 'date DESC', 1)) {
368 // Mode compatibilite pour conserver la distinction -Rubrique-
370 $marqueur = unserialize(_MARQUEUR_URL
);
371 $marqueur1 = $marqueur[$type.'1']; // debut '+-'
372 $marqueur2 = $marqueur[$type.'2']; // fin '-+'
374 $marqueur1 = $marqueur2 = '';
375 $url_redirect = $marqueur1 . $recent['url'] . $marqueur2;
379 if ($entite=='' OR $entite=='type_urls' /* compat .htaccess 2.0 */) {
381 $entite = objet_type($type);
383 // Si ca ressemble a une URL d'objet, ce n'est pas la home
384 // et on provoque un 404
385 if (preg_match(',^.*/[^\.]+(\.html)?$,', $url)) {
387 $contexte['erreur'] = '';
389 // l'url n'existe pas...
390 // on ne sait plus dire de quel type d'objet il s'agit
391 // sauf si on a le marqueur. et la c'est un peu sale...
393 $fmarqueur = @array_flip
(unserialize(_MARQUEUR_URL
));
394 preg_match(',^([+][-]|[-+@_]),', $url_propre, $regs);
395 $objet = $regs ?
substr($fmarqueur[$regs[1]],0,n
-1) : 'article';
396 $contexte['erreur'] = _T(
397 ($objet=='rubrique' OR $objet=='breve')
398 ?
'public:aucune_'.$objet
399 : 'public:aucun_'.$objet
406 return array($contexte, $entite, $url_redirect, $is_qs?
$entite:null);