From: Ummon Date: Thu, 23 Apr 2020 16:43:19 +0000 (+0200) Subject: Merge branch 'master' of gburri.org:euphorik X-Git-Url: https://git.euphorik.ch/?p=euphorik.git;a=commitdiff_plain;h=808fb60f6c10dfcaccee94c6a49f768de84dc2ef;hp=-c Merge branch 'master' of gburri.org:euphorik --- 808fb60f6c10dfcaccee94c6a49f768de84dc2ef diff --combined .gitignore index 5b3f348,5b3f348..7c8641d --- a/.gitignore +++ b/.gitignore @@@ -1,3 -1,3 +1,5 @@@ *.iws *.beam --var/ ++var/ ++/BD ++/data diff --combined index.yaws index a32b301,99ce454..9b80ee1 --- a/index.yaws +++ b/index.yaws @@@ -46,7 -46,7 +46,7 @@@ - + @@@ -67,10 -67,10 +67,10 @@@
- % 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 +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 --combined js/euphorik.js index cac44c8,3f45e2d..893a32a --- a/js/euphorik.js +++ b/js/euphorik.js @@@ -23,10 -23,10 +23,10 @@@ var euphorik = {} // le main $(document).ready( - function() { + function() { var fragment = new Fragment(); - var formater = new euphorik.Formater(); - var util = new euphorik.Util(formater); + var formatter = new euphorik.Formatter(); + var util = new euphorik.Util(formatter); var communication = new euphorik.Communication( function(data) { util.messageDialog(data.error_message); }, function() { util.showWaitBar(); }, @@@ -34,16 -34,14 +34,14 @@@ ); 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 +58,19 @@@ }); $("#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 + // 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, formater, util, communication), true); - pages.addPage(new euphorik.PageAdmin(client, formater, util, communication)); - pages.addPage(new euphorik.PageProfile(client, formater, util)); - pages.addPage(new euphorik.PageRegister(client, formater, util)); - pages.addPage(new euphorik.PageAbout(client, formater, util, communication)); + 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 --combined modules/erl/euphorik_bd_admin.erl index e5c20bc,a57f6fe..84fe459 --- a/modules/erl/euphorik_bd_admin.erl +++ b/modules/erl/euphorik_bd_admin.erl @@@ -16,15 -16,12 +16,12 @@@ % 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 "). -export([ version_bd/0, create/0, @@@ -42,13 -39,14 +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 +54,11 @@@ 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 +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 +124,14 @@@ 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 +141,16 @@@ 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 +161,7 @@@ 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 +172,26 @@@ 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 +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 +266,7 @@@ 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 +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 +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 +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 +367,6 @@@ change_node_name(From, To, Source, Targ 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 +374,7 @@@ case Users of [User] -> mnesia:write(User#user{ek_master = not User#user.ek_master}); - _ -> erreur + _ -> error end end )). @@@ -468,7 -437,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 +445,6 @@@ {ok, User} -> print_user(User); _ -> - {erreur, "Id pas trouvé : " ++ integer_to_list(Id)} + {error, "Id pas trouvé : " ++ integer_to_list(Id)} end. diff --combined modules/erl/euphorik_common.erl index b016a0f,9b740b9..f9e3f68 --- a/modules/erl/euphorik_common.erl +++ b/modules/erl/euphorik_common.erl @@@ -17,10 -17,10 +17,10 @@@ % along with Euphorik. If not, see . % % Module with some useful stuffs. -% @author G.Burri -module(euphorik_common). +-author("Greg Burri "). -export([ ceiling/1, delta_date_ms/2, @@@ -42,7 -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).