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. */
/******************************************************************************************/
?>