% 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)))).