From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 4 Jan 2002 21:23:57 +0000 (+0000)
Subject: Use alarm(1) in repeatedly.  Call fail if startup fails.
X-Git-Tag: mergeup-1-2001-10-09-tell~5
X-Git-Url: https://git.distorted.org.uk/~mdw/ircbot/commitdiff_plain/9bfc2582155aaae38af855e452197a528b0002ac?ds=inline;hp=6ae02d931eb00beac7e4cecbfff0cf9d7afb3512

Use alarm(1) in repeatedly.  Call fail if startup fails.
---

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