From: ijackson <ijackson>
Date: Fri, 4 Jan 2002 21:23:57 +0000 (+0000)
Subject: Use alarm(1) in repeatedly.  Call fail if startup fails.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=66a157d0d8d9621904c02fdb55f49ce11c5de0d3;p=ircbot.git

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