Check-in [7dc146968b]
Overview
Comment:On some platforms the IPv6 address from TclUDP is enclosed in braces, strip them out
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 7dc146968bdca0c429ed6fcca935d7ca6de69cf55c42118f09fc93d06112c55c
User & Date: rkeene on 2019-01-23 08:13:51
Other Links: manifest | tags
Context
2019-01-23
08:23
Better handling of patching kitcreator and building Nano package check-in: 95d02d1e34 user: rkeene tags: trunk
08:13
On some platforms the IPv6 address from TclUDP is enclosed in braces, strip them out check-in: 7dc146968b user: rkeene tags: trunk
07:59
Better handling of UDP sockets without a header (?!?) check-in: aa6814c5e7 user: rkeene tags: trunk
Changes

Modified nano.tcl from [b556409ab5] to [e13c74e1ec].

3737
3738
3739
3740
3741
3742
3743
3744

3745
3746
3747
3748
3749
3750
3751
3737
3738
3739
3740
3741
3742
3743

3744
3745
3746
3747
3748
3749
3750
3751







-
+







proc ::nano::node::realtime::incoming {socket} {
	set data [read $socket 8192]
	if {$data eq ""} {
		return
	}

	set remote [chan configure $socket -peer]
	set address [lindex $remote 0]
	set address [string trim [lindex $remote 0] "\[\]"]
	set port [lindex $remote 1]
	catch {
		set peerSock [::nano::node::createSocket realtime $address $port]
	}
	if {![info exists peerSock]} {
		::nano::node::log "Error: Unable to create socket from address \"$address\" port \"$port\""
		return