, forcer la sortie de paragraphes if ( $match[1] == "doc" OR $match[1] == "emb" OR eregi("^\|center", $match[3]) ) { $letexte = str_replace($match[0], "\n\n@@SPIP_$source$num_echap@@\n\n", $letexte); } else { $letexte = str_replace($match[0], "@@SPIP_$source$num_echap@@", $letexte); } $les_echap[$num_echap] = $match; } } return array($letexte, $les_echap); } // Traitement final des echappements function echappe_retour($letexte, $les_echap, $source='') { $expr = ",@@SPIP_$source([0-9]+)@@,"; if (preg_match_all($expr, $letexte, $regs, PREG_SET_ORDER)) { foreach ($regs as $reg) { $rempl = $les_echap[$reg[1]]; # si $rempl est un tableau, c'est le resultat (cf echappe_html) de eregi sur : # <(IMG|DOC|EMB)([0-9]+)(\|([^\>]*))? if (is_array($rempl)) { include_ecrire("inc_documents.php3"); $type = strtoupper($rempl[1]); if ($type == 'EMB') $rempl = embed_document($rempl[2], $rempl[4]); else $rempl = integre_image($rempl[2], $rempl[4], $type); } $letexte = str_replace($reg[0], $rempl, $letexte); } } return $letexte; } // fonction en cas de texte extrait d'un serveur distant: // on ne sait pas (encore) rapatrier les documents joints function supprime_img($letexte) { $message = _T('img_indisponible'); preg_replace(__preg_img, "($message)", $letexte); return $letexte; } # il y a 3 couples de fonctions homonymes au prefixe _doublons pres # pour eviter a tous les appels de se trimbaler ce qui concerne les squelettes function echappe_retour_doublon($letexte, $les_echap, $source, &$doublons) { if (!$les_echap) return $letexte; foreach($les_echap as $rempl) { if (is_array($rempl)) # cf commentaires dans la fonction echappe_retour $doublons['documents'] .= "," . $rempl[2]; } return echappe_retour($letexte, $les_echap, $source); } // // Gerer les outils mb_string // function spip_substr($c, $start=0, $end='') { include_ecrire('inc_charsets.php3'); if (init_mb_string()) { if ($end) return mb_substr($c, $start, $end); else return mb_substr($c, $start); } // methode substr normale else { if ($end) return substr($c, $start, $end); else return substr($c, $start); } } function spip_strlen($c) { include_ecrire('inc_charsets.php3'); if (init_mb_string()) return mb_strlen($c); else return strlen($c); } // fin mb_string function couper($texte, $taille=50) { $texte = substr($texte, 0, 400 + 2*$taille); /* eviter de travailler sur 10ko pour extraire 150 caracteres */ // on utilise les \r pour passer entre les gouttes $texte = str_replace("\r\n", "\n", $texte); $texte = str_replace("\r", "\n", $texte); // sauts de ligne et paragraphes $texte = ereg_replace("\n\n+", "\r", $texte); $texte = ereg_replace("<(p|br)( [^>]*)?".">", "\r", $texte); // supprimer les traits, lignes etc $texte = ereg_replace("(^|\r|\n)(-[-#\*]*|_ )", "\r", $texte); // supprimer les tags $texte = supprimer_tags($texte); $texte = trim(str_replace("\n"," ", $texte)); $texte .= "\n"; // marquer la fin // travailler en accents charset $texte = filtrer_entites($texte); // supprimer les liens $texte = ereg_replace("\[->([^]]*)\]","\\1", $texte); // liens sans texte $texte = ereg_replace("\[([^\[]*)->([^]]*)\]","\\1", $texte); // supprimer les notes $texte = ereg_replace("\[\[([^]]|\][^]])*\]\]", "", $texte); // supprimer les codes typos $texte = ereg_replace("[}{]", "", $texte); // supprimer les tableaux $texte = ereg_replace("(^|\r)\|.*\|\r", "\r", $texte); // couper au mot precedent $long = spip_substr($texte, 0, max($taille-4,1)); $court = ereg_replace("([^[:space:]][[:space:]]+)[^[:space:]]*\n?$", "\\1", $long); $points = ' (...)'; // trop court ? ne pas faire de (...) if (spip_strlen($court) < max(0.75 * $taille,2)) { $points = ''; $long = spip_substr($texte, 0, $taille); $texte = ereg_replace("([^[:space:]][[:space:]]+)[^[:space:]]*$", "\\1", $long); // encore trop court ? couper au caractere if (spip_strlen($texte) < 0.75 * $taille) $texte = $long; } else $texte = $court; if (strpos($texte, "\n")) // la fin est encore la : c'est qu'on n'a pas de texte de suite $points = ''; // remettre les paragraphes $texte = ereg_replace("\r+", "\n\n", $texte); // supprimer l'eventuelle entite finale mal coupee $texte = preg_replace('/&#?[a-z0-9]*$/', '', $texte); return trim($texte).$points; } // prendre ... sinon couper a la longueur demandee function couper_intro($texte, $long) { $texte = extraire_multi(eregi_replace("(", "\\1intro>", $texte)); // minuscules while ($fin = strpos($texte, "")) { $zone = substr($texte, 0, $fin); $texte = substr($texte, $fin + strlen("")); if ($deb = strpos($zone, "") OR substr($zone, 0, 7) == "") $zone = substr($zone, $deb + 7); $intro .= $zone; } if ($intro) $intro = $intro.' (...)'; else $intro = couper($texte, $long); // supprimer un eventuel chapo redirecteur =http:/..... $intro = ereg_replace("^=[^[:space:]]+","",$intro); return $intro; } // // Les elements de propre() // // Securite : empecher l'execution de code PHP function interdire_scripts($source) { $source = preg_replace(",<(\%|\?|([[:space:]]*)script),", "<\\1", $source); return $source; } // Correction typographique francaise function typo_fr($letexte) { static $trans; // Nettoyer 160 = nbsp ; 187 = raquo ; 171 = laquo ; 176 = deg ; 147 = ldquo; 148 = rdquo if (!$trans) { $trans = array( " " => "~", "»" => "»", "«" => "«", "”" => "”", "“" => "“", "°" => "°" ); $chars = array(160 => '~', 187 => '»', 171 => '«', 148 => '”', 147 => '“', 176 => '°'); include_ecrire('inc_charsets.php3'); while (list($c, $r) = each($chars)) { $c = unicode2charset(charset2unicode(chr($c), 'iso-8859-1', 'forcer')); $trans[$c] = $r; } } $letexte = strtr($letexte, $trans); $cherche1 = array( /* 1 '/{([^}]+)}/', */ /* 2 */ '/((^|[^\#0-9a-zA-Z\&])[\#0-9a-zA-Z]*)\;/', /* 3 */ '/»| --?,|:([^0-9]|$)/', /* 4 */ '/([^\1', */ /* 2 */ '\1~;', /* 3 */ '~\0', /* 4 */ '\1~\2', /* 5 */ '\0~' ); $letexte = preg_replace($cherche1, $remplace1, $letexte); $letexte = ereg_replace(" *~+ *", "~", $letexte); $cherche2 = array( '/([^-\n]|^)--([^-]|$)/', '/(http|https|ftp|mailto)~:/', '/~/' ); $remplace2 = array( '\1—\2', '\1:', ' ' ); $letexte = preg_replace($cherche2, $remplace2, $letexte); return $letexte; } // rien sauf les "~" et "-," function typo_en($letexte) { $cherche1 = array( '/ --?,/' ); $remplace1 = array( '~\0' ); $letexte = preg_replace($cherche1, $remplace1, $letexte); $letexte = str_replace(" ", "~", $letexte); $letexte = ereg_replace(" *~+ *", "~", $letexte); $cherche2 = array( '/([^-\n]|^)--([^-]|$)/', '/~/' ); $remplace2 = array( '\1—\2', ' ' ); $letexte = preg_replace($cherche2, $remplace2, $letexte); return $letexte; } // // Typographie generale // function typo_generale($letexte) { global $spip_lang; // Appeler la fonction de pre-traitement $letexte = spip_avant_typo ($letexte); // Caracteres de controle "illegaux" $letexte = corriger_caracteres($letexte); // Proteger les caracteres typographiques a l'interieur des tags html $protege = "!':;?"; $illegal = "\x1\x2\x3\x4\x5"; if (preg_match_all("/<[a-z!][^<>!':;\?]*[!':;\?][^<>]*>/ims", $letexte, $regs, PREG_SET_ORDER)) { foreach ($regs as $reg) { $insert = $reg[0]; // hack: on transforme les caracteres a proteger en les remplacant // par des caracteres "illegaux". (cf corriger_caracteres()) $insert = strtr($insert, $protege, $illegal); $letexte = str_replace($reg[0], $insert, $letexte); } } // zouli apostrophe $letexte = str_replace("'", "’", $letexte); // typo francaise ou anglaise ? // $lang_typo est fixee dans l'interface privee pour editer // un texte anglais en interface francaise (ou l'inverse) ; // sinon determiner la typo en fonction de la langue if (!$lang = $GLOBALS['lang_typo']) { include_ecrire('inc_lang.php3'); $lang = lang_typo($spip_lang); } if ($lang == 'fr') $letexte = typo_fr($letexte); else $letexte = typo_en($letexte); // Retablir les caracteres proteges $letexte = strtr($letexte, $illegal, $protege); // Appeler la fonction de post-traitement $letexte = spip_apres_typo ($letexte); # un message pour abs_url - on est passe en mode texte $GLOBALS['mode_abs_url'] = 'texte'; // et retour return $letexte; } function typo($letexte) { // echapper les codes ... etc. list($letexte, $les_echap) = echappe_html($letexte, "SOURCETYPO"); $letexte = typo_generale($letexte); // reintegrer les echappements return echappe_retour($letexte, $les_echap, "SOURCETYPO"); } function typo_doublon(&$doublons, $letexte) { // echapper les codes ... etc. list($letexte, $les_echap) = echappe_html($letexte, "SOURCETYPO"); $letexte = typo_generale($letexte); // reintegrer les echappements return echappe_retour_doublon($letexte, $les_echap, "SOURCETYPO", $doublons); } // cette fonction est tordue : on lui passe un tableau correspondant au match // de la regexp ci-dessous, et elle retourne le texte a inserer a la place // et le lien "brut" a usage eventuel de redirection... function extraire_lien ($regs) { $lien_texte = $regs[1]; $lien_url = entites_html(trim($regs[3])); $compt_liens++; $lien_interne = false; if (ereg('^[[:space:]]*(art(icle)?|rub(rique)?|br(.ve)?|aut(eur)?|mot|site|doc(ument)?|im(age|g))?[[:space:]]*([[:digit:]]+)(#.*)?[[:space:]]*$', $lien_url, $match)) { // Traitement des liens internes if (!_DIR_RESTREINT) include_ecrire('inc_urls.php3'); else if (@file_exists("inc-urls.php3")) include_local("inc-urls.php3"); else include_local("inc-urls-".$GLOBALS['type_urls'].".php3"); $id_lien = $match[8]; $ancre = $match[9]; $type_lien = substr($match[1], 0, 2); $lien_interne=true; $class_lien = "in"; switch ($type_lien) { case 'ru': $lien_url = generer_url_rubrique($id_lien); if (!$lien_texte) { $req = "select titre from spip_rubriques where id_rubrique=$id_lien"; $row = @spip_fetch_array(@spip_query($req)); $lien_texte = $row['titre']; } break; case 'br': $lien_url = generer_url_breve($id_lien); if (!$lien_texte) { $req = "select titre from spip_breves where id_breve=$id_lien"; $row = @spip_fetch_array(@spip_query($req)); $lien_texte = $row['titre']; } break; case 'au': $lien_url = generer_url_auteur($id_lien); if (!$lien_texte) { $req = "select nom from spip_auteurs where id_auteur = $id_lien"; $row = @spip_fetch_array(@spip_query($req)); $lien_texte = $row['nom']; } break; case 'mo': $lien_url = generer_url_mot($id_lien); if (!$lien_texte) { $req = "select titre from spip_mots where id_mot=$id_lien"; $row = @spip_fetch_array(@spip_query($req)); $lien_texte = $row['titre']; } break; case 'im': case 'do': $lien_url = generer_url_document($id_lien); if (!$lien_texte) { $req = "select titre,fichier from spip_documents WHERE id_document=$id_lien"; $row = @spip_fetch_array(@spip_query($req)); $lien_texte = $row['titre']; if (!$lien_texte) $lien_texte = ereg_replace("^.*/","",$row['fichier']); } break; case 'si': # attention dans le cas des sites le lien pointe non pas sur # la page locale du site, mais directement sur le site lui-meme $row = @spip_fetch_array(@spip_query("SELECT nom_site,url_site FROM spip_syndic WHERE id_syndic=$id_lien")); if ($row) { $lien_url = $row['url_site']; if (!$lien_texte) $lien_texte = typo($row['nom_site']); } break; default: $lien_url = generer_url_article($id_lien); if (!$lien_texte) { $req = "select titre from spip_articles where id_article=$id_lien"; $row = @spip_fetch_array(@spip_query($req)); $lien_texte = $row['titre']; } break; } $lien_url .= $ancre; // supprimer les numeros des titres include_ecrire("inc_filtres.php3"); $lien_texte = supprimer_numero($lien_texte); } else if (preg_match(',^\?(.*)$,s', $lien_url, $regs)) { // Liens glossaire $lien_url = substr($lien_url, 1); $class_lien = "glossaire"; } else { // Liens non automatiques $class_lien = "out"; // texte vide ? if ((!$lien_texte) and (!$lien_interne)) { $lien_texte = str_replace('"', '', $lien_url); if (strlen($lien_texte)>40) $lien_texte = substr($lien_texte,0,35).'...'; $class_lien = "url"; $lien_texte = "$lien_texte"; } // petites corrections d'URL if (preg_match(",^www\.[^@]+$,",$lien_url)) $lien_url = "http://".$lien_url; else if (strpos($lien_url, "@") && email_valide($lien_url)) $lien_url = "mailto:".$lien_url; } $insert = "".typo($lien_texte).""; return array($insert, $lien_url); } // // Tableaux // function traiter_tableau($bloc) { // Decouper le tableau en lignes preg_match_all(',([|].*)[|]\n,Ums', $bloc, $regs, PREG_PATTERN_ORDER); // Traiter chaque ligne foreach ($regs[1] as $ligne) { $l ++; // Gestion de la premiere ligne : if ($l == 1) { // - et summary dans la premiere ligne : // || caption | summary || (|summary est optionnel) if (preg_match(',^\|\|([^|]*)(\|(.*))?\|$,ms', $ligne, $cap)) { $l = 0; if ($caption = trim($cap[1])) $debut_table .= "".$caption."\n"; $summary = ' summary="'.entites_html(trim($cap[3])).'"'; } // - sous la forme |{{titre}}|{{titre}}| // Attention thead oblige a avoir tbody else if (preg_match(',^(\|[[:space:]]*{{[^}]+}}[[:space:]]*)+$,ms', $ligne, $thead)) { $debut_table .= " ". preg_replace(",[|]([^|]*),", "\\1", $ligne) ."\n"; $l = 0; } } // Sinon ligne normale if ($l) { // definition du tr if ($l == 1 AND ereg("^(\|[[:space:]]*[{][{][^}]+[}][}][[:space:]]*)+$", $ligne)) { $class = 'row_first'; } else { $class = 'row_'.alterner($l, 'even', 'odd'); } // Gerer les listes a puce dans les cellules if (ereg("\n-[*#]", $ligne)) $ligne = traiter_listes($ligne); // Pas de paragraphes dans les cellules $ligne = preg_replace(",\n\n+,", "
\n", $ligne); // definition du $ligne = preg_replace(",[|]([^|]*),", "\\1", $ligne); // ligne complete $html[$l] = "" . $ligne . "\n"; } } return "\n\n\n" . $debut_table . "\n" . join ('', $html) . "\n" . "

\n\n"; } // // Traitement des listes (merci a Michael Parienti) // function traiter_listes ($texte) { $parags = preg_split(",\n[[:space:]]*\n,", $texte); unset($texte); // chaque paragraphe est traite a part while (list(,$para) = each($parags)) { $niveau = 0; $lignes = explode("\n-", "\n" . $para); // ne pas toucher a la premiere ligne list(,$debut) = each($lignes); $texte .= $debut; // chaque item a sa profondeur = nb d'etoiles unset ($type); while (list(,$item) = each($lignes)) { preg_match(",^([*]*|[#]*)([^*#].*)$,s", $item, $regs); $profond = strlen($regs[1]); if ($profond > 0) { unset ($ajout); // changement de type de liste au meme niveau : il faut // descendre un niveau plus bas, fermer ce niveau, et // remonter $nouv_type = (substr($item,0,1) == '*') ? 'ul' : 'ol'; $change_type = ($type AND ($type <> $nouv_type) AND ($profond == $niveau)) ? 1 : 0; $type = $nouv_type; // d'abord traiter les descentes while ($niveau > $profond - $change_type) { $ajout .= $pile_li[$niveau]; $ajout .= $pile_type[$niveau]; if (!$change_type) unset ($pile_li[$niveau]); $niveau --; } // puis les identites (y compris en fin de descente) if ($niveau == $profond && !$change_type) { $ajout .= $pile_li[$niveau]; } // puis les montees (y compris apres une descente un cran trop bas) while ($niveau < $profond) { if ($niveau == 0) $ajout .= "\n\n"; $niveau ++; $ajout .= ""."<$type class=\"spip\">"; $pile_type[$niveau] = "".""; } $ajout .= "