From: ian <ian>
Date: Sun, 8 Jun 2008 23:21:31 +0000 (+0000)
Subject: do not ping immediately after crash
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=49796b2ce33d03865515c938262b6f2456c97c7f;p=trains.git

do not ping immediately after crash
---

diff --git a/hostside/multiplex b/hostside/multiplex
index 8143416..535f50a 100755
--- a/hostside/multiplex
+++ b/hostside/multiplex
@@ -289,8 +289,8 @@ proc realtime-retry-realtime-failed {} {
     set serchan [open $dev_railway r+]
     fconfigure $serchan -translation binary -buffering none -blocking 0
     fileevent $serchan readable realtime-retry-serchan-readable
-    set realtime_retry [list $serchan x {} {}]
-    realtime-retry-send-ping
+    set after [after 500 realtime-retry-send-ping]
+    set realtime_retry [list $serchan $after {} {}]
 }
 
 proc realtime-retry-send-ping {} {