X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=modules%2Ferl%2Fold%2Feuphorik_format.erl;fp=modules%2Ferl%2Fold%2Feuphorik_format.erl;h=3d60eb14edda476ed9965962b3a7f617de4bd1fa;hb=5cad26602c65798f3828e15650303ca731e787d0;hp=0000000000000000000000000000000000000000;hpb=c8130dc9b276777639dcc8a28e9460fb645fe160;p=euphorik.git
diff --git a/modules/erl/old/euphorik_format.erl b/modules/erl/old/euphorik_format.erl
new file mode 100755
index 0000000..3d60eb1
--- /dev/null
+++ b/modules/erl/old/euphorik_format.erl
@@ -0,0 +1,67 @@
+% 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, "") 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://[^ ]*", "[url]") of
+ {ok, R, _} -> R;
+ _ -> erreur
+ end.
+
+
+formater_contenu_message(M) ->
+ string:strip(traiter_smiles(traiter_url(virer_balises_html(M)))).
+
+
+