--- /dev/null
+<?php
+
+/***************************************************************************\
+ * SPIP, Systeme de publication pour l'internet *
+ * *
+ * Copyright (c) 2001-2011 *
+ * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
+ * *
+ * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
+ * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
+\***************************************************************************/
+
+if (!defined('_ECRIRE_INC_VERSION')) return;
+
+define('URLS_PROPRES_EXEMPLE', 'Titre-de-l-article -Rubrique-');
+
+// TODO: une interface permettant de verifier qu'on veut effectivment modifier
+// une adresse existante
+define('CONFIRMER_MODIFIER_URL', false);
+
+/*
+
+- Comment utiliser ce jeu d'URLs ?
+
+Recopiez le fichier "htaccess.txt" du repertoire de base du site SPIP sous
+le sous le nom ".htaccess" (attention a ne pas ecraser d'autres reglages
+que vous pourriez avoir mis dans ce fichier) ; si votre site est en
+"sous-repertoire", vous devrez aussi editer la ligne "RewriteBase" ce fichier.
+Les URLs definies seront alors redirigees vers les fichiers de SPIP.
+
+Dans les pages de configuration, choisissez 'propres' comme type d'url
+
+SPIP calculera alors ses liens sous la forme
+ "Mon-titre-d-article".
+
+La variante 'propres2' ajoutera '.html' aux adresses generees :
+ "Mon-titre-d-article.html"
+
+Variante 'qs' (experimentale) : ce systeme fonctionne en "Query-String",
+c'est-a-dire sans utilisation de .htaccess ; les adresses sont de la forme
+ "/?Mon-titre-d-article"
+*/
+
+define ('_terminaison_urls_propres', '');
+define ('_debut_urls_propres', '');
+
+// option pour tout passer en minuscules
+define ('_url_minuscules',0);
+
+// pour choisir le caractere de separation titre-id en cas de doublon
+// (ne pas utiliser '/')
+define ('_url_propres_sep_id',',');
+
+// Ces chaines servaient de marqueurs a l'epoque ou les URL propres devaient
+// indiquer la table ou les chercher (articles, auteurs etc),
+// et elles etaient retirees par les preg_match dans la fonction ci-dessous.
+// Elles peuvent a present etre definies a "" pour avoir des URL plus jolies.
+// Les preg_match restent necessaires pour gerer les anciens signets.
+
+define('_MARQUEUR_URL', serialize(array('rubrique1' => '-', 'rubrique2' => '-', 'breve1' => '+', 'breve2' => '+', 'site1' => '@', 'site2' => '@', 'auteur1' => '_', 'auteur2' => '_', 'mot1' => '+-', 'mot2' => '-+')));
+
+// Retire les marqueurs de type dans une URL propre ancienne maniere
+
+// http://doc.spip.org/@retirer_marqueurs_url_propre
+function retirer_marqueurs_url_propre($url_propre) {
+ if (preg_match(',^[+][-](.*?)[-][+]$,', $url_propre, $regs)) {
+ return $regs[1];
+ }
+ else if (preg_match(',^([-+_@])(.*?)\1?$,', $url_propre, $regs)) {
+ return $regs[2];
+ }
+ // les articles n'ont pas de marqueur
+ return $url_propre;
+}
+
+
+// Pipeline pour creation d'une adresse : il recoit l'url propose par le
+// precedent, un tableau indiquant le titre de l'objet, son type, son id,
+// et doit donner en retour une chaine d'url, sans se soucier de la
+// duplication eventuelle, qui sera geree apres
+// http://doc.spip.org/@creer_chaine_url
+function urls_propres_creer_chaine_url($x) {
+ // NB: ici url_old ne sert pas, mais un plugin qui ajouterait une date
+ // pourrait l'utiliser pour juste ajouter la
+ $url_old = $x['data'];
+ $objet = $x['objet'];
+ include_spip('inc/filtres');
+ if (!defined('_URLS_PROPRES_MAX')) define('_URLS_PROPRES_MAX', 35);
+ if (!defined('_URLS_PROPRES_MIN')) define('_URLS_PROPRES_MIN', 3);
+
+ include_spip('action/editer_url');
+ if (!$url = url_nettoyer($objet['titre'],_URLS_PROPRES_MAX,_URLS_PROPRES_MIN,'-',_url_minuscules?'strtolower':''))
+ $url = $objet['type'].$objet['id_objet'];
+
+ $x['data'] = $url;
+
+ return $x;
+}
+
+// Trouver l'URL associee a la n-ieme cle primaire d'une table SQL
+
+// http://doc.spip.org/@declarer_url_propre
+function declarer_url_propre($type, $id_objet) {
+ $trouver_table = charger_fonction('trouver_table', 'base');
+ $desc = $trouver_table(table_objet($type));
+ $champ_titre = $desc['titre'];
+ $col_id = @$desc['key']["PRIMARY KEY"];
+ // $type doit designer une table, avec champ indiquant un titre
+ if (!$col_id OR !$champ_titre) return false;
+
+ $table = $desc['table'];
+ $id_objet = intval($id_objet);
+
+ // Recuperer une URL propre correspondant a l'objet.
+ $row = sql_fetsel("U.url, U.date, O.$champ_titre", "$table AS O LEFT JOIN spip_urls AS U ON (U.type='$type' AND U.id_objet=O.$col_id)", "O.$col_id=$id_objet", '', 'U.date DESC', 1);
+
+ if (!$row) return ""; # Quand $id_objet n'est pas un numero connu
+
+ $url_propre = $row['url'];
+
+ // Se contenter de cette URL si elle existe ;
+ // sauf si on invoque par "voir en ligne" avec droit de modifier l'url
+
+ // l'autorisation est verifiee apres avoir calcule la nouvelle url propre
+ // car si elle ne change pas, cela ne sert a rien de verifier les autorisations
+ // qui requetent en base
+ $modifier_url = $GLOBALS['var_urls'];
+ if ($url_propre AND !$modifier_url)
+ return $url_propre;
+
+ // Sinon, creer une URL
+ $url = pipeline('propres_creer_chaine_url',
+ array(
+ 'data' => $url_propre, // le vieux url_propre
+ 'objet' => array_merge($row,
+ array('type' => $type, 'id_objet' => $id_objet)
+ )
+ )
+ );
+
+ // Eviter de tamponner les URLs a l'ancienne (cas d'un article
+ // intitule "auteur2")
+ include_spip('inc/urls');
+ $objets = urls_liste_objets();
+ if (preg_match(',^('.$objets.')[0-9]+$,', $url, $r)
+ AND $r[1] != $type)
+ $url = $url._url_propres_sep_id.$id_objet;
+
+ // Pas de changement d'url
+ if ($url == $url_propre)
+ return $url_propre;
+
+ // verifier l'autorisation, maintenant qu'on est sur qu'on va agir
+ if ($modifier_url) {
+ include_spip('inc/autoriser');
+ $modifier_url = autoriser('modifierurl', $type, $id_objet);
+ }
+
+ // Verifier si l'utilisateur veut effectivement changer l'URL
+ if ($modifier_url
+ AND CONFIRMER_MODIFIER_URL
+ AND $url_propre
+ AND $url != preg_replace('/,.*/', '', $url_propre))
+ $confirmer = true;
+ else
+ $confirmer = false;
+
+ if ($confirmer AND !_request('ok')) {
+ die ("vous changez d'url ? $url_propre -> $url");
+ }
+
+ $set = array('url' => $url, 'type' => $type, 'id_objet' => $id_objet);
+ include_spip('action/editer_url');
+ if (!url_insert($set,$confirmer,_url_propres_sep_id))
+ return $url_propre; //serveur out ? retourner au mieux
+
+ return $set['url'];
+}
+
+// http://doc.spip.org/@_generer_url_propre
+function _generer_url_propre($type, $id, $args='', $ancre='') {
+ if ($generer_url_externe = charger_fonction("generer_url_$type",'urls',true)) {
+ $url = $generer_url_externe($id, $args, $ancre);
+ if (NULL != $url) return $url;
+ }
+
+ if ($type == 'document') {
+ include_spip('inc/documents');
+ return generer_url_document_dist($id, $args, $ancre);
+ }
+
+ // Mode compatibilite pour conserver la distinction -Rubrique-
+ if (_MARQUEUR_URL) {
+ $marqueur = unserialize(_MARQUEUR_URL);
+ $marqueur1 = $marqueur[$type.'1']; // debut '+-'
+ $marqueur2 = $marqueur[$type.'2']; // fin '-+'
+ } else
+ $marqueur1 = $marqueur2 = '';
+ // fin
+
+ // Mode propre
+ $propre = declarer_url_propre($type, $id);
+
+ if ($propre === false) return ''; // objet inconnu. raccourci ?
+
+ if ($propre) {
+ $url = _debut_urls_propres
+ . $marqueur1
+ . $propre
+ . $marqueur2
+ . _terminaison_urls_propres;
+
+ // Repositionne l'URL par rapport a la racine du site (#GLOBALS)
+ $url = str_repeat('../', $GLOBALS['profondeur_url']).$url;
+ } else {
+
+ // objet connu mais sans possibilite d'URL lisible, revenir au defaut
+ include_spip('base/connect_sql');
+ $id_type = id_table_objet($type);
+ $url = _DIR_RACINE . get_spip_script('./')."?"._SPIP_PAGE."=$type&$id_type=$id";
+ }
+
+ // Ajouter les args
+ if ($args)
+ $url .= ((strpos($url, '?')===false) ? '?' : '&') . $args;
+
+ // Ajouter l'ancre
+ if ($ancre)
+ $url .= "#$ancre";
+
+ return $url;
+}
+
+// retrouve le fond et les parametres d'une URL propre
+// ou produit une URL propre si on donne un parametre
+// @return array([contexte],[type],[url_redirect],[fond]) : url decodee
+// http://doc.spip.org/@urls_propres_dist
+function urls_propres_dist($i, $entite, $args='', $ancre='') {
+
+ if (is_numeric($i))
+ return _generer_url_propre($entite, $i, $args, $ancre);
+
+ $url = $i;
+ $id_objet = $type = 0;
+ $url_redirect = null;
+ // recuperer les &debut_xx;
+ if (is_array($args))
+ $contexte = $args;
+ else
+ parse_str($args,$contexte);
+
+
+ // Migration depuis anciennes URLs ?
+ // traiter les injections domain.tld/spip.php/n/importe/quoi/rubrique23
+ if ($GLOBALS['profondeur_url']<=0
+ AND $_SERVER['REQUEST_METHOD'] != 'POST') {
+ include_spip('inc/urls');
+ $r = nettoyer_url_page($i, $contexte);
+ if ($r) {
+ list($contexte, $type,,, $suite) = $r;
+ $_id = id_table_objet($type);
+ $id_objet = $contexte[$_id];
+ $url_propre = generer_url_entite($id_objet, $type);
+ if (strlen($url_propre)
+ AND !strstr($url,$url_propre)) {
+ list(,$hash) = explode('#', $url_propre);
+ $args = array();
+ foreach(array_filter(explode('&', $suite)) as $fragment) {
+ if ($fragment != "$_id=$id_objet")
+ $args[] = $fragment;
+ }
+ $url_redirect = generer_url_entite($id_objet, $type, join('&',array_filter($args)), $hash);
+
+ return array($contexte, $type, $url_redirect, $type);
+ }
+ }
+ }
+ /* Fin compatibilite anciennes urls */
+ // Chercher les valeurs d'environnement qui indiquent l'url-propre
+ if (isset($_SERVER['REDIRECT_url_propre']))
+ $url_propre = $_SERVER['REDIRECT_url_propre'];
+ elseif (isset($_ENV['url_propre']))
+ $url_propre = $_ENV['url_propre'];
+ else {
+ // ne prendre que le segment d'url qui correspond, en fonction de la profondeur calculee
+ $url = ltrim($url,'/');
+ $url = explode('/',$url);
+ while (count($url)>$GLOBALS['profondeur_url']+1)
+ array_shift($url);
+ $url = implode('/',$url);
+ $url_propre = preg_replace(',[?].*,', '', $url);
+ }
+
+ // Mode Query-String ?
+ $is_qs = false;
+ if (!$url_propre
+ AND preg_match(',[?]([^=/?&]+)(&.*)?$,', $url, $r)) {
+ $url_propre = $r[1];
+ $is_qs = true;
+ }
+
+ if (!$url_propre) return; // qu'est-ce qu'il veut ???
+
+ // gerer le cas de retour depuis des urls arbos
+ // mais si url arbo ne trouve pas, on veut une 404 par securite
+ if ($GLOBALS['profondeur_url']>0){
+ $urls_anciennes = charger_fonction('arbo','urls');
+ return $urls_anciennes($url_propre, $entite, $contexte);
+ }
+
+ include_spip('base/abstract_sql'); // chercher dans la table des URLS
+
+ // Compatibilite avec propres2
+ $url_propre = preg_replace(',\.html$,i', '', $url_propre);
+
+ // Revenir en utf-8 si encodage type %D8%A7 (farsi)
+ $url_propre = rawurldecode($url_propre);
+
+ // Compatibilite avec les anciens marqueurs d'URL propres
+ // Tester l'entree telle quelle (avec 'url_libre' des sites ont pu avoir des entrees avec marqueurs dans la table spip_urls)
+ if (!$row = sql_fetsel('id_objet, type, date', 'spip_urls', 'url='.sql_quote($url_propre))) {
+ // Sinon enlever les marqueurs eventuels
+ $url_propre2 = retirer_marqueurs_url_propre($url_propre);
+
+ $row = sql_fetsel('id_objet, type, date', 'spip_urls', 'url='.sql_quote($url_propre2));
+ }
+
+ if ($row) {
+ $type = $row['type'];
+ $col_id = id_table_objet($type);
+ $contexte[$col_id] = $row['id_objet'];
+ $entite = $row['type'];
+
+ // Si l'url est vieux, donner le nouveau
+ if ($recent = sql_fetsel('url, date', 'spip_urls',
+ 'type='.sql_quote($row['type']).' AND id_objet='.sql_quote($row['id_objet'])
+ .' AND date>'.sql_quote($row['date']), '', 'date DESC', 1)) {
+ // Mode compatibilite pour conserver la distinction -Rubrique-
+ if (_MARQUEUR_URL) {
+ $marqueur = unserialize(_MARQUEUR_URL);
+ $marqueur1 = $marqueur[$type.'1']; // debut '+-'
+ $marqueur2 = $marqueur[$type.'2']; // fin '-+'
+ } else
+ $marqueur1 = $marqueur2 = '';
+ $url_redirect = $marqueur1 . $recent['url'] . $marqueur2;
+ }
+ }
+
+ if ($entite=='' OR $entite=='type_urls' /* compat .htaccess 2.0 */) {
+ if ($type) {
+ $entite = ($type == 'syndic') ? 'site' : $type;
+ } else {
+ // Si ca ressemble a une URL d'objet, ce n'est pas la home
+ // et on provoque un 404
+ if (preg_match(',^.*/[^\.]+(\.html)?$,', $url)) {
+ $entite = '404';
+ $contexte['erreur'] = '';
+
+ // l'url n'existe pas...
+ // on ne sait plus dire de quel type d'objet il s'agit
+ // sauf si on a le marqueur. et la c'est un peu sale...
+ if (_MARQUEUR_URL) {
+ $fmarqueur = @array_flip(unserialize(_MARQUEUR_URL));
+ preg_match(',^([+][-]|[-+@_]),', $url_propre, $regs);
+ $objet = $regs ? substr($fmarqueur[$regs[1]],0,n-1) : 'article';
+ $contexte['erreur'] = _T(
+ ($objet=='rubrique' OR $objet=='breve')
+ ? 'public:aucune_'.$objet
+ : 'public:aucun_'.$objet
+ );
+ }
+ }
+ }
+ }
+
+ return array($contexte, $entite, $url_redirect, $is_qs?$entite:null);
+}
+
+?>