-% Attention : Ce module n'est plus utilisé, les fonctions ont été déportées vers le client
-% Ce module permet de formater le contenu d'un message :
-% - Ajout de balise HTML pour les URL
-% - Substitution des smiles par des images
-% - Cleanage du contenu des balises HTML
-%
-% Auteur : G.Burri
-% Date : 12.11.2007
-
--module(euphorik_format).
--export([smiles/0, formater_contenu_message/1]).
-
-
-smiles() ->
- [
- {":\\)", "smile"},
- {":D", "bigsmile"},
- {"\\[:argn\\]", "argn"},
- {"\\[:lapin\\]", "bunny"},
- {"\\[:chat\\]", "chat"},
- {";\\)", "clin"},
- {"8\\)", "cool"},
- {":P", "eheheh"},
- {"\\[:lol\\]", "lol"},
- {":o", "oh"},
- {">\\(", "pascontent"},
- {"\\[:renne\\]", "renne"},
- {":\\(", "sniff"},
- {"\\[:spliff\\]", "spliff"},
- {"\\[:star\\]", "star"},
- {"\\[:triste\\]", "triste"}
- ].
-
-
-traiter_smiles(M) ->
- lists:foldr(
- fun({Symbole, Nom}, A) ->
- case regexp:gsub(A, Symbole, "<img src=\"img/smileys/" ++ Nom ++ ".gif\" />") of
- {ok, R, _} -> R;
- _ -> "ERREUR"
- end
- end,
- M,
- smiles()
- ).
-
-
-
-virer_balises_html(M) ->
- case regexp:gsub(M, "</?[^>]*>", "") of
- {ok, R, _} -> R;
- _ -> erreur
- end.
-
-
-traiter_url(M) ->
- case regexp:gsub(M, "http://[^ ]*", "<a href=\"\&\" >[url]</a>") of
- {ok, R, _} -> R;
- _ -> erreur
- end.
-
-
-formater_contenu_message(M) ->
- string:strip(traiter_smiles(traiter_url(virer_balises_html(M)))).
-
-
-