OUPS
[euphorik.git] / modules / erl / old / euphorik_format.erl
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
6 %
7 % Auteur : G.Burri
8 % Date : 12.11.2007
9
10 -module(euphorik_format).
11 -export([smiles/0, formater_contenu_message/1]).
12
13
14 smiles() ->
15 [
16 {":\\)", "smile"},
17 {":D", "bigsmile"},
18 {"\\[:argn\\]", "argn"},
19 {"\\[:lapin\\]", "bunny"},
20 {"\\[:chat\\]", "chat"},
21 {";\\)", "clin"},
22 {"8\\)", "cool"},
23 {":P", "eheheh"},
24 {"\\[:lol\\]", "lol"},
25 {":o", "oh"},
26 {">\\(", "pascontent"},
27 {"\\[:renne\\]", "renne"},
28 {":\\(", "sniff"},
29 {"\\[:spliff\\]", "spliff"},
30 {"\\[:star\\]", "star"},
31 {"\\[:triste\\]", "triste"}
32 ].
33
34
35 traiter_smiles(M) ->
36 lists:foldr(
37 fun({Symbole, Nom}, A) ->
38 case regexp:gsub(A, Symbole, "<img src=\"img/smileys/" ++ Nom ++ ".gif\" />") of
39 {ok, R, _} -> R;
40 _ -> "ERREUR"
41 end
42 end,
43 M,
44 smiles()
45 ).
46
47
48
49 virer_balises_html(M) ->
50 case regexp:gsub(M, "</?[^>]*>", "") of
51 {ok, R, _} -> R;
52 _ -> erreur
53 end.
54
55
56 traiter_url(M) ->
57 case regexp:gsub(M, "http://[^ ]*", "<a href=\"\&\" >[url]</a>") of
58 {ok, R, _} -> R;
59 _ -> erreur
60 end.
61
62
63 formater_contenu_message(M) ->
64 string:strip(traiter_smiles(traiter_url(virer_balises_html(M)))).
65
66
67