X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd.erl;h=4478726a9f302d49939dabdcf91398e4810d8434;hb=50e129994805932dbf407e55afb971c0f7b20f1c;hp=39825bd91a5f106f04184d10eb2bdc625fbfc37d;hpb=6feaef2a51f7226c41d69f9e86f605718b78aa02;p=euphorik.git diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl index 39825bd..4478726 100755 --- 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). --export([create/0, create_tables/0, vers_version2/0, vers_version3/0, peupler/0, tester/0]). +-export([ + create/0, + create_tables/0, + vers_version/1, + peupler/0 + ]). -include("../include/euphorik_bd.hrl"). - + +% Instructions pour créer une nouvelle base : +% $erl -sname yaws -mnesia dir '"/projets/euphorik/BD"' +% >l(euphorik_bd). +% >euphorik_bd:create(). create() -> mnesia:stop(), mnesia:delete_schema([node()]), @@ -19,27 +27,27 @@ create() -> create_tables() -> mnesia:create_table(counter, [ {attributes, record_info(fields, counter)}, - {disc_copies, [yaws@overnux]} + {disc_copies, [node()]} ]), mnesia:create_table(minichat, [ {attributes, record_info(fields, minichat)}, {index, [auteur_id]}, - {disc_copies, [yaws@overnux]} + {disc_copies, [node()]} ]), mnesia:create_table(reponse_minichat, [ {type, bag}, {attributes, record_info(fields, reponse_minichat)}, {index, [cible]}, - {disc_copies, [yaws@overnux]} + {disc_copies, [node()]} ]), mnesia:create_table(user, [ {attributes, record_info(fields, user)}, {index, [cookie, login]}, - {disc_copies, [yaws@overnux]} + {disc_copies, [node()]} ]). -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}) -> @@ -69,7 +76,4 @@ peupler() -> end ). - -tester() -> - ok.