laposte.net */ /* */ /* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */ /* de la Licence Publique Generale GNU publiee par la Free Software Foundation */ /* (version 2). */ /* */ /* Ce programme est distribue car potentiellement utile, mais SANS AUCUNE GARANTIE, */ /* ni explicite ni implicite, y compris les garanties de commercialisation ou */ /* d'adaptation dans un but specifique. Reportez-vous à la Licence Publique Generale GNU */ /* pour plus de détails. */ /* */ /* Vous devez avoir reçu une copie de la Licence Publique Generale GNU */ /* en meme temps que ce programme ; si ce n'est pas le cas, ecrivez a la */ /* Free Software Foundation, */ /* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, Etats-Unis. */ /******************************************************************************************/ function pied_de_page_liste($id_liste) { if(intval($id_liste) > 0){ $pied=spip_query("SELECT pied_page FROM spip_listes WHERE id_liste="._q($id_liste)." LIMIT 0,1"); $pied=spip_fetch_array($pied); $pied= $pied['pied_page']; }else{ include_spip('public/assembler'); $contexte_pied = array('lang'=>$GLOBALS['spip_lang']); $pied = recuperer_fond('modeles/piedmail', $contexte_pied); } return $pied ; } function spiplistes_langue_liste ($id_liste) { $lang=spip_query("SELECT lang FROM spip_listes WHERE id_liste="._q($id_liste)." LIMIT 0,1"); $lang=spip_fetch_array($lang); $lang= $lang['lang']; return $lang ; } // Bloogletter /**** * titre : propre_bloog * Enleve les enluminures Spip pour la bloogletter Vincent CARON ****/ function propre_bloog($texte) { $texte = ereg_replace("

(\r\n|\n|\r)?

",'',$texte); $texte = eregi_replace("\n{3}", "\n", $texte); // div imbrique dans un p $texte = eregi_replace( "

(\r\n|\n|\r| )*]*)>" , "" , $texte); $texte = eregi_replace( "<\/div>(\r\n|\n|\r| )*<\/p>" , "" , $texte); // style imbrique dans un p $texte = eregi_replace( "

(\r\n|\n|\r| )*]*)>" , "" , $texte); // h3 imbrique dans un p $texte = eregi_replace( "

(\r\n|\n|\r| )*

" , "

" , $texte); $texte = eregi_replace( "<\/h3>(\r\n|\n|\r| )*<\/p>" , "

" , $texte); // h2 imbrique dans un p $texte = eregi_replace( "

(\r\n|\n|\r| )*

" , "

" , $texte); $texte = eregi_replace( "<\/h2>(\r\n|\n|\r| )*<\/p>" , "

" , $texte); // h1 imbrique dans un p $texte = eregi_replace( "

(\r\n|\n|\r| )*

" , "

" , $texte); $texte = eregi_replace( "<\/h1>(\r\n|\n|\r| )*<\/p>" , "

" , $texte); // tableaux imbriques dans p $texte = eregi_replace( "

(\r\n|\n|\r| )*<(table|TABLE)" , "(\r\n|\n|\r| )*<\/p>" , "" , $texte); // TD imbriques dans p $texte = eregi_replace( "

(\r\n|\n|\r| )*<(\/td|\/TD)" , "(\r\n|\n|\r| )*<\/p>" , "" , $texte); // p imbriques dans p $texte = eregi_replace( "

(\r\n|\n|\r| )*<(p|P)" , "(\r\n|\n|\r| )*<\/p>" , "" , $texte); // DIV imbriques dans p $texte = eregi_replace( "

(\r\n|\n|\r| )*<(div|DIV)" , "(\r\n|\n|\r| )*<\/p>" , "" , $texte); //$texte = PtoBR($texte); $texte = ereg_replace ("\.php3 \?",".php3?", $texte); $texte = ereg_replace ("\.php \?",".php?", $texte); return $texte; } /**** * titre : version_texte * d'après Clever Mail (-> NHoizey), mais en mieux. ****/ function spiplistes_version_texte($in) { // Nettoyage des liens des notes de bas de page $out = ereg_replace("([0-9]+)", "\\3", $in); // Supprimer tous les liens internes $patterns = array("/\]*>(.*?)<\/a>/ims"); $replacements = array("\\2"); $out = preg_replace($patterns,$replacements, $out); // Supprime feuille style $out = ereg_replace("]*>[^<]*", "", $out); // les puces $out = str_replace($GLOBALS['puce'], "\n".'-', $out); // Remplace tous les liens $patterns = array( "/\]*?href=['\"](.*?)['\"][^>]*>(.*?)<\/a>/ims" ); $replacements = array( "\\2 (\\1)" ); $out = preg_replace($patterns,$replacements, $out); $out = ereg_replace("]*>", "_SAUT__SAUT_--------------------------------------------------------_SAUT_", $out); $out = str_replace("", "_SAUT__SAUT_--------------------------------------------------------_SAUT__SAUT_", $out); $out = ereg_replace("]*>", "_SAUT__SAUT_............... ", $out); $out = str_replace("", " ..............._SAUT__SAUT_", $out); $out = ereg_replace("]*>", "_SAUT__SAUT_*", $out); $out = str_replace("", "*_SAUT__SAUT_", $out); // Les notes de bas de page $out = str_replace("

", "\n", $out); $out = ereg_replace("([0-9]+)", "[\\1]", $out); $out = str_replace("]*>", "\n\n", $out); //$out = str_replace('
\'-\'', "\n".'-', $out); $out = ereg_replace (']>', "\n".'-', $out); //$out = str_replace('

  • ', "\n".'-', $out); // accentuation du gras - // texte -> *texte* $out = ereg_replace ('|r]*>','*' ,$out); $out = str_replace ('','*' ,$out); // accentuation du gras - // texte -> *texte* $out = ereg_replace (']*>','*' ,$out); $out = str_replace ('','*' ,$out); // accentuation de l'italique // texte -> *texte* $out = ereg_replace ('|mg]*>','*' ,$out); $out = str_replace ('','*' ,$out); $out = str_replace('œ', 'oe', $out); $out = str_replace(" ", " ", $out); $out = filtrer_entites($out); //attention, trop brutal pour les logs irc <@RealET> $out = supprimer_tags($out); $out = str_replace("\x0B", "", $out); $out = ereg_replace("\t", "", $out) ; $out = ereg_replace("[ ]{3,}", "", $out); // espace en debut de ligne $out = preg_replace("/(\r\n|\n|\r)[ ]+/", "\n", $out); //marche po // Bring down number of empty lines to 4 max $out = preg_replace("/(\r\n|\n|\r){3,}/m", "\n\n", $out); //retablir les saut de ligne $out = preg_replace("/(_SAUT_){3,}/m", "_SAUT__SAUT__SAUT_", $out); $out = preg_replace("/_SAUT_/", "\n", $out); //saut de lignes en debut de texte $out = preg_replace("/^(\r\n|\n|\r)+/", "\n\n", $out); //saut de lignes en debut ou fin de texte $out = preg_replace("/(\r\n|\n|\r)+$/", "\n\n", $out); return $out; } /******************************************************************************************/ /* SPIP-Listes est un systeme de gestion de listes d'abonnes et d'envoi d'information */ /* par email pour SPIP. http://bloog.net/spip-listes */ /* Copyright (C) 2004 Vincent CARON v.caronlaposte.net */ /* */ /* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */ /* de la Licence Publique Generale GNU publiee par la Free Software Foundation */ /* (version 2). */ /* */ /* Ce programme est distribue car potentiellement utile, mais SANS AUCUNE GARANTIE, */ /* ni explicite ni implicite, y compris les garanties de commercialisation ou */ /* d'adaptation dans un but specifique. Reportez-vous à la Licence Publique Generale GNU */ /* pour plus de détails. */ /* */ /* Vous devez avoir reçu une copie de la Licence Publique Generale GNU */ /* en meme temps que ce programme ; si ce n'est pas le cas, ecrivez a la */ /* Free Software Foundation, */ /* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, Etats-Unis. */ /******************************************************************************************/ ?>