source: spip-zone/_plugins_/polyhierarchie/branches/v2.0/urls/arbopoly.php @ 100662

Last change on this file since 100662 was 100662, checked in by cedric@…, 3 years ago

On peut configurer la profondeur des chemins indirects affiches dans l'espace prive sur les objets

File size: 16.1 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")) {
14        return;
15} // securiser
16
17# donner un exemple d'url pour le formulaire de choix
18define('URLS_ARBOPOLY_EXEMPLE', '/article/titre');
19# specifier le form de config utilise pour ces urls
20define('URLS_ARBOPOLY_CONFIG', 'arbo');
21
22// TODO: une interface permettant de verifier qu'on veut effectivment modifier
23// une adresse existante
24defined('CONFIRMER_MODIFIER_URL') || define('CONFIRMER_MODIFIER_URL', false);
25
26include_spip('urls/arbo');
27
28/**
29 * Renseigner les infos les plus recentes de l'url d'un objet
30 * et de quoi la (re)construire si besoin
31 *
32 * @param string $type
33 * @param int $id_objet
34 * @param int $id_parent
35 * @return bool|null|array
36 */
37function renseigner_url_arbopoly($type, $id_objet, $id_parent=null) {
38        $urls = array();
39        $trouver_table = charger_fonction('trouver_table', 'base');
40        $desc = $trouver_table(table_objet($type));
41        $table = $desc['table'];
42        $col_id = @$desc['key']["PRIMARY KEY"];
43        if (!$col_id) {
44                return false;
45        } // Quand $type ne reference pas une table
46        $id_objet = intval($id_objet);
47
48        $champ_titre = $desc['titre'] ? $desc['titre'] : 'titre';
49
50        // parent
51        $champ_parent = url_arbo_parent($type);
52        $sel_parent = ', 0 as parent';
53        $order_by_parent = "";
54        if ($champ_parent) {
55                // si un parent est fourni est qu'il est polyhierarchique, on recherche une URL pour ce parent
56                if ($id_parent
57                        and reset($champ_parent) == 'id_rubrique'
58                        and sql_getfetsel('id_parent','spip_rubriques_liens','id_parent='.intval($id_parent).' AND objet='.sql_quote($type).' AND id_objet='.intval($id_objet))) {
59                        $sel_parent = ", ".intval($id_parent) . ' as parent';
60                        // trouver l'url qui matche le parent en premier
61                        $order_by_parent = "U.id_parent=".intval($id_parent)." DESC, ";
62                }
63                // sinon on prend son parent direct fourni par $champ_parent
64                else {
65                        $sel_parent = ", O." . reset($champ_parent) . ' as parent';
66                        // trouver l'url qui matche le parent en premier
67                        $order_by_parent = "O." . reset($champ_parent) . "=U.id_parent DESC, ";
68                }
69        }
70        //  Recuperer une URL propre correspondant a l'objet.
71        $row = sql_fetsel("U.url, U.date, U.id_parent, U.perma, $champ_titre $sel_parent",
72                "$table AS O LEFT JOIN spip_urls AS U ON (U.type='$type' AND U.id_objet=O.$col_id)",
73                "O.$col_id=$id_objet",
74                '',
75                $order_by_parent . 'U.perma DESC, U.date DESC', 1);
76        if ($row) {
77                $urls[$type][$id_objet] = $row;
78                $urls[$type][$id_objet]['type_parent'] = $champ_parent ? end($champ_parent) : '';
79        }
80
81        return isset($urls[$type][$id_objet]) ? $urls[$type][$id_objet] : null;
82}
83
84/**
85 * Retrouver/Calculer l'ensemble des segments d'url d'un objet
86 *
87 * @param string $type
88 * @param int $id_objet
89 * @param int $id_rubrique_parent
90 * @return string
91 */
92function declarer_url_arbopoly($type, $id_objet, $id_rubrique_parent=null) {
93        static $urls = array();
94        // utiliser un cache memoire pour aller plus vite
95        if (!is_null($C = Cache())) {
96                return $C;
97        }
98
99        // Se contenter de cette URL si elle existe ;
100        // sauf si on invoque par "voir en ligne" avec droit de modifier l'url
101
102        // l'autorisation est verifiee apres avoir calcule la nouvelle url propre
103        // car si elle ne change pas, cela ne sert a rien de verifier les autorisations
104        // qui requetent en base
105        $modifier_url = (defined('_VAR_URLS') and _VAR_URLS);
106
107        if (!isset($urls[$type][$id_objet][$id_rubrique_parent]) or $modifier_url) {
108                $r = renseigner_url_arbopoly($type, $id_objet, $id_rubrique_parent);
109                // Quand $type ne reference pas une table
110                if ($r === false) {
111                        return false;
112                }
113
114                if (!is_null($r)) {
115                        $urls[$type][$id_objet][$id_rubrique_parent] = $r;
116                }
117        }
118
119        if (!isset($urls[$type][$id_objet][$id_rubrique_parent])) {
120                return "";
121        } # objet inexistant
122
123        $u = &$urls[$type][$id_objet][$id_rubrique_parent];
124        $url_propre = $u['url'];
125
126        // si on a trouve l'url
127        // et que le parent est bon
128        // et (permanente ou pas de demande de modif)
129        if (!is_null($url_propre)
130                and $u['id_parent'] == $u['parent']
131                and ($u['perma'] or !$modifier_url)
132        ) {
133                return declarer_url_arbo_rec($url_propre, $type,
134                        isset($u['parent']) ? $u['parent'] : 0,
135                        isset($u['type_parent']) ? $u['type_parent'] : null);
136        }
137
138        // Si URL inconnue ou maj forcee sur une url non permanente, recreer une url
139        $url = $url_propre;
140        if (is_null($url_propre) or ($modifier_url and !$u['perma'])) {
141                $url = pipeline('arbo_creer_chaine_url',
142                        array(
143                                'data' => $url_propre,  // le vieux url_propre
144                                'objet' => array_merge($u, array('type' => $type, 'id_objet' => $id_objet)
145                                )
146                        )
147                );
148
149                // Eviter de tamponner les URLs a l'ancienne (cas d'un article
150                // intitule "auteur2")
151                include_spip('inc/urls');
152                $objets = urls_liste_objets();
153                if (preg_match(',^(' . $objets . ')[0-9]*$,', $url, $r)
154                        and $r[1] != $type
155                ) {
156                        $url = $url . _url_arbo_sep_id . $id_objet;
157                }
158        }
159
160
161        // Pas de changement d'url ni de parent
162        if ($url == $url_propre
163                and $u['id_parent'] == $u['parent']
164        ) {
165                return declarer_url_arbo_rec($url_propre, $type, $u['parent'], $u['type_parent']);
166        }
167
168        // verifier l'autorisation, maintenant qu'on est sur qu'on va agir
169        if ($modifier_url) {
170                include_spip('inc/autoriser');
171                $modifier_url = autoriser('modifierurl', $type, $id_objet);
172        }
173        // Verifier si l'utilisateur veut effectivement changer l'URL
174        if ($modifier_url
175                and CONFIRMER_MODIFIER_URL
176                and $url_propre
177                // on essaye pas de regenerer une url en -xxx (suffixe id anti collision)
178                and $url != preg_replace('/' . preg_quote(_url_propres_sep_id, '/') . '.*/', '', $url_propre)
179        ) {
180                $confirmer = true;
181        } else {
182                $confirmer = false;
183        }
184
185        if ($confirmer and !_request('ok')) {
186                die("vous changez d'url ? $url_propre -&gt; $url");
187        }
188
189        $set = array(
190                'url' => $url,
191                'type' => $type,
192                'id_objet' => $id_objet,
193                'id_parent' => $u['parent'],
194                'perma' => intval($u['perma'])
195        );
196        include_spip('action/editer_url');
197        if (url_insert($set, $confirmer, _url_arbo_sep_id)) {
198                $u['url'] = $set['url'];
199                $u['id_parent'] = $set['id_parent'];
200        } else {
201                // l'insertion a echoue,
202                //serveur out ? retourner au mieux
203                $u['url'] = $url_propre;
204        }
205
206        return declarer_url_arbo_rec($u['url'], $type, $u['parent'], $u['type_parent']);
207}
208
209/**
210 * Generer l'url arbo complete constituee des segments + debut + fin
211 *
212 * @param string $type
213 * @param int $id
214 * @param string $args
215 * @param string $ancre
216 * @return string
217 */
218function _generer_url_arbopoly($type, $id, $args = '', $ancre = '') {
219
220        if ($generer_url_externe = charger_fonction("generer_url_$type", 'urls', true)) {
221                $url = $generer_url_externe($id, $args, $ancre);
222                if (null != $url) {
223                        return $url;
224                }
225        }
226
227        // Mode propre
228        $propre = declarer_url_arbopoly($type, $id);
229        parse_str($args, $contexte);
230        $champ_parent = url_arbo_parent($type);
231        if ($champ_parent
232          and $champ_parent = reset($champ_parent)
233          and isset($contexte[$champ_parent]) and $contexte[$champ_parent]) {
234                $propre_contexte = declarer_url_arbopoly($type, $id, $contexte[$champ_parent]);
235                if ($propre_contexte !== $propre) {
236                        $propre = $propre_contexte;
237                        unset($contexte[$champ_parent]);
238                        $args = http_build_query($contexte);
239                }
240        }
241
242
243        if ($propre === false) {
244                return '';
245        } // objet inconnu. raccourci ?
246
247        if ($propre) {
248                $url = _debut_urls_arbo
249                        . rtrim($propre, '/')
250                        . url_arbo_terminaison($type);
251        } else {
252
253                // objet connu mais sans possibilite d'URL lisible, revenir au defaut
254                include_spip('base/connect_sql');
255                $id_type = id_table_objet($type);
256                $url = get_spip_script('./') . "?" . _SPIP_PAGE . "=$type&$id_type=$id";
257        }
258
259        // Ajouter les args
260        if ($args) {
261                $url .= ((strpos($url, '?') === false) ? '?' : '&') . $args;
262        }
263
264        // Ajouter l'ancre
265        if ($ancre) {
266                $url .= "#$ancre";
267        }
268
269        return _DIR_RACINE . $url;
270}
271
272
273/**
274 * API : retourner l'url d'un objet si i est numerique
275 * ou decoder cette url si c'est une chaine
276 * array([contexte],[type],[url_redirect],[fond]) : url decodee
277 *
278 * http://code.spip.net/@urls_arbo_dist
279 *
280 * @param string|int $i
281 * @param string $entite
282 * @param string|array $args
283 * @param string $ancre
284 * @return array|string
285 */
286function urls_arbopoly_dist($i, $entite, $args = '', $ancre = '') {
287        if (is_numeric($i)) {
288                return _generer_url_arbopoly($entite, $i, $args, $ancre);
289        }
290
291        // traiter les injections du type domaine.org/spip.php/cestnimportequoi/ou/encore/plus/rubrique23
292        if ($GLOBALS['profondeur_url'] > 0 and $entite == 'sommaire') {
293                $entite = 'type_urls';
294        }
295
296        // recuperer les &debut_xx;
297        if (is_array($args)) {
298                $contexte = $args;
299        } else {
300                parse_str($args, $contexte);
301        }
302
303        $url = $i;
304        $id_objet = $type = 0;
305        $url_redirect = null;
306
307        // Migration depuis anciennes URLs ?
308        // traiter les injections domain.tld/spip.php/n/importe/quoi/rubrique23
309        if ($GLOBALS['profondeur_url'] <= 0
310                and $_SERVER['REQUEST_METHOD'] != 'POST'
311        ) {
312                include_spip('inc/urls');
313                $r = nettoyer_url_page($i, $contexte);
314                if ($r) {
315                        list($contexte, $type, , , $suite) = $r;
316                        $_id = id_table_objet($type);
317                        $id_objet = $contexte[$_id];
318                        $url_propre = generer_url_entite($id_objet, $type);
319                        if (strlen($url_propre)
320                                and !strstr($url, $url_propre)
321                        ) {
322                                list(, $hash) = array_pad(explode('#', $url_propre), 2, null);
323                                $args = array();
324                                foreach (array_filter(explode('&', $suite)) as $fragment) {
325                                        if ($fragment != "$_id=$id_objet") {
326                                                $args[] = $fragment;
327                                        }
328                                }
329                                $url_redirect = generer_url_entite($id_objet, $type, join('&', array_filter($args)), $hash);
330
331                                return array($contexte, $type, $url_redirect, $type);
332                        }
333                }
334        }
335        /* Fin compatibilite anciennes urls */
336
337        // Chercher les valeurs d'environnement qui indiquent l'url-propre
338        $url_propre = preg_replace(',[?].*,', '', $url);
339
340        // Mode Query-String ?
341        if (!$url_propre
342                and preg_match(',[?]([^=/?&]+)(&.*)?$,', $url, $r)
343        ) {
344                $url_propre = $r[1];
345        }
346
347        if (!$url_propre
348                or $url_propre == _DIR_RESTREINT_ABS
349                or $url_propre == _SPIP_SCRIPT
350        ) {
351                return;
352        } // qu'est-ce qu'il veut ???
353
354
355        include_spip('base/abstract_sql'); // chercher dans la table des URLS
356
357        // Revenir en utf-8 si encodage type %D8%A7 (farsi)
358        $url_propre = rawurldecode($url_propre);
359
360        // Compatibilite avec .htm/.html et autres terminaisons
361        $t = array_diff(array_unique(array_merge(array('.html', '.htm', '/'), url_arbo_terminaison(''))), array(''));
362        if (count($t)) {
363                $url_propre = preg_replace('{('
364                        . implode('|', array_map('preg_quote', $t)) . ')$}i', '', $url_propre);
365        }
366
367        if (strlen($url_propre) and !preg_match(',^[^/]*[.]php,', $url_propre)) {
368                $parents_vus = array();
369
370                // recuperer tous les objets de larbo xxx/article/yyy/mot/zzzz
371                // on parcourt les segments de gauche a droite
372                // pour pouvoir contextualiser un segment par son parent
373                $url_arbo = explode('/', $url_propre);
374                $url_arbo_new = array();
375                $dernier_parent_vu = false;
376                $objet_segments = 0;
377                while (count($url_arbo) > 0) {
378                        $type = null;
379                        if (count($url_arbo) > 1) {
380                                $type = array_shift($url_arbo);
381                        }
382                        $url_segment = array_shift($url_arbo);
383                        // Rechercher le segment de candidat
384                        // si on est dans un contexte de parent, donne par le segment precedent,
385                        // prefixer le segment recherche avec ce contexte
386                        $cp = "0"; // par defaut : parent racine, id=0
387                        if ($dernier_parent_vu) {
388                                $cp = $parents_vus[$dernier_parent_vu];
389                        }
390                        // d'abord recherche avec prefixe parent, en une requete car aucun risque de colision
391                        $row = sql_fetsel('id_objet, type, url',
392                                'spip_urls',
393                                is_null($type)
394                                        ? "url=" . sql_quote($url_segment, '', 'TEXT')
395                                        : sql_in('url', array("$type/$url_segment", $type)),
396                                '',
397                                // en priorite celui qui a le bon parent et les deux segments
398                                // puis le bon parent avec 1 segment
399                                // puis un parent indefini (le 0 de preference) et les deux segments
400                                // puis un parent indefini (le 0 de preference) et 1 segment
401                                (intval($cp) ? "id_parent=" . intval($cp) . " DESC, " : "id_parent>=0 DESC, ") . "segments DESC, id_parent"
402                        );
403                        if ($row) {
404                                if (!is_null($type) and $row['url'] == $type) {
405                                        array_unshift($url_arbo, $url_segment);
406                                        $url_segment = $type;
407                                        $type = null;
408                                }
409                                $type = $row['type'];
410                                $col_id = id_table_objet($type);
411
412                                // le plus a droite l'emporte pour des objets presents plusieurs fois dans l'url (ie rubrique)
413                                $contexte[$col_id] = $row['id_objet'];
414
415                                $type_parent = '';
416                                if ($p = url_arbo_parent($type)) {
417                                        $type_parent = end($p);
418                                }
419                                // l'entite la plus a droite l'emporte, si le type de son parent a ete vu
420                                // sinon c'est un segment contextuel supplementaire a ignorer
421                                // ex : rub1/article/art1/mot1 : il faut ignorer le mot1, la vrai url est celle de l'article
422                                if (!$entite
423                                        or $dernier_parent_vu == $type_parent
424                                ) {
425                                        if ($objet_segments == 0) {
426                                                $entite = $type;
427                                        }
428                                } // sinon on change d'objet concerne
429                                else {
430                                        $objet_segments++;
431                                }
432
433                                $url_arbo_new[$objet_segments]['id_objet'] = $row['id_objet'];
434                                $url_arbo_new[$objet_segments]['objet'] = $type;
435                                $url_arbo_new[$objet_segments]['segment'][] = $row['url'];
436
437                                // on note le dernier parent vu de chaque type
438                                $parents_vus[$dernier_parent_vu = $type] = $row['id_objet'];
439                        } else {
440                                // un segment est inconnu
441                                if ($entite == '' or $entite == 'type_urls') {
442                                        // on genere une 404 comme il faut si on ne sait pas ou aller
443                                        return array(array(), '404');
444                                }
445                                // ici on a bien reconnu un segment en amont, mais le segment en cours est inconnu
446                                // on pourrait renvoyer sur le dernier segment identifie
447                                // mais de fait l'url entiere est inconnu : 404 aussi
448                                // mais conserver le contexte qui peut contenir un fond d'ou venait peut etre $entite (reecriture urls)
449                                return array($contexte, '404');
450                        }
451                }
452
453                if (count($url_arbo_new)) {
454                        $caller = debug_backtrace();
455                        $caller = $caller[1]['function'];
456                        // si on est appele par un autre module d'url c'est du decodage d'une ancienne URL
457                        // ne pas regenerer des segments arbo, mais rediriger vers la nouvelle URL
458                        // dans la nouvelle forme
459                        if (strncmp($caller, "urls_", 5) == 0 and $caller !== "urls_decoder_url") {
460                                // en absolue, car assembler ne gere pas ce cas particulier
461                                include_spip('inc/filtres_mini');
462                                $col_id = id_table_objet($entite);
463                                $url_new = generer_url_entite($contexte[$col_id], $entite);
464                                // securite contre redirection infinie
465                                if ($url_new !== $url_propre
466                                        and rtrim($url_new, "/") !== rtrim($url_propre, "/")
467                                ) {
468                                        $url_redirect = url_absolue($url_new);
469                                }
470                        } else {
471                                foreach ($url_arbo_new as $k => $o) {
472                                        if ($s = declarer_url_arbopoly($o['objet'], $o['id_objet'], (isset($parents_vus['rubrique'])?$parents_vus['rubrique']:null))) {
473                                                $url_arbo_new[$k] = $s;
474                                        } else {
475                                                $url_arbo_new[$k] = implode('/', $o['segment']);
476                                        }
477                                }
478                                $url_arbo_new = ltrim(implode('/', $url_arbo_new), '/');
479
480                                if ($url_arbo_new !== $url_propre) {
481                                        $url_redirect = $url_arbo_new;
482                                        // en absolue, car assembler ne gere pas ce cas particulier
483                                        include_spip('inc/filtres_mini');
484                                        $url_redirect = url_absolue($url_redirect);
485                                }
486                        }
487                }
488
489                // gerer le retour depuis des urls propres
490                if (($entite == '' or $entite == 'type_urls')
491                        and $GLOBALS['profondeur_url'] <= 0
492                ) {
493                        $urls_anciennes = charger_fonction('propres', 'urls');
494
495                        return $urls_anciennes($url_propre, $entite, $contexte);
496                }
497        }
498        if ($entite == '' or $entite == 'type_urls' /* compat .htaccess 2.0 */) {
499                if ($type) {
500                        $entite = objet_type($type);
501                } else {
502                        // Si ca ressemble a une URL d'objet, ce n'est pas la home
503                        // et on provoque un 404
504                        if (preg_match(',^[^\.]+(\.html)?$,', $url)) {
505                                $entite = '404';
506                                $contexte['erreur'] = ''; // qu'afficher ici ?  l'url n'existe pas... on ne sait plus dire de quel type d'objet il s'agit
507                        }
508                }
509        }
510        define('_SET_HTML_BASE', 1);
511
512        return array($contexte, $entite, $url_redirect, null);
513}
Note: See TracBrowser for help on using the repository browser.