From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Mortimer Cladwell Newsgroups: gmane.lisp.guile.user Subject: extract headers from response record Date: Wed, 9 Aug 2023 10:18:05 -0400 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset="UTF-8" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="36916"; mail-complaints-to="usenet@ciao.gmane.io" To: guile-user@gnu.org Original-X-From: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Wed Aug 09 16:18:54 2023 Return-path: Envelope-to: guile-user@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1qTk1U-0009NO-Ci for guile-user@m.gmane-mx.org; Wed, 09 Aug 2023 16:18:52 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1qTk0z-0007Ai-IA; Wed, 09 Aug 2023 10:18:21 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qTk0x-00079x-AA for guile-user@gnu.org; Wed, 09 Aug 2023 10:18:19 -0400 Original-Received: from mail-oi1-x234.google.com ([2607:f8b0:4864:20::234]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1qTk0v-0005HS-MX for guile-user@gnu.org; Wed, 09 Aug 2023 10:18:19 -0400 Original-Received: by mail-oi1-x234.google.com with SMTP id 5614622812f47-3a751d2e6ecso5473249b6e.0 for ; Wed, 09 Aug 2023 07:18:16 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20221208; t=1691590696; x=1692195496; h=to:subject:message-id:date:from:mime-version:from:to:cc:subject :date:message-id:reply-to; bh=Ma1zMZQpE4w34knVjCQmmrAqFl5WnJYZ8xvKB4N9XIQ=; b=IMiaxBAAFAcpttAtcnwtQiVRGYS5CI0XOZ3rmCletEUiw4i+RjDxIOtg1qza33Z/vP 4/p5wynEM6EIjLk0uYIazIlIq+OzrrkPo3NYFiVjet8ayC+86brOpMmCoxhr6om9Dc0Q 1GivG5+DAfTgCnG4EoeF3VXlrvwWkV9oxMz11Ifvdys7/XUrVZT18RiO80Kh6qQh7d+b YC5ux6V+QtgBSirCYDBeuhnm7S+lijVlNmf90q3uwVTvz4klmKWir/QJ0uSopXNUE3jJ dWsmuxYNMZo5tgw9nC3h6fCJ6uRdoXnDwoK1zLRro4W1QSRGgVrDXDTmOwEwIGCWgonc ZlIA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20221208; t=1691590696; x=1692195496; h=to:subject:message-id:date:from:mime-version:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=Ma1zMZQpE4w34knVjCQmmrAqFl5WnJYZ8xvKB4N9XIQ=; b=AlR9LBfQ2E7vcLTzegx7o5f45FjE41i6fdWnN7laBDQ1RyOxxhPXk4MQhOM+Onw3cS 5vaX1Q/8pZs6PNGsnXlK+/IdkzIjI6tMd9Z6jDForeacOzFsk1zlmhRf1laKlWzkhpmt XGp10+xLRF9NdLoP1l09W2GLf+Kh1geLDL7pVnoLH621rwl/9axDmjTiUI5dge0cvAsC F1HKL0aZOUAcCkk8Hq2XPiCgbEcrhRtZWS9P9tdHqbAGR9XdXC5/eZ8o27nFHLtjXvmt 7/dy4ZtZ62chipou4L/QbBdlN/RU33zdsXhRX9gKAEBmhKin0TyA+u+TghabNX4sjBiJ 5EHA== X-Gm-Message-State: AOJu0YwP1ceGaFbkoxHKF8/zxtUTCxOYWl2vyDelfJu2myag88W0P0sw fcohkqDZvkD6QreE/OYnpwbHq+xx16VvraqkeiszioXiCJE= X-Google-Smtp-Source: AGHT+IGkCcQ0mKI0hvgdf+cPg1WlK1Z4FBfzOvJHsRESRZSroh403vW0Av3Kcam4iRR4nUOISESzBkuQizRZyFWgb3c= X-Received: by 2002:a05:6808:f16:b0:3a3:9df9:1928 with SMTP id m22-20020a0568080f1600b003a39df91928mr3588308oiw.17.1691590696001; Wed, 09 Aug 2023 07:18:16 -0700 (PDT) Received-SPF: pass client-ip=2607:f8b0:4864:20::234; envelope-from=mbcladwell@gmail.com; helo=mail-oi1-x234.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Content-Filtered-By: Mailman/MimeDel 2.1.29 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Original-Sender: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.lisp.guile.user:19137 Archived-At: 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))) ==> #< version: (1 . 1) code: 204 reason-phrase: "ok" headers: ((date . #) (connection close) (server . "urbit/vere-2.11") (set-cookie . "urbauth-~zod=0v7.126dd.8rbvk.lga05.jvieb.287to; Path=/; Max-Age=604800")) port: #> Below I substitute (pretty-print a) with various commands and show the response: (pretty-print (class-of a)) ==> #< <> 7f721fc4c280> (pretty-print (record? a)) ==> #t (pretty-print (response? a)) ==> #f (pretty-print (response-headers a)) ==> In procedure response-headers: Wrong type argument: #< version: (1 . 1) code: 204 reason-phrase: "ok" headers: ((date . #) (connection close) (server . "urbit/vere-2.11") (set-cookie . "urbauth-~zod=0v5.9pm4c.pa0qd.00hao.vsq1p.h37hh; Path=/; Max-Age=604800")) port: #> So I have a record that looks like a record but isn't. How do I extract the headers from this 'response'? How do I determine the record type? Thanks Mortimer