- % 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}}. @@ -84,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 e3bd720..3f45e2d 100755 --- a/js/euphorik.js +++ b/js/euphorik.js @@ -17,16 +17,16 @@ // along with Euphorik. If not, see . /*jslint laxbreak:true */ - + // all euphorik is contained in this object var euphorik = {}; // le main $(document).ready( - function() { + function() { var fragment = new Fragment(); var formater = new euphorik.Formater(); - var util = new euphorik.Util(formater); + var util = new euphorik.Util(formater); var communication = new euphorik.Communication( function(data) { util.messageDialog(data.error_message); }, function() { util.showWaitBar(); }, @@ -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. + + // 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("terms_of_use"); - + pages.displayPage(); // display the default page } ); diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl index 6c3485d..aabf365 100755 --- a/modules/erl/euphorik_bd.erl +++ b/modules/erl/euphorik_bd.erl @@ -96,7 +96,7 @@ get_texte(Id, _Lang = fr) -> nouveau_user(Cookie, Profile) -> F = fun() -> Id = nouvel_id(user), - User = #user{id = Id, cookie = Cookie, date_creation = now(), date_derniere_connexion = now(), profile = Profile}, + User = #user{id = Id, cookie = Cookie, date_creation = erlang:timestamp(), date_derniere_connexion = erlang:timestamp(), profile = Profile}, mnesia:write(User), User end, @@ -107,7 +107,7 @@ nouveau_user(Cookie, Profile) -> nouveau_user(Login, Password, Cookie, Profile) -> F = fun() -> Id = nouvel_id(user), - User = #user{id = Id, cookie = Cookie, login = Login, password = Password, date_creation = now(), date_derniere_connexion = now(), profile = Profile#profile{pseudo = Login}}, + User = #user{id = Id, cookie = Cookie, login = Login, password = Password, date_creation = erlang:timestamp(), date_derniere_connexion = erlang:timestamp(), profile = Profile#profile{pseudo = Login}}, mnesia:write(User), User end, @@ -145,7 +145,7 @@ update_date_derniere_connexion(User_id) -> fun() -> case mnesia:wread({user, User_id}) of [User] -> - mnesia:write(User#user{date_derniere_connexion = now()}); + mnesia:write(User#user{date_derniere_connexion = erlang:timestamp()}); _ -> mnesia:abort("update_date_derniere_connexion: User inconnu") end @@ -298,7 +298,7 @@ nouveau_message(Mess, Auteur_id, Repond_A_ids) -> case mnesia:wread({user, Auteur_id}) of [#user{profile = Profile} = Auteur] -> % comparaison entre la date du dernier poste et maintenant (gestion du flood) - Now = now(), + Now = erlang:timestamp(), Delta = euphorik_common:delta_date_ms(Auteur#user.date_derniere_connexion, Now), Nouvel_indice_flood = Auteur#user.indice_flood + if Delta =< ?DUREE_SPAM -> 2; true -> -1 end, Auteur_maj = Auteur#user{ @@ -348,7 +348,7 @@ nouveau_message_sys(Mess) -> resultat_transaction(mnesia:transaction( fun() -> Id = nouvel_id(minichat), - mnesia:write(#minichat{id = Id, auteur_id = 0, date = now(), pseudo = Profile#profile.pseudo, contenu = Mess, racine_id = Id}), + mnesia:write(#minichat{id = Id, auteur_id = 0, date = erlang:timestamp(), pseudo = Profile#profile.pseudo, contenu = Mess, racine_id = Id}), Id end )). @@ -550,7 +550,7 @@ possede_message(Id_user, Id_mess) -> list_ban() -> resultat_transaction(mnesia:transaction( fun() -> - Now = now(), + Now = erlang:timestamp(), e(qlc:keysort(1, q([ { IP#ip_table.ip, @@ -570,9 +570,9 @@ ban(IP, Duration) -> fun() -> case mnesia:wread({ip_table, IP}) of [IP_tuple] -> - mnesia:write(IP_tuple#ip_table{ban = now(), ban_duration = Duration}); + mnesia:write(IP_tuple#ip_table{ban = erlang:timestamp(), ban_duration = Duration}); _ -> - mnesia:write(#ip_table{ip = IP, ban = now(), ban_duration = Duration}) + mnesia:write(#ip_table{ip = IP, ban = erlang:timestamp(), ban_duration = Duration}) end end ). @@ -597,7 +597,7 @@ est_banni(User_id) -> ]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of [{Ban, Ban_duration}] -> Echeance = date_plus_minutes(Ban, Ban_duration), - Now = now(), + Now = erlang:timestamp(), if Echeance < Now -> % l'Ã©chÃ©ance est passÃ©e false; true -> @@ -610,7 +610,7 @@ est_banni(User_id) -> )). -% Ban est une date tel que retourner par now(). +% Ban est une date tel que retourner par erlang:timestamp(). % Ban_duration est un temps en minutes. % retourne une date. date_plus_minutes(Ban, Ban_duration) -> @@ -627,16 +627,16 @@ can_register(IP) -> fun() -> case e(q([I || I <- mnesia:table(ip_table), I#ip_table.ip =:= IP]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of [] -> - mnesia:write(#ip_table{ip = IP, date_last_try_register = now()}), + mnesia:write(#ip_table{ip = IP, date_last_try_register = erlang:timestamp()}), true; [T] -> - Delta = euphorik_common:delta_date_ms(T#ip_table.date_last_try_register, now()), + Delta = euphorik_common:delta_date_ms(T#ip_table.date_last_try_register, erlang:timestamp()), if T#ip_table.nb_try_register =:= ?NB_MAX_FLOOD_REGISTER, Delta < ?TEMPS_BAN_FLOOD_REGISTER -> false; true -> mnesia:write(T#ip_table{ ip = IP, - date_last_try_register = now(), + date_last_try_register = erlang:timestamp(), nb_try_register = T#ip_table.nb_try_register + if Delta < ?TEMPS_FLOOD_REGISTER -> 1; T#ip_table.nb_try_register > 0 -> -1; true -> 0 end }), true diff --git a/modules/erl/euphorik_bd_admin.erl b/modules/erl/euphorik_bd_admin.erl index 31be4b4..d9ee7c1 100644 --- a/modules/erl/euphorik_bd_admin.erl +++ b/modules/erl/euphorik_bd_admin.erl @@ -151,7 +151,7 @@ reset() -> % crÃ©e l'utilisateur root mnesia:transaction(fun() -> mnesia:write(#proprietes{nom = version, valeur = ?VERSION_BD}), - User = #user{id = 0, profile = #profile{pseudo = "Sys"}, login = "Sys", date_creation = now(), date_derniere_connexion = now(), ek_master = true}, + 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), diff --git a/modules/erl/euphorik_common.erl b/modules/erl/euphorik_common.erl index e516322..9b740b9 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/erl/euphorik_protocole.erl b/modules/erl/euphorik_protocole.erl index ad80c27..bf40484 100755 --- a/modules/erl/euphorik_protocole.erl +++ b/modules/erl/euphorik_protocole.erl @@ -98,7 +98,7 @@ loginUser(User, IP) -> % Renvoie un string() reprÃ©sentant un cookie en base 36. Il y a 10^32 possibillitÃ©s. generer_cookie() -> - {A1, A2, A3} = now(), + {A1, A2, A3} = erlang:timestamp(), random:seed(A1, A2, A3), erlang:integer_to_list(random:uniform(trunc(math:pow(10, 32))), 36). diff --git a/modules/erl/euphorik_test.erl b/modules/erl/euphorik_test.erl index 7b2d9a1..9c4fdd4 100644 --- a/modules/erl/euphorik_test.erl +++ b/modules/erl/euphorik_test.erl @@ -197,7 +197,7 @@ bench_write_minichat(N, Temps) -> mnesia:write(#minichat{ id = Id, auteur_id = random:uniform(10000), - date = now(), + date = erlang:timestamp(), pseudo = "Test", contenu = "Blabla blabla bla.", racine_id = random:uniform(10000) diff --git a/modules/include/euphorik_bd.hrl b/modules/include/euphorik_bd.hrl index de1c5e4..1fc17a2 100755 --- a/modules/include/euphorik_bd.hrl +++ b/modules/include/euphorik_bd.hrl @@ -53,7 +53,7 @@ { 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 @@ -91,8 +91,8 @@ 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 @@ -117,7 +117,7 @@ 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