squellete2
[aidenligne_francais_universite.git] / ecrire / urls / propres.php
CommitLineData
c495c100
P
1<?php
2
3/***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
5 * *
6 * Copyright (c) 2001-2007 *
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
14if (!function_exists('generer_url_article')) { // si la place n'est pas prise
15
16/*
17
18- Comment utiliser ce jeu d'URLs ?
19
20Recopiez le fichier "htaccess.txt" du repertoire de base du site SPIP sous
21le sous le nom ".htaccess" (attention a ne pas ecraser d'autres reglages
22que vous pourriez avoir mis dans ce fichier) ; si votre site est en
23"sous-repertoire", vous devrez aussi editer la ligne "RewriteBase" ce fichier.
24Les URLs definies seront alors redirigees vers les fichiers de SPIP.
25
26Definissez ensuite dans ecrire/mes_options.php :
27 < ?php $type_urls = 'propres'; ? >
28SPIP calculera alors ses liens sous la forme "Mon-titre-d-article".
29
30Variante 'propres2' :
31 < ?php $type_urls = 'propres2'; ? >
32ajoutera '.html' aux adresses generees : "Mon-titre-d-article.html"
33
34Variante 'qs' (experimentale) : ce systeme fonctionne en "Query-String",
35c'est-a-dire sans utilisation de .htaccess ; les adresses sont de la forme
36"/?Mon-titre-d-article"
37 < ?php $type_urls = 'qs'; ? >
38
39*/
40
41define ('_terminaison_urls_propres', '');
42define ('_debut_urls_propres', '');
43
44// http://doc.spip.org/@_generer_url_propre
45function _generer_url_propre($type, $id_objet) {
46 $table = "spip_".table_objet($type);
47 $col_id = id_table_objet($type);
48
49 // Auteurs : on prend le nom
50 if ($type == 'auteur')
51 $champ_titre = 'nom AS titre';
52 else if ($type == 'site' OR $type=='syndic')
53 $champ_titre = 'nom_site AS titre';
54 else
55 $champ_titre = 'titre';
56
57 // Mots-cles : pas de champ statut
58 if ($type == 'mot')
59 $statut = "'publie' as statut";
60 else
61 $statut = 'statut';
62
63 // D'abord, essayer de recuperer l'URL existante si possible
64 $result = spip_query("SELECT url_propre, $statut, $champ_titre FROM $table WHERE $col_id=$id_objet");
65 if (!($row = spip_fetch_array($result))) return ""; # objet inexistant
66
67 // Si l'on n'est pas dans spip_redirect.php3 sur un objet non publie
68 // ou en preview (astuce pour corriger un url-propre) + admin connecte
69 // Ne pas recalculer l'url-propre,
70 // sauf si :
71 // 1) il n'existe pas, ou
72 // 2) l'objet n'est pas 'publie' et on est admin connecte, ou
73 // 3) on le demande explicitement (preview) et on est admin connecte
74 $modif_url_propre = false;
75 if (function_exists('action_redirect_dist') AND
76 ($GLOBALS['preview'] OR ($row['statut'] <> 'publie'))
77 AND $GLOBALS['auteur_session']['statut'] == '0minirezo')
78 $modif_url_propre = true;
79
80 if ($row['url_propre'] AND !$modif_url_propre)
81 return $row['url_propre'];
82
83 // Sinon, creer l'URL
84 include_spip('inc/filtres');
85 include_spip('inc/charsets');
86 $url = translitteration(corriger_caracteres(
87 supprimer_tags(supprimer_numero(extraire_multi($row['titre'])))
88 ));
89
90 $url = @preg_replace(',[[:punct:][:space:]]+,u', ' ', $url);
91 // S'il reste trop de caracteres non latins, ou trop peu
92 // de caracteres latins, utiliser l'id a la place
93 if (preg_match(",([^a-zA-Z0-9 ].*){5},", $url, $r)
94 OR strlen($url)<3) {
95 $url = $type.$id_objet;
96 }
97 else {
98 $mots = preg_split(",[^a-zA-Z0-9]+,", $url);
99 $url = '';
100 foreach ($mots as $mot) {
101 if (!$mot) continue;
102 $url2 = $url.'-'.$mot;
103 if (strlen($url2) > 35) {
104 break;
105 }
106 $url = $url2;
107 }
108 $url = substr($url, 1);
109 //echo "$url<br>";
110 if (strlen($url) < 2) $url = $type.$id_objet;
111 }
112
113 // Verifier les eventuels doublons et mettre a jour
114 $lock = "url $type $id_objet";
115 spip_get_lock($lock, 10);
116
117 $n = spip_num_rows(spip_query("SELECT $col_id FROM $table WHERE url_propre=" . _q($url) . " AND $col_id != $id_objet LIMIT 1"));
118 if ($n > 0) {
119 $url = $url.','.$id_objet;
120 }
121
122 // Eviter de tamponner les URLs a l'ancienne (cas d'un article
123 // intitule "auteur2")
124 if ($type == 'article'
125 AND preg_match(',^(article|breve|rubrique|mot|auteur)[0-9]+$,', $url))
126 $url = $url.','.$id_objet;
127
128 // Mettre a jour dans la base
129 spip_query("UPDATE $table SET url_propre=" . _q($url) . " WHERE $col_id=$id_objet");
130
131 spip_release_lock($lock);
132
133 spip_log("Creation de l'url propre '$url' pour $col_id=$id_objet");
134
135 return $url;
136}
137
138// http://doc.spip.org/@generer_url_article
139function generer_url_article($id_article) {
140 $url = _generer_url_propre('article', $id_article);
141 if ($url)
142 return _debut_urls_propres . $url . _terminaison_urls_propres;
143 else
144 return get_spip_script('./')."?page=article&id_article=$id_article";
145}
146
147// http://doc.spip.org/@generer_url_rubrique
148function generer_url_rubrique($id_rubrique) {
149 $url = _generer_url_propre('rubrique', $id_rubrique);
150 if ($url)
151 return _debut_urls_propres . '-'.$url.'-'._terminaison_urls_propres;
152 else
153 return get_spip_script('./')."?page=rubrique&id_rubrique=$id_rubrique";
154}
155
156// http://doc.spip.org/@generer_url_breve
157function generer_url_breve($id_breve) {
158 $url = _generer_url_propre('breve', $id_breve);
159 if ($url)
160 return _debut_urls_propres . '+'.$url.'+'._terminaison_urls_propres;
161 else
162 return get_spip_script('./')."?page=breve&id_breve=$id_breve";
163}
164
165// http://doc.spip.org/@generer_url_forum
166function generer_url_forum($id_forum, $show_thread=false) {
167 include_spip('inc/forum');
168 return generer_url_forum_dist($id_forum, $show_thread);
169}
170
171// http://doc.spip.org/@generer_url_mot
172function generer_url_mot($id_mot) {
173 $url = _generer_url_propre('mot', $id_mot);
174 if ($url)
175 return _debut_urls_propres . '+-'.$url.'-+'._terminaison_urls_propres;
176 else
177 return get_spip_script('./')."?page=mot&id_mot=$id_mot";
178}
179
180// http://doc.spip.org/@generer_url_auteur
181function generer_url_auteur($id_auteur) {
182 $url = _generer_url_propre('auteur', $id_auteur);
183 if ($url)
184 return _debut_urls_propres . '_'.$url.'_'._terminaison_urls_propres;
185 else
186 return get_spip_script('./')."?page=auteur&id_auteur=$id_auteur";
187}
188
189// http://doc.spip.org/@generer_url_site
190function generer_url_site($id_syndic) {
191 $url = _generer_url_propre('site', $id_syndic);
192 if ($url)
193 return _debut_urls_propres . '@'.$url.'@'._terminaison_urls_propres;
194 else
195 return get_spip_script('./')."?page=site&id_syndic=$id_syndic";
196}
197
198// http://doc.spip.org/@generer_url_document
199function generer_url_document($id_document) {
200 if (($id_document = intval($id_document)) <= 0)
201 return '';
202 if (($GLOBALS['meta']["creer_htaccess"]) == 'oui')
203 return generer_url_action('autoriser',"arg=$id_document", true);
204 $row = @spip_fetch_array(spip_query("SELECT fichier FROM spip_documents WHERE id_document = $id_document"));
205 if ($row) return ($row['fichier']);
206 return '';
207}
208
209// http://doc.spip.org/@recuperer_parametres_url
210function recuperer_parametres_url(&$fond, $url) {
211 global $contexte;
212 $id_objet = 0;
213
214 // Migration depuis anciennes URLs ?
215 if ($_SERVER['REQUEST_METHOD'] != 'POST') {
216 if (preg_match(
217 ',(^|/)(article|breve|rubrique|mot|auteur|site)(\.php3?|[0-9]+\.html)'
218 .'([?&].*)?$,', $url, $regs)
219 ) {
220 $type = $regs[3];
221 $id_table_objet = id_table_objet($type);
222 $id_objet = intval($GLOBALS[$id_table_objet]);
223 }
224
225 /* Compatibilite urls-page */
226 else if (preg_match(
227 ',[?/&](article|breve|rubrique|mot|auteur|site)[=]?([0-9]+),',
228 $url, $regs)) {
229 $type = $regs[1];
230 $id_objet = $regs[2];
231 }
232 }
233 if ($id_objet) {
234 $func = "generer_url_$type";
235 $url_propre = $func($id_objet);
236 if (strlen($url_propre)
237 AND !strstr($url,$url_propre)) {
238 include_spip('inc/headers');
239 http_status(301);
240 // recuperer les arguments supplementaires (&debut_xxx=...)
241 $reste = preg_replace('/^&/','?',
242 preg_replace("/[?&]$id_table_objet=$id_objet/",'',$regs[5]));
243 $reste .= preg_replace('/&/','?',
244 preg_replace('/[?&]'.$type.'[=]?'.$id_objet.'/','',
245 substr($url, strpos($url,'?'))));
246 redirige_par_entete("$url_propre$reste");
247 }
248 }
249 /* Fin compatibilite anciennes urls */
250
251
252 // Chercher les valeurs d'environnement qui indiquent l'url-propre
253 if (isset($_SERVER['REDIRECT_url_propre']))
254 $url_propre = $_SERVER['REDIRECT_url_propre'];
255 elseif (isset($GLOBALS['HTTP_ENV_VARS']['url_propre']))
256 $url_propre = $GLOBALS['HTTP_ENV_VARS']['url_propre'];
257 else {
258 $url = substr($url, strrpos($url, '/') + 1);
259 $url_propre = preg_replace(',[?].*,', '', $url);
260 }
261 // Mode Query-String ?
262 $adapter_le_fond = false;
263 if (!$url_propre
264 AND preg_match(',([?])([^=/?&]+)(&.*)?$,', $GLOBALS['REQUEST_URI'], $r)) {
265 $url_propre = $r[2];
266 $adapter_le_fond = true;
267 }
268 if (!$url_propre) return;
269
270 // Compatilibite avec propres2
271 $url_propre = preg_replace(',\.html$,i', '', $url_propre);
272
273 // Detecter les differents types d'objets demandes
274 if (preg_match(',^\+-(.*?)-?\+?$,', $url_propre, $regs)) {
275 $type = 'mot';
276 $url_propre = $regs[1];
277 }
278 else if (preg_match(',^-(.*?)-?$,', $url_propre, $regs)) {
279 $type = 'rubrique';
280 $url_propre = $regs[1];
281 }
282 else if (preg_match(',^\+(.*?)\+?$,', $url_propre, $regs)) {
283 $type = 'breve';
284 $url_propre = $regs[1];
285 }
286 else if (preg_match(',^_(.*?)_?$,', $url_propre, $regs)) {
287 $type = 'auteur';
288 $url_propre = $regs[1];
289 }
290 else if (preg_match(',^@(.*?)@?$,', $url_propre, $regs)) {
291 $type = 'syndic';
292 $url_propre = $regs[1];
293 }
294 else {
295 $type = 'article';
296 preg_match(',^(.*)$,', $url_propre, $regs);
297 $url_propre = $regs[1];
298 }
299
300 $table = "spip_".table_objet($type);
301 $col_id = id_table_objet($type);
302 $result = spip_query("SELECT $col_id FROM $table WHERE url_propre=" . _q($url_propre));
303
304 if ($row = spip_fetch_array($result)) {
305 $contexte[$col_id] = $row[$col_id];
306 }
307
308 // En mode Query-String, on fixe ici le $fond utilise
309 if ($adapter_le_fond) {
310 $fond = $type;
311 if ($type == 'syndic') $fond = 'site';
312 }
313
314 return;
315}
316 }
317
318?>