From 706001081202bab0128962fa1f7c9a94e56343db Mon Sep 17 00:00:00 2001
From: Jean-Philippe Condomines <jp.condomines@gmail.com>
Date: Mon, 18 May 2015 11:56:46 +0200
Subject: [PATCH] Fix log bug

---
 sw/logalizer/sd2log.ml | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/sw/logalizer/sd2log.ml b/sw/logalizer/sd2log.ml
index 9b37090dc9..b6878ca775 100644
--- a/sw/logalizer/sd2log.ml
+++ b/sw/logalizer/sd2log.ml
@@ -130,7 +130,11 @@ let convert_file = fun file ->
   and single_ac_id = ref (-1) in
 
   let use_payload = fun payload ->
+    try
     let log_msg = Logpprz.parse payload in
+    if log_msg.Logpprz.source > 1 then
+      fprintf stderr "Invalid source (%d), skipping message\n" log_msg.Logpprz.source
+    else
     let (msg_id, ac_id, vs) = values_of_payload log_msg log_msg.Logpprz.pprz_data in
 
     if log_msg.Logpprz.source = 0 && !single_ac_id < 0 then
@@ -156,6 +160,7 @@ let convert_file = fun file ->
 	| "ALIVE" when !md5 = "" ->
 	    md5 := hex_of_array (Pprz.assoc "md5sum" vs)
 	| _ -> ()
+  with _ -> fprintf stderr "Parsing error, skipping message\n"
   in
 
   let parser = Parser.parse use_payload in