== TODO ==\r
\r
-=== v1.0.1 ===
-* Pouvoir afficher les utilisateurs (print_users(admin)) qui sont admin\r
-<<<<<<< .working\r
-* Mettre dans la FAQ la signification des couleurs associées aux messages.\r
-* Ne pas pouvoir poster avec "<nick>"\r
-* Ajouter euphorik_common.erl au repo !!\r
-* Compilation :\r
- * Compiler avec le flag +debug_info pour le developpement\r
- * Compiler avec le flag +native lors de la mise en production\r
- * Faire d'abord des tests en local pour voir s'il y a vraiment des gains, utiliser le module test_euphorik\r
- * Regarder également si la comsommation de la mémoire est différentes\r
- * La compilation DOIT se faire sur la machine cible, il faut donc d'abord copier les fichiers dans /tmp sur euphorik.ch\r
- puis lancer la compilation à distance et finalement copier les fichiers sur /var/www/euphorik\r
-* Appliquer les flags suivant à Yaws : http://forum.trapexit.org/mailinglists/viewtopic.php?t=6725&sid=8729e02f79c3ef0e0794add77b74b6ce\r
-=======\r
-* Ne pas pouvoir poster avec "<nick>" -> mettre en constante\r
-* Ajouter euphorik_common.erl au repo !!\r
-* Compilation :\r
- * Compiler avec le flag +debug_info pour le developpement\r
- * Compiler avec le flag +native lors de la mise en production\r
- * Faire d'abord des tests en local pour voir s'il y a vraiment des gains, utiliser le module test_euphorik\r
- * Regarder également si la comsommation de la mémoire est différentes\r
- * La compilation DOIT se faire sur la machine cible, il faut donc d'abord copier les fichiers dans /tmp sur euphorik.ch\r
- puis lancer la compilation à distance et finalement copier les fichiers sur /var/www/euphorik\r
-* Appliquer les flags suivant à Yaws : http://forum.trapexit.org/mailinglists/viewtopic.php?t=6725&sid=8729e02f79c3ef0e0794add77b74b6ce\r
->>>>>>> .merge-right.r271\r
=== v1.1 ===\r
* Revoir le système de conversation : \r
* Pouvoir extraire "toute la conversation" ou seulement une "sous conversation" (ce qui est actuellement le cas)\r
[ok] Afficher l'ip dans le print_users().
[ok] Enlever le petit carré mis en couleur et mettre le pseudo + date en couleur à la place
[ok] Mettre dans la FAQ la signification des couleurs associées aux messages.
-
+=== v1.0.1 ===
+[ok] Ne pas pouvoir poster avec "<nick>"
\r
=== Bugs ===
1 : Critique
* Jamais reproduit avec Opera
* Peut être un bug lié à jQuery
* Reproduit sur Firefox 2 et 3 !
-[ok] Lors d'un logout il faut faire un full refresh (pour mettre à jour les messages auquel on répond par exemple)
-<<<<<<< .working\r
-[ok] Après être passé de la page Admin à Chat le client continu de réaliser de temps en temp des requêtes "lists_banned_ips"
- * action=%7B%22action%22%3A%22list_banned_ips%22%2C%22cookie%22%3A%22<<cookie>>%22%7D
-=======\r
+[ok] Lors d'un logout il faut faire un full refresh (pour mettre à jour les messages auquel on répond par exemple)\r
[ok] Après être passé de la page Admin à Chat le client continu de réaliser de temps en temp des requêtes "lists_banned_ips"
* action=%7B%22action%22%3A%22list_banned_ips%22%2C%22cookie%22%3A%22<<cookie>>%22%7D
[ok] Le widget select qui permet la sélection des css n'est pas initialisé correctement au chargement du site
[ok] Il est possible d'envoyer plusieurs fois le même message en pressant très rapidement plusieurs fois sur ENTER... (à vérifier)
[ok] griser le login dans le profil pour montrer qu'on ne peut pas l'éditer
->>>>>>> .merge-right.r271\r
+
=== Idées ===\r
Une fois l'idée validée elle est déplacée dans une version à venir.\r
* Normalement 'const' à la place de 'var' mais non supporté par IE7.
*/
var conf = {
+ nickDefaut : "<nick>",
nbMessageAffiche : 40, // (par page)
pseudoDefaut : "<nick>",
tempsAffichageMessageDialogue : 4000, // en ms
<form method="post" action="" id ="posterMessage">\
<p>\
<input class="captcha" name="captcha" type="text" size="8" maxlength="8"></input>\
- <input class="pseudo" name="pseudo" type="text" maxlength="50" value="<nick>"></input>\
+ <input class="pseudo" name="pseudo" type="text" maxlength="50" value="' + encodeURI(conf.nickDefaut) + '"></input>\
<input class="message" name="message" type="text" maxlength="500" value=""></input>\
<button class="smiles"></button>\
<button class="return"></button>\
message = message.replace(this.regexMessageTagReplace, "")
}
+ if (pseudo == conf.nickDefaut)
+ {
+ this.util.messageDialogue("Le pseudo ne peut pas être " + conf.nickDefaut)
+ return
+ }
+
message = message.trim()
if (message == "")
{
F = fun() ->
Nb_id_trouve = length(e(q([E#minichat.id || E <- mnesia:table(minichat), lists:member(E#minichat.id, Repond_A)]), [{tmpdir, ?KEY_SORT_TEMP_DIR}])),
% est-ce que l'auteur existe ?
- Auteur = case e(q([E || E <- mnesia:table(user), E#user.id =:= Auteur_id]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
- [A] -> A;
- _ -> {erreur, "L'auteur du message est introuvable"}
- end,
- if Nb_id_trouve =/= length(Repond_A) ->
- {erreur, "Un ou plusieurs messages introuvable"};
- true ->
- % comparaison entre la date du dernier poste et maintenant (gestion du flood)
- Delta = 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{
- indice_flood = if Nouvel_indice_flood > ?INDICE_SPAM_MAX -> ?INDICE_SPAM_MAX; Nouvel_indice_flood < 0 -> 0; true -> Nouvel_indice_flood end,
- date_derniere_connexion = now()
- },
- % est-ce que l'auteur à trop floodé ?
- if Auteur#user.indice_flood =/= ?INDICE_SPAM_MAX, Auteur_maj#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->
- mnesia:write(Auteur#user{indice_flood = Auteur_maj#user.indice_flood}),
- nouveau_message_sys("''" ++ Auteur#user.pseudo ++ if Auteur#user.login =/= [] -> " (" ++ Auteur#user.login ++ ")"; true -> "" end ++ "'' est bloqué pour " ++ integer_to_list(trunc(?DUREE_BLOCAGE_SPAM / 1000)) ++ " secondes pour cause de flood.");
- Auteur#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->
- {erreur, "Bloqué pour cause de flood"};
- true ->
- mnesia:write(Auteur_maj),
- Id = nouvel_id(minichat),
- inserer_reponses(Id, Repond_A),
- mnesia:write(#minichat{id=Id, auteur_id=Auteur#user.id, date=now(), pseudo=Auteur#user.pseudo, contenu=Mess}),
- Id
- end
+ case e(q([E || E <- mnesia:table(user), E#user.id =:= Auteur_id]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
+ [Auteur] ->
+ if Nb_id_trouve =/= length(Repond_A) ->
+ {erreur, "Un ou plusieurs messages introuvable"};
+ true ->
+ % comparaison entre la date du dernier poste et maintenant (gestion du flood)
+ Delta = 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{
+ indice_flood = if Nouvel_indice_flood > ?INDICE_SPAM_MAX -> ?INDICE_SPAM_MAX; Nouvel_indice_flood < 0 -> 0; true -> Nouvel_indice_flood end,
+ date_derniere_connexion = now()
+ },
+ % est-ce que l'auteur à trop floodé ?
+ if Auteur#user.indice_flood =/= ?INDICE_SPAM_MAX, Auteur_maj#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->
+ mnesia:write(Auteur#user{indice_flood = Auteur_maj#user.indice_flood}),
+ nouveau_message_sys("''" ++ Auteur#user.pseudo ++ if Auteur#user.login =/= [] -> " (" ++ Auteur#user.login ++ ")"; true -> "" end ++ "'' est bloqué pour " ++ integer_to_list(trunc(?DUREE_BLOCAGE_SPAM / 1000)) ++ " secondes pour cause de flood.");
+ Auteur#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->
+ {erreur, "Bloqué pour cause de flood"};
+ true ->
+ mnesia:write(Auteur_maj),
+ Id = nouvel_id(minichat),
+ inserer_reponses(Id, Repond_A),
+ mnesia:write(#minichat{id=Id, auteur_id=Auteur#user.id, date=now(), pseudo=Auteur#user.pseudo, contenu=Mess}),
+ Id
+ end
+ end;
+ _ ->
+ {erreur, "L'auteur du message est introuvable"}
end
end,
resultat_transaction(mnesia:transaction(F)).
end,
R = qlc:next_answers(C, N),
qlc:delete_cursor(C),
- lists:reverse(R)
+ R
end,
- resultat_transaction(mnesia:transaction(F)).
+ lists:reverse(resultat_transaction(mnesia:transaction(F))).
% Renvoie les messages manquants pour la page P en sachant qu'il y a N message
% 2 : 0.15
% 3 : 0.05
messages_id_rand() ->
- Messages = lists:map(fun(#minichat{id = Id}) -> Id end, euphorik_bd:messages(30)),
R = random:uniform(),
- if R =< 0.5 -> [];
- R > 0.5 andalso R =< 0.8 ->
- tire_element_rand(1, Messages);
- R > 0.8 andalso R =< 0.95 ->
- tire_element_rand(2, Messages);
+ if R =< 0.5 ->
+ [];
true ->
- tire_element_rand(3, Messages)
+ Messages = lists:map(fun(#minichat{id = Id}) -> Id end, euphorik_bd:messages(8)),
+ if
+ R > 0.5 andalso R =< 0.8 ->
+ tire_element_rand(1, Messages);
+ R > 0.8 andalso R =< 0.95 ->
+ tire_element_rand(2, Messages);
+ true ->
+ tire_element_rand(3, Messages)
+ end
end.
projects / euphorik.git / commitdiff