2015-05-07 00:00:06 +03:00
|
|
|
::
|
2015-06-05 03:27:01 +03:00
|
|
|
:::: /hoon/http/lib
|
2015-05-07 00:00:06 +03:00
|
|
|
::
|
|
|
|
|
::
|
|
|
|
|
::
|
|
|
|
|
/? 310
|
|
|
|
|
!:
|
|
|
|
|
|%
|
|
|
|
|
++ httpreq
|
|
|
|
|
|= $: ost=bone pour-path=wire
|
2015-05-29 02:07:03 +03:00
|
|
|
$= params
|
|
|
|
|
$: domain=(list cord) end-point=path
|
|
|
|
|
req-type=$?(%get [%post json]) headers=math
|
|
|
|
|
queries=quay
|
|
|
|
|
==
|
|
|
|
|
==
|
|
|
|
|
:^ ost %them pour-path
|
|
|
|
|
`(unit hiss)`[~ (httpreq-to-hiss params)]
|
|
|
|
|
::
|
|
|
|
|
++ httpreq-to-hiss
|
|
|
|
|
|= $: domain=(list cord) end-point=path
|
|
|
|
|
req-type=$?(%get [%post p=json]) headers=math
|
2015-05-07 00:00:06 +03:00
|
|
|
queries=quay
|
|
|
|
|
==
|
2015-05-29 02:07:03 +03:00
|
|
|
^- hiss :: cast to hiss
|
2015-05-29 22:27:09 +03:00
|
|
|
=- ~& hiss=- -
|
2015-05-29 02:07:03 +03:00
|
|
|
:- ^- parsed-url=purl
|
2015-05-07 00:00:06 +03:00
|
|
|
:+ :+ security=%.y
|
|
|
|
|
port=~
|
|
|
|
|
host=[%.y [path=domain]]
|
|
|
|
|
endpoint=[extensions=~ point=end-point] :: ++pork,
|
|
|
|
|
q-strings=queries :: ++quay
|
2015-05-29 02:07:03 +03:00
|
|
|
?@ req-type
|
|
|
|
|
[%get headers ~]
|
|
|
|
|
[%post headers ~ (tact (pojo p.req-type))]
|
2015-05-07 00:00:06 +03:00
|
|
|
--
|
