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