Commit b8731073 authored by bernd's avatar bernd

Check for host not found

parent c7faf563
......@@ -53,4 +53,4 @@ s" Unknown crypto function" throwcode !!unknown-crypt!!
s" Wrong revocation secret" throwcode !!not-my-revsk!!
s" krypto mem request too big" throwcode !!kr-size!!
s" secret storage size wrong" throwcode !!sec-size!!
s" host not found" throwcode !!host-notfound!!
\ No newline at end of file
......@@ -2537,7 +2537,8 @@ require net2o-msg.fs
$2000 $10000 "" ins-ip c:connect
2dup c:addme-fetch-host
nick-key >o ke-pk $@
BEGIN >d#id >o 0 dht-host $[]@ o> over c@ '!' = WHILE
BEGIN >d#id >o 0 dht-host $[]@ o> 2dup d0= !!host-notfound!!
over c@ '!' = WHILE
replace-key o> >o ke-pk $@ ." replace key: " 2dup 85type cr
o o> >r 2dup c:fetch-id r> >o
REPEAT o> 2drop do-disconnect ;
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment