Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix your-0key problem |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
429120512d2af2e61e163b9c964371b5 |
User & Date: | bernd 2019-07-13 11:03:24.153 |
Context
2019-07-14
| ||
21:15 | Lock/unlock of chat looks good now check-in: ff117dd91d user: bernd tags: trunk | |
2019-07-13
| ||
11:03 | Fix your-0key problem check-in: 429120512d user: bernd tags: trunk | |
11:02 | Fix your-0key problem check-in: e332493556 user: bernd tags: trunk | |
Changes
Changes to helper.fs.
︙ | ︙ | |||
296 297 298 299 300 301 302 | in net2o : pklookup? ( pkaddr u -- flag ) 2dup keysize2 safe/string hostc$ $! key2| 2dup pkc over str= to ?myself 2dup >d#id { id } id .dht-host $[]# 0= IF 2dup pk-lookup 2dup >d#id to id THEN 2dup make-context false id dup .dht-host ['] insert-host? $[]map drop nip nip | | | 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 | in net2o : pklookup? ( pkaddr u -- flag ) 2dup keysize2 safe/string hostc$ $! key2| 2dup pkc over str= to ?myself 2dup >d#id { id } id .dht-host $[]# 0= IF 2dup pk-lookup 2dup >d#id to id THEN 2dup make-context false id dup .dht-host ['] insert-host? $[]map drop nip nip lastaddr# IF lastaddr# cell+ $@ dest-0key sec! THEN ; in net2o : pklookup ( pkaddr u -- ) net2o:pklookup? 0= !!no-address!! ; : ?nat-done ( n -- ) nat( ." req done, issue nat request" forth:cr ) connect-rest +flow-control +resend ?nat ; : no-nat-done ( n -- ) |
︙ | ︙ |