ADD support des conversations (pas fini)

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

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 39825bd..8eb90df 100755 (executable)
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -1,13 +1,21 @@
 % Module de création de la base de données euphorik.
-% Auteur : G.Burri
-% Date : 14.10.2007
+% @author G.Burri
 
 -module(euphorik_bd).\r
--export([create/0, create_tables/0, vers_version2/0, vers_version3/0, peupler/0, tester/0]).\r
+-export([\r
+   create/0,\r
+   create_tables/0,\r
+   vers_version/1,\r
+   peupler/0\r
+   ]).\r
 \r
 -include("../include/euphorik_bd.hrl").\r
 
-\r
+
+% Instructions pour créer une nouvelle base : 
+% $erl -sname yaws -mnesia dir '"/projets/euphorik/BD"'
+% >l(euphorik_bd).
+% >euphorik_bd:create().\r
 create() ->\r
    mnesia:stop(),\r
    mnesia:delete_schema([node()]),\r
@@ -19,27 +27,27 @@ create() ->
 create_tables() ->\r
    mnesia:create_table(counter, [\r
       {attributes, record_info(fields, counter)},\r
-      {disc_copies, [yaws@overnux]}\r
+      {disc_copies, [node()]}\r
    ]),\r
    mnesia:create_table(minichat, [
       {attributes, record_info(fields, minichat)},
       {index, [auteur_id]},
-      {disc_copies, [yaws@overnux]}
+      {disc_copies, [node()]}
    ]),\r
    mnesia:create_table(reponse_minichat, [\r
       {type, bag},\r
       {attributes, record_info(fields, reponse_minichat)},\r
       {index, [cible]},\r
-      {disc_copies, [yaws@overnux]}\r
+      {disc_copies, [node()]}\r
    ]),\r
    mnesia:create_table(user, [\r
       {attributes, record_info(fields, user)},
       {index, [cookie, login]},\r
-      {disc_copies, [yaws@overnux]}\r
+      {disc_copies, [node()]}\r
    ]).
 
 
-vers_version2() ->
+vers_version(2) ->
    mnesia:transform_table(
       user,
       fun({user, Id, Cookie, Pseudo, Date_creation, Date_derniere_connexion, Css}) ->
@@ -47,9 +55,8 @@ vers_version2() ->
       end,
       record_info(fields, user),
       user
-   ).
-
-vers_version3() ->
+   );
+vers_version(3) ->
    mnesia:transform_table(
       user,
       fun({user, Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css}) ->
@@ -57,8 +64,16 @@ vers_version3() ->
       end,
       record_info(fields, user),
       user
-   ).
-      
+   );
+vers_version(4) ->
+   mnesia:transform_table(
+      user,
+      fun({user, Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Indice_flood}) ->
+            {user,  Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Indice_flood, []}
+      end,
+      record_info(fields, user),
+      user
+   ).      
 
 % exemple de peuplage de la BD, utilisé pour les tests
 peupler() ->   
@@ -69,7 +84,4 @@ peupler() ->
       end
    ).
 
-\r
-tester() ->\r
-   ok.