ping behaviour change

cims_interconnect.tcl

@@ -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.