--- /dev/null
+% 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)))).
+
+
+