From: Greg Burri <greg.burri@gmail.com>
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/?p=euphorik.git;a=commitdiff_plain;h=5cad26602c65798f3828e15650303ca731e787d0

---

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, "<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)))).
-   
-   
-
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, "<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)))).
+   
+   
+