From 7c0681a06e0358887d2f64001dc43125554766c9 Mon Sep 17 00:00:00 2001 From: polwex Date: Thu, 28 Aug 2025 12:59:01 +0700 Subject: init --- desk/ted/fetch.hoon | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 desk/ted/fetch.hoon (limited to 'desk/ted') diff --git a/desk/ted/fetch.hoon b/desk/ted/fetch.hoon new file mode 100644 index 0000000..6444ca7 --- /dev/null +++ b/desk/ted/fetch.hoon @@ -0,0 +1,24 @@ +/- spider +/+ strandio +=, strand=strand:spider +=, dejs-soft:format +=, strand-fail=strand-fail:libstrand:spider +^- thread:spider +|= arg=vase + =/ request ;;(request:http q.arg) + ~& req=request + =/ m (strand ,vase) ^- form:m + :: =/ m (strand ,json) ^- form:m + ;< ~ bind:m (send-request:strandio request) + ;< res=client-response:iris bind:m take-client-response:strandio + ?. ?=(%finished -.res) (strand-fail:strand %no-body ~) + :: =/ headers headers.response-header.res + :: =/ redirect (get-header:http 'location' headers) + :: ?^ redirect (pure:m [%| u.redirect]) + + :: + ?~ full-file.res (strand-fail:strand %no-body ~) + =/ body=@t q.data.u.full-file.res + :: ~& resbody=body + =/ json [%s body] + (pure:m !>(json)) -- cgit v1.2.3