relay much more robust

1 files changed, 23 insertions, 0 deletions

diff --git a/backupdesk/ted/fetch.hoon b/backupdesk/ted/fetch.hoon
new file mode 100644
index 0000000..76817f6
--- /dev/null
+++ b/backupdesk/ted/fetch.hoon
@@ -0,0 +1,23 @@
+/-  spider
+/+  strandio
+=,  strand=strand:spider
+=,  dejs-soft:format
+=,  strand-fail=strand-fail:libstrand:spider
+^-  thread:spider
+|=  arg=vase
+  =/  request  ;;(request:http q.arg) 
+  =/  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))