source: spip-zone/_core_/branches/spip-3.0/plugins/urls_etendues/urls/propres.php @ 104360

Last change on this file since 104360 was 104360, checked in by spip.franck@…, 3 years ago

code.spip est maintenant en https, donc j'ajoute le "s" à http

File size: 14.9 KB
Line 
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
13if (!defined("_ECRIRE_INC_VERSION")) return; // securiser
14
15# donner un exemple d'url pour le formulaire de choix
16define('URLS_PROPRES_EXEMPLE', 'Titre-de-l-article -Rubrique-');
17# specifier le form de config utilise pour ces urls
18define('URLS_PROPRES_CONFIG', 'propres');
19
20// TODO: une interface permettant de verifier qu'on veut effectivment modifier
21// une adresse existante
22defined('CONFIRMER_MODIFIER_URL') || define('CONFIRMER_MODIFIER_URL', false);
23
24/*
25
26- Comment utiliser ce jeu d'URLs ?
27
28Recopiez le fichier "htaccess.txt" du repertoire de base du site SPIP sous
29le sous le nom ".htaccess" (attention a ne pas ecraser d'autres reglages
30que vous pourriez avoir mis dans ce fichier) ; si votre site est en
31"sous-repertoire", vous devrez aussi editer la ligne "RewriteBase" ce fichier.
32Les URLs definies seront alors redirigees vers les fichiers de SPIP.
33
34Dans les pages de configuration, choisissez 'propres' comme type d'url
35
36SPIP calculera alors ses liens sous la forme
37        "Mon-titre-d-article".
38
39La variante 'propres2' ajoutera '.html' aux adresses generees :
40        "Mon-titre-d-article.html"
41
42Variante 'qs' (experimentale) : ce systeme fonctionne en "Query-String",
43c'est-a-dire sans utilisation de .htaccess ; les adresses sont de la forme
44        "/?Mon-titre-d-article"
45*/
46
47if (!defined('_terminaison_urls_propres')) define ('_terminaison_urls_propres', '');
48if (!defined('_debut_urls_propres')) define ('_debut_urls_propres', '');
49
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 '/')
53if (!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
55if (!defined('_url_minuscules')) define('_url_minuscules',isset($config_urls_propres['url_minuscules'])?$config_urls_propres['url_minuscules']:0);
56if (!defined('_URLS_PROPRES_MAX')) define('_URLS_PROPRES_MAX', isset($config_urls_propres['URLS_PROPRES_MAX'])?$config_urls_propres['URLS_PROPRES_MAX']:80);
57if (!defined('_URLS_PROPRES_MIN')) define('_URLS_PROPRES_MIN', isset($config_urls_propres['URLS_PROPRES_MIN'])?$config_urls_propres['URLS_PROPRES_MIN']:3);
58
59if (!defined('_url_sep_id')) define('_url_sep_id',_url_propres_sep_id);
60
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.
66
67if (!defined('_MARQUEUR_URL')) define('_MARQUEUR_URL', serialize(array('rubrique1' => '-', 'rubrique2' => '-', 'breve1' => '+', 'breve2' => '+', 'site1' => '@', 'site2' => '@', 'auteur1' => '_', 'auteur2' => '_', 'mot1' => '+-', 'mot2' => '-+')));
68
69// Retire les marqueurs de type dans une URL propre ancienne maniere
70
71// https://code.spip.net/@retirer_marqueurs_url_propre
72function retirer_marqueurs_url_propre($url_propre) {
73        if (preg_match(',^[+][-](.*?)[-][+]$,', $url_propre, $regs)) {
74                return $regs[1];
75        }
76        else if (preg_match(',^([-+_@])(.*?)\1?$,', $url_propre, $regs)) {
77                return $regs[2];
78        }
79        // les articles n'ont pas de marqueur
80        return $url_propre;
81}
82
83
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// https://code.spip.net/@creer_chaine_url
89function 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'];
93        $objet = $x['objet'];
94        include_spip('inc/filtres');
95
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'];
99
100        $x['data'] = $url;
101
102        return $x;
103}
104
105// Trouver l'URL associee a la n-ieme cle primaire d'une table SQL
106
107// https://code.spip.net/@declarer_url_propre
108function 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
115
116        $id_objet = intval($id_objet);
117
118
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);
125
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
128        if (!$row)
129                $row = sql_fetsel("'' as url, '' as date, 0 as id_parent, 0 as perma, $champ_titre",
130                                  "$table AS O",
131                                  "O.$col_id=$id_objet");
132
133        if (!$row) return ""; # Quand $id_objet n'est pas un numero connu
134
135        $url_propre = $row['url'];
136
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))
143                        $url_propre = "";
144                else
145                        $url_propre = $row['url'] = $set['url'];
146        }
147
148        // Se contenter de cette URL si elle existe ;
149        // sauf si on invoque par "voir en ligne" avec droit de modifier l'url
150
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)
156                return $url_propre;
157
158        // Sinon, creer une URL
159        $url = pipeline('propres_creer_chaine_url',
160                array(
161                        'data' => $url_propre,  // le vieux url_propre
162                        'objet' => array_merge($row,
163                                array('type' => $type, 'id_objet' => $id_objet)
164                        )
165                )
166        );
167
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)
173        AND $r[1] != $type)
174                $url = $url._url_propres_sep_id.$id_objet;
175
176        // Pas de changement d'url
177        if ($url == $url_propre)
178                return $url_propre;
179
180        // verifier l'autorisation, maintenant qu'on est sur qu'on va agir
181        if ($modifier_url) {
182                include_spip('inc/autoriser');
183                $modifier_url = autoriser('modifierurl', $type, $id_objet);
184        }
185
186        // Verifier si l'utilisateur veut effectivement changer l'URL
187        if ($modifier_url
188                AND CONFIRMER_MODIFIER_URL
189                AND $url_propre
190                AND $url != preg_replace('/'.preg_quote(_url_propres_sep_id,'/').'.*/', '', $url_propre))
191                $confirmer = true;
192        else
193                $confirmer = false;
194
195        if ($confirmer AND !_request('ok')) {
196                die ("vous changez d'url ? $url_propre -&gt; $url");
197        }
198
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
203
204        return $set['url'];
205}
206
207// https://code.spip.net/@_generer_url_propre
208function _generer_url_propre($type, $id, $args='', $ancre='') {
209
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;
213        }
214
215        // Mode compatibilite pour conserver la distinction -Rubrique-
216        if (_MARQUEUR_URL) {
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 '-+'
220        } else
221                $marqueur1 = $marqueur2 = '';
222        // fin
223
224        // Mode propre
225        $propre = declarer_url_propre($type, $id);
226
227        if ($propre === false) return ''; // objet inconnu. raccourci ?
228
229        if ($propre) {
230                $url = _debut_urls_propres
231                        . $marqueur1
232                        . $propre
233                        . $marqueur2
234                        . _terminaison_urls_propres;
235
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;
239                else
240                        $url = _DIR_RACINE . $url;
241        } else {
242
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";
247        }
248
249        // Ajouter les args
250        if ($args)
251                $url .= ((strpos($url, '?')===false) ? '?' : '&') . $args;
252
253        // Ajouter l'ancre
254        if ($ancre)
255                $url .= "#$ancre";
256
257        return $url;
258}
259
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// https://code.spip.net/@urls_propres_dist
264function urls_propres_dist($i, $entite, $args='', $ancre='') {
265
266        if (is_numeric($i))
267                return _generer_url_propre($entite, $i, $args, $ancre);
268
269        $url = $i;
270        $id_objet = $type = 0;
271        $url_redirect = null;
272        // recuperer les &debut_xx;
273        if (is_array($args))
274                $contexte = $args;
275        else
276                parse_str($args,$contexte);
277
278
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);
285                if ($r) {
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);
293                                $args = array();
294                                foreach(array_filter(explode('&', $suite)) as $fragment) {
295                                        if ($fragment != "$_id=$id_objet")
296                                                $args[] = $fragment;
297                                }
298                                $url_redirect = generer_url_entite($id_objet, $type, join('&',array_filter($args)), $hash);
299
300                                return array($contexte, $type, $url_redirect, $type);
301                        }
302                }
303        }
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'];
310        else {
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)
315                        array_shift($url);
316                $url = implode('/',$url);
317                $url_propre = preg_replace(',[?].*,', '', $url);
318        }
319
320        // Mode Query-String ?
321        $is_qs = false;
322        if (!$url_propre
323        AND preg_match(',[?]([^=/?&]+)(&.*)?$,', $url, $r)) {
324                $url_propre = $r[1];
325                $is_qs = true;
326        }
327
328        if (!$url_propre
329          OR $url_propre==_DIR_RESTREINT_ABS
330          OR $url_propre==_SPIP_SCRIPT) return; // qu'est-ce qu'il veut ???
331
332       
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);
338        }
339       
340        include_spip('base/abstract_sql'); // chercher dans la table des URLS
341
342        // Compatibilite avec propres2
343        $url_propre = preg_replace(',\.html$,i', '', $url_propre);
344
345        // Revenir en utf-8 si encodage type %D8%A7 (farsi)
346        $url_propre = rawurldecode($url_propre);
347
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);
353
354                $row = sql_fetsel('id_objet, type, date, url', 'spip_urls', 'url='.sql_quote($url_propre2, '', 'TEXT'));
355        }
356
357        if ($row) {
358                $type = $row['type'];
359                $col_id = id_table_objet($type);
360                $contexte[$col_id] = $row['id_objet'];
361                $entite = $row['type'];
362
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-
369                        if (_MARQUEUR_URL) {
370                                $marqueur = unserialize(_MARQUEUR_URL);
371                                $marqueur1 = $marqueur[$type.'1']; // debut '+-'
372                                $marqueur2 = $marqueur[$type.'2']; // fin '-+'
373                        } else
374                                $marqueur1 = $marqueur2 = '';
375                        $url_redirect = $marqueur1 . $recent['url'] . $marqueur2;
376                }
377        }
378
379        if ($entite=='' OR $entite=='type_urls' /* compat .htaccess 2.0 */) {
380                if ($type) {
381                        $entite =  objet_type($type);
382                } else {
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)) {
386                                $entite = '404';
387                                $contexte['erreur'] = '';
388
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...
392                                if (_MARQUEUR_URL) {
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
400                                        );
401                                }
402                        }
403                }
404        }
405
406        return array($contexte, $entite, $url_redirect, $is_qs?$entite:null);
407}
408
409?>
Note: See TracBrowser for help on using the repository browser.