Check-in [429120512d]
Not logged in

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: 429120512d2af2e61e163b9c964371b51bce3c96
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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 -- )