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: |
7dc146968bdca0c429ed6fcca935d7ca |
| 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 |
proc ::nano::node::realtime::incoming {socket} {
set data [read $socket 8192]
if {$data eq ""} {
return
}
set remote [chan configure $socket -peer]
| | | 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 [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
|
| ︙ | ︙ |