From 789c5c583c6e266b9e8ff6b8660d32fcb1fb5667 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Tue, 19 Mar 2013 02:24:54 -0400
Subject: [PATCH] Fix for FLO add

---
 mystic/mutil_echoexport.pas | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/mystic/mutil_echoexport.pas b/mystic/mutil_echoexport.pas
index 22a450a..68d79a9 100644
--- a/mystic/mutil_echoexport.pas
+++ b/mystic/mutil_echoexport.pas
@@ -29,13 +29,22 @@ Var
 Begin
   FileMode := 66;
 
-  {$I-}
+  log(3, '+', 'flo add: ' + floname + ' ' + packetfn);
 
   Assign (T, FloName);
-  Reset (T);
+  {$I-} Reset (T); {$I+}
 
-  If IoResult <> 0 Then
-    ReWrite(T);
+  If IoResult <> 0 Then Begin
+    log(3, '+', 'flo reset failed');
+
+    {$I-} ReWrite(T); {$I+}
+
+    If IoResult <> 0 Then Begin
+      log(3, '+', 'unable to rewrite flo');
+    end;
+
+    Reset(T);
+  end;
 
   While Not Eof(T) Do Begin
     ReadLn (T, Str);
@@ -48,7 +57,7 @@ Begin
 
   log(3, '+', 'flo close and append');
 
-  Close   (T);
+//  Close   (T);
   Append  (T);
   WriteLn (T, '^' + PacketFN);
   Close   (T);