Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix old my-addr$ problem |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
52a229cf9cb6f6833741f39f6a27188d |
| User & Date: | bernd 2019-11-27 21:43:35.986 |
Context
|
2019-11-27
| ||
| 22:36 | Image recognizer check-in: e88060e605 user: bernd tags: trunk | |
| 21:43 | Fix old my-addr$ problem check-in: 52a229cf9c user: bernd tags: trunk | |
| 21:26 | Chat images started, delivery of dht with obsolete date prevented check-in: aa10c71e44 user: bernd tags: trunk | |
Changes
Changes to addr.fs.
| ︙ | ︙ | |||
168 169 170 171 172 173 174 |
my-addr[] [: .net2o:dispose-addr ;] $[]o-map
my-addr[] $free
my-addr$ $[]free
pub-addr$ $[]free
priv-addr$ $[]free ;
: !my-addr$ ( -- )
| | | 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 |
my-addr[] [: .net2o:dispose-addr ;] $[]o-map
my-addr[] $free
my-addr$ $[]free
pub-addr$ $[]free
priv-addr$ $[]free ;
: !my-addr$ ( -- )
my-key-default 0= ?EXIT my-addr$ $[]free
now>never my-addr[] [:
nat( ." insert into my-addr$: " dup .addr forth:cr )
dup .host:ekey-to 64@ 64dup 64-0= n>64 64+
sigdate 64'+ le-64!
o>addr gen-host my-addr$ $ins[]sig drop ;] $[]o-map ;
: .my-addrs ( -- )
|
| ︙ | ︙ |
Changes to helper.fs.
| ︙ | ︙ | |||
163 164 165 166 167 168 169 |
dht-connect online? IF
replace-me -other announced! THEN ;
: announce? ( -- )
announced 64@ 64-0= ?EXIT
announced? 0= IF
init-my0key init-myekey
| | | 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 |
dht-connect online? IF
replace-me -other announced! THEN ;
: announce? ( -- )
announced 64@ 64-0= ?EXIT
announced? 0= IF
init-my0key init-myekey
my-addr[] [: .+my-0key ;] $[]o-map !my-addr$
announce-me THEN ;
: renat-all ( -- ) beacon( ." remove all beacons" cr )
[IFDEF] renat-complete [: [THEN]
0 .!my-addr dht-disconnect \ old DHT may be stale
beacons# #frees
announce-me \ if we succeed here, we can try the rest
|
| ︙ | ︙ |