From 9bfc2582155aaae38af855e452197a528b0002ac Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 4 Jan 2002 21:23:57 +0000
Subject: [PATCH 1/1] Use alarm(1) in repeatedly.  Call fail if startup fails.

---
 bridge.tcl    | 10 +++++++---
 repeatedly.sh |  8 ++++++--
 2 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/bridge.tcl b/bridge.tcl
index 1282aed..64d2d5e 100755
--- a/bridge.tcl
+++ b/bridge.tcl
@@ -152,6 +152,10 @@ def_ucmd who {
     return [list $o]
 }
 
-loadhelp
-ensure_connecting
-foreach botid $bots { bnbot_ensure_connecting $botid }
+if {[catch {
+    loadhelp
+    ensure_connecting
+    foreach botid $bots { bnbot_ensure_connecting $botid }
+} emsg]} {
+    fail "startup: $emsg"
+}
diff --git a/repeatedly.sh b/repeatedly.sh
index db6e3ba..4a44447 100755
--- a/repeatedly.sh
+++ b/repeatedly.sh
@@ -4,7 +4,11 @@ cd "`dirname $0`"
 
 while true; do
 	date
-	HOME=. tclsh8.2 || true
+	set +e
+	HOME=. alarm 50000 tclsh8.2
+	rc=$?
+	set -e
 	date
-	sleep 600
+	test $rc = 142 || sleep 590
+	sleep 10
 done
-- 
2.11.0