- % permet de prÃ©dÃ©finir la "class" du logo pour un ekMaster... + % To redefine the logo class for the ekMasters. out(A) -> - Est_ek_master = euphorik_bd:is_ek_master_from_cookie(yaws_api:find_cookie_val("cookie", A)), - {ehtml, {'div', [{id, "logo"}] ++ if Est_ek_master -> [{class, "ekMaster"}]; true -> [] end}}. + Is_ek_master = euphorik_bd:is_ek_master_from_cookie(yaws_api:find_cookie_val("cookie", A)), + {ehtml, {'div', [{id, "logo"}] ++ if Is_ek_master -> [{class, "ekMaster"}]; true -> [] end}}. @@ -83,12 +83,12 @@ % parse les styles disponible out(A) -> - Stlyes_dir = A#arg.docroot ++ "/styles", - {ok, Liste_dir} = file:list_dir(Stlyes_dir), + Styles_dir = A#arg.docroot ++ "/styles", + {ok, Liste_dir} = file:list_dir(Styles_dir), {ehtml, lists:foldr( fun(Dir, Acc) -> - case file:consult(Stlyes_dir ++ "/" ++ Dir ++ "/infos.txt") of + case file:consult(Styles_dir ++ "/" ++ Dir ++ "/infos.txt") of {ok, [{nom, Nom}]} -> [{option, [{value, Dir}], Nom} | Acc]; _ -> diff --git a/js/euphorik.js b/js/euphorik.js index cac44c8..893a32a 100755 --- a/js/euphorik.js +++ b/js/euphorik.js @@ -23,7 +23,7 @@ var euphorik = {}; // le main $(document).ready( - function() { + function() { var fragment = new Fragment(); var formatter = new euphorik.Formatter(); var util = new euphorik.Util(formatter); @@ -34,16 +34,14 @@ $(document).ready( ); var client = new euphorik.Client(util, communication); var pages = new euphorik.Pages(fragment, communication); - + // Client authentification with the cookie information (if it exists). client.connectionCookie(); - + $("#menuCss").change(function() { client.setCss("styles/" + $("option:selected", this).attr("value") + "/euphorik.css"); }); - // FIXME : doesn't work under Opera - // see : http://dev.jquery.com/ticket/2892#preview $(window).unload(function() { client.flush(); }); - + $("#menu .minichat").click(function() { pages.displayPage("minichat"); }); $("#menu .admin").click(function() { pages.displayPage("admin"); }); $("#menu .profile").click(function() { pages.displayPage("profile"); }); @@ -60,19 +58,19 @@ $(document).ready( }); $("#menu .register").click(function(){ pages.displayPage("register"); }); $("#menu .about").click(function(){ pages.displayPage("about"); }); - + // TODO : simplification : such link[1] should be created and automatically open the right page without // explicitly add a page. // [1] : Terms of use $("#footer .termsOfUse").click(function(){ pages.displayPage("terms_of_use"); }); - + pages.addPage(new euphorik.PageMinichat(client, formatter, util, communication), true); pages.addPage(new euphorik.PageAdmin(client, formatter, util, communication)); pages.addPage(new euphorik.PageProfile(client, formatter, util)); pages.addPage(new euphorik.PageRegister(client, formatter, util)); pages.addPage(new euphorik.PageAbout(client, formatter, util, communication)); pages.addPage("terms_of_use"); - + pages.displayPage(); // display the default page } ); diff --git a/modules/erl/euphorik_bd_admin.erl b/modules/erl/euphorik_bd_admin.erl index e5c20bc..84fe459 100644 --- a/modules/erl/euphorik_bd_admin.erl +++ b/modules/erl/euphorik_bd_admin.erl @@ -16,12 +16,9 @@ % You should have received a copy of the GNU General Public License % along with Euphorik. If not, see . % -% Module mettant Ã disposition tout un tas de fonction pour l'administration de la base de donnÃ©es euphorik comme : -% - CrÃ©ation de la BD -% - Mise Ã jour de la BD -% - Backup et restauration -% - Copie de la BD Ã partir d'un autre noeud - +% Some functions to manage the database like creating, updating, backuping etc. +% +% @author G.Burri -module(euphorik_bd_admin). -author("Greg Burri "). @@ -42,13 +39,14 @@ print_users/1, print_user/1 ]). + -import(qlc, [e/2, q/1, cursor/2]). + -include("../include/euphorik_bd.hrl"). -include("../include/euphorik_defines.hrl"). -include_lib("stdlib/include/qlc.hrl"). - -% Renvoie la version courante de la BD. +% Return the current version of the DB. version_bd() -> euphorik_bd:resultat_transaction(mnesia:transaction( fun() -> @@ -56,12 +54,11 @@ version_bd() -> end )). - -% 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 a the database. Warning: it will delete all existent data. +% Example: +% $erl -sname yaws -mnesia dir '"/projects/euphorik/DB"' +% >l(euphorik_admin). +% >euphorik_bd:create(). create() -> mnesia:stop(), mnesia:delete_schema([node()]), @@ -106,12 +103,11 @@ create_tables() -> {attributes, record_info(fields, troll)}, {disc_copies, [node()]} ]), - creer_indexes(). + create_indexes(). - -% mis Ã part car lors de la reprise de donnÃ©es avec load_textfile les indexes ne sont pas recrÃ©Ã©s -creer_indexes() -> - % commence par supprimer les anciens indexes +% Create all the needed indexes on the tables. +create_indexes() -> + % Delete all existing indexes. lists:foreach(fun(T) -> lists:foreach(fun(P) -> mnesia:del_table_index(T, P) @@ -128,16 +124,14 @@ creer_indexes() -> mnesia:add_table_index(troll, date_post), mnesia:add_table_index(troll, id_minichat). - -% Connexion Ã la base de donnÃ©es de yaws sur overnux +% To connect to an remote database node. connect() -> - connect(yaws@flynux). + connect(yaws@x220). connect(Node) -> mnesia:start(), mnesia:change_config(extra_db_nodes, [Node]). - -% Efface toutes les donnÃ©es de la base de donnÃ©es. +% Remove all data. reset() -> mnesia:clear_table(counter), mnesia:clear_table(proprietes), @@ -147,17 +141,16 @@ reset() -> mnesia:clear_table(minichat), mnesia:clear_table(troll), mnesia:clear_table(ip_table), - % crÃ©e l'utilisateur root + % Create the root user. mnesia:transaction(fun() -> - mnesia:write(#proprietes{nom = version, valeur = ?VERSION_BD}), + mnesia:write(#proprietes{nom = version, valeur = ?DB_VERSION}), User = #user{id = 0, profile = #profile{pseudo = "Sys"}, login = "Sys", date_creation = erlang:timestamp(), date_derniere_connexion = erlang:timestamp(), ek_master = true}, mnesia:write(User), User end), - peupler_texte(). - + populate_text(). -peupler_texte() -> +populate_text() -> mnesia:transaction(fun() -> mnesia:write(#texte{ id = 10, fr = "Login dÃ©jÃ existant"}), mnesia:write(#texte{ id = 20, fr = "Trop de register (flood)"}), @@ -168,7 +161,7 @@ peupler_texte() -> mnesia:write(#texte{ id = 70, fr = "Page inconnue"}), mnesia:write(#texte{ id = 80, fr = "Vous Ãªtes banni pour encore ~s"}), mnesia:write(#texte{ id = 90, fr = "Message vide"}), - mnesia:write(#texte{ id = 100, fr = "Impossible d'ajouter un nouveau message. Raison : ~s"}), + mnesia:write(#texte{ id = 100, fr = "Impossible d'ajouter un nouveau message. Cause : ~s"}), mnesia:write(#texte{ id = 110, fr = "Utilisateur inconnu"}), mnesia:write(#texte{ id = 120, fr = "Il n'est pas possible de s'auto bannir"}), mnesia:write(#texte{ id = 130, fr = "L'utilisateur est lui mÃªme un ekMaster"}), @@ -179,32 +172,26 @@ peupler_texte() -> mnesia:write(#texte{ id = 230, fr = "Seul les ekMaster peuvent connaitre la liste des ips bannies"}) end). - -% Met Ã jour la bd, compare ?VERSION_BD avec la version dans la table 'proprietes' -% et exÃ©cute les patchs nÃ©cessaires. +% Update the database to the latest version (?DB_VERSION). update() -> case mnesia:dirty_read({proprietes, version}) of [#proprietes{valeur = Version}] -> update(Version); _ -> - erreur + error end. - - -% Mise Ã jour de la BD. -% attention : il est nÃ©cessaire de se trouver dans une transaction. -update(?VERSION_BD) -> fini; +update(?DB_VERSION) -> finished; update(Version) -> - case mnesia:backup(fichier_backup(Version)) of + case mnesia:backup(backup_file_path(Version)) of ok -> case patch(Version) of ok -> mnesia:dirty_write(#proprietes{nom = version, valeur = Version + 1}), update(Version + 1); - Erreur -> - Erreur + Error -> + Error end; - {error, Raison} -> {error, lists:flatten(io_lib:format("Erreur de crÃ©ation du backup de la version ~w : ~w", [Version, Raison]))} + {error, Message} -> {error, lists:flatten(io_lib:format("Error: unable to create a backup file prior updating the database to the version ~w: ~w", [Version, Message]))} end. @@ -255,7 +242,7 @@ patch(1) -> {attributes, record_info(fields, texte)}, {disc_copies, [node()]} ]), - peupler_texte(), + populate_text(), % traitement des users mnesia:transform_table( user, @@ -279,7 +266,7 @@ patch(1) -> lists:foreach(fun(M) -> Traiter_message(M, M#minichat.id) end, Messages) end ) of - {aborted, Raison} -> {erreur, Raison}; + {aborted, Cause} -> {error, Cause}; {atomic, _} -> ok end; % 2 -> 3 @@ -319,7 +306,7 @@ patch(2) -> % la table troll utilise maintenant son index et pas celui de la table minichat (correction d'un vieux bug) mnesia:write(#counter{key = troll, value = mnesia:table_info(minichat, size)}) end), - creer_indexes(). % uniquement pour l'indice sur id_minichat de la table troll + create_indexes(). % uniquement pour l'indice sur id_minichat de la table troll % Renvoie le dossier dans lequel les backups sont effectuÃ©, ce dossier doit Ãªtre en Ã©criture. @@ -328,7 +315,7 @@ dossier_backups() -> % Renvoie le fichier (avec le chemin) correspondant Ã la version Version, par exemple : "/var/euphorik/BD/backups/backup1" -fichier_backup(Version) when is_integer(Version) -> +backup_file_path(Version) when is_integer(Version) -> dossier_backups() ++ "backup" ++ integer_to_list(Version). @@ -343,7 +330,7 @@ restore(Fichier) when is_list(Fichier) -> % Reviens Ã une version prÃ©cÃ©dente de la base de donnÃ©es. % (les donnÃ©es insÃ©rÃ©es durant les versions plus rÃ©centes sont perdues). restore(Version) when is_integer(Version) -> - mnesia:restore(fichier_backup(Version), []). % [{default_op, recreate_tables}]). + mnesia:restore(backup_file_path(Version), []). % [{default_op, recreate_tables}]). % Change le nom du noeud d'un backup. @@ -380,24 +367,6 @@ change_node_name(From, To, Source, Target) -> end, mnesia:traverse_backup(Source, Target, Convert, switched). - -% ObsolÃ¨te -%~ backup_text(File) -> - %~ mnesia:dump_to_textfile(File). -%~ restore_text(File) -> - %~ mnesia:stop(), - %~ mnesia:delete_schema([node()]), - %~ mnesia:start(), - %~ create_tables(), - %~ case mnesia:load_textfile(File) of - %~ {atomic, ok} -> - %~ update(), - %~ creer_indexes(); - %~ Erreur -> - %~ Erreur - %~ end. - - toggle_ek_master(User_id) -> euphorik_bd:resultat_transaction(mnesia:transaction( fun() -> @@ -405,7 +374,7 @@ toggle_ek_master(User_id) -> case Users of [User] -> mnesia:write(User#user{ek_master = not User#user.ek_master}); - _ -> erreur + _ -> error end end )). @@ -468,7 +437,7 @@ print_user(Login) when is_list(Login) -> {ok, User} -> print_user(User); _ -> - {erreur, "Login pas trouvÃ© : " ++ Login} + {error, "Login pas trouvÃ© : " ++ Login} end; % Affichage d'un user en fonction de son id print_user(Id) when is_integer(Id) -> @@ -476,6 +445,6 @@ print_user(Id) when is_integer(Id) -> {ok, User} -> print_user(User); _ -> - {erreur, "Id pas trouvÃ© : " ++ integer_to_list(Id)} + {error, "Id pas trouvÃ© : " ++ integer_to_list(Id)} end. diff --git a/modules/erl/euphorik_common.erl b/modules/erl/euphorik_common.erl index b016a0f..f9e3f68 100644 --- a/modules/erl/euphorik_common.erl +++ b/modules/erl/euphorik_common.erl @@ -42,7 +42,7 @@ ceiling(X) -> end. -% Retourne la difference entre deux timestamp (erlang:now()) en miliseconde +% Retourne la difference entre deux timestamp (erlang:timestamp()) en miliseconde delta_date_ms(D1, D2) -> 1000000000 * abs(element(1, D1) - element(1, D2)) + 1000 * abs(element(2, D1) - element(2, D2)) + trunc(abs(element(3, D1) - element(3, D2)) / 1000). diff --git a/modules/include/euphorik_bd.hrl b/modules/include/euphorik_bd.hrl index de1c5e4..48daa5b 100755 --- a/modules/include/euphorik_bd.hrl +++ b/modules/include/euphorik_bd.hrl @@ -18,12 +18,10 @@ % % @author GBurri - % Version de la BD --define(VERSION_BD, 3). +-define(DB_VERSION, 3). -define(TABLES, [counter, proprietes, minichat, reponse_minichat, user, ip_table, troll]). - % Pour gÃ©nÃ©rer des id -record(counter, { @@ -31,7 +29,6 @@ value }). - % MÃ©morse toutes les propriÃ©tÃ©s, entre autre la version des donnÃ©es -record(proprietes, { @@ -39,7 +36,6 @@ valeur }). - % Contient tous les textes que peut envoyer le serveur vers client. -record(texte, { @@ -47,20 +43,18 @@ fr }). - % dÃ©crit un enregistrement d'un message -record(minichat, { id, % integer auteur_id, % -> #user.id - date, % erlang:now() + date, % erlang:timestamp() pseudo, % chaine de caractÃ¨re contenu, % chaine de caractÃ¨re racine_id = undefined, % la racine, par dÃ©faut correspond Ã l'id du message status = normal % can be equal to normal, censored or deleted }). - % type bag % 'repondant' repond Ã 'cible' -record(reponse_minichat, @@ -69,8 +63,8 @@ cible % -> #minichat.id }). - --record(profile, % attention : pas une table ! +% Warning: this is not a table, it's part of the user table. +-record(profile, { pseudo = [], % string() email = [], % string() @@ -83,7 +77,6 @@ conversations = [] % [{integer(), bool}], la liste des messages correspondant au conversation {racine, reduite?} }). - -record(user, { id, @@ -91,14 +84,13 @@ login = [], % string() password = [], % string() (md5) profile = #profile{}, - date_creation, % erlang:now() - date_derniere_connexion, % erlang:now(), est mis Ã jour lors de n'importe quelle activitÃ©e (envoie de message par exemple) + date_creation, % erlang:timestamp() + date_derniere_connexion, % erlang:timestamp(), est mis Ã jour lors de n'importe quelle activitÃ©e (envoie de message par exemple) indice_flood = 0, % integer() est incrÃ©mentÃ© lorsque l'utilisateur envoie trop rapidement des messages. ek_master = false, last_ip = undefined % integer(), undefined si inconnu }). - % identificateur : (ip) -record(ip_table, { @@ -111,13 +103,12 @@ date_last_try_login % pour l'instant pas utilisÃ© }). - -record(troll, { id, id_user, id_minichat = undefined, % l'id du message associÃ© - date_create, % erlang:now() - date_post = undefined, % date Ã laquelle le troll est affichÃ© sur la page principale. undefined initialement puis erlang:now() quand affichÃ© + date_create, % erlang:timestamp() + date_post = undefined, % date Ã laquelle le troll est affichÃ© sur la page principale. undefined initialement puis erlang:timestamp() quand affichÃ© content % chaine de caractÃ¨re }). diff --git a/tools/update_server.erl b/tools/update_server.erl index 4211772..72686b1 100755 --- a/tools/update_server.erl +++ b/tools/update_server.erl @@ -11,7 +11,7 @@ hote() -> % le premier argument est le nom du noeud est peut valoir : % - yaws : noeud de production % - yaws_dev : noeud de pre-production -main([Nom_node]) when Nom_node =:= "yaws"; Nom_node =:= "yaws_dev" -> +main([Nom_node]) when Nom_node =:= "yaws"; Nom_node =:= "yaws_dev" -> Node = list_to_atom(Nom_node ++ atom_to_list(hote())), net_kernel:start([flynux, shortnames]), io:format("rechargement des modules..~n"), @@ -35,4 +35,3 @@ copier_bd(Node) -> rpc:call(Node, mnesia, restore, [Fichier2, [{default_op, recreate_tables}]]), rpc:call(yaws@overnux, file, delete, [Fichier]), rpc:call(Node, file, delete, [Fichier2]). - \ No newline at end of file