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

[ircbot] / bridge.tcl

diff --git a/bridge.tcl b/bridge.tcl
index 1282aed7e918eda4bb172e622fdae4c067373f33..64d2d5ed66de0ed3daf10740dd958bf0d3d909f0 100755 (executable)
--- 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"
+}