From 9dbf4920467d05e8a4865460fe8e2000155dc36d Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Sun, 3 Nov 2013 03:39:43 +0100
Subject: [PATCH] Check Fact is already running after call it

---
 process/files/moulette_get.pl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/process/files/moulette_get.pl b/process/files/moulette_get.pl
index 9e8d29b..0024071 100644
--- a/process/files/moulette_get.pl
+++ b/process/files/moulette_get.pl
@@ -37,7 +37,17 @@ sub fact_exec
 {
   my $cmd = shift;
   my $rundir = shift;
-  jail_exec("cd $rundir && /usr/local/bin/mono /usr/local/fact/FactExe.exe $cmd");
+
+  # Check that Fact is running
+  qx/pgrep mono/;
+  while ($?)
+  {
+      log ERROR, "Fact is not running ... waiting for respawn";
+      sleep(10);
+      qx/pgrep mono/;
+  } 
+
+  jail_exec("cd '$rundir' && /usr/local/bin/mono /usr/local/fact/FactExe.exe $cmd");
 }
 
 sub prepare_dir