REPORT de la branche 1.0
authorGreg Burri <greg.burri@gmail.com>
Mon, 2 Jun 2008 08:39:34 +0000 (08:39 +0000)
committerGreg Burri <greg.burri@gmail.com>
Mon, 2 Jun 2008 08:39:34 +0000 (08:39 +0000)
doc/TODO.txt
doc/description.txt
js/euphorik.js
modules/erl/euphorik_bd.erl
modules/erl/euphorik_minichat_conversation.erl
modules/include/euphorik_defines.hrl

index 0719f09..8da3fb2 100755 (executable)
@@ -1,8 +1,8 @@
 == TODO ==\r
 \r
 === v1.0 ===\r
 == TODO ==\r
 \r
 === v1.0 ===\r
-* Corriger les bugs de niveau [1] et [2]\r
-* Cleaner le code (erl, js, xhtml, css) et eventuellement profiler un peu (le refresh est lent sous opera)\r
+* Cleaner le code (erl, js, xhtml, css) et eventuellement profiler un peu (le refresh est lent sous opera)
+* Pouvoir afficher les utilisateurs (print_users()) qui sont admin\r
 === v1.1 ===\r
 * Mettre un icon (genre sablier ou truc qui tourne à la apple) lorsque le chat se charge (également lors d'un changement de page par exemple)\r
    * Simuler un réseau lent\r
 === v1.1 ===\r
 * Mettre un icon (genre sablier ou truc qui tourne à la apple) lorsque le chat se charge (également lors d'un changement de page par exemple)\r
    * Simuler un réseau lent\r
    * voir : http://cert.startcom.org/ pour un certif gratuit\r
 * Conversations : url vers conversation(s) + également un bouton sur chaque conversation pour obtenir l'url vers celle ci. (genre google map)\r
 \r
    * voir : http://cert.startcom.org/ pour un certif gratuit\r
 * Conversations : url vers conversation(s) + également un bouton sur chaque conversation pour obtenir l'url vers celle ci. (genre google map)\r
 \r
-\r
-[ok] Réaliser la structure suivante :\r
-   * Table minichat : {id, auteur_id, date, pseudo, contenu, reponses_minichat_id} reponses_minichat_id peut être null\r
-   * Table reponse_minichat : {id, minichat_id} la clef est (id, minichat_id)\r
-   * Table user : {id, cookie, pseudo, date_creation, date_derniere_connexion, css}\r
-[ok] Implémenter le protocole dans 'fonctionnement_minichat.txt'\r
-[ok] Trier la requête et limiter à N le nombre de messages affichés\r
-[ok] réaliser un controller sous la forme d'une application pour receptionner tout ce qui vient des formulaires\r
-[ok] Ajouter un lien minichat.iduser -> user.id\r
-[ok] Ajouter un id pour les messages qui est un entier auto incrémenté\r
-[ok] Afficher un captcha le md5 de la valeur est l'envoyer avec\r
-[ok] Formater les dates\r
-[ok] Trouver et remplacer les url http://www.youpla.com par <a href="http://www.youpla.com">[url]</a>\r
-[ok] Traitement des smiles, remplacer :) par "<img src="img/smiles/content.gif" />"\r
-   * Pour ne pas entrer en conflit avec totoz.eu la notation est la suivante : [=slurp]\r
-   * La notation totoz.eu est : [:slurp]\r
-[ok] Afficher les smiles disponibles, on peut clicker dessus pour en ajouter un dans le text\r
-[ok] Mettre en évidence les posts auquels l'utilisateur courant à répondu ainsi que ses propres posts\r
-   * Vérifier le captcha\r
-   * Mettre un cookie\r
-[ok] Mémoriser le pseudo et le remettre à chaque fois (si cookie)\r
-[ok] Afficher un <pseudo> et <message> pour renseigner l'utilisateur sur les différents zones de texte. Lorsque l'utilisateur click sur une zone le message disparait. (javascript).\r
-[ok] Pouvoir répondre à un ou plusieurs messages en cliquant dessus (javascript)\r
-   * L'utilisateur peut cliquer sur un message, cela appond le nom et l'id du message à son message, exe : "kiki:G3E> " "G3E" et l'id du message en base 36, si l'id est omis alors le dernier message dont le pseudo est kiki est pris en compte\r
-   * le(s) pseudo(s) de l'auteur du message auquel on répond préfixe notre message\r
-   * Lorsque l'on passe le curseur sur un message on voit la conversation avec une mise en évidence des réponses (les messages ne faisant pas partie de la conversation sont grisés ou masqués)\r
-[ok] Maintenir le focus sur la ligne de saisie après l'envoie d'un message\r
-[ok] Ajouter plusieurs messages d'un coup pour eviter des lenteurs au chargement\r
-[pas besoin] Catcher les exceptions de parsage de l'xml dans euphorik_request\r
-[ok] Ne pas virer les balises html mais remplacer les <> par &lt; &gt;\r
-[ok mais limité] Avoir accès aux archives (par page, par exemple)\r
-[ok] Interdir les {} dans les pseudo\r
-[plus besoin] Finir le deamon\r
-[plus besoin] tester si le captcha_crypt existe (en regardant les fichiers images temporaires)\r
-[ok] Virer les balises html des messages et pseudo lors du stockage du message (et trimer).\r
-[ok] afficher les pseudo des messages auquels un message répond (modification du protocole, il faut ajouter une liste de pseudo pour chaque message)\r
-[ok] Possibilité de logout\r
-[ok] Filtrer les { et } dans les pseudo sur la page profile\r
-[ok] différentier [url] [gif] [png] et le reste des url. utiliser lightbox pour les images\r
-[ok] Déplacer le formatage des messages du coté du client -> permet de demander à lightbox de reparser lors de l'ajout d'une image\r
-[ok] Demander une confirmation lors d'un logout (are you sure jane ?) (vie la système de messagebox)\r
-[ok] Possibilité d'enregistrement avec une page dédiée au profil.\r
-  * Pour se logger il suffit de donner un tuple login + password (le pseudo courant de chat est une données supplémentaire).\r
-  * La css choisie est une donnée personnelle.\r
-  * Les personnes enregistrées on un pseudo d'une couleur différente.\r
-  * (Ajout de smiles personnels)?\r
-[ok] Ajouter des messages d'erreur ("login impossible", "captcha incorrect")\r
-[ok] Ajouter des messages systèmes\r
-[ok] Gérer le flood : si un utilisateur envoie plus de 2 messages par seconde pendant 5 secondes alors il ne peut plus poster pendant 5 secondes\r
-   * S'il récidive alors il est suspendu pendant 5^2 puis 5^3\r
-   * Utiliser les messages systèmes pour annonce le flood\r
-[ok] Pouvoir modifier la css (dark/light)\r
- * Créer le style lite\r
- * Créer le style old (avec le style de l'ancien site)   \r
-[ok] Ne pas afficher la css dans le profile\r
+
+[ok] Réaliser la structure suivante :
+   * Table minichat : {id, auteur_id, date, pseudo, contenu, reponses_minichat_id} reponses_minichat_id peut être null
+   * Table reponse_minichat : {id, minichat_id} la clef est (id, minichat_id)
+   * Table user : {id, cookie, pseudo, date_creation, date_derniere_connexion, css}
+[ok] Implémenter le protocole dans 'fonctionnement_minichat.txt'
+[ok] Trier la requête et limiter à N le nombre de messages affichés
+[ok] réaliser un controller sous la forme d'une application pour receptionner tout ce qui vient des formulaires
+[ok] Ajouter un lien minichat.iduser -> user.id
+[ok] Ajouter un id pour les messages qui est un entier auto incrémenté
+[ok] Afficher un captcha le md5 de la valeur est l'envoyer avec
+[ok] Formater les dates
+[ok] Trouver et remplacer les url http://www.youpla.com par <a href="http://www.youpla.com">[url]</a>
+[ok] Traitement des smiles, remplacer :) par "<img src="img/smiles/content.gif" />"
+   * Pour ne pas entrer en conflit avec totoz.eu la notation est la suivante : [=slurp]
+   * La notation totoz.eu est : [:slurp]
+[ok] Afficher les smiles disponibles, on peut clicker dessus pour en ajouter un dans le text
+[ok] Mettre en évidence les posts auquels l'utilisateur courant à répondu ainsi que ses propres posts
+   * Vérifier le captcha
+   * Mettre un cookie
+[ok] Mémoriser le pseudo et le remettre à chaque fois (si cookie)
+[ok] Afficher un <pseudo> et <message> pour renseigner l'utilisateur sur les différents zones de texte. Lorsque l'utilisateur click sur une zone le message disparait. (javascript).
+[ok] Pouvoir répondre à un ou plusieurs messages en cliquant dessus (javascript)
+   * L'utilisateur peut cliquer sur un message, cela appond le nom et l'id du message à son message, exe : "kiki:G3E> " "G3E" et l'id du message en base 36, si l'id est omis alors le dernier message dont le pseudo est kiki est pris en compte
+   * le(s) pseudo(s) de l'auteur du message auquel on répond préfixe notre message
+   * Lorsque l'on passe le curseur sur un message on voit la conversation avec une mise en évidence des réponses (les messages ne faisant pas partie de la conversation sont grisés ou masqués)
+[ok] Maintenir le focus sur la ligne de saisie après l'envoie d'un message
+[ok] Ajouter plusieurs messages d'un coup pour eviter des lenteurs au chargement
+[pas besoin] Catcher les exceptions de parsage de l'xml dans euphorik_request
+[ok] Ne pas virer les balises html mais remplacer les <> par &lt; &gt;
+[ok mais limité] Avoir accès aux archives (par page, par exemple)
+[ok] Interdir les {} dans les pseudo
+[plus besoin] Finir le deamon
+[plus besoin] tester si le captcha_crypt existe (en regardant les fichiers images temporaires)
+[ok] Virer les balises html des messages et pseudo lors du stockage du message (et trimer).
+[ok] afficher les pseudo des messages auquels un message répond (modification du protocole, il faut ajouter une liste de pseudo pour chaque message)
+[ok] Possibilité de logout
+[ok] Filtrer les { et } dans les pseudo sur la page profile
+[ok] différentier [url] [gif] [png] et le reste des url. utiliser lightbox pour les images
+[ok] Déplacer le formatage des messages du coté du client -> permet de demander à lightbox de reparser lors de l'ajout d'une image
+[ok] Demander une confirmation lors d'un logout (are you sure jane ?) (vie la système de messagebox)
+[ok] Possibilité d'enregistrement avec une page dédiée au profil.
+  * Pour se logger il suffit de donner un tuple login + password (le pseudo courant de chat est une données supplémentaire).
+  * La css choisie est une donnée personnelle.
+  * Les personnes enregistrées on un pseudo d'une couleur différente.
+  * (Ajout de smiles personnels)?
+[ok] Ajouter des messages d'erreur ("login impossible", "captcha incorrect")
+[ok] Ajouter des messages systèmes
+[ok] Gérer le flood : si un utilisateur envoie plus de 2 messages par seconde pendant 5 secondes alors il ne peut plus poster pendant 5 secondes
+   * S'il récidive alors il est suspendu pendant 5^2 puis 5^3
+   * Utiliser les messages systèmes pour annonce le flood
+[ok] Pouvoir modifier la css (dark/light)
+ * Créer le style lite
+ * Créer le style old (avec le style de l'ancien site)   
+[ok] Ne pas afficher la css dans le profile
 [ok] Ne pas effacer le message (dans le <input>) si l'on recoit un "pas ok" lors de l'envoie\r
 [ok] Conversations : \r
    [ok] implémenter coté serveur et client la sauvegarde et la restauration des conversations\r
 [ok] Ne pas effacer le message (dans le <input>) si l'on recoit un "pas ok" lors de l'envoie\r
 [ok] Conversations : \r
    [ok] implémenter coté serveur et client la sauvegarde et la restauration des conversations\r
    [ok] Si concluant passage complet à JSON\r
    [ok] Les id ne sont plus passés en base 36\r
    [ok] Flusher le profil lors du déchargement de la page ? -> oui\r
    [ok] Si concluant passage complet à JSON\r
    [ok] Les id ne sont plus passés en base 36\r
    [ok] Flusher le profil lors du déchargement de la page ? -> oui\r
-   [ok] Envoyer les infos des conversations avec l'attente d'events ? -> oui\r
-[ok] Problème de rafraichissement des couleurs des messages auquels on répond\r
-[ok] Problème dans l'alternance des couleurs des messages\r
-[ok] Utiliser une listbox pour la liste des css\r
-[ok] Changer les noms des css : Light -> Cold, Old -> Classic\r
-[ok] Faire une page faq et raconter n'importe quoi (entre autre la limitation avec firefox) "pourquoi ce site à des couleurs qui ne veulent rien dire ?"\r
-[ok] Ralentir volontairement le connexion lors d'un mauvais login (ou après n mauvais login)\r
-[ok] Pouvoir afficher le login et/ou le pseudo. Avoir dans le profile une liste box avec ces choix :\r
-   * pseudo\r
-   * login\r
-   * pseudo(login)\r
-* Créer un favicon (joli)\r
-[ok] Créer une page 'about'\r
-[ok] Ajouter de nouveaux smiles et changer la syntax pour eviter le conflit avec totoz :\r
-   * "slurp" : http://forum-images.hardware.fr/images/perso/huit.gif\r
-   * "agreed" : http://forum-images.hardware.fr/icones/smilies/jap.gif\r
-   * "dodo" (tete avec un bonnet de nuit et des ZZZZ)\r
-   * "hum?" : http://forum-images.hardware.fr/icones/smilies/heink.gif\r
-   * "pas reveillé" avec une tasse de café et des cernes : http://forum-images.hardware.fr/images/perso/elmoricq.gif\r
-   * "interrogation" genre http://forum-images.hardware.fr/icones/confused.gif\r
-   * http://forum-images.hardware.fr/images/perso/dao.gif ou http://forum-images.hardware.fr/icones/redface.gif\r
-   * http://forum-images.hardware.fr/icones/ohwell.gif\r
-[ok] Tester avec des caractères accentués sur Firefox, Safari, Opera et IE7. Les messages doivent être envoyés en UTF8.\r
-[ok] Tester avec des caractères exotiques (jap, coréen, etc..)\r
-[ok] Modifier la syntaxe des smiles actuels (pour pas qu'ils entre en conflit avec totoz)\r
-[ok] Trouver un moyen pour éviter la création à la suite de plusieurs comptes (via register). \r
-[ok] Restructurer le code Erlang : déplacer certaines fonctions d'un module à l'autre (ev. créer des modules)\r
-[ok] remplacer lightbox par : http://leandrovieira.com/projects/jquery/lightbox/\r
-[ok] Problème des images dans les trolls\r
-[ok] Finir l'édition (mémoriser le contenu) des trolls\r
-[ok] Est-ce que client.dernierMessageErreur est vraiment utile ??\r
-[ok] marquer <aucun login> lors de l'affichage des login dans le chat pour les personnes n'en ayant pas : finalement il n'affiche tout simplement pas les logins\r
-[ok] Avoir un thème de discussion affiché en haut des messages genre appellé "troll de la semaine : linux sera-t-il desktop ready en 2008?"\r
-[ok] Un statut "EK" avec plein de privilège à la con. (avoir une petite étoile à coté de son nick ou le nick d'une certaine couleur)\r
-   * Une page "admin" avec :\r
-      * Trolls : La liste des trolls proposés. L'admin peut éditer ses propres trolls.\r
-      * Les ip bannis : avec la date d'échéance et le pseudo. Un admin peut décider de débannir un utilisateur\r
-   * Pouvoir kick/ban un user (directement depuis le chat, lors du survol du pseudo d'un user des options sont présentés sous la forme de petits boutons)\r
-      * Un kick : l'utilisateur (ip) est kické et bannis pour 15 min\r
-      * Un ban : l'utilisateur (ip) est kické et bannis pour 3 jours\r
+   [ok] Envoyer les infos des conversations avec l'attente d'events ? -> oui
+[ok] Problème de rafraichissement des couleurs des messages auquels on répond
+[ok] Problème dans l'alternance des couleurs des messages
+[ok] Utiliser une listbox pour la liste des css
+[ok] Changer les noms des css : Light -> Cold, Old -> Classic
+[ok] Faire une page faq et raconter n'importe quoi (entre autre la limitation avec firefox) "pourquoi ce site à des couleurs qui ne veulent rien dire ?"
+[ok] Ralentir volontairement le connexion lors d'un mauvais login (ou après n mauvais login)
+[ok] Pouvoir afficher le login et/ou le pseudo. Avoir dans le profile une liste box avec ces choix :
+   * pseudo
+   * login
+   * pseudo(login)
+* Créer un favicon (joli)
+[ok] Créer une page 'about'
+[ok] Ajouter de nouveaux smiles et changer la syntax pour eviter le conflit avec totoz :
+   * "slurp" : http://forum-images.hardware.fr/images/perso/huit.gif
+   * "agreed" : http://forum-images.hardware.fr/icones/smilies/jap.gif
+   * "dodo" (tete avec un bonnet de nuit et des ZZZZ)
+   * "hum?" : http://forum-images.hardware.fr/icones/smilies/heink.gif
+   * "pas reveillé" avec une tasse de café et des cernes : http://forum-images.hardware.fr/images/perso/elmoricq.gif
+   * "interrogation" genre http://forum-images.hardware.fr/icones/confused.gif
+   * http://forum-images.hardware.fr/images/perso/dao.gif ou http://forum-images.hardware.fr/icones/redface.gif
+   * http://forum-images.hardware.fr/icones/ohwell.gif
+[ok] Tester avec des caractères accentués sur Firefox, Safari, Opera et IE7. Les messages doivent être envoyés en UTF8.
+[ok] Tester avec des caractères exotiques (jap, coréen, etc..)
+[ok] Modifier la syntaxe des smiles actuels (pour pas qu'ils entre en conflit avec totoz)
+[ok] Trouver un moyen pour éviter la création à la suite de plusieurs comptes (via register). 
+[ok] Restructurer le code Erlang : déplacer certaines fonctions d'un module à l'autre (ev. créer des modules)
+[ok] remplacer lightbox par : http://leandrovieira.com/projects/jquery/lightbox/
+[ok] Problème des images dans les trolls
+[ok] Finir l'édition (mémoriser le contenu) des trolls
+[ok] Est-ce que client.dernierMessageErreur est vraiment utile ??
+[ok] marquer <aucun login> lors de l'affichage des login dans le chat pour les personnes n'en ayant pas : finalement il n'affiche tout simplement pas les logins
+[ok] Avoir un thème de discussion affiché en haut des messages genre appellé "troll de la semaine : linux sera-t-il desktop ready en 2008?"
+[ok] Un statut "EK" avec plein de privilège à la con. (avoir une petite étoile à coté de son nick ou le nick d'une certaine couleur)
+   * Une page "admin" avec :
+      * Trolls : La liste des trolls proposés. L'admin peut éditer ses propres trolls.
+      * Les ip bannis : avec la date d'échéance et le pseudo. Un admin peut décider de débannir un utilisateur
+   * Pouvoir kick/ban un user (directement depuis le chat, lors du survol du pseudo d'un user des options sont présentés sous la forme de petits boutons)
+      * Un kick : l'utilisateur (ip) est kické et bannis pour 15 min
+      * Un ban : l'utilisateur (ip) est kické et bannis pour 3 jours
       * Modification de la BD -> ajouter une relation "banned_ip"\r
 [ok] Passer à jQuery 1.2.4\r
 [ok] La largeur de la ligne de saisie doit corresponde à la largeur de la fenêtre\r
       * Modification de la BD -> ajouter une relation "banned_ip"\r
 [ok] Passer à jQuery 1.2.4\r
 [ok] La largeur de la ligne de saisie doit corresponde à la largeur de la fenêtre\r
 [ok] Faire des infos bulles à la facebook\r
 [ok] Mettre les constantes au niveau du serveur dans euphorik_defines.hrl (par exemple les temps lié au flood)\r
 [ok] Créer un style common puis adapter les CSS (classic et cold -> web2.0)\r
 [ok] Faire des infos bulles à la facebook\r
 [ok] Mettre les constantes au niveau du serveur dans euphorik_defines.hrl (par exemple les temps lié au flood)\r
 [ok] Créer un style common puis adapter les CSS (classic et cold -> web2.0)\r
-   * Alignement du menu, du troll et des trolls de la partie admin à l'aide de line-height\r
-[ok] Finir les options d'affichage des bulles et des dates\r
-[ok] Stocker quelque part la version de la BD\r
-   * Créer une table "proprietes" contenant des tuples {propriete, nom, val}\r
-[ok] Définir la bonne feuille de style au chargement de la page pour éviter le "clignotement" pas beau\r
-   * Le cookie envoyé par le client doit permettre de retrouver le user      \r
-[ok] Finir le script de mise en production\r
-   * Make des modules.\r
-   * Compactage des js lors de la mise en production (afin d'optimiser la bande passante lors de l'accès au site), regarder comment fait jQuery.\r
-      * Modifier le script pour virer les lignes matchant /^\W*;;.*$/\r
-   * Virer les commentaires dans les pages HTML\r
-   * processus :\r
-      1) copie des fichiers (+minimisation)\r
-      2) Execution d'un scripte erlang pour recharger tous les modules au sein du noeud\r
-      3) Executer euphorik_bd:update() pour mettre à jour la BD\r
-[ok] Ajouter dans la FAQ et/ou dans la page d'enregistrement les conditions d'utilisation, genre "chacun est responsable de ses dires" https://linuxfr.org/bouchot/\r
-      \r
-=== Bugs ===\r
-1 : Critique\r
-2 : Urgent\r
+   * Alignement du menu, du troll et des trolls de la partie admin à l'aide de line-height
+[ok] Finir les options d'affichage des bulles et des dates
+[ok] Stocker quelque part la version de la BD
+   * Créer une table "proprietes" contenant des tuples {propriete, nom, val}
+[ok] Définir la bonne feuille de style au chargement de la page pour éviter le "clignotement" pas beau
+   * Le cookie envoyé par le client doit permettre de retrouver le user      
+[ok] Finir le script de mise en production
+   * Make des modules.
+   * Compactage des js lors de la mise en production (afin d'optimiser la bande passante lors de l'accès au site), regarder comment fait jQuery.
+      * Modifier le script pour virer les lignes matchant /^\W*;;.*$/
+   * Virer les commentaires dans les pages HTML
+   * processus :
+      1) copie des fichiers (+minimisation)
+      2) Execution d'un scripte erlang pour recharger tous les modules au sein du noeud
+      3) Executer euphorik_bd:update() pour mettre à jour la BD
+[ok] Ajouter dans la FAQ et/ou dans la page d'enregistrement les conditions d'utilisation, genre "chacun est responsable de ses dires" https://linuxfr.org/bouchot/
+      
+=== Bugs ===
+1 : Critique
+2 : Urgent
 3 : Peu grave\r
 3 : Peu grave\r
-\r
-[2] Le changement de skin n'est pas mémorisé lorsque l'on est pas connecté (normal puisque le style est mémorisé dans le profil)\r
-   * solution 1 : permettre le changement de skin uniquement pour les personnes enregistré ?\r
+
+[2] Le changement de skin n'est pas mémorisé lorsque l'on est pas connecté (normal puisque le style est mémorisé dans le profil)
+   * solution 1 : permettre le changement de skin uniquement pour les personnes enregistré ?
    * solution 2 : mémoriser le skin courant dans un cookie\r
 [2] Après l'ajout d'une image il n'est pas possible de naviger depuis celle ci vers les autres images en utilisant Next et Prev de lightbox après l'avoir affich\r
    * solution 2 : mémoriser le skin courant dans un cookie\r
 [2] Après l'ajout d'une image il n'est pas possible de naviger depuis celle ci vers les autres images en utilisant Next et Prev de lightbox après l'avoir affich\r
-[2] Plein de bugs sous MS internet explorer 7\r
-   * click sur le lien du conv insère sont id systématiquement au début du message\r
-   * le changement de skin foire complétement\r
-[2] griser le login dans le profil pour montrer qu'on ne peut pas l'éditer\r
-[3] Quand on revient en arrière dans firefox le message en rédaction est perdu\r
-   * Pas sous Opera, apparemment Firefox recharge toute la page (donc impossible qu'il puisse remettre le message)\r
+[2] Plein de bugs sous MS internet explorer 7
+   * click sur le lien du conv insère sont id systématiquement au début du message
+   * le changement de skin foire complétement
+[2] griser le login dans le profil pour montrer qu'on ne peut pas l'éditer
+[3] Quand on revient en arrière dans firefox le message en rédaction est perdu
+   * Pas sous Opera, apparemment Firefox recharge toute la page (donc impossible qu'il puisse remettre le message)
    * Eventuellement sauvegarder le message en rédaction dans le profile...\r
    * Eventuellement sauvegarder le message en rédaction dans le profile...\r
-[3] Le changement de page sous Firefox (pas essayé avec d'autre nav) est plutot moche, le texte est d'abors affiché puis le style est appliqué.\r
-[3] Quelques fichiers sont encore en iso-8859-1 (Makefile, euphorik_bd.hrl, etc..) tout passer en UTF-8\r
-[3] Un message envoyé sans être authentifié ne sera pas taggé comme appartenant à l'utilisateur.\r
-   a) L'utilisateur attend des messages SANS donné de cookie car il n'est pas authentifié\r
-   b) L'utilisateur envoie un message\r
-      i) Il s'enregistre sans login/pass (réalisé automatiquement)\r
-      ii) Il envoie le message (put_message)\r
-   c) Le serveur réagie au nouveau message et débloque la connexion, à ce moment le serveur n'a pas le cookie car pas donné, voir a)\r
+[3] Le changement de page sous Firefox (pas essayé avec d'autre nav) est plutot moche, le texte est d'abors affiché puis le style est appliqué.
+[3] Quelques fichiers sont encore en iso-8859-1 (Makefile, euphorik_bd.hrl, etc..) tout passer en UTF-8
+[3] Un message envoyé sans être authentifié ne sera pas taggé comme appartenant à l'utilisateur.
+   a) L'utilisateur attend des messages SANS donné de cookie car il n'est pas authentifié
+   b) L'utilisateur envoie un message
+      i) Il s'enregistre sans login/pass (réalisé automatiquement)
+      ii) Il envoie le message (put_message)
+   c) Le serveur réagie au nouveau message et débloque la connexion, à ce moment le serveur n'a pas le cookie car pas donné, voir a)
 [3] Traiter le cas ou le cookie n'existe pas coté serveur (et plus généralement traiter tous les cas d'inputs exeptionnels)\r
 [3] Traiter le cas ou le cookie n'existe pas coté serveur (et plus généralement traiter tous les cas d'inputs exeptionnels)\r
-   * Afficher un message dans le cas ou le navigateur du client ne supporte pas les cookies en lui disant que la session ne pourra pas être autmatiquement restoré à la prochaine utilisation\r
-[3] "Return" ne marche pas sous safari\r
-[3] Le "cachage" des messages ne marche pas sous Konqueror, voir : "#page.minichat #conversations div.cache {" dans pageMinichat.css.\r
+   * Afficher un message dans le cas ou le navigateur du client ne supporte pas les cookies en lui disant que la session ne pourra pas être autmatiquement restoré à la prochaine utilisation
+[3] "Return" ne marche pas sous safari
+[3] Le "cachage" des messages ne marche pas sous Konqueror, voir : "#page.minichat #conversations div.cache {" dans pageMinichat.css.
        "-khtml-opacity: 0.3;" ne fonctionne pas\r
        "-khtml-opacity: 0.3;" ne fonctionne pas\r
-[3] Amélioration des requêtes MNESIA, voir : http://mail.google.com/mail/#label/Erlang+mailing-list/117f688280569a58\r
-[3] la page est completement rechargé après avoir submité le profile dans opera\r
-[3] après le login un '?' s'ajoute à l'adresse (opera, firefox)\r
-\r
+[3] Amélioration des requêtes MNESIA, voir : http://mail.google.com/mail/#label/Erlang+mailing-list/117f688280569a58
+[3] la page est completement rechargé après avoir submité le profile dans opera
+[3] après le login un '?' s'ajoute à l'adresse (opera, firefox)
+
 [ok] Comme le json du client est encapsulé dans de l'xml il faut utiliser des xml entities pour les charactères <, > et &. Il faudrait, absolument éviter cette encapsulation moisie.\r
 [ok] Au bout d'un moment opera n'écoute plus rien... et donc n'affiche plus les nouveaux messages..\r
 [ok] La méthod traiterSmiles est très lourde ! (4 secondes pour 80 appels (une page normale))\r
 [ok] Comme le json du client est encapsulé dans de l'xml il faut utiliser des xml entities pour les charactères <, > et &. Il faudrait, absolument éviter cette encapsulation moisie.\r
 [ok] Au bout d'un moment opera n'écoute plus rien... et donc n'affiche plus les nouveaux messages..\r
 [ok] La méthod traiterSmiles est très lourde ! (4 secondes pour 80 appels (une page normale))\r
 [ok] les heures sont formatées par le serveur avec un espace devant : " 12.30:10", zarb\r
 [ok] un undefined est mis lorsque l'on répond à qqun qui n'a pas de pseudo (traiter ces pseudo par le formateur)\r
 [ok] On ne peut pas réponde aux messages du système\r
 [ok] les heures sont formatées par le serveur avec un espace devant : " 12.30:10", zarb\r
 [ok] un undefined est mis lorsque l'on répond à qqun qui n'a pas de pseudo (traiter ces pseudo par le formateur)\r
 [ok] On ne peut pas réponde aux messages du système\r
-[ok] Apparement les process liés aux connexions ne sont jamais terminé même quand l'utilisateur coupe la connexion à cause de minichat:attends_nouveau_messages()\r
-[ok] Bug rafraichissement des conversations, exemple :\r
-   - la page 2 de la conv est affiché (mess 1 à 10) et la conv principale contient les mess de 11 à 2.\r
-   - lors de l'ajout d'un mess dans la conv celle ci n'est pas rafraichit.\r
-   - trouver une solution : donné un idDernierMess pour chaque conv ou supprimer cet idDernierMess et jouer sur le fait que l'on recoit un message après l'autre (orientation des messages après attente)\r
-[ok] En changeant de page puis en revenant sur la page principale les smiles ne sont plus highlightés lorsque le curseur les survol\r
+[ok] Apparement les process liés aux connexions ne sont jamais terminé même quand l'utilisateur coupe la connexion à cause de minichat:attends_nouveau_messages()
+[ok] Bug rafraichissement des conversations, exemple :
+   - la page 2 de la conv est affiché (mess 1 à 10) et la conv principale contient les mess de 11 à 2.
+   - lors de l'ajout d'un mess dans la conv celle ci n'est pas rafraichit.
+   - trouver une solution : donné un idDernierMess pour chaque conv ou supprimer cet idDernierMess et jouer sur le fait que l'on recoit un message après l'autre (orientation des messages après attente)
+[ok] En changeant de page puis en revenant sur la page principale les smiles ne sont plus highlightés lorsque le curseur les survol
+   * Plus reproduit
+[ok] Dans certains cas (à déterminer) les message-box (message d'information affiché tout en haut de la page) ne s'affiche plus (on ne voit que un petit bout dépassé)
    * Plus reproduit\r
    * Plus reproduit\r
-[ok] Dans certains cas (à déterminer) les message-box (message d'information affiché tout en haut de la page) ne s'affiche plus (on ne voit que un petit bout dépassé)\r
-   * Plus reproduit\r
-[ok] Après un register le pseudo est effacé - le pseudo n'est pas mémorisé dans le profil lors d'un envoie de mess en l'ayant changé\r
-[ok] jQuery définit l'option "X-Requested-With" à "XMLHttpRequest dans l'entête HTTP. De ce fait Yaws exige absolument de l'xml...\r
-   Solution actuelle : jquery.js est modifié pour ne plus définir cette option. Trouver un autre moyen plus élégant.\r
-[ok] Les smiles ne devraient pas dépasser de la fenêtre lorsqu'ils sont affichés\r
-[ok] Les processus en attente ne se termine pas lorsque le socket est fermé (pour l'instant un timeout de 1heure est appliqué)\r
+[ok] Après un register le pseudo est effacé - le pseudo n'est pas mémorisé dans le profil lors d'un envoie de mess en l'ayant changé
+[ok] jQuery définit l'option "X-Requested-With" à "XMLHttpRequest dans l'entête HTTP. De ce fait Yaws exige absolument de l'xml...
+   Solution actuelle : jquery.js est modifié pour ne plus définir cette option. Trouver un autre moyen plus élégant.
+[ok] Les smiles ne devraient pas dépasser de la fenêtre lorsqu'ils sont affichés
+[ok] Les processus en attente ne se termine pas lorsque le socket est fermé (pour l'instant un timeout de 1heure est appliqué)
 [ok] Possibilité d'enregistrer plusieurs users avec le même login\r
 [ok] Possibilité d'enregistrer plusieurs users avec le même login\r
-[ok] le return ne marche pas sous IE\r
-[ok] Lors du click sur le bouton slap/kick/ban il faut fermer la mini fenêtre\r
-[ok] Lors de l'extraction d'une conv il arrive que la conv extractée soit bien créée mais vide, le bouton ne ferme pas la conv (très étrange, bug de firefox?)\r
-   * Arrive une fois sur 20 environ\r
-   * Jamais reproduit avec Opera\r
-   * Peut être un bug lié à jQuery\r
-   * Reproduit sur Firefox 2 et 3 !\r
-[ok] Lors d'un logout il faut faire un full refresh (pour mettre à jour les messages auquel on répond par exemple)\r
-\r
+[ok] le return ne marche pas sous IE
+[ok] Lors du click sur le bouton slap/kick/ban il faut fermer la mini fenêtre
+[ok] Lors de l'extraction d'une conv il arrive que la conv extractée soit bien créée mais vide, le bouton ne ferme pas la conv (très étrange, bug de firefox?)
+   * Arrive une fois sur 20 environ
+   * 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)
+
 === Idées ===\r
 Une fois l'idée validée elle est déplacée dans une version à venir.\r
 === Idées ===\r
 Une fois l'idée validée elle est déplacée dans une version à venir.\r
-\r
-1 : A implémenter tout de suite !\r
-2 : A implémenter dans un futur proche\r
-3 : Ca peut attendre\r
-4 : A discuter\r
-A : Abandonné\r
-ok : Implémenté\r
-\r
-[1] Possibilité d'extraire une conversation, on click (par l'intermediaire d'un petit bouton par exemple) sur un message et l'arbre de réponses correspondant s'affiche dans une colonne sur la gauche.\r
-   * Il est possible d'ouvrir plusieurs conversations\r
-   * Les messages faisant partie des conversations ne sont plus visibles dans le flux général\r
-   * (une colonne peut avoir le focus, dans ce cas on répond automatiquement à la dernière personne qui nous a répondu)\r
-   * Chaque colonne possède une entête avec le message d'origine et trois boutons :\r
-      * un pour copier l'id de la conversation dans la textbox (voir point suivant) \r
-      * un pour fermer la conversation\r
-      * un pour créer une url vers cette conversation (un peu à la manière de google maps)\r
+
+1 : A implémenter tout de suite !
+2 : A implémenter dans un futur proche
+3 : Ca peut attendre
+4 : A discuter
+A : Abandonné
+ok : Implémenté
+
+[1] Possibilité d'extraire une conversation, on click (par l'intermediaire d'un petit bouton par exemple) sur un message et l'arbre de réponses correspondant s'affiche dans une colonne sur la gauche.
+   * Il est possible d'ouvrir plusieurs conversations
+   * Les messages faisant partie des conversations ne sont plus visibles dans le flux général
+   * (une colonne peut avoir le focus, dans ce cas on répond automatiquement à la dernière personne qui nous a répondu)
+   * Chaque colonne possède une entête avec le message d'origine et trois boutons :
+      * un pour copier l'id de la conversation dans la textbox (voir point suivant) 
+      * un pour fermer la conversation
+      * un pour créer une url vers cette conversation (un peu à la manière de google maps)
 [2] Raccourcis pour répondre aux conversations (genre CTRL+2 pour répondre au deuxième)\r
 [2] Syntaxe avancée des messagees :\r
    * Possibilité d'utiliser les balises <i>, <b>, <code>, <q> (quoted text)\r
 [2] Raccourcis pour répondre aux conversations (genre CTRL+2 pour répondre au deuxième)\r
 [2] Syntaxe avancée des messagees :\r
    * Possibilité d'utiliser les balises <i>, <b>, <code>, <q> (quoted text)\r
-   * Utiliser la syntaxe de mediaWiki\r
-   * La balise <hide> pour mettre des spoilers\r
-[2] Une option dans le profile pour se délogger automatiquement lorsque l'on quitte le site\r
+   * Utiliser la syntaxe de mediaWiki
+   * La balise <hide> pour mettre des spoilers
+[2] Une option dans le profile pour se délogger automatiquement lorsque l'on quitte le site
 [2] Pouvoir cacher les dates\r
 [2] Pouvoir cacher les dates\r
-[3] Gestion de l'historique (calendrier)\r
-[3] Idée de bernie :\r
-   * Pouvoir STFUER des personnes, lorsqu'elle envoie un message un autre truc à la con est écrit à la place\r
-   * la phrase à la con est piché parmis une liste éditable depuis le panneau d'admin\r
-   * La stfuation se fait depuis le panel de bannissement (slap, stfu, kick, ban)\r
-[4] Unifier tout le code en anglais (sauf les commentaires)\r
-[4] Inscrire le nom de l'image dans les les liens vers des images (à la place de simplement [jpg] ou [gif])\r
+[3] Gestion de l'historique (calendrier)
+[3] Idée de bernie :
+   * Pouvoir STFUER des personnes, lorsqu'elle envoie un message un autre truc à la con est écrit à la place
+   * la phrase à la con est piché parmis une liste éditable depuis le panneau d'admin
+   * La stfuation se fait depuis le panel de bannissement (slap, stfu, kick, ban)
+[4] Unifier tout le code en anglais (sauf les commentaires)
+[4] Inscrire le nom de l'image dans les les liens vers des images (à la place de simplement [jpg] ou [gif])
 [4] Réduire les pseudos trop long en mettant un ".." à la fin et permettre de le voir en entier lorsque le curseur le survol.\r
 [4] Compatible OpenID pour l'identification\r
 [4] Réduire les pseudos trop long en mettant un ".." à la fin et permettre de le voir en entier lorsque le curseur le survol.\r
 [4] Compatible OpenID pour l'identification\r
-[4] Outil de localisation des personnes un peu comme ca : http://bouchot.org/cps\r
-[4] Pouvoir voir le profile des personnes.\r
-   * Voir leurs derniers messages\r
+[4] Outil de localisation des personnes un peu comme ca : http://bouchot.org/cps
+[4] Pouvoir voir le profile des personnes.
+   * Voir leurs derniers messages
    * Une page de recherche de personne\r
 [4] Chaque user possède un Blog (ne pas utiliser le terme 'Blog') Dans lequel il peut poster des "Troll", sorte de "sujet" de forum.\r
    * Ce système est utilisé dans le chat principal (avec le troll de la semaine posté par un admin).\r
    * Chaque troll possède un certain nombre de tag.\r
    * il est possible de faire une recherche sur l'ensemble des users.\r
    * Voir description.txt pour plus d'info sur les trolls\r
    * Une page de recherche de personne\r
 [4] Chaque user possède un Blog (ne pas utiliser le terme 'Blog') Dans lequel il peut poster des "Troll", sorte de "sujet" de forum.\r
    * Ce système est utilisé dans le chat principal (avec le troll de la semaine posté par un admin).\r
    * Chaque troll possède un certain nombre de tag.\r
    * il est possible de faire une recherche sur l'ensemble des users.\r
    * Voir description.txt pour plus d'info sur les trolls\r
-[4] Pouvoir privatiser une conversation entre 2 ou plusieurs personnes\r
-[4] Pouvoir choisir une couleur pour son pseudo\r
+[4] Pouvoir privatiser une conversation entre 2 ou plusieurs personnes
+[4] Pouvoir choisir une couleur pour son pseudo
 [4] Créer un gamebot pour lancer des jeux\r
    * Définir une interface pour la création de nouveau jeu au sein du serveur\r
    * Jeu d'énigmes\r
    * jeu du pendu\r
 [4] Créer un gamebot pour lancer des jeux\r
    * Définir une interface pour la création de nouveau jeu au sein du serveur\r
    * Jeu d'énigmes\r
    * jeu du pendu\r
-   * Jeu des chiffres et des lettres : "[Lettres tirées] - E N X U L S Z C M I - (trouvez le mot de plus long avec ces lettres)"\r
-[4] Image animée à la http://www.google.co.kr/ cf http://www.google.co.kr//ig/f/AaEyQnOaAr4/intl/ALL_kr/svc_sprite_all.gif\r
-[4] Bot de traduction\r
-[4] RSS\r
-[4] Système de vote sur les messages, + ou - qui donne des points aux messages...\r
-[4] Voir les personnes connectées + un statut\r
-[4] Avoir une liste d'amis\r
-[4] Restreindre la consultation d'un message posté à un ou plusieurs utilisateurs définis. Les messages de la conversation ne sont alors vus que par cet ensemble d'utilisateurs.\r
+   * Jeu des chiffres et des lettres : "[Lettres tirées] - E N X U L S Z C M I - (trouvez le mot de plus long avec ces lettres)"
+[4] Image animée à la http://www.google.co.kr/ cf http://www.google.co.kr//ig/f/AaEyQnOaAr4/intl/ALL_kr/svc_sprite_all.gif
+[4] Bot de traduction
+[4] RSS
+[4] Système de vote sur les messages, + ou - qui donne des points aux messages...
+[4] Voir les personnes connectées + un statut
+[4] Avoir une liste d'amis
+[4] Restreindre la consultation d'un message posté à un ou plusieurs utilisateurs définis. Les messages de la conversation ne sont alors vus que par cet ensemble d'utilisateurs.
 [4] Système de trolls. Voir decription.txt.\r
 \r
 [4] Système de trolls. Voir decription.txt.\r
 \r
-[A] smiles personnalisés, on peut en ajouter dans la préférence utilisateur.\r
-[ok] Pouvoir insérer des tags qui sont des liens vers des conversations, par exemple : {R4S} =~ /\{\w+\}/\r
-\r
-\r
-=== Concurrents ===\r
-http://www.phpfreechat.net/demo.fr.html\r
-http://moules.org/board\r
-http://hadoken.free.fr/board/index#b\r
+[A] smiles personnalisés, on peut en ajouter dans la préférence utilisateur.
+[ok] Pouvoir insérer des tags qui sont des liens vers des conversations, par exemple : {R4S} =~ /\{\w+\}/
+
+
+=== Concurrents ===
+http://www.phpfreechat.net/demo.fr.html
+http://moules.org/board
+http://hadoken.free.fr/board/index#b
 http://bouchot.org/tribune#missive\r
 http://bouchot.org/tribune#missive\r
-https://linuxfr.org/board/\r
+https://linuxfr.org/board/
index 096aa87..a91e228 100644 (file)
@@ -106,6 +106,4 @@ Moyen de communication sur le net :
    - Ca peut devenir le bordel, difficile de suivre\r
    - L'information est éphemère ou difficilement réutilisable\r
    - Aucune hiérarchie ou structure en dehors des channels\r
    - Ca peut devenir le bordel, difficile de suivre\r
    - L'information est éphemère ou difficilement réutilisable\r
    - Aucune hiérarchie ou structure en dehors des channels\r
-   \r
-* Twitter (Twitter.com, twoorl.com)\r
    
\ No newline at end of file
    
\ No newline at end of file
index 8c0c8a2..825e4c3 100755 (executable)
@@ -1,4 +1,4 @@
-// coding: utf-8\r
+// coding: utf-8\r
 // Copyright 2008 Grégory Burri\r
 //\r
 // This file is part of Euphorik.\r
 // Copyright 2008 Grégory Burri\r
 //\r
 // This file is part of Euphorik.\r
index 89c9836..93cb835 100755 (executable)
@@ -90,7 +90,7 @@
    % utiles :
    resultat_transaction/1\r
 ]).
    % utiles :
    resultat_transaction/1\r
 ]).
--import(qlc, [e/1, e/2, q/1, cursor/1]).\r
+-import(qlc, [e/2, q/1, cursor/2]).\r
 -include("../include/euphorik_bd.hrl").
 -include("../include/euphorik_defines.hrl").\r
 -include_lib("stdlib/include/qlc.hrl").\r
 -include("../include/euphorik_bd.hrl").
 -include("../include/euphorik_defines.hrl").\r
 -include_lib("stdlib/include/qlc.hrl").\r
@@ -304,7 +304,6 @@ update_pseudo_user(UserId, Pseudo) ->
    
    
 % Affiche N user trié par leur date de dernière connexion.
    
    
 % Affiche N user trié par leur date de dernière connexion.
-% Attention : pas d'index sur ce champs (la date)   
 print_users(N) ->
    resultat_transaction(mnesia:transaction(fun() ->
       C = cursor(
 print_users(N) ->
    resultat_transaction(mnesia:transaction(fun() ->
       C = cursor(
@@ -312,7 +311,8 @@ print_users(N) ->
             9, 
             q([E || E <- mnesia:table(user)]),
             [{order, descending}]
             9, 
             q([E || E <- mnesia:table(user)]),
             [{order, descending}]
-         )
+         ),
+         [{tmpdir, ?KEY_SORT_TEMP_DIR}]
       ),
       Users = qlc:next_answers(C, N),
       lists:foreach(
       ),
       Users = qlc:next_answers(C, N),
       lists:foreach(
@@ -365,7 +365,7 @@ print_user(Id) when is_integer(Id) ->
 user_by_cookie(Cookie) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
 user_by_cookie(Cookie) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
-         case e(q([E || E <- mnesia:table(user), E#user.cookie =:= Cookie])) of
+         case e(q([E || E <- mnesia:table(user), E#user.cookie =:= Cookie]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
             [User] -> {ok, User};
             _ -> erreur
          end
             [User] -> {ok, User};
             _ -> erreur
          end
@@ -376,7 +376,7 @@ user_by_cookie(Cookie) ->
 user_by_id(ID) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
 user_by_id(ID) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
-         case e(q([E || E <- mnesia:table(user), E#user.id =:= ID])) of
+         case e(q([E || E <- mnesia:table(user), E#user.id =:= ID]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
             [User] -> {ok, User};
             _ -> erreur
          end
             [User] -> {ok, User};
             _ -> erreur
          end
@@ -387,7 +387,7 @@ user_by_id(ID) ->
 user_by_login(Login) ->\r
    resultat_transaction(mnesia:transaction(\r
       fun() ->\r
 user_by_login(Login) ->\r
    resultat_transaction(mnesia:transaction(\r
       fun() ->\r
-         Users = e(q([E || E <- mnesia:table(user), E#user.login =:= Login])),\r
+         Users = e(q([E || E <- mnesia:table(user), E#user.login =:= Login]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]),\r
          case Users of\r
             [User] -> {ok, User};\r
             _ -> erreur\r
          case Users of\r
             [User] -> {ok, User};\r
             _ -> erreur\r
@@ -399,7 +399,7 @@ user_by_login(Login) ->
 toggle_ek_master(User_id) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
 toggle_ek_master(User_id) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
-         Users = e(q([E || E <- mnesia:table(user), E#user.id =:= User_id])),
+         Users = e(q([E || E <- mnesia:table(user), E#user.id =:= User_id]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]),
          case Users of
             [User] ->
                mnesia:write(User#user{ek_master = not User#user.ek_master});
          case Users of
             [User] ->
                mnesia:write(User#user{ek_master = not User#user.ek_master});
@@ -419,12 +419,10 @@ css_from_user_cookie(Cookie) ->
    end.
    
 
    end.
    
 
-
-
 user_by_login_password(Login, Password) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
 user_by_login_password(Login, Password) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
-         case e(q([E || E <- mnesia:table(user), E#user.login =:= Login, E#user.password =:= Password])) of
+         case e(q([E || E <- mnesia:table(user), E#user.login =:= Login, E#user.password =:= Password]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
             [User | _] -> {ok, User};
             _ -> erreur
          end
             [User | _] -> {ok, User};
             _ -> erreur
          end
@@ -436,7 +434,7 @@ user_by_login_password(Login, Password) ->
 user_by_mess(Id) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
 user_by_mess(Id) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
-         case e(q([U || U <- mnesia:table(user), M <- mnesia:table(minichat), M#minichat.id =:= Id, M#minichat.auteur_id =:= U#user.id])) of
+         case e(q([U || U <- mnesia:table(user), M <- mnesia:table(minichat), M#minichat.id =:= Id, M#minichat.auteur_id =:= U#user.id]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
             [User | _] -> {ok, User};
             _ -> erreur
          end
             [User | _] -> {ok, User};
             _ -> erreur
          end
@@ -449,9 +447,9 @@ user_by_mess(Id) ->
 nouveau_message(Mess, Auteur_id, Repond_A) ->
    % regarde si les id 'Repond_A' existent
    F = fun() ->   
 nouveau_message(Mess, Auteur_id, Repond_A) ->
    % regarde si les id 'Repond_A' existent
    F = fun() ->   
-      Nb_id_trouve = length(e(q([E#minichat.id || E <- mnesia:table(minichat), lists:member(E#minichat.id, Repond_A)]))),
+      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 ?
       % est-ce que l'auteur existe ?
-      Auteur = case e(q([E || E <- mnesia:table(user), E#user.id =:= Auteur_id])) of
+      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,
          [A] -> A;
          _ -> {erreur, "L'auteur du message est introuvable"}
       end,
@@ -521,7 +519,8 @@ messages(N, P) ->
             2, 
             q([E#minichat{contenu = contenu_message(E)} || E <- mnesia:table(minichat)]),
             [{order, descending}]
             2, 
             q([E#minichat{contenu = contenu_message(E)} || E <- mnesia:table(minichat)]),
             [{order, descending}]
-         )
+         ),
+         [{tmpdir, ?KEY_SORT_TEMP_DIR}]
       ),
       if P > 1 -> qlc:next_answers(C, N * (P - 1));
          true -> ok
       ),
       if P > 1 -> qlc:next_answers(C, N * (P - 1));
          true -> ok
@@ -530,7 +529,7 @@ messages(N, P) ->
       qlc:delete_cursor(C),
       lists:reverse(R)
    end,
       qlc:delete_cursor(C),
       lists:reverse(R)
    end,
-   resultat_transaction(mnesia:transaction(F)).   
+   resultat_transaction(mnesia:transaction(F)).
 
 
 % Renvoie les messages manquants pour la page P en sachant qu'il y a N message
 
 
 % Renvoie les messages manquants pour la page P en sachant qu'il y a N message
@@ -572,7 +571,7 @@ messages_by_ids(Ids) ->
             2,
             q([E || E <- mnesia:table(minichat), lists:any(fun(Id) -> Id =:= E#minichat.id end, Ids)]),
             [{order, ascending}]
             2,
             q([E || E <- mnesia:table(minichat), lists:any(fun(Id) -> Id =:= E#minichat.id end, Ids)]),
             [{order, ascending}]
-         ))
+         ),[{tmpdir, ?KEY_SORT_TEMP_DIR}])
       end
    )).
    
       end
    )).
    
@@ -581,14 +580,14 @@ messages_by_ids(Ids) ->
 % TODO : ya pas plus simple ?
 message_existe(Id) ->
    resultat_transaction(mnesia:transaction(fun() ->
 % TODO : ya pas plus simple ?
 message_existe(Id) ->
    resultat_transaction(mnesia:transaction(fun() ->
-      length(e(q([E#minichat.id || E <- mnesia:table(minichat), E#minichat.id =:= Id]))) =:= 1
+      length(e(q([E#minichat.id || E <- mnesia:table(minichat), E#minichat.id =:= Id]), [{tmpdir, ?KEY_SORT_TEMP_DIR}])) =:= 1
    end)).
    
    
 % Renvoie les reponses (utilisé normalement uniquement pendant le debug).
 reponses() ->
    F = fun() ->
    end)).
    
    
 % Renvoie les reponses (utilisé normalement uniquement pendant le debug).
 reponses() ->
    F = fun() ->
-      e(q([E || E <- mnesia:table(reponse_minichat)]))
+      e(q([E || E <- mnesia:table(reponse_minichat)]), [{tmpdir, ?KEY_SORT_TEMP_DIR}])
    end,
    resultat_transaction(mnesia:transaction(F)).
    
    end,
    resultat_transaction(mnesia:transaction(F)).
    
@@ -601,7 +600,7 @@ repond_a(M_id) ->
             [M || E <- mnesia:table(reponse_minichat),
             M <- mnesia:table(minichat),
             E#reponse_minichat.repondant =:= M_id,
             [M || E <- mnesia:table(reponse_minichat),
             M <- mnesia:table(minichat),
             E#reponse_minichat.repondant =:= M_id,
-            M#minichat.id =:= E#reponse_minichat.cible]))
+            M#minichat.id =:= E#reponse_minichat.cible]), [{tmpdir, ?KEY_SORT_TEMP_DIR}])
       end
    )).
    
       end
    )).
    
@@ -613,7 +612,7 @@ est_une_reponse_a_user(Id_user, Id_mess) ->
                e(q([
                   M#minichat.auteur_id || M <- mnesia:table(minichat), R <- mnesia:table(reponse_minichat),
                   M#minichat.auteur_id =:= Id_user, M#minichat.id =:= R#reponse_minichat.cible, R#reponse_minichat.repondant =:= Id_mess
                e(q([
                   M#minichat.auteur_id || M <- mnesia:table(minichat), R <- mnesia:table(reponse_minichat),
                   M#minichat.auteur_id =:= Id_user, M#minichat.id =:= R#reponse_minichat.cible, R#reponse_minichat.repondant =:= Id_mess
-               ]), [{unique_all, true}])
+               ]), [{unique_all, true}, {tmpdir, ?KEY_SORT_TEMP_DIR}])
             end
          ) of
       {atomic, [_]} -> true;
             end
          ) of
       {atomic, [_]} -> true;
@@ -628,7 +627,7 @@ a_repondu_a_message(Id_user, Id_mess) ->
                e(q([
                   M#minichat.auteur_id || M <- mnesia:table(minichat), R <- mnesia:table(reponse_minichat),
                   R#reponse_minichat.cible =:= Id_mess, R#reponse_minichat.repondant =:= M#minichat.id, M#minichat.auteur_id =:= Id_user
                e(q([
                   M#minichat.auteur_id || M <- mnesia:table(minichat), R <- mnesia:table(reponse_minichat),
                   R#reponse_minichat.cible =:= Id_mess, R#reponse_minichat.repondant =:= M#minichat.id, M#minichat.auteur_id =:= Id_user
-               ]), [{unique_all, true}])
+               ]), [{unique_all, true}, {tmpdir, ?KEY_SORT_TEMP_DIR}])
             end
          ) of
       {atomic, [_]} -> true;
             end
          ) of
       {atomic, [_]} -> true;
@@ -640,7 +639,7 @@ a_repondu_a_message(Id_user, Id_mess) ->
 possede_message(Id_user, Id_mess) ->
    case mnesia:transaction(
             fun() ->
 possede_message(Id_user, Id_mess) ->
    case mnesia:transaction(
             fun() ->
-               e(q([E#minichat.auteur_id || E <- mnesia:table(minichat), E#minichat.id =:= Id_mess]))
+               e(q([E#minichat.auteur_id || E <- mnesia:table(minichat), E#minichat.id =:= Id_mess]), [{tmpdir, ?KEY_SORT_TEMP_DIR}])
             end
          ) of
       {atomic, [Id_user | []]} -> true;
             end
          ) of
       {atomic, [Id_user | []]} -> true;
@@ -659,11 +658,11 @@ list_ban() ->
             {
                IP#ip_table.ip,
                delta_date_minute(date_plus_minutes(IP#ip_table.ban, IP#ip_table.ban_duration), Now),
             {
                IP#ip_table.ip,
                delta_date_minute(date_plus_minutes(IP#ip_table.ban, IP#ip_table.ban_duration), Now),
-               e(q([{U#user.pseudo, U#user.login} || U <- mnesia:table(user), U#user.last_ip =:= IP#ip_table.ip]))
+               e(q([{U#user.pseudo, U#user.login} || U <- mnesia:table(user), U#user.last_ip =:= IP#ip_table.ip]), [{tmpdir, ?KEY_SORT_TEMP_DIR}])
             } ||
             IP <- mnesia:table(ip_table),
             if IP#ip_table.ban =:= undefined -> false; true -> date_plus_minutes(IP#ip_table.ban, IP#ip_table.ban_duration) > Now end
             } ||
             IP <- mnesia:table(ip_table),
             if IP#ip_table.ban =:= undefined -> false; true -> date_plus_minutes(IP#ip_table.ban, IP#ip_table.ban_duration) > Now end
-         ])))
+         ])), [{tmpdir, ?KEY_SORT_TEMP_DIR}])
       end
    )).
 
       end
    )).
 
@@ -698,7 +697,7 @@ est_banni(User_id) ->
             U#user.id =:= User_id,
             IP <- mnesia:table(ip_table),
             IP#ip_table.ip =:= U#user.last_ip
             U#user.id =:= User_id,
             IP <- mnesia:table(ip_table),
             IP#ip_table.ip =:= U#user.last_ip
-         ])) of
+         ]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
             [{Ban, Ban_duration}] ->
                Echeance = date_plus_minutes(Ban, Ban_duration),
                Now = now(),
             [{Ban, Ban_duration}] ->
                Echeance = date_plus_minutes(Ban, Ban_duration),
                Now = now(),
@@ -729,7 +728,7 @@ date_plus_minutes(Ban, Ban_duration) ->
 can_register(IP) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
 can_register(IP) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
-         case e(q([I || I <- mnesia:table(ip_table), I#ip_table.ip =:= IP])) of
+         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()}),
                true;
             [] -> 
                mnesia:write(#ip_table{ip = IP, date_last_try_register = now()}),
                true;
@@ -754,7 +753,7 @@ can_register(IP) ->
 trolls() ->
    resultat_transaction(mnesia:transaction(
       fun() ->
 trolls() ->
    resultat_transaction(mnesia:transaction(
       fun() ->
-         e(qlc:keysort(2, q([T || T <- mnesia:table(troll)])))
+         e(qlc:keysort(2, q([T || T <- mnesia:table(troll)])), [{tmpdir, ?KEY_SORT_TEMP_DIR}])
       end
    )).
    
       end
    )).
    
@@ -763,7 +762,7 @@ trolls() ->
 trolls(Last_id) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
 trolls(Last_id) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
-         e(qlc:keysort(2, q([T || T <- mnesia:table(troll), T#troll.id > Last_id, T#troll.date_post =:= undefined])))
+         e(qlc:keysort(2, q([T || T <- mnesia:table(troll), T#troll.id > Last_id, T#troll.date_post =:= undefined])), [{tmpdir, ?KEY_SORT_TEMP_DIR}])
       end
    )).
    
       end
    )).
    
@@ -783,13 +782,13 @@ put_troll(User_id, Content) ->
                E#troll.id_user =:= User_id,
                E#troll.date_post =:= undefined
             ]
                E#troll.id_user =:= User_id,
                E#troll.date_post =:= undefined
             ]
-         ))),
+         ), [{tmpdir, ?KEY_SORT_TEMP_DIR}])),
          Nb_troll_poste_total = length(e(q(
             [
                E#troll.id || E <- mnesia:table(troll),
                E#troll.date_post =:= undefined
             ]
          Nb_troll_poste_total = length(e(q(
             [
                E#troll.id || E <- mnesia:table(troll),
                E#troll.date_post =:= undefined
             ]
-         ))),
+         ), [{tmpdir, ?KEY_SORT_TEMP_DIR}])),
          User = user_by_id(User_id),
          case User of
             {ok, _} ->
          User = user_by_id(User_id),
          case User of
             {ok, _} ->
@@ -839,7 +838,7 @@ del_troll(Troll_id) ->
 troll_by_id(Troll_id) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
 troll_by_id(Troll_id) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
-         case e(q([T || T <- mnesia:table(troll), T#troll.id =:= Troll_id])) of
+         case e(q([T || T <- mnesia:table(troll), T#troll.id =:= Troll_id]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
             [T] -> {ok, T};
             _ ->
                erreur
             [T] -> {ok, T};
             _ ->
                erreur
@@ -854,7 +853,7 @@ current_troll() ->
    resultat_transaction(mnesia:transaction(
       fun() ->
          % TODO : ya pas moyen de désigner le champs plutot qu'avec un nombre pour le tri ?
    resultat_transaction(mnesia:transaction(
       fun() ->
          % TODO : ya pas moyen de désigner le champs plutot qu'avec un nombre pour le tri ?
-         C = cursor(qlc:keysort(5, q([T || T <- mnesia:table(troll), T#troll.date_post =/= undefined]), [{order, descending}])),
+         C = cursor(qlc:keysort(5, q([T || T <- mnesia:table(troll), T#troll.date_post =/= undefined]), [{order, descending}]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]),
          R = case qlc:next_answers(C, 1) of
             [T] -> T;
             _ -> aucun
          R = case qlc:next_answers(C, 1) of
             [T] -> T;
             _ -> aucun
@@ -874,7 +873,7 @@ elire_troll() ->
    random:seed(A1, A2, A3),
    mnesia:transaction(
       fun() ->
    random:seed(A1, A2, A3),
    mnesia:transaction(
       fun() ->
-         case e(q([T || T <- mnesia:table(troll), T#troll.date_post =:= undefined])) of
+         case e(q([T || T <- mnesia:table(troll), T#troll.date_post =:= undefined]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
             [] ->
                plus_de_trolls;
             Trolls ->
             [] ->
                plus_de_trolls;
             Trolls ->
@@ -892,7 +891,7 @@ elire_troll() ->
 message_id_associe(Troll_id) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
 message_id_associe(Troll_id) ->
    resultat_transaction(mnesia:transaction(
       fun() ->
-         case e(q([M#minichat.id || M <- mnesia:table(minichat), M#minichat.troll_id =:= Troll_id])) of
+         case e(q([M#minichat.id || M <- mnesia:table(minichat), M#minichat.troll_id =:= Troll_id]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
             [Id] -> Id;
             _ -> undefined
          end
             [Id] -> Id;
             _ -> undefined
          end
index 2db3586..06fad7f 100755 (executable)
 -export([\r
    conversations/4\r
 ]).
 -export([\r
    conversations/4\r
 ]).
--include("euphorik_bd.hrl").
+-include("../include/euphorik_bd.hrl").
+-include("../include/euphorik_defines.hrl").
 -include_lib("stdlib/include/qlc.hrl").
 -import(lists, [reverse/1, any/2, map/2, sublist/3, filter/2]).
 -import(euphorik_bd, [resultat_transaction/1]).
 -include_lib("stdlib/include/qlc.hrl").
 -import(lists, [reverse/1, any/2, map/2, sublist/3, filter/2]).
 -import(euphorik_bd, [resultat_transaction/1]).
--import(qlc, [e/1, q/1, keysort/3]).
+-import(qlc, [e/2, q/1, keysort/3]).
 -import(mnesia, [table/1, transaction/1]).
   
    
 -import(mnesia, [table/1, transaction/1]).
   
    
@@ -100,7 +101,7 @@ mise_en_forme_conversation(Messages) ->
 conversations_detailees(Racines, N, D, P) ->   
    Conversations = map(fun({Racine, P_conv, Dernier}) -> conversation(Racine, N, Dernier, P_conv) end, Racines),
    Conversation_principale = resultat_transaction(transaction(fun() ->
 conversations_detailees(Racines, N, D, P) ->   
    Conversations = map(fun({Racine, P_conv, Dernier}) -> conversation(Racine, N, Dernier, P_conv) end, Racines),
    Conversation_principale = resultat_transaction(transaction(fun() ->
-      Curseur = qlc:cursor(q([E#minichat.id || E <- qlc:sort(table(minichat), [{order, descending}])])),
+      Curseur = qlc:cursor(q([E#minichat.id || E <- qlc:sort(table(minichat), [{order, descending}])]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]),
       {CP, Plus} = conversation_principale(Curseur, Conversations, N, P),
       qlc:delete_cursor(Curseur),
       {[M || M <- CP, M > D], Plus} % filtre en fonction de D
       {CP, Plus} = conversation_principale(Curseur, Conversations, N, P),
       qlc:delete_cursor(Curseur),
       {[M || M <- CP, M > D], Plus} % filtre en fonction de D
@@ -205,7 +206,8 @@ enfants(M) ->
          qlc:sort(
             q([E#reponse_minichat.repondant || E <- table(reponse_minichat), E#reponse_minichat.cible =:= M]),
             [{order, ascending}]
          qlc:sort(
             q([E#reponse_minichat.repondant || E <- table(reponse_minichat), E#reponse_minichat.cible =:= M]),
             [{order, ascending}]
-         )
+         ),
+         [{tmpdir, ?KEY_SORT_TEMP_DIR}]
       )
    end)).
    
       )
    end)).
    
@@ -219,7 +221,8 @@ parents(M) ->
          qlc:sort(
             q([E#reponse_minichat.cible || E <- table(reponse_minichat), E#reponse_minichat.repondant =:= M]),
             [{order, ascending}]
          qlc:sort(
             q([E#reponse_minichat.cible || E <- table(reponse_minichat), E#reponse_minichat.repondant =:= M]),
             [{order, ascending}]
-         )
+         ),
+         [{tmpdir, ?KEY_SORT_TEMP_DIR}]
       )
    end)).
    
       )
    end)).
    
index 9fe5f8e..c0791b5 100755 (executable)
@@ -45,3 +45,7 @@
 % Le jour ainsi que l'heure à laquelle est élu un nouveau troll (lundi à 3 heure du mat)
 -define(JOUR_ELECTION_TROLL, 1). % 1 = lundi
 -define(HEURE_ELECTION_TROLL, 3). % 3 heure du matin
 % Le jour ainsi que l'heure à laquelle est élu un nouveau troll (lundi à 3 heure du mat)
 -define(JOUR_ELECTION_TROLL, 1). % 1 = lundi
 -define(HEURE_ELECTION_TROLL, 3). % 3 heure du matin
+
+
+% Le dossier utilisé pour le trie (qlc:keysort())
+-define(KEY_SORT_TEMP_DIR, "/tmp").