/ecrire/inc/filtres.php
PHP | 1580 lines | 1132 code | 164 blank | 284 comment | 216 complexity | 58fee47c76d8b1aaf9c35647c80172a5 MD5 | raw file
- <?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;
- include_spip('inc/charsets');
- include_spip('inc/filtres_mini');
- include_spip('base/objets');
- include_spip('public/parametrer'); // charger les fichiers fonctions
- /**
- * Charger un filtre depuis le php :
- * - on inclue tous les fichiers fonctions des plugins et du skel
- * - on appelle chercher_filtre
- *
- * @param string $fonc
- * @param string $default
- * @return string
- */
- function charger_filtre($fonc, $default='filtre_identite_dist') {
- include_spip('public/parametrer'); // inclure les fichiers fonctions
- return chercher_filtre($fonc, $default);
- }
- function filtre_identite_dist($texte){return $texte;}
- /**
- * http://doc.spip.org/@chercher_filtre
- *
- * @param string $fonc
- * @param null $default
- * @return string
- */
- function chercher_filtre($fonc, $default=NULL) {
- if (!$fonc) return $default;
- // Cas des types mime, sans confondre avec les appels de fonction de classe
- // Foo::Bar
- // qui peuvent etre avec un namespace : space\Foo::Bar
- if (preg_match(',^[\w]+/,',$fonc)){
- $nom = preg_replace(',\W,','_', $fonc);
- $f = chercher_filtre($nom);
- // cas du sous-type MIME sans filtre associe, passer au type:
- // si filtre_text_plain pas defini, passe a filtre_text
- if (!$f AND $nom!==$fonc)
- $f = chercher_filtre(preg_replace(',\W.*$,','', $fonc));
- return $f;
- }
- foreach (
- array('filtre_'.$fonc, 'filtre_'.$fonc.'_dist', $fonc) as $f){
- if (is_string($g = $GLOBALS['spip_matrice'][$f]))
- find_in_path($g,'', true);
- if (function_exists($f)
- OR (preg_match("/^(\w*)::(\w*)$/", $f, $regs)
- AND is_callable(array($regs[1], $regs[2]))
- )) {
- return $f;
- }
- }
- return $default;
- }
- // http://doc.spip.org/@appliquer_filtre
- function appliquer_filtre($arg, $filtre) {
- $f = chercher_filtre($filtre);
- if (!$f)
- return ''; // ou faut-il retourner $arg inchange == filtre_identite?
- $args = func_get_args();
- array_shift($args); // enlever $arg
- array_shift($args); // enlever $filtre
- array_unshift($args, $arg); // remettre $arg
- return call_user_func_array($f,$args);
- }
- // http://doc.spip.org/@spip_version
- function spip_version() {
- $version = $GLOBALS['spip_version_affichee'];
- if ($svn_revision = version_svn_courante(_DIR_RACINE))
- $version .= ($svn_revision<0 ? ' SVN':'').' ['.abs($svn_revision).']';
- return $version;
- }
- //
- // Mention de la revision SVN courante de l'espace restreint standard
- // (numero non garanti pour l'espace public et en cas de mutualisation)
- // on est negatif si on est sur .svn, et positif si on utilise svn.revision
- // http://doc.spip.org/@version_svn_courante
- function version_svn_courante($dir) {
- if (!$dir) $dir = '.';
- // version installee par paquet ZIP
- if (lire_fichier($dir.'/svn.revision', $c)
- AND preg_match(',Revision: (\d+),', $c, $d))
- return intval($d[1]);
- // version installee par SVN
- if (lire_fichier($dir . '/.svn/entries', $c)
- AND (
- (preg_match_all(
- ',committed-rev="([0-9]+)",', $c, $r1, PREG_PATTERN_ORDER)
- AND $v = max($r1[1])
- )
- OR
- (preg_match(',^\d.*dir[\r\n]+(\d+),ms', $c, $r1) # svn >= 1.4
- AND $v = $r1[1]
- )))
- return -$v;
- // Bug ou paquet fait main
- return 0;
- }
- // La matrice est necessaire pour ne filtrer _que_ des fonctions definies dans filtres_images
- // et laisser passer les fonctions personnelles baptisees image_...
- $GLOBALS['spip_matrice']['image_graver'] = true;//'inc/filtres_images_mini.php';
- $GLOBALS['spip_matrice']['image_select'] = true;//'inc/filtres_images_mini.php';
- $GLOBALS['spip_matrice']['image_reduire'] = true;//'inc/filtres_images_mini.php';
- $GLOBALS['spip_matrice']['image_reduire_par'] = true;//'inc/filtres_images_mini.php';
- $GLOBALS['spip_matrice']['image_passe_partout'] = true;//'inc/filtres_images_mini.php';
- $GLOBALS['spip_matrice']['couleur_html_to_hex'] = 'inc/filtres_images_mini.php';
- $GLOBALS['spip_matrice']['couleur_foncer'] = 'inc/filtres_images_mini.php';
- $GLOBALS['spip_matrice']['couleur_eclaircir'] = 'inc/filtres_images_mini.php';
- // ou pour inclure un script au moment ou l'on cherche le filtre
- $GLOBALS['spip_matrice']['filtre_image_dist'] = 'inc/filtres_mime.php';
- $GLOBALS['spip_matrice']['filtre_audio_dist'] = 'inc/filtres_mime.php';
- $GLOBALS['spip_matrice']['filtre_video_dist'] = 'inc/filtres_mime.php';
- $GLOBALS['spip_matrice']['filtre_application_dist'] = 'inc/filtres_mime.php';
- $GLOBALS['spip_matrice']['filtre_message_dist'] = 'inc/filtres_mime.php';
- $GLOBALS['spip_matrice']['filtre_multipart_dist'] = 'inc/filtres_mime.php';
- $GLOBALS['spip_matrice']['filtre_text_dist'] = 'inc/filtres_mime.php';
- $GLOBALS['spip_matrice']['filtre_text_csv_dist'] = 'inc/filtres_mime.php';
- $GLOBALS['spip_matrice']['filtre_text_html_dist'] = 'inc/filtres_mime.php';
- $GLOBALS['spip_matrice']['filtre_audio_x_pn_realaudio'] = 'inc/filtres_mime.php';
- // charge les fonctions graphiques et applique celle demandee
- // http://doc.spip.org/@filtrer
- function filtrer($filtre) {
- if (is_string($f = $GLOBALS['spip_matrice'][$filtre])){
- find_in_path($f,'', true);
- $GLOBALS['spip_matrice'][$filtre] = true;
- }
- $tous = func_get_args();
- if (substr($filtre,0,6)=='image_' && $GLOBALS['spip_matrice'][$filtre])
- return image_filtrer($tous);
- elseif($f = chercher_filtre($filtre)) {
- array_shift($tous);
- return call_user_func_array($f, $tous);
- }
- else {
- // le filtre n'existe pas, on provoque une erreur
- $msg = array('zbug_erreur_filtre', array('filtre'=>texte_script($filtre)));
- erreur_squelette($msg);
- return '';
- }
- }
- // fonction generique d'entree des filtres images
- // accepte en entree un texte complet, un img-log (produit par #LOGO_XX),
- // un tag <img ...> complet, ou encore un nom de fichier *local* (passer
- // le filtre |copie_locale si on veut l'appliquer a un document)
- // applique le filtre demande a chacune des occurrences
- // http://doc.spip.org/@image_filtrer
- function image_filtrer($args){
- $filtre = array_shift($args); # enlever $filtre
- $texte = array_shift($args);
- if (!strlen($texte)) return;
- find_in_path('filtres_images_mini.php','inc/', true);
- statut_effacer_images_temporaires(true); // activer la suppression des images temporaires car le compilo finit la chaine par un image_graver
- // Cas du nom de fichier local
- if ( strpos(substr($texte,strlen(_DIR_RACINE)),'..')===FALSE
- AND !preg_match(',^/|[<>]|\s,S', $texte)
- AND (
- file_exists(preg_replace(',[?].*$,','',$texte))
- OR preg_match(';^(\w{3,7}://);', $texte)
- )) {
- array_unshift($args,"<img src='$texte' />");
- $res = call_user_func_array($filtre, $args);
- statut_effacer_images_temporaires(false); // desactiver pour les appels hors compilo
- return $res;
- }
- // Cas general : trier toutes les images, avec eventuellement leur <span>
- if (preg_match_all(
- ',(<([a-z]+) [^<>]*spip_documents[^<>]*>)?\s*(<img\s.*>),UimsS',
- $texte, $tags, PREG_SET_ORDER)) {
- foreach ($tags as $tag) {
- $class = extraire_attribut($tag[3],'class');
- if (!$class || (strpos($class,'no_image_filtrer')===FALSE)){
- array_unshift($args,$tag[3]);
- if ($reduit = call_user_func_array($filtre, $args)) {
- // En cas de span spip_documents, modifier le style=...width:
- if($tag[1]){
- $w = extraire_attribut($reduit, 'width');
- if (!$w AND preg_match(",width:\s*(\d+)px,S",extraire_attribut($reduit,'style'),$regs))
- $w = $regs[1];
- if ($w AND ($style = extraire_attribut($tag[1], 'style'))){
- $style = preg_replace(",width:\s*\d+px,S", "width:${w}px", $style);
- $replace = inserer_attribut($tag[1], 'style', $style);
- $texte = str_replace($tag[1], $replace, $texte);
- }
- }
- // traiter aussi un eventuel mouseover
- if ($mouseover = extraire_attribut($reduit,'onmouseover')){
- if (preg_match(",this[.]src=['\"]([^'\"]+)['\"],ims", $mouseover, $match)){
- $srcover = $match[1];
- array_shift($args);
- array_unshift($args,"<img src='".$match[1]."' />");
- $srcover_filter = call_user_func_array($filtre, $args);
- $srcover_filter = extraire_attribut($srcover_filter,'src');
- $reduit = str_replace($srcover,$srcover_filter,$reduit);
- }
- }
- $texte = str_replace($tag[3], $reduit, $texte);
- }
- array_shift($args);
- }
- }
- }
- statut_effacer_images_temporaires(false); // desactiver pour les appels hors compilo
- return $texte;
- }
- //
- // Retourner taille d'une image
- // pour les filtres |largeur et |hauteur
- //
- // http://doc.spip.org/@taille_image
- function taille_image($img) {
- static $largeur_img =array(), $hauteur_img= array();
- $srcWidth = 0;
- $srcHeight = 0;
- $logo = extraire_attribut($img,'src');
- if (!$logo) $logo = $img;
- else {
- $srcWidth = extraire_attribut($img,'width');
- $srcHeight = extraire_attribut($img,'height');
- }
- // ne jamais operer directement sur une image distante pour des raisons de perfo
- // la copie locale a toutes les chances d'etre la ou de resservir
- if (preg_match(';^(\w{3,7}://);', $logo)){
- include_spip('inc/distant');
- $fichier = copie_locale($logo);
- $logo = $fichier ? _DIR_RACINE . $fichier : $logo;
- }
- if (($p=strpos($logo,'?'))!==FALSE)
- $logo=substr($logo,0,$p);
- $srcsize = false;
- if (isset($largeur_img[$logo]))
- $srcWidth = $largeur_img[$logo];
- if (isset($hauteur_img[$logo]))
- $srcHeight = $hauteur_img[$logo];
- if (!$srcWidth OR !$srcHeight){
- if ($srcsize = @getimagesize($logo)){
- if (!$srcWidth) $largeur_img[$logo] = $srcWidth = $srcsize[0];
- if (!$srcHeight) $hauteur_img[$logo] = $srcHeight = $srcsize[1];
- }
- // $logo peut etre une reference a une image temporaire dont a n'a que le log .src
- // on s'y refere, l'image sera reconstruite en temps utile si necessaire
- elseif(@file_exists($f = "$logo.src")
- AND lire_fichier($f,$valeurs)
- AND $valeurs=unserialize($valeurs)) {
- if (!$srcWidth) $largeur_img[$logo] = $srcWidth = $valeurs["largeur_dest"];
- if (!$srcHeight) $hauteur_img[$logo] = $srcHeight = $valeurs["hauteur_dest"];
- }
- }
- return array($srcHeight, $srcWidth);
- }
- // http://doc.spip.org/@largeur
- function largeur($img) {
- if (!$img) return;
- list ($h,$l) = taille_image($img);
- return $l;
- }
- // http://doc.spip.org/@hauteur
- function hauteur($img) {
- if (!$img) return;
- list ($h,$l) = taille_image($img);
- return $h;
- }
- // Echappement des entites HTML avec correction des entites "brutes"
- // (generees par les butineurs lorsqu'on rentre des caracteres n'appartenant
- // pas au charset de la page [iso-8859-1 par defaut])
- //
- // Attention on limite cette correction aux caracteres "hauts" (en fait > 99
- // pour aller plus vite que le > 127 qui serait logique), de maniere a
- // preserver des echappements de caracteres "bas" (par exemple [ ou ")
- // et au cas particulier de & qui devient &amp; dans les url
- // http://doc.spip.org/@corriger_entites_html
- function corriger_entites_html($texte) {
- if (strpos($texte,'&') === false) return $texte;
- return preg_replace(',&(#[0-9][0-9][0-9]+;|amp;),iS', '&\1', $texte);
- }
- // idem mais corriger aussi les &eacute; en é
- // http://doc.spip.org/@corriger_toutes_entites_html
- function corriger_toutes_entites_html($texte) {
- if (strpos($texte,'&') === false) return $texte;
- return preg_replace(',&(#?[a-z0-9]+;),iS', '&\1', $texte);
- }
- // http://doc.spip.org/@proteger_amp
- function proteger_amp($texte){
- return str_replace('&','&',$texte);
- }
- // http://doc.spip.org/@entites_html
- function entites_html($texte, $tout=false) {
- if (!is_string($texte) OR !$texte
- OR strpbrk($texte, "&\"'<>")==false
- ) return $texte;
- include_spip('inc/texte');
- $texte = htmlspecialchars(echappe_retour(echappe_html($texte,'',true),'','proteger_amp'),ENT_QUOTES);
- if ($tout)
- return corriger_toutes_entites_html($texte);
- else
- return corriger_entites_html($texte);
- }
- // Transformer les é dans le charset local
- // http://doc.spip.org/@filtrer_entites
- function filtrer_entites($texte) {
- if (strpos($texte,'&') === false) return $texte;
- // filtrer
- $texte = html2unicode($texte);
- // remettre le tout dans le charset cible
- return unicode2charset($texte);
- }
- // caracteres de controle - http://www.w3.org/TR/REC-xml/#charsets
- // http://doc.spip.org/@supprimer_caracteres_illegaux
- function supprimer_caracteres_illegaux($texte) {
- static $from = "\x0\x1\x2\x3\x4\x5\x6\x7\x8\xB\xC\xE\xF\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1A\x1B\x1C\x1D\x1E\x1F";
- static $to = null;
-
- if (is_array($texte)) {
- return array_map('corriger_caracteres_windows', $texte);
- }
-
- if (!$to) $to = str_repeat('-', strlen($from));
- return strtr($texte, $from, $to);
- }
- // Supprimer caracteres windows et les caracteres de controle ILLEGAUX
- // http://doc.spip.org/@corriger_caracteres
- function corriger_caracteres ($texte) {
- $texte = corriger_caracteres_windows($texte);
- $texte = supprimer_caracteres_illegaux($texte);
- return $texte;
- }
- // Encode du HTML pour transmission XML
- // http://doc.spip.org/@texte_backend
- function texte_backend($texte) {
- static $apostrophe = array("’", "'"); # n'allouer qu'une fois
- // si on a des liens ou des images, les passer en absolu
- $texte = liens_absolus($texte);
- // echapper les tags > <
- $texte = preg_replace(',&(gt|lt);,S', '&\1;', $texte);
- // importer les é
- $texte = filtrer_entites($texte);
- // " -> " et tout ce genre de choses
- $u = $GLOBALS['meta']['pcre_u'];
- $texte = str_replace(" ", " ", $texte);
- $texte = preg_replace('/\s{2,}/S'.$u, " ", $texte);
- $texte = entites_html($texte);
- // verifier le charset
- $texte = charset2unicode($texte);
- // Caracteres problematiques en iso-latin 1
- if ($GLOBALS['meta']['charset'] == 'iso-8859-1') {
- $texte = str_replace(chr(156), 'œ', $texte);
- $texte = str_replace(chr(140), 'Œ', $texte);
- $texte = str_replace(chr(159), 'Ÿ', $texte);
- }
- // l'apostrophe curly pose probleme a certains lecteure de RSS
- // et le caractere apostrophe alourdit les squelettes avec PHP
- // ==> on les remplace par l'entite HTML
- return str_replace($apostrophe, "'", $texte);
- }
- // Comme ci-dessus, mais avec addslashes final pour squelettes avec PHP (rss)
- function texte_backendq($texte) {
- return addslashes(texte_backend($texte));
- }
- // Enleve le numero des titres numerotes ("1. Titre" -> "Titre")
- // http://doc.spip.org/@supprimer_numero
- function supprimer_numero($texte) {
- return preg_replace(
- ",^[[:space:]]*([0-9]+)([.)]|".chr(194).'?'.chr(176).")[[:space:]]+,S",
- "", $texte);
- }
- // et la fonction inverse
- // http://doc.spip.org/@recuperer_numero
- function recuperer_numero($texte) {
- if (preg_match(
- ",^[[:space:]]*([0-9]+)([.)]|".chr(194).'?'.chr(176).")[[:space:]]+,S",
- $texte, $regs))
- return intval($regs[1]);
- else
- return '';
- }
- // Suppression basique et brutale de tous les <...>
- // http://doc.spip.org/@supprimer_tags
- function supprimer_tags($texte, $rempl = "") {
- $texte = preg_replace(",<[^>]*>,US", $rempl, $texte);
- // ne pas oublier un < final non ferme
- // mais qui peut aussi etre un simple signe plus petit que
- $texte = str_replace('<', ' ', $texte);
- return $texte;
- }
- // Convertit les <...> en la version lisible en HTML
- // http://doc.spip.org/@echapper_tags
- function echapper_tags($texte, $rempl = "") {
- $texte = preg_replace("/<([^>]*)>/", "<\\1>", $texte);
- return $texte;
- }
- // Convertit un texte HTML en texte brut
- // http://doc.spip.org/@textebrut
- function textebrut($texte) {
- $u = $GLOBALS['meta']['pcre_u'];
- $texte = preg_replace('/\s+/S'.$u, " ", $texte);
- $texte = preg_replace("/<(p|br)( [^>]*)?".">/iS", "\n\n", $texte);
- $texte = preg_replace("/^\n+/", "", $texte);
- $texte = preg_replace("/\n+$/", "", $texte);
- $texte = preg_replace("/\n +/", "\n", $texte);
- $texte = supprimer_tags($texte);
- $texte = preg_replace("/( | )+/S", " ", $texte);
- // nettoyer l'apostrophe curly qui pose probleme a certains rss-readers, lecteurs de mail...
- $texte = str_replace("’","'",$texte);
- return $texte;
- }
- // Remplace les liens SPIP en liens ouvrant dans une nouvelle fenetre (target=blank)
- // http://doc.spip.org/@liens_ouvrants
- function liens_ouvrants ($texte) {
- return preg_replace(",<a ([^>]*https?://[^>]*class=[\"']spip_(out|url)\b[^>]+)>,",
- "<a \\1 target=\"_blank\">", $texte);
- }
- // Transformer les sauts de paragraphe en simples passages a la ligne
- // http://doc.spip.org/@PtoBR
- function PtoBR($texte){
- $u = $GLOBALS['meta']['pcre_u'];
- $texte = preg_replace("@</p>@iS", "\n", $texte);
- $texte = preg_replace("@<p\b.*>@UiS", "<br />", $texte);
- $texte = preg_replace("@^\s*<br />@S".$u, "", $texte);
- return $texte;
- }
- /**
- * lignes_longues assure qu'un texte ne vas pas deborder d'un bloc
- * par la faute d'un mot trop long (souvent des URLs)
- * Ne devrait plus etre utilise et fait directement en CSS par un style
- * word-wrap:break-word;
- * cf http://www.alsacreations.com/tuto/lire/1038-gerer-debordement-contenu-css.html
- *
- * Pour assurer la compatibilite du filtre, on encapsule le contenu par
- * un div ou span portant ce style inline.
- *
- * http://doc.spip.org/@lignes_longues
- *
- * @param string $texte
- * @return string
- */
- function lignes_longues($texte) {
- if (!strlen(trim($texte))) return $texte;
- include_spip('inc/texte');
- $tag = preg_match(',</?('._BALISES_BLOCS.')[>[:space:]],iS', $texte) ?
- 'div' : 'span';
- return "<$tag style='word-wrap:break-word;'>$texte</$tag>";
- }
- // Majuscules y compris accents, en HTML
- // http://doc.spip.org/@majuscules
- function majuscules($texte) {
- if (!strlen($texte)) return '';
- // Cas du turc
- if ($GLOBALS['spip_lang'] == 'tr') {
- # remplacer hors des tags et des entites
- if (preg_match_all(',<[^<>]+>|&[^;]+;,S', $texte, $regs, PREG_SET_ORDER))
- foreach ($regs as $n => $match)
- $texte = str_replace($match[0], "@@SPIP_TURC$n@@", $texte);
- $texte = str_replace('i', 'İ', $texte);
- if ($regs)
- foreach ($regs as $n => $match)
- $texte = str_replace("@@SPIP_TURC$n@@", $match[0], $texte);
- }
- // Cas general
- return "<span style='text-transform: uppercase;'>$texte</span>";
- }
- // "127.4 ko" ou "3.1 Mo"
- // http://doc.spip.org/@taille_en_octets
- function taille_en_octets ($taille) {
- if ($taille < 1024) {$taille = _T('taille_octets', array('taille' => $taille));}
- else if ($taille < 1024*1024) {
- $taille = _T('taille_ko', array('taille' => ((floor($taille / 102.4))/10)));
- } else {
- $taille = _T('taille_mo', array('taille' => ((floor(($taille / 1024) / 102.4))/10)));
- }
- return $taille;
- }
- // Rend une chaine utilisable sans dommage comme attribut HTML
- // http://doc.spip.org/@attribut_html
- function attribut_html($texte,$textebrut = true) {
- $u = $GLOBALS['meta']['pcre_u'];
- if ($textebrut)
- $texte = preg_replace(array(",\n,",",\s(?=\s),msS".$u),array(" ",""),textebrut($texte));
- $texte = texte_backend($texte);
- $texte = str_replace(array("'",'"'),array(''', '"'), $texte);
-
- return preg_replace(array("/&(amp;|#38;)/","/&(?![A-Za-z]{0,4}\w{2,3};|#[0-9]{2,5};)/"),array("&","&") , $texte);
- }
- // Vider les url nulles comme 'http://' ou 'mailto:'
- // et leur appliquer un htmlspecialchars() + gerer les &
- // http://doc.spip.org/@vider_url
- function vider_url($url, $entites = true) {
- # un message pour abs_url
- $GLOBALS['mode_abs_url'] = 'url';
- $url = trim($url);
- if (preg_match(",^(http:?/?/?|mailto:?)$,iS", $url))
- return '';
- if ($entites) $url = entites_html($url);
- return $url;
- }
- // Extraire une date de n'importe quel champ (a completer...)
- // http://doc.spip.org/@extraire_date
- function extraire_date($texte) {
- // format = 2001-08
- if (preg_match(",([1-2][0-9]{3})[^0-9]*(1[0-2]|0?[1-9]),",$texte,$regs))
- return $regs[1]."-".sprintf("%02d", $regs[2])."-01";
- }
- // Maquiller une adresse e-mail
- // http://doc.spip.org/@antispam
- function antispam($texte) {
- include_spip('inc/acces');
- $masque = creer_pass_aleatoire(3);
- return preg_replace("/@/", " $masque ", $texte);
- }
- // http://doc.spip.org/@securiser_acces
- function securiser_acces($id_auteur, $cle, $dir, $op='', $args='')
- {
- include_spip('inc/acces');
- if ($op) $dir .= " $op $args";
- return verifier_low_sec($id_auteur, $cle, $dir);
- }
- // sinon{texte, rien} : affiche "rien" si la chaine est vide,
- // affiche la chaine si non vide ;
- // attention c'est compile directement dans inc/references
- // http://doc.spip.org/@sinon
- function sinon ($texte, $sinon='') {
- if ($texte OR (!is_array($texte) AND strlen($texte)))
- return $texte;
- else
- return $sinon;
- }
- // |choixsivide{vide,pasvide} affiche pasvide si la chaine n'est pas vide...
- // http://doc.spip.org/@choixsivide
- function choixsivide($a, $vide, $pasvide) {
- return $a ? $pasvide : $vide;
- }
- // |choixsiegal{aquoi,oui,non} affiche oui si la chaine est egal a aquoi ...
- // http://doc.spip.org/@choixsiegal
- function choixsiegal($a1,$a2,$v,$f) {
- return ($a1 == $a2) ? $v : $f;
- }
- //
- // Date, heure, saisons
- //
- // on normalise la date, si elle vient du contexte (public/parametrer.php), on force le jour
- // http://doc.spip.org/@normaliser_date
- function normaliser_date($date, $forcer_jour = false) {
- $date = vider_date($date);
- if ($date) {
- if (preg_match("/^[0-9]{8,10}$/", $date))
- $date = date("Y-m-d H:i:s", $date);
- if (preg_match("#^([12][0-9]{3})([-/]00)?( [-0-9:]+)?$#", $date, $regs))
- $date = $regs[1]."-00-00".$regs[3];
- else if (preg_match("#^([12][0-9]{3}[-/][01]?[0-9])([-/]00)?( [-0-9:]+)?$#", $date, $regs))
- $date = preg_replace("@/@","-",$regs[1])."-00".$regs[3];
- else
- $date = date("Y-m-d H:i:s", strtotime($date));
- if ($forcer_jour)
- $date = str_replace('-00', '-01', $date);
- }
- return $date;
- }
- // http://doc.spip.org/@vider_date
- function vider_date($letexte) {
- if (strncmp("0000-00-00", $letexte,10)==0) return '';
- if (strncmp("0001-01-01", $letexte,10)==0) return '';
- if (strncmp("1970-01-01", $letexte,10)==0) return ''; // eviter le bug GMT-1
- return $letexte;
- }
- // http://doc.spip.org/@recup_heure
- function recup_heure($date){
- static $d = array(0,0,0);
- if (!preg_match('#([0-9]{1,2}):([0-9]{1,2}):([0-9]{1,2})#', $date, $r))
- return $d;
-
- array_shift($r);
- return $r;
- }
- // http://doc.spip.org/@heures
- function heures($numdate) {
- $date_array = recup_heure($numdate);
- if ($date_array)
- list($heures, $minutes, $secondes) = $date_array;
- return $heures;
- }
- // http://doc.spip.org/@minutes
- function minutes($numdate) {
- $date_array = recup_heure($numdate);
- if ($date_array)
- list($heures, $minutes, $secondes) = $date_array;
- return $minutes;
- }
- // http://doc.spip.org/@secondes
- function secondes($numdate) {
- $date_array = recup_heure($numdate);
- if ($date_array)
- list($heures,$minutes,$secondes) = $date_array;
- return $secondes;
- }
- // http://doc.spip.org/@heures_minutes
- function heures_minutes($numdate) {
- return _T('date_fmt_heures_minutes', array('h'=> heures($numdate), 'm'=> minutes($numdate)));
- }
- // http://doc.spip.org/@recup_date
- function recup_date($numdate, $forcer_jour = true){
- if (!$numdate) return '';
- $heures = $minutes = $secondes = 0;
- if (preg_match('#([0-9]{1,2})/([0-9]{1,2})/([0-9]{4}|[0-9]{1,2})#', $numdate, $regs)) {
- $jour = $regs[1];
- $mois = $regs[2];
- $annee = $regs[3];
- if ($annee < 90){
- $annee = 2000 + $annee;
- } elseif ($annee<100) {
- $annee = 1900 + $annee ;
- }
- list($heures, $minutes, $secondes) = recup_heure($numdate);
- }
- elseif (preg_match('#([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})#',$numdate, $regs)) {
- $annee = $regs[1];
- $mois = $regs[2];
- $jour = $regs[3];
- list($heures, $minutes, $secondes) = recup_heure($numdate);
- }
- elseif (preg_match('#([0-9]{4})-([0-9]{2})#', $numdate, $regs)){
- $annee = $regs[1];
- $mois = $regs[2];
- $jour ='';
- list($heures, $minutes, $secondes) = recup_heure($numdate);
- }
- elseif (preg_match('#^([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})$#', $numdate, $regs)){
- $annee = $regs[1];
- $mois = $regs[2];
- $jour = $regs[3];
- $heures = $regs[4];
- $minutes = $regs[5];
- $secondes = $regs[6];
- } else $annee = $mois = $jour ='';
- if ($annee > 4000) $annee -= 9000;
- if (substr($jour, 0, 1) == '0') $jour = substr($jour, 1);
- if ($forcer_jour AND $jour == '0') $jour = '1';
- if ($forcer_jour AND $mois == '0') $mois = '1';
- if ($annee OR $mois OR $jour OR $heures OR $minutes OR $secondes)
- return array($annee, $mois, $jour, $heures, $minutes, $secondes);
- }
- // une date pour l'interface : utilise date_relative si le decalage
- // avec time() est de moins de douze heures, sinon la date complete
- // http://doc.spip.org/@date_interface
- function date_interface($date, $decalage_maxi = 43200/* 12*3600 */) {
- return sinon(
- date_relative($date, $decalage_maxi),
- affdate_heure($date)
- );
- }
- // http://doc.spip.org/@date_relative
- function date_relative($date, $decalage_maxi=0,$ref_date=null) {
-
- if (is_null($ref_date))
- $ref_time = time();
- else
- $ref_time = strtotime($ref_date);
-
- if (!$date) return;
- $decal = date("U",$ref_time) - date("U", strtotime($date));
- if ($decalage_maxi AND ($decal > $decalage_maxi OR $decal < 0))
- return '';
- if ($decal < 0) {
- $il_y_a = "date_dans";
- $decal = -1 * $decal;
- } else {
- $il_y_a = "date_il_y_a";
- }
- if ($decal > 3600 * 24 * 30 * 6)
- return affdate_court($date);
- if ($decal > 3600 * 24 * 30) {
- $mois = floor ($decal / (3600 * 24 * 30));
- if ($mois < 2)
- $delai = "$mois "._T("date_un_mois");
- else
- $delai = "$mois "._T("date_mois");
- }
- else if ($decal > 3600 * 24 * 7) {
- $semaines = floor ($decal / (3600 * 24 * 7));
- if ($semaines < 2)
- $delai = "$semaines "._T("date_une_semaine");
- else
- $delai = "$semaines "._T("date_semaines");
- }
- else if ($decal > 3600 * 24) {
- $jours = floor ($decal / (3600 * 24));
- if ($jours < 2)
- return $il_y_a=="date_dans"?_T("date_demain"):_T("date_hier");
- else
- $delai = "$jours "._T("date_jours");
- }
- else if ($decal >= 3600) {
- $heures = floor ($decal / 3600);
- if ($heures < 2)
- $delai = "$heures "._T("date_une_heure");
- else
- $delai = "$heures "._T("date_heures");
- }
- else if ($decal >= 60) {
- $minutes = floor($decal / 60);
- if ($minutes < 2)
- $delai = "$minutes "._T("date_une_minute");
- else
- $delai = "$minutes "._T("date_minutes");
- } else {
- $secondes = ceil($decal);
- if ($secondes < 2)
- $delai = "$secondes "._T("date_une_seconde");
- else
- $delai = "$secondes "._T("date_secondes");
- }
- return _T($il_y_a, array("delai"=> $delai));
- }
- // http://doc.spip.org/@date_relativecourt
- function date_relativecourt($date, $decalage_maxi=0) {
-
- if (!$date) return;
- $decal = date("U",strtotime(date('Y-m-d'))-strtotime(date('Y-m-d',strtotime($date))));
- if ($decalage_maxi AND ($decal > $decalage_maxi OR $decal < 0))
- return '';
- if ($decal < -24*3600) {
- $retour = date_relative($date, $decalage_maxi);
- }
- elseif ($decal < 0) {
- $retour = _T("date_demain");
- }
- else if ($decal < (3600 * 24) ) {
- $retour = _T("date_aujourdhui");
- }
- else if ($decal < (3600 * 24 *2) ) {
- $retour = _T("date_hier");
- }
- else {
- $retour = date_relative($date, $decalage_maxi);
- }
- return $retour;
- }
- /**
- * Formatage humain de la date $numdate selon le format $vue
- * http://doc.spip.org/@affdate_base
- *
- * @param $numdate
- * @param $vue
- * @param array $options
- * param : 'abbr' ou 'initiale' permet d'afficher les jours au format court ou initiale
- * annee_courante : permet de definir l'annee de reference pour l'affichage des dates courtes
- * @return mixed|string
- */
- function affdate_base($numdate, $vue, $options = array()) {
- if (is_string($options))
- $options = array('param'=>$options);
- $date_array = recup_date($numdate, false);
- if (!$date_array) return;
- list($annee, $mois, $jour, $heures, $minutes, $secondes)= $date_array;
- // 1er, 21st, etc.
- $journum = $jour;
- if ($jour == 0) {
- $jour = '';
- } else {
- $njour = intval($jour);
- if ($jourth = _T('date_jnum'.$jour))
- $jour = $jourth;
- }
- $mois = intval($mois);
- if ($mois > 0 AND $mois < 13) {
- $nommois = _T('date_mois_'.$mois);
- if ($jour)
- $jourmois = _T('date_de_mois_'.$mois, array('j'=>$jour, 'nommois'=>$nommois));
- else
- $jourmois = $nommois;
- } else $nommois = '';
- if ($annee < 0) {
- $annee = -$annee." "._T('date_avant_jc');
- $avjc = true;
- }
- else $avjc = false;
- switch ($vue) {
- case 'saison':
- $saison = '';
- if ($mois > 0){
- $saison = 1;
- if (($mois == 3 AND $jour >= 21) OR $mois > 3) $saison = 2;
- if (($mois == 6 AND $jour >= 21) OR $mois > 6) $saison = 3;
- if (($mois == 9 AND $jour >= 21) OR $mois > 9) $saison = 4;
- if (($mois == 12 AND $jour >= 21) OR $mois > 12) $saison = 1;
- }
- return $saison?_T('date_saison_'.$saison):'';
- case 'court':
- if ($avjc) return $annee;
- $a = ((isset($options['annee_courante']) AND $options['annee_courante'])?$options['annee_courante']:date('Y'));
- if ($annee < ($a - 100) OR $annee > ($a + 100)) return $annee;
- if ($annee != $a) return _T('date_fmt_mois_annee', array ('mois'=>$mois, 'nommois'=>ucfirst($nommois), 'annee'=>$annee));
- return _T('date_fmt_jour_mois', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee));
- case 'jourcourt':
- if ($avjc) return $annee;
- $a = ((isset($options['annee_courante']) AND $options['annee_courante'])?$options['annee_courante']:date('Y'));
- if ($annee < ($a - 100) OR $annee > ($a + 100)) return $annee;
- if ($annee != $a) return _T('date_fmt_jour_mois_annee', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee));
- return _T('date_fmt_jour_mois', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee));
- case 'entier':
- if ($avjc) return $annee;
- if ($jour)
- return _T('date_fmt_jour_mois_annee', array ('jourmois'=>$jourmois, 'jour'=>$jour, 'mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee));
- elseif ($mois)
- return trim(_T('date_fmt_mois_annee', array ('mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee)));
- else
- return $annee;
- case 'nom_mois':
- return $nommois;
- case 'mois':
- return sprintf("%02s",$mois);
- case 'jour':
- return $jour;
- case 'journum':
- return $journum;
- case 'nom_jour':
- if (!$mois OR !$njour)
- return '';
- $nom = mktime(1,1,1,$mois,$njour,$annee);
- $nom = 1+date('w',$nom);
- $param = ((isset($options['param']) AND $options['param']) ? '_'.$options['param'] : '');
- return _T('date_jour_'.$nom.$param);
- case 'mois_annee':
- if ($avjc) return $annee;
- return trim(_T('date_fmt_mois_annee', array('mois'=>$mois, 'nommois'=>$nommois, 'annee'=>$annee)));
- case 'annee':
- return $annee;
- // Cas d'une vue non definie : retomber sur le format
- // de date propose par http://www.php.net/date
- default:
- return date($vue, strtotime($numdate));
- }
- }
- // http://doc.spip.org/@nom_jour
- function nom_jour($numdate, $forme = '') {
- if(!($forme == 'abbr' OR $forme == 'initiale')) $forme = '';
- return affdate_base($numdate, 'nom_jour', $forme);
- }
- // http://doc.spip.org/@jour
- function jour($numdate) {
- return affdate_base($numdate, 'jour');
- }
- // http://doc.spip.org/@journum
- function journum($numdate) {
- return affdate_base($numdate, 'journum');
- }
- // http://doc.spip.org/@mois
- function mois($numdate) {
- return affdate_base($numdate, 'mois');
- }
- // http://doc.spip.org/@nom_mois
- function nom_mois($numdate) {
- return affdate_base($numdate, 'nom_mois');
- }
- // http://doc.spip.org/@annee
- function annee($numdate) {
- return affdate_base($numdate, 'annee');
- }
- // http://doc.spip.org/@saison
- function saison($numdate) {
- return affdate_base($numdate, 'saison');
- }
- // http://doc.spip.org/@affdate
- function affdate($numdate, $format='entier') {
- return affdate_base($numdate, $format);
- }
- // http://doc.spip.org/@affdate_court
- function affdate_court($numdate, $annee_courante=null) {
- return affdate_base($numdate, 'court', array('annee_courante'=>$annee_courante));
- }
- // http://doc.spip.org/@affdate_jourcourt
- function affdate_jourcourt($numdate, $annee_courante=null) {
- return affdate_base($numdate, 'jourcourt', array('annee_courante'=>$annee_courante));
- }
- // http://doc.spip.org/@affdate_mois_annee
- function affdate_mois_annee($numdate) {
- return affdate_base($numdate, 'mois_annee');
- }
- // http://doc.spip.org/@affdate_heure
- function affdate_heure($numdate) {
- $date_array = recup_date($numdate);
- if (!$date_array) return;
- list($annee, $mois, $jour, $heures, $minutes, $sec)= $date_array;
- return _T('date_fmt_jour_heure', array('jour' => affdate($numdate), 'heure' => _T('date_fmt_heures_minutes', array('h'=> $heures, 'm'=> $minutes))));
- }
- /**
- * Afficher de facon textuelle les dates de debut et fin en fonction des cas
- * - Lundi 20 fevrier a 18h
- * - Le 20 fevrier de 18h a 20h
- * - Du 20 au 23 fevrier
- * - du 20 fevrier au 30 mars
- * - du 20 fevrier 2007 au 30 mars 2008
- * $horaire='oui' ou true permet d'afficher l'horaire, toute autre valeur n'indique que le jour
- * $forme peut contenir une ou plusieurs valeurs parmi
- * - abbr (afficher le nom des jours en abbrege)
- * - hcal (generer une date au format hcal)
- * - annee (forcer l'affichage de l'annee)
- *
- * @param string $date_debut
- * @param string $date_fin
- * @param string $horaire
- * @param string $forme
- * @return string
- */
- function affdate_debut_fin($date_debut, $date_fin, $horaire = 'oui', $forme=''){
- $abbr = '';
- if (strpos($forme,'abbr')!==false) $abbr = 'abbr';
- $affdate = "affdate_jourcourt";
- if (strpos($forme,'annee')!==false) $affdate = 'affdate';
- $dtstart = $dtend = $dtabbr = "";
- if (strpos($forme,'hcal')!==false) {
- $dtstart = "<abbr class='dtstart' title='".date_iso($date_debut)."'>";
- $dtend = "<abbr class='dtend' title='".date_iso($date_fin)."'>";
- $dtabbr = "</abbr>";
- }
- $date_debut = strtotime($date_debut);
- $date_fin = strtotime($date_fin);
- $d = date("Y-m-d", $date_debut);
- $f = date("Y-m-d", $date_fin);
- $h = ($horaire==='oui' OR $horaire===true);
- $hd = _T('date_fmt_heures_minutes_court', array('h'=> date("H",$date_debut), 'm'=> date("i",$date_debut)));
- $hf = _T('date_fmt_heures_minutes_court', array('h'=> date("H",$date_fin), 'm'=> date("i",$date_fin)));
- $au = " " . strtolower(_T('date_fmt_periode_to')) . " ";
- $du = _T('date_fmt_periode_from') . " ";
- if ($d==$f)
- { // meme jour
- $s = ucfirst(nom_jour($d,$abbr))." ".$affdate($d);
- if ($h)
- if ($hd!=$hf)
- $s .= " $hd";
- else
- $s = _T('date_fmt_jour_heure',array('jour'=>$s,'heure'=>$hd));
- $s = "$dtstart$s$dtabbr";
- if ($h AND $hd!=$hf) $s .= "-$dtend$hf$dtabbr";
- }
- else if ((date("Y-m",$date_debut))==date("Y-m",$date_fin))
- { // meme annee et mois, jours differents
- if ($h){
- $s = $du . $dtstart . affdate_jourcourt($d,date("Y",$date_debut)) . " $hd" . $dtabbr;
- $s .= $au . $dtend . $affdate($f);
- if ($hd!=$hf) $s .= " $hf";
- $s .= $dtabbr;
- }
- else {
- $s = $du . $dtstart . jour($d) . $dtabbr;
- $s .= $au . $dtend . $affdate($f) . $dtabbr;
- }
- }
- else if ((date("Y",$date_debut))==date("Y",$date_fin))
- { // meme annee, mois et jours differents
- $s = $du . $dtstart . affdate_jourcourt($d,date("Y",$date_debut));
- if ($h) $s .= " $hd";
- $s .= $dtabbr . $au . $dtend . $affdate($f);
- if ($h) $s .= " $hf";
- $s .= $dtabbr;
- }
- else
- { // tout different
- $s = $du . $dtstart . affdate($d);
- if ($h)
- $s .= " ($hd)";
- $s .= $dtabbr . $au . $dtend. affdate($f);
- if ($h)
- $s .= " ($hf)";
- $s .= $dtabbr;
- }
- return $s;
- }
- /**
- * Alignements en HTML (Old-style, preferer CSS)
- * Cette fonction ne cree pas de paragraphe
- *
- * http://doc.spip.org/@aligner
- *
- * @param $letexte
- * @param string $justif
- * @return string
- */
- function aligner($letexte, $justif='') {
- $letexte = trim($letexte);
- if (!strlen($letexte)) return '';
- // Paragrapher rapidement
- $letexte = "<div style='text-align:$justif'>"
- . $letexte
- ."</div>";
- return $letexte;
- }
- // http://doc.spip.org/@justifier
- function justifier($letexte) { return aligner($letexte,'justify');}
- // http://doc.spip.org/@aligner_droite
- function aligner_droite($letexte) { return aligner($letexte,'right');}
- // http://doc.spip.org/@aligner_gauche
- function aligner_gauche($letexte) {return aligner($letexte,'left');}
- // http://doc.spip.org/@centrer
- function centrer($letexte) {return aligner($letexte,'center');}
- // http://doc.spip.org/@style_align
- function style_align($bof) {
- global $spip_lang_left;
- return "text-align: $spip_lang_left";
- }
- //
- // Export iCal
- //
- // http://doc.spip.org/@filtrer_ical
- function filtrer_ical($texte) {
- #include_spip('inc/charsets');
- $texte = html2unicode($texte);
- $texte = unicode2charset(charset2unicode($texte, $GLOBALS['meta']['charset'], 1), 'utf-8');
- $texte = preg_replace("/\n/", " ", $texte);
- $texte = preg_replace("/,/", "\,", $texte);
- return $texte;
- }
- // http://doc.spip.org/@date_ical
- function date_ical($date, $addminutes = 0) {
- list($heures, $minutes, $secondes) = recup_heure($date);
- list($annee, $mois, $jour) = recup_date($date);
- return date("Ymd\THis",
- mktime($heures, $minutes+$addminutes,$secondes,$mois,$jour,$annee));
- }
- // date_iso retourne la date au format "RFC 3339" / "ISO 8601"
- // voir http://www.php.net/manual/fr/ref.datetime.php#datetime.constants
- // http://doc.spip.org/@date_iso
- function date_iso($date_heure) {
- list($annee, $mois, $jour) = recup_date($date_heure);
- list($heures, $minutes, $secondes) = recup_heure($date_heure);
- $time = @mktime($heures, $minutes, $secondes, $mois, $jour, $annee);
- return gmdate('Y-m-d\TH:i:s\Z', $time);
- }
- // date_822 retourne la date au format "RFC 822"
- // utilise pour <pubdate> dans certains feeds RSS
- // http://doc.spip.org/@date_822
- function date_822($date_heure) {
- list($annee, $mois, $jour) = recup_date($date_heure);
- list($heures, $minutes, $secondes) = recup_heure($date_heure);
- $time = mktime($heures, $minutes, $secondes, $mois, $jour, $annee);
- return date('r', $time);
- }
- // http://doc.spip.org/@date_anneemoisjour
- function date_anneemoisjour($d) {
- if (!$d) $d = date("Y-m-d");
- return substr($d, 0, 4) . substr($d, 5, 2) .substr($d, 8, 2);
- }
- // http://doc.spip.org/@date_anneemois
- function date_anneemois($d) {
- if (!$d) $d = date("Y-m-d");
- return substr($d, 0, 4) . substr($d, 5, 2);
- }
- // http://doc.spip.org/@date_debut_semaine
- function date_debut_semaine($annee, $mois, $jour) {
- $w_day = date("w", mktime(0,0,0,$mois, $jour, $annee));
- if ($w_day == 0) $w_day = 7; // Gaffe: le dimanche est zero
- $debut = $jour-$w_day+1;
- return date("Ymd", mktime(0,0,0,$mois,$debut,$annee));
- }
- // http://doc.spip.org/@date_fin_semaine
- function date_fin_semaine($annee, $mois, $jour) {
- $w_day = date("w", mktime(0,0,0,$mois, $jour, $annee));
- if ($w_day == 0) $w_day = 7; // Gaffe: le dimanche est zero
- $debut = $jour-$w_day+1;
- return date("Ymd", mktime(0,0,0,$mois,$debut+6,$annee));
- }
- //
- // Recuperation de donnees dans le champ extra
- // Ce filtre n'a de sens qu'avec la balise #EXTRA
- //
- // http://doc.spip.org/@extra
- function extra($letexte, $champ) {
- $champs = unserialize($letexte);
- return $champs[$champ];
- }
- // postautobr : transforme les sauts de ligne en _
- // http://doc.spip.org/@post_autobr
- function post_autobr($texte, $delim="\n_ ") {
- if (!function_exists('echappe_html'))
- include_spip('inc/texte_mini');
- $texte = str_replace("\r\n", "\r", $texte);
- $texte = str_replace("\r", "\n", $texte);
- if (preg_match(",\n+$,", $texte, $fin))
- $texte = substr($texte, 0, -strlen($fin = $fin[0]));
- else
- $fin = '';
- $texte = echappe_html($texte, '', true);
- // echapper les modeles
- if (strpos($texte,"<")!==false){
- include_spip('inc/lien');
- if (defined('_PREG_MODELE')){
- $preg_modeles = "@"._PREG_MODELE."@imsS";
- $texte = echappe_html($texte, '', true, $preg_modeles);
- }
- }
- $debut = '';
- $suite = $texte;
- while ($t = strpos('-'.$suite, "\n", 1)) {
- $debut .= substr($suite, 0, $t-1);
- $suite = substr($suite, $t);
- $car = substr($suite, 0, 1);
- if (($car<>'-') AND ($car<>'_') AND ($car<>"\n") AND ($car<>"|") AND ($car<>"}")
- AND !preg_match(',^\s*(\n|</?(quote|div)|$),S',($suite))
- AND !preg_match(',</?(quote|div)> *$,iS', $debut)) {
- $debut .= $delim;
- } else
- $debut .= "\n";
- if (preg_match(",^\n+,", $suite, $regs)) {
- $debut.=$regs[0];
- $suite = substr($suite, strlen($regs[0]));
- }
- }
- $texte = $debut.$suite;
- $texte = echappe_retour($texte);
- return $texte.$fin;
- }
- define('_EXTRAIRE_MULTI', "@<multi>(.*?)</multi>@sS");
- // Extraire et transformer les blocs multi ; on indique la langue courante
- // pour ne pas mettre de span@lang=fr si on est deja en fr
- // http://doc.spip.org/@extraire_multi
- function extraire_multi($letexte, $lang=null, $echappe_span=false) {
- if (preg_match_all(_EXTRAIRE_MULTI, $letexte, $regs, PREG_SET_ORDER)) {
- if (!$lang) $lang = $GLOBALS['spip_lang'];
- foreach ($regs as $reg) {
- // chercher la version de la langue courante
- $trads = extraire_trads($reg[1]);
- if ($l = approcher_langue($trads, $lang)) {
- $trad = $trads[$l];
- } else {
- include_spip('inc/texte');
- // langue absente, prendre la premiere dispo
- // mais typographier le texte selon les regles de celle-ci
- // Attention aux blocs multi sur plusieurs lignes
- $l = key($trads);
- $trad = $trads[$l];
- $typographie = charger_fonction(lang_typo($l), 'typographie');
- $trad = $typographie($trad);
- include_spip('inc/texte');
- // Tester si on echappe en span ou en div
- // il ne faut pas echapper en div si propre produit un seul paragraphe
- $trad_propre = preg_replace(",(^<p[^>]*>|</p>$),Uims","",propre($trad));
- $mode = preg_match(',</?('._BALISES_BLOCS.')[>[:space:]],iS', $trad_propre) ? 'div' : 'span';
- $trad = code_echappement($trad, 'multi', false, $mode);
- $trad = str_replace("'", '"', inserer_attribut($trad, 'lang', $l));
- if (lang_dir($l) !== lang_dir($lang))
- $trad = str_replace("'", '"', inserer_attribut($trad, 'dir', lang_dir($l)));
- if (!$echappe_span)
- $trad = echappe_retour($trad, 'multi');
- }
- $letexte = str_replace($reg[0], $trad, $letexte);
- }
- }
- return $letexte;
- }
- // convertit le contenu d'une balise multi en un tableau
- // http://doc.spip.org/@extraire_trad
- function extraire_trads($bloc) {
- $lang = '';
- // ce reg fait planter l'analyse multi s'il y a de l'{italique} dans le champ
- // while (preg_match("/^(.*?)[{\[]([a-z_]+)[}\]]/siS", $bloc, $regs)) {
- while (preg_match("/^(.*?)[\[]([a-z_]+)[\]]/siS", $bloc, $regs)) {
- $texte = trim($regs[1]);
- if ($texte OR $lang)
- $trads[$lang] = $texte;
- $bloc = substr($bloc, strlen($regs[0]));
- $lang = $regs[2];
- }
- $trads[$lang] = $bloc;
- return $trads;
- }
- //
- // Ce filtre retourne la donnee si c'est la premiere fois qu'il la voit ;
- // possibilite de gerer differentes "familles" de donnees |unique{famille}
- # |unique{famille,1} affiche le nombre d'elements affiches (preferer toutefois #TOTAL_UNIQUE)
- # ameliorations possibles :
- # 1) si la donnee est grosse, mettre son md5 comme cle
- # 2) purger $mem quand on change de squelette (sinon bug inclusions)
- //
- // http://www.spip.net/@unique
- // http://doc.spip.org/@unique
- function unique($donnee, $famille='', $cpt = false) {
- static $mem;
- // permettre de vider la pile et de la restaurer
- // pour le calcul de introduction...
- if ($famille=='_spip_raz_'){
- $tmp = $mem;
- $mem = array();
- return $tmp;
- } elseif ($famille=='_spip_set_'){
- $mem = $donnee;
- return;
- }
- if ($cpt)
- return count($mem[$famille]);
- if (!($mem[$famille][$donnee]++))
- return $donnee;
- }
- //
- // Filtre |alterner
- //
- // Exemple [(#COMPTEUR_BOUCLE|alterner{'bleu','vert','rouge'})]
- //
- // http://doc.spip.org/@alterner
- function alterner($i) {
- // recuperer les arguments (attention fonctions un peu space)
- $num = func_num_args();
- $args = func_get_args();
- if($num == 2 && is_array($args[1])) {
- $args = $args[1];
- array_unshift($args,'');
- $num = count($args);
- }
- // renvoyer le i-ieme argument, modulo le nombre d'arguments
- return $args[(intval($i)-1)%($num-1)+1];
- }
- // recuperer un attribut d'une balise html
- // ($complet demande de retourner $r)
- // la regexp est mortelle : cf. tests/filtres/extraire_attribut.php
- // Si on a passe un tableau de balises, renvoyer un tableau de resultats
- // (dans ce cas l'option $complet n'est pas disponible)
- // http://doc.spip.org/@extraire_attribut
- function extraire_attribut($balise, $attribut, $complet = false) {
- if (is_array($balise)) {
- array_walk($balise,
- create_function('&$a,$key,$t',
- '$a = extraire_attribut($a,$t);'
- ),
- $attribut);
- return $balise;
- }
- if (preg_match(
- ',(^.*?<(?:(?>\s*)(?>[\w:.-]+)(?>(?:=(?:"[^"]*"|\'[^\']*\'|[^\'"]\S*))?))*?)(\s+'
- .$attribut
- .'(?:=\s*("[^"]*"|\'[^\']*\'|[^\'"]\S*))?)()([^>]*>.*),isS',
- $balise, $r)) {
- if ($r[3][0] == '"' || $r[3][0] == "'") {
- $r[4] = substr($r[3], 1, -1);
- $r[3] = $r[3][0];
- } elseif ($r[3]!=='') {
- $r[4] = $r[3];
- $r[3] = '';
- } else {
- $r[4] = trim($r[2]);
- }
- $att = filtrer_entites(str_replace("'", "'", $r[4]));
- }
- else
- $att = NULL;
- if ($complet)
- return array($att, $r);
- else
- return $att;
- }
- // modifier (ou inserer) un attribut html dans une balise
- // http://doc.spip.org/@inserer_attribut
- function inserer_attribut($balise, $attribut, $val, $proteger=true, $vider=false) {
- // preparer l'attribut
- // supprimer les etc mais pas les balises html
- // qui ont un sens dans un attribut value d'un input
- if ($proteger) $val = attribut_html($val,false);
- // echapper les ' pour eviter tout bug
- $val = str_replace("'", "'", $val);
- if ($vider AND strlen($val)==0)
- $insert = '';
- else
- $insert = " $attribut='$val'";
- list($old, $r) = extraire_attribut($balise, $attribut, true);
- if ($old !== NULL) {
- // Remplacer l'ancien attribut du meme nom
- $balise = $r[1].$insert.$r[5];
- }
- else {
- // preferer une balise " />" (comme <img />)
- if (preg_match(',/>,', $balise))
- $balise = preg_replace(",\s?/>,S", $insert." />", $balise, 1);
- // sinon une balise <a ...> ... </a>
- else
- $balise = preg_replace(",\s?>,S", $insert.">", $balise, 1);
- }
- return $balise;
- }
- // http://doc.spip.org/@vider_attribut
- function vider_attribut ($balise, $attribut) {
- return inserer_attribut($balise, $attribut, '', false, true);
- }
- /**
- * Un filtre pour determiner le nom du satut des inscrits
- * @param void $dummy
- * @param string $mode
- * @return string
- */
- function tester_config($dummy, $mode='') {
- include_spip('action/inscrire_auteur');
- return tester_statut_inscription($mode);
- }
- //
- // Quelques fonctions de calcul arithmetique
- //
- // http://doc.spip.org/@plus
- function plus($a,$b) {
- return $a+$b;
- }
- // http://doc.spip.org/@moins
- function moins($a,$b) {
- return $a-$b;
- }
- // http://doc.spip.org/@mult
- function mult($a,$b) {
- return $a*$b;
- }
- // http://doc.spip.org/@div
- function div($a,$b) {
- return $b?$a/$b:0;
- }
- // http://doc.spip.org/@modulo
- function modulo($nb, $mod, $add=0) {
- return ($mod?$nb%$mod:0)+$add;
- }
- // Verifier la conformite d'une ou plusieurs adresses email
- // retourne false ou la normalisation de la derniere adresse donnee
- // http://doc.spip.org/@email_valide
- function email_valide($adresses) {
- // eviter d'injecter n'importe quoi dans preg_match
- if (!is_string($adresses))
- return false;
- // Si c'est un spammeur autant arreter tout de suite
- if (preg_match(",[\n\r].*(MIME|multipart|Content-),i", $adresses)) {
- spip_log("Tentative d'injection de mail : $adresses");
- return false;
- }
- foreach (explode(',', $adresses) as $v) {
- // nettoyer certains formats
- // "Marie Toto <Marie@toto.com>"
- $adresse = trim(preg_replace(",^[^<>\"]*<([^<>\"]+)>$,i", "\\1", $v));
- // RFC 822
- if (!preg_match('#^[^()<>@,;:\\"/[:space:]]+(@([-_0-9a-z]+\.)*[-_0-9a-z]+)$#i', $adresse))
- return false;
- }
- return $adresse;
- }
- // http://doc.spip.org/@afficher_enclosures
- function afficher_enclosures($tags) {
- $s = array();
- foreach (extraire_balises($tags, 'a') as $tag) {
- if (extraire_attribut($tag, 'rel') == 'enclosure'
- AND $t = extraire_attribut($tag, 'href')) {
- $s[] = preg_replace(',>[^<]+</a>,S',
- '>'
- .http_img_pack('attachment-16.png', $t,
- 'title="'.attribut_html($t).'"')
- .'</a>', $tag);
- }
- }
- return join(' ', $s);
- }
- // http://doc.spip.org/@afficher_tags
- function afficher_tags($tags, $rels='tag,directory') {
- $s = array();
- foreach (extraire_balises($tags, 'a') as $tag) {
- $rel = extraire_attribut($tag, 'rel');
- if (strstr(",$rels,", ",$rel,"))
- $s[] = $tag;
- }
- return join(', ', $s);
- }
- // Passe un <enclosure url="fichier" length="5588242" type="audio/mpeg"/>
- // au format microformat <a rel="enclosure" href="fichier" ...>fichier</a>
- // attention length="zz" devient title="zz", pour rester conforme
- // http://doc.spip.org/@enclosure2microformat
- function enclosure2microformat($e) {
- if (!$url = filtrer_entites(extraire_attribut($e, 'url')))
- $url = filtrer_entites(extraire_attribut($e, 'href'));
- $type = extraire_attribut($e, 'type');
- $length = extraire_attribut($e, 'length');
- $fichier = basename($url);
- return '<a rel="enclosure"'
- . ($url? ' href="'.htmlspecialchars($url).'"' : '')
- . ($type? ' type="'.htmlspecialchars($type).'"' : '')
- . ($length? ' title="'.htmlspecialchars($length).'"' : '')
- . '>'.$fichier.'</a>';
- }
- // La fonction inverse
- // http://doc.spip.org/@microformat2enclosure
- function microformat2enclosure($tags) {
- $enclosures = array();
- foreach (extraire_balises($tags, 'a') as $e)
- if (extraire_attribut($e, 'rel') == 'enclosure') {
- $url = filtrer_entites(extraire_attribut($e, 'href'));
- $type = extraire_attribut($e, 'type');
- if (!$length = intval(extraire_attribut($e, 'title')))
- $length = intval(extraire_attribut($e, 'length')); # vieux data
- $fichier = basename($url);
- $enclosures[] = '<enclosure'
- . ($url? ' url="'.htmlspecialchars($u