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 |
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 296 297 297 in net2o : pklookup? ( pkaddr u -- flag ) 298 298 2dup keysize2 safe/string hostc$ $! key2| 2dup pkc over str= to ?myself 299 299 2dup >d#id { id } 300 300 id .dht-host $[]# 0= IF 2dup pk-lookup 2dup >d#id to id THEN 301 301 2dup make-context 302 302 false id dup .dht-host ['] insert-host? $[]map drop nip nip 303 - lastaddr# IF lastaddr# cell+ $@ dest-0key $! THEN ; 303 + lastaddr# IF lastaddr# cell+ $@ dest-0key sec! THEN ; 304 304 in net2o : pklookup ( pkaddr u -- ) 305 305 net2o:pklookup? 0= !!no-address!! ; 306 306 307 307 : ?nat-done ( n -- ) 308 308 nat( ." req done, issue nat request" forth:cr ) 309 309 connect-rest +flow-control +resend ?nat ; 310 310 : no-nat-done ( n -- )