cc34621d112dabcf255dc258c6b58c8daa14e685
3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2013 *
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;
15 include_spip('base/abstract_sql');
18 // Production de la balise A+href a partir des raccourcis [xxx->url] etc.
19 // Note : complique car c'est ici qu'on applique typo(),
20 // et en plus on veut pouvoir les passer en pipeline
23 function inc_lien_dist($lien, $texte='', $class='', $title='', $hlang='', $rel='', $connect='', $env=array()) {
25 if (!$u) $u=url_de_base();
28 // Si une langue est demandee sur un raccourci d'article, chercher
30 // - [{en}->art2] => traduction anglaise de l'article 2, sinon art 2
31 // - [{}->art2] => traduction en langue courante de l'art 2, sinon art 2
32 // s'applique a tout objet traduit
34 AND $match = typer_raccourci($lien)) {
35 @list
($type,,$id,,$args,,$ancre) = $match;
36 $trouver_table = charger_fonction('trouver_table', 'base');
37 $desc = $trouver_table(table_objet($type, $connect),$connect);
39 AND $id_table_objet = $desc['key']['PRIMARY KEY']) {
40 $table_objet_sql = $desc['table'];
41 if ($row=sql_fetsel('*', $table_objet_sql, "$id_table_objet=".intval($id))
42 AND isset($row['id_trad'])
43 AND isset($row['lang'])
44 AND $id_dest = sql_getfetsel($id_table_objet, $table_objet_sql,"id_trad=".intval($row['id_trad'])." AND lang=" . sql_quote($hlang))
45 AND objet_test_si_publie($type,$id_dest)
47 $lien = "$type$id_dest";
55 $mode = ($texte AND $class) ?
'url' : 'tout';
56 $lien = calculer_url($lien, $texte, $mode, $connect);
57 if ($mode === 'tout') {
58 $texte = $lien['titre'];
59 if (!$class AND isset($lien['class'])) $class = $lien['class'];
60 $lang = isset($lien['lang']) ?
$lien['lang'] : '';
61 $mime = isset($lien['mime']) ?
" type='".$lien['mime']."'" : "";
66 if (strncmp($lien,"#",1) == 0) # ancres pures (internes a la page)
67 $class = 'spip_ancre';
68 elseif (strncasecmp($lien,'mailto:',7)==0) # pseudo URL de mail
70 elseif (strncmp($texte,'<html>',6)==0) # cf traiter_lien_explicite
71 $class = "spip_url spip_out";
72 elseif (!$class) $class = "spip_out"; # si pas spip_in|spip_glossaire
74 // Si l'objet n'est pas de la langue courante, on ajoute hreflang
75 if (!$hlang AND $lang!==$GLOBALS['spip_lang'])
78 $lang = ($hlang ?
" hreflang='$hlang'" : '');
81 $title = ' title="'.attribut_html($title).'"';
83 $title = ''; // $title peut etre 'false'
84 // rel=external pour les liens externes
85 if ((strncmp($lien,'http://',7)==0 OR strncmp($lien,'https://',8)==0)
86 AND strncmp("$lien/", $u ,strlen($u))!=0)
87 $rel = trim("$rel external");
88 if ($rel) $rel = " rel='$rel'";
90 // si pas de modele dans le texte du lien, on peut juste passer typo sur le texte, c'est plus rapide
91 // les rares cas de lien qui encapsule un modele passe en dessous, c'est plus lent
92 if (traiter_modeles($texte, false, '', $connect, null, $env)==$texte){
93 $texte = typo($texte, true, $connect, $env);
94 $lien = "<a href=\"".str_replace('"', '"', $lien)."\" class='$class'$lang$title$rel".(isset($mime)?
$mime:'').">$texte</a>";
97 # ceci s'execute heureusement avant les tableaux et leur "|".
98 # Attention, le texte initial est deja echappe mais pas forcement
99 # celui retourne par calculer_url.
100 # Penser au cas [<imgXX|right>->URL], qui exige typo('<a>...</a>')
101 $lien = "<a href=\"".str_replace('"', '"', $lien)."\" class='$class'$lang$title$rel$mime>$texte</a>";
102 $res = typo($lien, true, $connect, $env);
103 // dans ce cas, echapons le resultat du modele pour que propre etc ne viennent pas pouicher le html
104 $res = echappe_html("<html>$res</html>");
108 // Regexp des raccourcis, aussi utilisee pour la fusion de sauvegarde Spip
109 // Laisser passer des paires de crochets pour la balise multi
110 // mais refuser plus d'imbrications ou de mauvaises imbrications
111 // sinon les crochets ne peuvent plus servir qu'a ce type de raccourci
112 define('_RACCOURCI_LIEN', "/\[([^][]*?([[][^]>-]*[]][^][]*)*)->(>?)([^]]*)\]/msS");
114 // http://doc.spip.org/@expanser_liens
115 function expanser_liens($t, $connect='', $env=array())
118 $t = pipeline('pre_liens', $t);
120 expanser_un_lien($connect,'init', $env);
122 if (strpos($t, '->') !== false)
123 $t = preg_replace_callback (_RACCOURCI_LIEN
, 'expanser_un_lien',$t);
125 // on passe a traiter_modeles la liste des liens reperes pour lui permettre
126 // de remettre le texte d'origine dans les parametres du modele
127 $t = traiter_modeles($t, false, false, $connect, expanser_un_lien('','sources'), $env);
129 $t = corriger_typo($t);
131 $t = expanser_un_lien($t,'reinsert');
137 function expanser_un_lien($reg, $quoi='echappe', $env=null){
138 static $pile = array();
145 static $contexte = array();
149 if (!$lien) $lien = charger_fonction('lien', 'inc');
152 array_push($pile,array($inserts,$sources,$regs,$connect,$k));
153 $inserts = $sources = $regs = array();
154 $connect = $reg; // stocker le $connect pour les appels a inc_lien_dist
159 $inserts[$k] = '@@SPIP_ECHAPPE_LIEN_' . $k . '@@';
160 $sources[$k] = $reg[0];
163 list($titre, $bulle, $hlang) = traiter_raccourci_lien_atts($reg[1]);
165 // la mise en lien automatique est passee par la a tort !
166 // corrigeons pour eviter d'avoir un <a...> dans un href...
167 if (strncmp($r,'<a',2)==0){
168 $href = extraire_attribut($r, 'href');
169 // remplacons dans la source qui peut etre reinjectee dans les arguments
171 $sources[$k] = str_replace($r,$href,$sources[$k]);
172 // et prenons le href comme la vraie url a linker
175 $regs[$k] = $lien($r, $titre, '', $bulle, $hlang, '', $connect, $contexte);
176 return $inserts[$k++
];
180 $reg = str_replace($inserts, $regs, $reg);
181 list($inserts,$sources,$regs,$connect,$k) = array_pop($pile);
185 return array($inserts, $sources);
190 // Meme analyse mais pour eliminer les liens
191 // et ne laisser que leur titre, a expliciter si ce n'est fait
192 // http://doc.spip.org/@nettoyer_raccourcis_typo
193 function nettoyer_raccourcis_typo($texte, $connect='')
195 $texte = pipeline('nettoyer_raccourcis_typo',$texte);
197 if (preg_match_all(_RACCOURCI_LIEN
, $texte, $regs, PREG_SET_ORDER
))
198 include_spip('inc/texte');
199 foreach ($regs as $reg) {
200 list ($titre,,)= traiter_raccourci_lien_atts($reg[1]);
202 $match = typer_raccourci($reg[count($reg)-1]);
203 @list
($type,,$id,,,,) = $match;
205 $url = generer_url_entite($id,$type,'','',true);
206 if (is_array($url)) list($type, $id) = $url;
207 $titre = traiter_raccourci_titre($id, $type, $connect);
209 $titre = $titre ?
$titre['titre'] : $match[0];
211 $titre = corriger_typo(supprimer_tags($titre));
212 $texte = str_replace($reg[0], $titre, $texte);
215 // supprimer les notes
216 $texte = preg_replace(",[[][[]([^]]|[]][^]])*[]][]],UimsS","",$texte);
218 // supprimer les codes typos
219 $texte = str_replace(array('}','{'), '', $texte);
221 // supprimer les tableaux
222 $texte = preg_replace(",(^|\r)\|.*\|\r,s", "\r", $texte);
229 // Repere dans la partie texte d'un raccourci [texte->...]
230 // la langue et la bulle eventuelles : [texte|title{lang}->...]
231 // accepte un niveau de paire de crochets dans le texte :
232 // [texte[]|title{lang}->...]
234 // [texte[|title{lang}->...]
235 // pour ne pas confondre avec un autre raccourci
236 define('_RACCOURCI_ATTRIBUTS', '/^((?:[^[]*?(?:\[[^]]*\])?)*?)([|]([^<>]*?))?([{]([a-z_]*)[}])?$/');
238 // http://doc.spip.org/@traiter_raccourci_lien_atts
239 function traiter_raccourci_lien_atts($texte) {
241 $bulle = $hlang = false;
242 // title et hreflang donnes par le raccourci ?
243 if (strpbrk($texte, "|{") !== false AND
244 preg_match(_RACCOURCI_ATTRIBUTS
, $texte, $m)) {
252 // si c'est un code de langue connu, on met un hreflang
253 if (traduire_nom_langue($m[5]) <> $m[5]) {
256 $hlang = test_espace_prive() ?
257 $GLOBALS['lang_objet'] : $GLOBALS['spip_lang'];
258 // sinon c'est un italique
263 // S'il n'y a pas de hreflang sous la forme {}, ce qui suit le |
264 // est peut-etre une langue
265 } else if (preg_match('/^[a-z_]+$/', $m[3])) {
266 // si c'est un code de langue connu, on met un hreflang
267 // mais on laisse le title (c'est arbitraire tout ca...)
268 if (traduire_nom_langue($m[3]) <> $m[3]) {
276 return array(trim($texte), $bulle, $hlang);
279 define('_EXTRAIRE_DOMAINE', '/^(?:(?:[^\W_]((?:[^\W_]|-){0,61}[^\W_,])?\.)+[a-z]{2,6}|localhost)\b/Si');
281 define('_RACCOURCI_CHAPO', '/^(\W*)(\W*)(\w*\d+([?#].*)?)$/');
283 * Fonction pour les champs virtuels de redirection qui peut etre:
284 * 1. un raccourci Spip habituel (premier If) [texte->TYPEnnn]
285 * 2. un ultra raccourci TYPEnnn voire nnn (article) (deuxieme If)
288 * renvoie l'url reelle de redirection si le $url=true,
289 * l'url brute contenue dans le chapo sinon
291 * http://doc.spip.org/@chapo_redirige
293 * @param string $virtuel
297 function virtuel_redirige($virtuel, $url=false){
298 if (!strlen($virtuel)) return '';
299 if (!preg_match(_RACCOURCI_LIEN
, $virtuel, $m))
300 if (!preg_match(_RACCOURCI_CHAPO
, $virtuel, $m))
303 return !$url ?
$m[3] : traiter_lien_implicite($m[3]);
307 // Cherche un lien du type [->raccourci 123]
308 // associe a une fonction generer_url_raccourci() definie explicitement
309 // ou implicitement par le jeu de type_urls courant.
311 // Valeur retournee selon le parametre $pour:
312 // 'tout' : tableau d'index url,class,titre,lang (vise <a href="U" class='C' hreflang='L'>T</a>)
313 // 'titre': seulement T ci-dessus (i.e. le TITRE ci-dessus ou dans table SQL)
314 // 'url': seulement U (i.e. generer_url_RACCOURCI)
316 // http://doc.spip.org/@calculer_url
317 function calculer_url ($ref, $texte='', $pour='url', $connect='', $echappe_typo = true) {
318 $r = traiter_lien_implicite($ref, $texte, $pour, $connect, $echappe_typo);
319 $r = ($r ?
$r : traiter_lien_explicite($ref, $texte, $pour, $connect, $echappe_typo));
323 define('_EXTRAIRE_LIEN', ",^\s*(http:?/?/?|mailto:?)\s*$,iS");
325 // http://doc.spip.org/@traiter_lien_explicite
326 function traiter_lien_explicite ($ref, $texte='', $pour='url', $connect='', $echappe_typo = true)
328 if (preg_match(_EXTRAIRE_LIEN
, $ref))
329 return ($pour != 'tout') ?
'' : array('','','','');
331 $lien = entites_html(trim($ref));
335 $texte = str_replace('"', '', $lien);
337 // evite l'affichage de trop longues urls.
339 $lien_court = charger_fonction('lien_court', 'inc');
340 $texte = $lien_court($texte);
342 $texte = "<html>".quote_amp($texte)."</html>";
346 // petites corrections d'URL
347 if (preg_match('/^www\.[^@]+$/S',$lien))
348 $lien = "http://".$lien;
349 else if (strpos($lien, "@") && email_valide($lien)) {
350 if (!$texte) $texte = $lien;
351 $lien = "mailto:".$lien;
354 if ($pour == 'url') return $lien;
356 if ($pour == 'titre') return $texte;
358 return array('url' => $lien, 'titre' => $texte);
361 function liens_implicite_glose_dist($texte,$id,$type,$args,$ancre,$connect=''){
362 if (function_exists($f = 'glossaire_' . $ancre))
363 $url = $f($texte, $id);
365 $url = glossaire_std($texte);
370 * Transformer un lien raccourci art23 en son URL
371 * Par defaut la fonction produit une url prive si on est dans le prive
372 * ou publique si on est dans le public.
373 * La globale lien_implicite_cible_public permet de forcer un cas ou l'autre :
374 * $GLOBALS['lien_implicite_cible_public'] = true;
375 * => tous les liens raccourcis pointent vers le public
376 * $GLOBALS['lien_implicite_cible_public'] = false;
377 * => tous les liens raccourcis pointent vers le prive
378 * unset($GLOBALS['lien_implicite_cible_public']);
379 * => retablit le comportement automatique
381 * http://doc.spip.org/@traiter_lien_implicite
384 * @param string $texte
385 * @param string $pour
386 * @param string $connect
387 * @return array|bool|string
389 function traiter_lien_implicite ($ref, $texte='', $pour='url', $connect='')
391 $cible = ($connect ?
$connect : (isset($GLOBALS['lien_implicite_cible_public'])?
$GLOBALS['lien_implicite_cible_public']:null));
392 if (!($match = typer_raccourci($ref))) return false;
393 @list
($type,,$id,,$args,,$ancre) = $match;
394 # attention dans le cas des sites le lien doit pointer non pas sur
395 # la page locale du site, mais directement sur le site lui-meme
397 if ($f = charger_fonction("implicite_$type","liens",true))
398 $url = $f($texte,$id,$type,$args,$ancre,$connect);
400 $url = generer_url_entite($id,$type,$args,$ancre,$cible);
401 if (!$url) return false;
402 if (is_array($url)) {
403 @list
($type,$id) = $url;
404 $url = generer_url_entite($id,$type,$args,$ancre,$cible);
406 if ($pour === 'url') return $url;
407 $r = traiter_raccourci_titre($id, $type, $connect);
408 if ($r) $r['class'] = ($type == 'site')?
'spip_out':'spip_in';
409 if ($texte = trim($texte)) $r['titre'] = $texte;
410 if (!@$r['titre']) $r['titre'] = _T($type) . " $id";
411 if ($pour=='titre') return $r['titre'];
414 // dans le cas d'un lien vers un doc, ajouter le type='mime/type'
415 if ($type == 'document'
416 AND $mime = sql_getfetsel('mime_type', 'spip_types_documents',
417 "extension IN (SELECT extension FROM spip_documents where id_document =".intval($id).")",
418 '','','','',$connect)
425 // analyse des raccourcis issus de [TITRE->RACCOURCInnn] et connexes
427 define('_RACCOURCI_URL', '/^\s*(\w*?)\s*(\d+)(\?(.*?))?(#([^\s]*))?\s*$/S');
429 // http://doc.spip.org/@typer_raccourci
430 function typer_raccourci ($lien) {
431 if (!preg_match(_RACCOURCI_URL
, $lien, $match)) return array();
433 // valeur par defaut et alias historiques
434 if (!$f) $f = 'article';
435 else if ($f == 'art') $f = 'article';
436 else if ($f == 'br') $f = 'breve';
437 else if ($f == 'rub') $f = 'rubrique';
438 else if ($f == 'aut') $f = 'auteur';
439 else if ($f == 'doc' OR $f == 'im' OR $f == 'img' OR $f == 'image' OR $f == 'emb')
441 else if (preg_match('/^br..?ve$/S', $f)) $f = 'breve'; # accents :(
446 // Retourne le champ textuel associe a une cle primaire, et sa langue
447 function traiter_raccourci_titre($id, $type, $connect=NULL)
449 $trouver_table = charger_fonction('trouver_table', 'base');
450 $desc = $trouver_table(table_objet($type));
451 if (!($desc AND $s = $desc['titre'])) return array();
452 $_id = $desc['key']['PRIMARY KEY'];
453 $r = sql_fetsel($s, $desc['table'], "$_id=$id", '','','','',$connect);
454 if (!$r) return array();
455 $r['titre'] = supprimer_numero($r['titre']);
456 if (!$r['titre']) $r['titre'] = $r['surnom'];
457 if (!isset($r['lang'])) $r['lang'] = '';
461 // traite les modeles (dans la fonction typo), en remplacant
462 // le raccourci <modeleN|parametres> par la page calculee a
463 // partir du squelette modeles/modele.html
464 // Le nom du modele doit faire au moins trois caracteres (evite <h2>)
465 // Si $doublons==true, on repere les documents sans calculer les modeles
466 // mais on renvoie les params (pour l'indexation par le moteur de recherche)
467 // http://doc.spip.org/@traiter_modeles
468 define('_PREG_MODELE',
469 '(<([a-z_-]{3,})' # <modele
470 .'\s*([0-9]*)\s*' # id
471 .'([|](?:<[^<>]*>|[^>])*?)?' # |arguments (y compris des tags <...>)
472 .'\s*/?'.'>)' # fin du modele >
475 define('_RACCOURCI_MODELE',
477 .'\s*(<\/a>)?' # eventuel </a>
480 define('_RACCOURCI_MODELE_DEBUT', '@^' . _RACCOURCI_MODELE
.'@isS');
482 // http://doc.spip.org/@traiter_modeles
483 function traiter_modeles($texte, $doublons=false, $echap='', $connect='', $liens = null, $env = array()) {
484 // preserver la compatibilite : true = recherche des documents
485 if ($doublons===true)
486 $doublons = array('documents'=>array('doc','emb','img'));
487 // detecter les modeles (rapide)
488 if (strpos($texte,"<")!==false AND
489 preg_match_all('/<[a-z_-]{3,}\s*[0-9|]+/iS', $texte, $matches, PREG_SET_ORDER
)) {
490 include_spip('public/assembler');
491 foreach ($matches as $match) {
492 // Recuperer l'appel complet (y compris un eventuel lien)
494 $a = strpos($texte,$match[0]);
495 preg_match(_RACCOURCI_MODELE_DEBUT
,
496 substr($texte, $a), $regs);
497 while(count($regs) < 6) $regs[] = ""; // s'assurer qu'il y a toujours un 5e arg, eventuellement vide
498 list(,$mod, $type, $id, $params, $fin) = $regs;
500 preg_match('/<a\s[^<>]*>\s*$/i',
501 substr($texte, 0, $a), $r)) {
503 'href' => extraire_attribut($r[0],'href'),
504 'class' => extraire_attribut($r[0],'class'),
505 'mime' => extraire_attribut($r[0],'type')
509 $cherche = $n +
strlen($regs[0]);
512 $cherche = strlen($mod);
515 // calculer le modele
518 $texte .= preg_replace(',[|][^|=]*,s',' ',$params);
521 // si un tableau de liens a ete passe, reinjecter le contenu d'origine
522 // dans les parametres, plutot que les liens echappes
523 if (!is_null($liens))
524 $params = str_replace($liens[0], $liens[1], $params);
525 $modele = inclure_modele($type, $id, $params, $lien, $connect, $env);
527 // si l'objet demande a une url,
528 // creer un petit encadre vers elle
529 if ($modele === false) {
530 $modele = substr($texte,$a,$cherche);
531 if (!is_null($liens))
532 $modele = str_replace($liens[0], $liens[1], $modele);
533 $contexte = array_merge($env,array('id'=>$id,'type'=>$type,'modele'=>$modele));
535 # un eventuel guillemet (") sera reechappe par #ENV
536 $contexte['lien'] = str_replace(""",'"', $lien['href']);
537 $contexte['lien_class'] = $lien['class'];
538 $contexte['lien_mime'] = $lien['mime'];
540 $modele = recuperer_fond("modeles/dist", $contexte, array(), $connect);
542 // le remplacer dans le texte
543 if ($modele !== false) {
544 $modele = protege_js_modeles($modele);
545 $rempl = code_echappement($modele, $echap);
546 $texte = substr($texte, 0, $a)
548 . substr($texte, $a+
$cherche);
552 // hack pour tout l'espace prive
553 if (((!_DIR_RESTREINT
) OR ($doublons)) AND ($id)){
554 foreach($doublons?
$doublons:array('documents'=>array('doc','emb','img')) as $quoi=>$modeles)
555 if (in_array($type,$modeles))
556 $GLOBALS["doublons_{$quoi}_inclus"][] = $id;
565 // Raccourcis ancre [#ancre<-]
568 define('_RACCOURCI_ANCRE', "/\[#?([^][]*)<-\]/S");
570 // http://doc.spip.org/@traiter_raccourci_ancre
571 function traiter_raccourci_ancre($letexte)
573 if (preg_match_all(_RACCOURCI_ANCRE
, $letexte, $m, PREG_SET_ORDER
))
574 foreach ($m as $regs)
575 $letexte = str_replace($regs[0],
576 '<a name="'.entites_html($regs[1]).'"></a>', $letexte);
581 // Raccourcis automatiques [?SPIP] vers un glossaire
582 // Wikipedia par defaut, avec ses contraintes techniques
583 // cf. http://fr.wikipedia.org/wiki/Wikip%C3%A9dia:Conventions_sur_les_titres
585 define('_RACCOURCI_GLOSSAIRE', "/\[\?+\s*([^][<>]+)\]/S");
586 define('_RACCOURCI_GLOSES', '/^([^|#{]*\w[^|#{]*)([^#]*)(#([^|{}]*))?(.*)$/S');
588 // http://doc.spip.org/@traiter_raccourci_glossaire
589 function traiter_raccourci_glossaire($texte)
591 if (!preg_match_all(_RACCOURCI_GLOSSAIRE
,
592 $texte, $matches, PREG_SET_ORDER
))
595 include_spip('inc/charsets');
596 $lien = charger_fonction('lien', 'inc');
598 foreach ($matches as $regs) {
599 // Eviter les cas particulier genre "[?!?]"
600 // et isoler le lexeme a gloser de ses accessoires
601 // (#:url du glossaire, | bulle d'aide, {} hreflang)
602 // Transformation en pseudo-raccourci pour passer dans inc_lien
603 if (preg_match(_RACCOURCI_GLOSES
, $regs[1], $r)) {
604 preg_match('/^(.*?)(\d*)$/', $r[4], $m);
606 $gloss = $m[1] ?
('#' . $m[1]) : '';
607 $t = $r[1] . $r[2] . $r[5];
608 list($t, $bulle, $hlang) = traiter_raccourci_lien_atts($t);
609 if ($bulle===false) $bulle = $m[1];
610 $t = unicode2charset(charset2unicode($t), 'utf-8');
611 $ref = $lien("glose$_n$gloss", $t, 'spip_glossaire', $bulle, $hlang);
612 $texte = str_replace($regs[0], $ref, $texte);
618 // http://doc.spip.org/@glossaire_std
619 function glossaire_std($terme)
621 global $url_glossaire_externe;
624 if ($pcre === NULL) {
625 $pcre = isset($GLOBALS['meta']['pcre_u'])
626 ?
$GLOBALS['meta']['pcre_u']
628 if (strpos($url_glossaire_externe, "%s") === false)
629 $url_glossaire_externe .= '%s';
632 $glosateur = str_replace("@lang@",
633 $GLOBALS['spip_lang'],
634 $GLOBALS['url_glossaire_externe']);
636 $terme = rawurlencode(preg_replace(',\s+,'.$pcre, '_', $terme));
638 return str_replace("%s", $terme, $glosateur);