(no commit message)

[euphorik.git] / modules / erl / old / euphorik_format.erl

diff --git a/modules/erl/old/euphorik_format.erl b/modules/erl/old/euphorik_format.erl
new file mode 100755 (executable)
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, "<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)))).
+   
+   
+