From: Greg Burri Date: Tue, 26 Feb 2008 10:05:21 +0000 (+0000) Subject: (no commit message) X-Git-Tag: 1.0.0^2~194 X-Git-Url: http://git.euphorik.ch/index.cgi?a=commitdiff_plain;h=5cad26602c65798f3828e15650303ca731e787d0;p=euphorik.git --- diff --git a/modules/erl/euphorik_format.erl b/modules/erl/euphorik_format.erl deleted file mode 100755 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, "") 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)))). - - - 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)))). + + +