test.tcl		test.tcl
	skipping to change at line 218		skipping to change at line 218
	}		}
	proc wsbuf { fname } {		proc wsbuf { fname } {
	global sbuf		global sbuf
	set fid [open $fname w 0600]		set fid [open $fname w 0600]
	puts -nonewline $fid $sbuf		puts -nonewline $fid $sbuf
	close $fid		close $fid
	}		}
	set _xpakeepalive 1		set _xpakeepalive 1
	proc xpakeepalive { xpa sec } {		proc xpakeepalive { xpa sec {type 0} } {
	global _xpakeepalive		global _xpakeepalive
	if { $_xpakeepalive > 0 } {		if { $_xpakeepalive > 0 } {
	puts "sending keepalive ..."		puts "sending keepalive ..."
	xpanskeepalive $xpa		xpanskeepalive $xpa $type
	after [expr $sec * 1000] xpakeepalive $xpa $sec		after [expr $sec * 1000] xpakeepalive $xpa $sec $type
	}		}
	}		}
	proc katest { host sec } {		proc katest { host sec {type 0} } {
	global xpa		global xpa
	xparemote $xpa $host + -proxy		xparemote $xpa $host + -proxy
	after [expr $sec * 1000] xpakeepalive $xpa $sec		after [expr $sec * 1000] xpakeepalive $xpa $sec $type
	}		}
	if { 0 } {		if { 0 } {
	puts "You can now execute:"		puts "You can now execute:"
	puts " "		puts " "
	puts " katest bynars.harvard.edi:28571 60"		puts " katest bynars.harvard.edu:28571 60"
	puts " (if this is tclsh, you need to run vwait)"		puts " (if this is tclsh, you need to run vwait)"
	# katest bynars.harvard.edu:28571 60		# katest bynars.harvard.edu:28571 60
	puts " "		puts " "
	puts "or:"		puts "or:"
	puts " "		puts " "
	puts " xparemote $xpa bynars.harvard.edu:28571 + -proxy"		puts " xparemote $xpa bynars.harvard.edu:28571 + -proxy"
	puts " "		puts " "
	# xparemote $xpa bynars.harvard.edu:28571 + -proxy		# xparemote $xpa bynars.harvard.edu:28571 + -proxy
	}		}
End of changes. 5 change blocks.
	6 lines changed or deleted		6 lines changed or added
This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/