From 218e748e517e9b88c6bcb2eb88ed28cd536b3d4e Mon Sep 17 00:00:00 2001
From: Greg Burri <greg.burri@gmail.com>
Date: Mon, 5 May 2008 20:28:52 +0000
Subject: [PATCH]

---
 modules/erl/euphorik_bd.erl | 142 ------------------------------------
 1 file changed, 142 deletions(-)
 delete mode 100755 modules/erl/euphorik_bd.erl

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
deleted file mode 100755
index 7703bd3..0000000
--- a/modules/erl/euphorik_bd.erl
+++ /dev/null
@@ -1,142 +0,0 @@
-% Module de création de la base de données euphorik.
-% @author G.Burri
-
--module(euphorik_bd).
--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"'
-% voir doc/installation.txt
-% >l(euphorik_bd).
-% >euphorik_bd:create().
-create() ->
-   mnesia:stop(),
-   mnesia:delete_schema([node()]),
-   mnesia:create_schema([node()]), % nécessaire pour les tables sur disc
-   mnesia:start(),
-   create_tables().
-   
-
-create_tables() ->
-   mnesia:create_table(counter, [
-      {attributes, record_info(fields, counter)},
-      {disc_copies, [node()]}
-   ]),
-   mnesia:create_table(minichat, [
-      {attributes, record_info(fields, minichat)},
-      {index, [auteur_id]},
-      {disc_copies, [node()]}
-   ]),
-   mnesia:create_table(reponse_minichat, [
-      {type, bag},
-      {attributes, record_info(fields, reponse_minichat)},
-      {index, [cible]},
-      {disc_copies, [node()]}
-   ]),
-   mnesia:create_table(user, [
-      {attributes, record_info(fields, user)},
-      {index, [cookie, login]},
-      {disc_copies, [node()]}
-   ]),
-   mnesia:create_table(ip_table, [
-      {attributes, record_info(fields, ip_table)},
-      {disc_copies, [node()]}
-   ]),
-   mnesia:create_table(troll, [
-      {attributes, record_info(fields, troll)},
-      {disc_copies, [node()]}
-   ]).
-
-
-vers_version(2) ->
-   mnesia:transform_table(
-      user,
-      fun({user, Id, Cookie, Pseudo, Date_creation, Date_derniere_connexion, Css}) ->
-            {user, Id, Cookie, Pseudo, "", "", "", Date_creation, Date_derniere_connexion, Css}
-      end,
-      record_info(fields, user),
-      user
-   );
-vers_version(3) ->
-   mnesia:transform_table(
-      user,
-      fun({user, Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css}) ->
-            {user,  Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, 0}
-      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
-   );
-% Ajout du numéro de page de la conv principale
-vers_version(5) ->
-   mnesia:transform_table(
-      user,
-      fun({user, Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Indice_flood, Conversations}) ->
-            {user,  Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Indice_flood, 1, Conversations}
-      end,
-      record_info(fields, user),
-      user
-   );
-% Ajout le format d'affichage des pseudos
-vers_version(6) ->
-   mnesia:transform_table(
-      user,
-      fun({user, Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Indice_flood, Page_Principale, Conversations}) ->
-            {user,  Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, nick, Indice_flood, Page_Principale, Conversations}
-      end,
-      record_info(fields, user),
-      user
-   );
-% Ajout de la table 'ip_table'
-% Ajout du statut 'ek_master' pour les users
-vers_version(7) ->
-   mnesia:transform_table(
-      user,
-      fun({user, Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Nick_format, Indice_flood, Page_Principale, Conversations}) ->
-            {user,  Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Nick_format, Indice_flood, Page_Principale, Conversations, false, undefined}
-      end,
-      record_info(fields, user),
-      user
-   ),
-   mnesia:create_table(ip_table, [
-      {attributes, record_info(fields, ip_table)},
-      {disc_copies, [node()]}
-   ]),
-   mnesia:create_table(troll, [
-      {attributes, record_info(fields, troll)},
-      {disc_copies, [node()]}
-   ]);
-vers_version(8) ->
-   mnesia:transform_table(
-      ip_table,
-      fun() -> null end,
-      record_info(fields, ip_table),
-      ip_table
-   ).
-   
-
-
-% exemple de peuplage de la BD, utilisé pour les tests
-peupler() ->   
-   mnesia:transaction(
-      fun() ->
-         mnesia:write({minichat, now(), "Pierre", "Salut tout le monde"}),
-         mnesia:write({minichat, now(), "Paul", "Salut à toi !"})
-      end
-   ).
-- 
2.45.2