urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-03 05:43:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

in :dns-bind, send http responses on request bone

Browse Source
This commit is contained in:
Joe Bryan 2019-06-25 22:45:58 -07:00
parent f23afeb7d9
commit 0c3b2ada4c
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
app/dns-bind.hoon
View File

@ -750,6 +750,9 @@
loop(dep t.dep)
::
%handle-http-request
:: always stash request bone for giving response
::
=/ =bone ost.bowl
:: XX maybe always (set-raw-contract %request) so transaction failure is captured?
::
=* inbound-request inbound-request.in-poke-data
@ -759,7 +762,8 @@
=> inbound-request
[authenticated secure address [method url]:request]
==
;< ~ bind:m (send-effect:stdio [%http-response %start [%403 ~] ~ %.y])
;< ~ bind:m
(send-effect-on-bone:stdio bone [%http-response %start [%403 ~] ~ %.y])
(pure:m state)
::
=* nam u.nem.state
@ -777,7 +781,8 @@
=* params q.u.parsed
::
?+ url
;< ~ bind:m (send-effect:stdio [%http-response %start [%404 ~] ~ %.y])
;< ~ bind:m
(send-effect-on-bone:stdio bone [%http-response %start [%404 ~] ~ %.y])
(pure:m state)
::
[%dns %oauth ~]
@ -797,7 +802,8 @@
;a(href link): {link}
==
==
;< ~ bind:m (send-effect:stdio [%http-response %start [%200 ~] bod %.y])
;< ~ bind:m
(send-effect-on-bone:stdio bone [%http-response %start [%200 ~] bod %.y])
(pure:m state)
::
[%dns %oauth %result ~]
@ -823,7 +829,8 @@
::
:: XX may need to send this as a card so we don't wait
::
;< ~ bind:m (send-effect:stdio [%http-response %start [%301 hed] ~ %.y])
;< ~ bind:m
(send-effect-on-bone:stdio bone [%http-response %start [%301 hed] ~ %.y])
(initialize-authority aut.nam state)
::
[%dns %oauth %success ~]