|
|
@@ -23,6 +23,7 @@ namespace eval ::cims::interconnect {
|
|
|
variable layout
|
|
|
variable sshcommand {ssh}
|
|
|
variable host {stomp@b4r.org}
|
|
|
+ #set host "paul@localhost"
|
|
|
variable mnet_interconnect_version "ic!0.1"
|
|
|
|
|
|
|
|
|
@@ -396,11 +397,11 @@ proc ::cims::interconnect::pingloop {} {
|
|
|
}
|
|
|
|
|
|
if {$matched == 0 && $pipe != ""} {
|
|
|
- utimer 120 "::cims::interconnect::pingloop"
|
|
|
+ utimer 90 "::cims::interconnect::pingloop"
|
|
|
}
|
|
|
|
|
|
# start a ping
|
|
|
- ::cims::interconnect::ping
|
|
|
+ utimer 2 "::cims::interconnect::ping"
|
|
|
}
|
|
|
|
|
|
# this proc is a plugin proc for cims. it only gets executed if it exists.
|
