27 lines
838 B
Plaintext
27 lines
838 B
Plaintext
|
/- spider
|
||
|
|
/+ strandio
|
||
|
|
=, strand=strand:spider
|
||
|
|
^- thread:spider
|
||
|
|
|= arg=vase
|
||
|
|
=/ m (strand ,vase)
|
||
|
|
^- form:m
|
||
|
|
~& "calling iris thread"
|
||
|
|
=/ req !<([@t request:http] arg)
|
||
|
|
=/ [channel-slug=@t =request:http] req
|
||
|
|
~& >> request
|
||
|
|
=/ origin (get-header:http 'origin' header-list.request)
|
||
|
|
?~ origin (pure:m !>(~))
|
||
|
|
=/ url (cat 3 [u.origin channel-slug])
|
||
|
|
~& >> `@t`url
|
||
|
|
=. url.request url
|
||
|
|
=/ =task:iris [%request request *outbound-config:iris]
|
||
|
|
=/ =card:agent:gall [%pass /http-req %arvo %i task]
|
||
|
|
;< ~ bind:m (send-raw-card:strandio card)
|
||
|
|
;< res=(pair wire sign-arvo) bind:m take-sign-arvo:strandio
|
||
|
|
?. ?=([%iris %http-response %finished *] q.res)
|
||
|
|
(strand-fail:strand %bad-sign ~)
|
||
|
|
~& +.q.res
|
||
|
|
?~ full-file.client-response.q.res
|
||
|
|
(strand-fail:strand %no-body ~)
|
||
|
|
(pure:m !>(`@t`q.data.u.full-file.client-response.q.res))
|