(no commit message)

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

diff --git a/modules/erl/euphorik_format.erl b/modules/erl/euphorik_format.erl
deleted file mode 100755 (executable)
index 3d60eb1..0000000
--- a/modules/erl/euphorik_format.erl
+++ /dev/null
@@ -1,67 +0,0 @@
-% 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)))).
-   
-   
-