From: Mortimer Cladwell <mbcladwell@gmail.com>
To: guile-user@gnu.org
Subject: extract headers from response record
Date: Wed, 9 Aug 2023 10:18:05 -0400 [thread overview]
Message-ID: <CAOcxjM4Q26Z__uwieY3-wOGsT_5uy9yt1iODhgQu5t-z4-hcqA@mail.gmail.com> (raw)
Hi,
I am running a local fake Urbit zod on port 8080. I want to submit an
http-request and obtain an urbauth id cookie. I run the following method:
(use-modules (web client)(web response) (srfi srfi-9)(oop goops) (ice-9
receive) (ice-9 pretty-print))
(define (urbit-http-connect)
(let* ((uri "http://localhost:8080/~/login")
(data (string-append "password=" "lidlut-tabwed-pillex-ridrup"))
(a (receive (response body)
(http-request uri #:method 'POST #:body data)
response)))
(pretty-print a)))
==> #<<response> version: (1 . 1) code: 204 reason-phrase: "ok" headers:
((date . #<date nanosecond: 0 second: 29 minute: 49 hour: 13 day: 9 month:
8 year: 2023 zone-offset: 0>) (connection close) (server .
"urbit/vere-2.11") (set-cookie .
"urbauth-~zod=0v7.126dd.8rbvk.lga05.jvieb.287to; Path=/; Max-Age=604800"))
port: #<closed: file 7fc2a569b3f0>>
Below I substitute (pretty-print a) with various commands and show the
response:
(pretty-print (class-of a)) ==> #<<class> <<response>> 7f721fc4c280>
(pretty-print (record? a)) ==> #t
(pretty-print (response? a)) ==> #f
(pretty-print (response-headers a)) ==> In procedure response-headers:
Wrong type argument: #<<response> version: (1 . 1) code: 204 reason-phrase:
"ok" headers: ((date . #<date nanosecond: 0 second: 34 minute: 0 hour: 14
day: 9 month: 8 year: 2023 zone-offset: 0>) (connection close) (server .
"urbit/vere-2.11") (set-cookie .
"urbauth-~zod=0v5.9pm4c.pa0qd.00hao.vsq1p.h37hh; Path=/; Max-Age=604800"))
port: #<closed: file 7fbaa95eb3f0>>
So I have a record that looks like a <response> record but isn't. How do I
extract the headers from this 'response'?
How do I determine the record type?
Thanks
Mortimer
next reply other threads:[~2023-08-09 14:18 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2023-08-09 14:18 Mortimer Cladwell [this message]
2023-08-09 22:23 ` extract headers from response record wolf
2023-08-10 10:11 ` Mortimer Cladwell
2023-08-09 22:34 ` wolf
-- strict thread matches above, loose matches on Subject: below --
2023-08-09 18:56 Mortimer Cladwell
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/guile/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=CAOcxjM4Q26Z__uwieY3-wOGsT_5uy9yt1iODhgQu5t-z4-hcqA@mail.gmail.com \
--to=mbcladwell@gmail.com \
--cc=guile-user@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).