projects
/
euphorik.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(no commit message)
[euphorik.git]
/
modules
/
erl
/
euphorik_bd.erl
diff --git
a/modules/erl/euphorik_bd.erl
b/modules/erl/euphorik_bd.erl
index
39825bd
..
49bb334
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.
% 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
-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
-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
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
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]},
]),
\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
]),
\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
]),
\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_version
2(
) ->
+vers_version
(2
) ->
mnesia:transform_table(
user,
fun({user, Id, Cookie, Pseudo, Date_creation, Date_derniere_connexion, Css}) ->
mnesia:transform_table(
user,
fun({user, Id, Cookie, Pseudo, Date_creation, Date_derniere_connexion, Css}) ->
@@
-48,8
+56,9
@@
vers_version2() ->
record_info(fields, user),
user
).
record_info(fields, user),
user
).
+
\r
-vers_version
3(
) ->
+vers_version
(3
) ->
mnesia:transform_table(
user,
fun({user, Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css}) ->
mnesia:transform_table(
user,
fun({user, Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css}) ->
@@
-69,7
+78,4
@@
peupler() ->
end
).
end
).
-
\r
-tester() ->
\r
- ok.