Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Add debugging switch to fetch pks |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
bf383917f7656019c705cb49d05232c4 |
User & Date: | bernd 2020-02-13 17:47:13.451 |
Context
2020-02-13
| ||
17:48 | Bump version number check-in: 7020254092 user: bernd tags: trunk, 0.9.7-20200213 | |
17:47 | Add debugging switch to fetch pks check-in: bf383917f7 user: bernd tags: trunk | |
2020-02-12
| ||
22:44 | Add pen to edit name check-in: bf93e8b4ed user: bernd tags: trunk | |
Changes
Changes to debugging.fs.
︙ | ︙ | |||
82 83 84 85 86 87 88 89 90 91 92 93 94 95 | debug: slurp( \ debug slurp&spit debug: wallet( \ debug wallet stuff debug: qr( \ qr code stuff debug: deprecated( \ deprecated stuff debug: unhandled( \ unhandled commands debug: syncfile( \ synchronous file operations debug: newvault( \ new style vault keys -db profile( \ don't profile by default ) +db ipv6( \ ipv6 should be on by default ) +db ipv4( \ ipv4 should be on by default ) -db ipv64( \ ipv6 over 4 -db xlat464( \ no xlat 464 by default -db newvault( \ new vault disabled for now ) | > | 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 | debug: slurp( \ debug slurp&spit debug: wallet( \ debug wallet stuff debug: qr( \ qr code stuff debug: deprecated( \ deprecated stuff debug: unhandled( \ unhandled commands debug: syncfile( \ synchronous file operations debug: newvault( \ new style vault keys debug: pks( \ fetch pks -db profile( \ don't profile by default ) +db ipv6( \ ipv6 should be on by default ) +db ipv4( \ ipv4 should be on by default ) -db ipv64( \ ipv6 over 4 -db xlat464( \ no xlat 464 by default -db newvault( \ new vault disabled for now ) |
︙ | ︙ |
Changes to msg.fs.
︙ | ︙ | |||
1313 1314 1315 1316 1317 1318 1319 | msg-group-o >o msg:peers[] $[]# 0 ?DO I msg:peers[] $[] @ .fetch-pks LOOP o> ; : msg-tredisplay ( n -- ) reset-time msg-group-o >o msg:?otr msg:-otr o> >r [: cells >r msg-log@ { log u } u r> - 0 max { u' } | | | 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 | msg-group-o >o msg:peers[] $[]# 0 ?DO I msg:peers[] $[] @ .fetch-pks LOOP o> ; : msg-tredisplay ( n -- ) reset-time msg-group-o >o msg:?otr msg:-otr o> >r [: cells >r msg-log@ { log u } u r> - 0 max { u' } pks( log u ?scan-pks ?fetch-pks ) log u' ?search-lock log u u' /string bounds ?DO I log - cell/ to log# I $@ { d: msgt } msgt ['] msg:display catch IF ." invalid entry" cr 2drop THEN cell +LOOP |
︙ | ︙ |