1 % Attention : Ce module n'est plus utilisé, les fonctions ont été déportées vers le client
2 % Ce module permet de formater le contenu d'un message :
3 % - Ajout de balise HTML pour les URL
4 % - Substitution des smiles par des images
5 % - Cleanage du contenu des balises HTML
10 -module(euphorik_format
).
11 -export([smiles
/0, formater_contenu_message
/1]).
18 {"\\[:argn\\]", "argn"},
19 {"\\[:lapin\\]", "bunny"},
20 {"\\[:chat\\]", "chat"},
24 {"\\[:lol\\]", "lol"},
26 {">\\(", "pascontent"},
27 {"\\[:renne\\]", "renne"},
29 {"\\[:spliff\\]", "spliff"},
30 {"\\[:star\\]", "star"},
31 {"\\[:triste\\]", "triste"}
37 fun({Symbole
, Nom
}, A
) ->
38 case regexp:gsub(A
, Symbole
, "<img src=\"img/smileys/" ++ Nom
++ ".gif\" />") of
49 virer_balises_html(M
) ->
50 case regexp:gsub(M
, "</?[^>]*>", "") of
57 case regexp:gsub(M
, "http://[^ ]*", "<a href=\"\&\" >[url]</a>") of
63 formater_contenu_message(M
) ->
64 string:strip(traiter_smiles(traiter_url(virer_balises_html(M
)))).