From a47964940e7918e81acb7f87fd2f1d5d2ff89778 Mon Sep 17 00:00:00 2001
From: Greg Burri <greg.burri@gmail.com>
Date: Sat, 16 Aug 2008 21:25:14 +0000
Subject: [PATCH] MOD mineurs

---
 modules/Makefile              | 13 +++++++++++--
 modules/erl/euphorik_test.erl |  4 ++--
 pages/about.html              |  6 +++---
 styles/1/pageAbout.css        |  6 +++---
 tools/tools.rb                |  2 +-
 5 files changed, 20 insertions(+), 11 deletions(-)

diff --git a/modules/Makefile b/modules/Makefile
index 4a7f325..0a77892 100755
--- a/modules/Makefile
+++ b/modules/Makefile
@@ -8,8 +8,17 @@ rep_erl = erl
 # Répertoire dans lequel se trouve les fichier hrl (définition de record)
 rep_include = include
 
-# Paramètre du compilateur
-erlc_params = -I $(rep_include) -o $(rep_ebin) $<
+# Paramètres du compilateur
+# il est possible de compiler en natif en executant :
+#  $ make NATIVE=true
+# les différents tests on montrés que ca n'augmentait pas les performances
+# car très lié à la base de données
+# TODO : simplifier et éviter les répetitions
+ifdef NATIVE 
+   erlc_params = +native -I $(rep_include) -o $(rep_ebin) $<
+else
+   erlc_params = -I $(rep_include) -o $(rep_ebin) $<
+endif
 
 # Compilation de toute l'application euphorik
 all: $(rep_ebin)/smtp.beam \
diff --git a/modules/erl/euphorik_test.erl b/modules/erl/euphorik_test.erl
index 867131a..f07941c 100644
--- a/modules/erl/euphorik_test.erl
+++ b/modules/erl/euphorik_test.erl
@@ -163,8 +163,8 @@ tire_element_rand(N, L, Elements) ->
 loop(User_id, 0) ->
    io:format("~p a fini~n", [User_id]);
 loop(User_id, M) -> 
-   % attend un temp aléatoire compris entre 1 sec et 5 sec
-   timer:sleep(1000 * random:uniform(5)),
+   % attend un temp aléatoire compris entre 2 sec et 10 sec
+   timer:sleep(2000 * random:uniform(10)),
    % poste un message aléatoire par une personne aléatoire répondant à des messages aléatoires
    {Message, Repond_a} = {message_rand(), messages_id_rand()},
    io:format("~p poste ~p et repond a ~w~n", [User_id, Message, Repond_a]),
diff --git a/pages/about.html b/pages/about.html
index e42dace..eabc1c1 100644
--- a/pages/about.html
+++ b/pages/about.html
@@ -17,9 +17,9 @@
 
 <h3>A quoi correspondent les couleurs liés aux messages ?</h3>
 <ul>
-   <li><span class="faqCouleurProprietaire">Vert</span> : messages appartenant à l'utilisateur courant.</li>
-   <li><span class="faqCouleurReponse">Rouge</span> : messages répondant à l'utilisateur courant.</li>
-   <li><span class="faqCouleurRepondu">Bleu</span> : messages auquels l'utilisateur courant à répondu.</li>
+   <li class="faqCouleurProprietaire">Messages appartenant à l'utilisateur courant.</li>
+   <li class="faqCouleurReponse">Messages répondant à l'utilisateur courant.</li>
+   <li class="faqCouleurRepondu">Messages auquels l'utilisateur courant à répondu.</li>
 </ul>
 
 <h3>Quels-sont les navigateurs supportés ?</h3>
diff --git a/styles/1/pageAbout.css b/styles/1/pageAbout.css
index 687e6d1..eb25692 100644
--- a/styles/1/pageAbout.css
+++ b/styles/1/pageAbout.css
@@ -4,11 +4,11 @@
 }
 
 #page.about .faqCouleurProprietaire {
-	color: #31732f;
+	color: #350A0A;
 }
 #page.about .faqCouleurReponse {
-	color: #bf2911;
+	color: #846C19;
 }
 #page.about .faqCouleurRepondu {
-	color: #84196c;
+	color: #84196C;
 }
diff --git a/tools/tools.rb b/tools/tools.rb
index 127e3f3..804dac7 100644
--- a/tools/tools.rb
+++ b/tools/tools.rb
@@ -14,7 +14,7 @@ Euphorik is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.
-+
+
 You should have received a copy of the GNU General Public License
 along with Euphorik.  If not, see <http://www.gnu.org/licenses/>.
 =end
-- 
2.49.0