39825bd91a5f106f04184d10eb2bdc625fbfc37d
1 % Module de création de la base de données euphorik.
6 -export([create
/0, create_tables
/0, vers_version2
/0, vers_version3
/0, peupler
/0, tester
/0]).
8 -include("../include/euphorik_bd.hrl").
13 mnesia:delete_schema([node()]),
14 mnesia:create_schema([node()]), % nécessaire pour les tables sur disc
20 mnesia:create_table(counter
, [
21 {attributes
, record_info(fields
, counter
)},
22 {disc_copies
, [yaws@overnux
]}
24 mnesia:create_table(minichat
, [
25 {attributes
, record_info(fields
, minichat
)},
27 {disc_copies
, [yaws@overnux
]}
29 mnesia:create_table(reponse_minichat
, [
31 {attributes
, record_info(fields
, reponse_minichat
)},
33 {disc_copies
, [yaws@overnux
]}
35 mnesia:create_table(user
, [
36 {attributes
, record_info(fields
, user
)},
37 {index
, [cookie
, login
]},
38 {disc_copies
, [yaws@overnux
]}
43 mnesia:transform_table(
45 fun({user
, Id
, Cookie
, Pseudo
, Date_creation
, Date_derniere_connexion
, Css
}) ->
46 {user
, Id
, Cookie
, Pseudo
, "", "", "", Date_creation
, Date_derniere_connexion
, Css
}
48 record_info(fields
, user
),
53 mnesia:transform_table(
55 fun({user
, Id
, Cookie
, Pseudo
, Login
, Password
, Email
, Date_creation
, Date_derniere_connexion
, Css
}) ->
56 {user
, Id
, Cookie
, Pseudo
, Login
, Password
, Email
, Date_creation
, Date_derniere_connexion
, Css
, 0}
58 record_info(fields
, user
),
63 % exemple de peuplage de la BD, utilisé pour les tests
67 mnesia:write({minichat
, now(), "Pierre", "Salut tout le monde"}),
68 mnesia:write({minichat
, now(), "Paul", "Salut à toi !"})