blob: be95b70a58e691fc2766f7366498bb0d1629203c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
/- sur=nostr
/+ js=json-nostr
/= web /web/router
|%
++ handle
|= [eyre-id=@ta req=inbound-request:eyre]
^- (unit [url=@ event=event:sur])
?~ body.request.req ~
=/ jstring q.u.body.request.req
=/ ures (de:json:html jstring)
?~ ures ~
(msg:de:js u.ures)
++ send
|= [desk=@tas =req:shim:sur] ^- card:agent:gall
=/ req-body (req:en:js req)
=/ headers :~
[key='content-type' value='application/json']
==
=/ =request:http [%'POST' url:shim:sur headers `(json-body:web req-body)]
=/ pat /shim
[%pass (weld /ws pat) %arvo %k %fard desk %fetch %noun !>(request)]
--
|
