ADD trolls, fin coté serveur et début coté client

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

diff --git a/modules/erl/euphorik_minichat_conversation.erl b/modules/erl/euphorik_minichat_conversation.erl
index 8cddd03..d5f486f 100755 (executable)
--- a/modules/erl/euphorik_minichat_conversation.erl
+++ b/modules/erl/euphorik_minichat_conversation.erl
@@ -30,8 +30,8 @@
 % @spec conversations([{integer(), integer(), integer()}], integer(), integer(), integer()) -> [Conversation()]
 conversations(Racines, N, D, P) ->
    % écoute des nouveaux messages
-   case subscribe(minichat, 2) of
-      erreur = E ->
+   case mnesia:subscribe({table, minichat, simple}) of
+      {error, E} = E ->
          E;
       _ ->
          % demande des conversations
@@ -55,31 +55,33 @@ conversations(Racines, N, D, P) ->
                Conversations
             end
          ),
-         unsubscribe(minichat),
+         mnesia:unsubscribe({table, minichat, simple}),
          Conversations_mises_en_forme
    end.
    
    
 % Ecoute les événements de modification d'une table.
 % @spec subscribe(atom(), integer()) -> ok | erreur
-subscribe(_Table, 0) ->
-   erreur;
-subscribe(Table, C) ->
-   case mnesia:subscribe({table, Table, simple}) of 
-       {error, {not_active_local, Table}} ->       
-         mnesia:add_table_copy(minichat, node(), ram_copies),
-         subscribe(Table, C - 1);
-      {error, _}->
-         erreur;
-      _ ->
-         ok
-   end.   
+% Obsolète
+%~ subscribe(_Table, 0) ->
+   %~ erreur;
+%~ subscribe(Table, C) ->
+   %~ case mnesia:subscribe({table, Table, simple}) of 
+       %~ {error, {not_active_local, Table}} ->
+         %~ mnesia:add_table_copy(minichat, node(), ram_copies),
+         %~ subscribe(Table, C - 1);
+      %~ {error, _}->
+         %~ erreur;
+      %~ _ ->
+         %~ ok
+   %~ end.   
    
    
 % Arrête d'écouter les modifications d'une table.
 % @spec unsubscribe(atom()) -> term()
-unsubscribe(Table) -> 
-   mnesia:unsubscribe({table, Table, simple}).
+% Obsolète
+%~ unsubscribe(Table) -> 
+   %~ mnesia:unsubscribe({table, Table, simple}).
  
  
 % Attend qu'un nouveau message arrive, function bloquante.