ADD début de versioning de la BD

diff --git a/doc/TODO.txt b/doc/TODO.txt
index c8b5a53..d1ffe41 100755 (executable)
--- a/doc/TODO.txt
+++ b/doc/TODO.txt
@@ -1,7 +1,6 @@
 == TODO ==\r
 \r
 === v1.0 ===\r
-* Finir les options d'affichage des bulles et des dates\r
 * Rendre compatible IE 7 (pfff..)\r
 * Stocker quelque part la version de la BD\r
    * Créer une table "proprietes" contenant des tuples {propriete, nom, val}\r
@@ -168,6 +167,7 @@
 [ok] Mettre les constantes au niveau du serveur dans euphorik_defines.hrl (par exemple les temps lié au flood)\r
 [ok] Créer un style common puis adapter les CSS (classic et cold -> web2.0)\r
    * Alignement du menu, du troll et des trolls de la partie admin à l'aide de line-height
+[ok] Finir les options d'affichage des bulles et des dates
       
 === Bugs ===
 1 : Critique

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 13acf96..bb092fa 100755 (executable)
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -110,6 +110,10 @@ create_tables() ->
       {attributes, record_info(fields, counter)},
       {disc_copies, [node()]}
    ]),
+   mnesia:create_table(proprietes, [
+      {attributes, record_info(fields, proprietes)},
+      {disc_copies, [node()]}
+   ]),
    mnesia:create_table(minichat, [
       {attributes, record_info(fields, minichat)},
       {index, [auteur_id, troll_id]},
@@ -154,7 +158,8 @@ reset() ->
    mnesia:clear_table(troll),
    mnesia:clear_table(ip_table),\r
    % crée l'utilisateur root\r
-   mnesia:transaction(fun() ->\r
+   mnesia:transaction(fun() ->
+      mnesia:write(#proprietes{nom = version, valeur = ?VERSION_BD}),\r
       User = #user{id = 0, pseudo = "Sys", login = "Sys", date_creation = now(), date_derniere_connexion = now(), ek_master = true},\r
       mnesia:write(User),\r
       User\r

diff --git a/modules/include/euphorik_bd.hrl b/modules/include/euphorik_bd.hrl
index 4ef15a4..1cadcd6 100755 (executable)
--- a/modules/include/euphorik_bd.hrl
+++ b/modules/include/euphorik_bd.hrl
@@ -24,7 +24,15 @@
       key,\r
       value\r
    }).\r
-   \r
+   
+   
+% Mémorse toutes les propriétés, entre autre la version des données
+-record(proprietes,
+   {
+      nom,
+      valeur
+   }).\r
+
 \r
 % décrit un enregistrement d'un message\r
 -record(minichat,

diff --git a/modules/include/euphorik_defines.hrl b/modules/include/euphorik_defines.hrl
index 2e2ba7c..b8a5b38 100755 (executable)
--- a/modules/include/euphorik_defines.hrl
+++ b/modules/include/euphorik_defines.hrl
@@ -14,6 +14,9 @@
 %\r
 % You should have received a copy of the GNU General Public License\r
 % along with Euphorik.  If not, see <http://www.gnu.org/licenses/>.\r
+
+% Version de la BD
+-define(VERSION_BD, 1).
 \r
 % Le temps d'attente après une erreur de login (mauvais login/pass) : une demie seconde\r
 % Permet d'éviter (limiter) les attaques par dictionnaire\r