From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Christopher Allan Webber Newsgroups: gmane.lisp.guile.bugs Subject: bug#24075: tls/https support in Guile (through r6rs binary ports?) Date: Sun, 06 Nov 2016 12:32:38 -0600 Message-ID: <87k2cg5uih.fsf@dustycloud.org> References: <8760rss8al.fsf@dustycloud.org> <87a8gstgn6.fsf@pobox.com> <878tvqqfkq.fsf@dustycloud.org> <87r36p6aaz.fsf@dustycloud.org> <87fun56987.fsf@gnu.org> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: blaine.gmane.org 1478457205 5122 195.159.176.226 (6 Nov 2016 18:33:25 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sun, 6 Nov 2016 18:33:25 +0000 (UTC) User-Agent: mu4e 0.9.16; emacs 25.1.1 Cc: 24075@debbugs.gnu.org To: Ludovic =?UTF-8?Q?Court=C3=A8s?= Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Sun Nov 06 19:33:19 2016 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1c3SFl-0008KD-Nv for guile-bugs@m.gmane.org; Sun, 06 Nov 2016 19:33:14 +0100 Original-Received: from localhost ([::1]:46138 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1c3SFo-000519-Ef for guile-bugs@m.gmane.org; Sun, 06 Nov 2016 13:33:16 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:59155) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1c3SFe-0004ys-Fc for bug-guile@gnu.org; Sun, 06 Nov 2016 13:33:09 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1c3SFa-0007Qg-RL for bug-guile@gnu.org; Sun, 06 Nov 2016 13:33:06 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:59956) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1c3SFa-0007QQ-NU for bug-guile@gnu.org; Sun, 06 Nov 2016 13:33:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1c3SFa-0002jm-Bf for bug-guile@gnu.org; Sun, 06 Nov 2016 13:33:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Christopher Allan Webber Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Sun, 06 Nov 2016 18:33:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 24075 X-GNU-PR-Package: guile X-GNU-PR-Keywords: Original-Received: via spool by 24075-submit@debbugs.gnu.org id=B24075.147845717010505 (code B ref 24075); Sun, 06 Nov 2016 18:33:02 +0000 Original-Received: (at 24075) by debbugs.gnu.org; 6 Nov 2016 18:32:50 +0000 Original-Received: from localhost ([127.0.0.1]:47122 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1c3SFF-0002jG-KT for submit@debbugs.gnu.org; Sun, 06 Nov 2016 13:32:50 -0500 Original-Received: from dustycloud.org ([50.116.34.160]:46874) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1c3SFD-0002j7-Jw for 24075@debbugs.gnu.org; Sun, 06 Nov 2016 13:32:40 -0500 Original-Received: from oolong (localhost [127.0.0.1]) by dustycloud.org (Postfix) with ESMTPS id E2205265F2; Sun, 6 Nov 2016 13:32:38 -0500 (EST) In-reply-to: <87fun56987.fsf@gnu.org> X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: "bug-guile" Xref: news.gmane.org gmane.lisp.guile.bugs:8450 Archived-At: --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Some less good news: I found out that the https stuff is not working right for all sites. I tested though... the code works *before* I wrapped it in custom-binary-input/output-port. After being wrapped though, strange things happen. For some sites (eg "https://webmention.net/") things seem fine: scheme@(guile-user)> (http-get (string->uri "https://webmention.net/")) $7 =3D #< version: (1 . 1) code: 200 reason-phrase: "OK" headers:= ((server . "nginx/1.9.10") (date . #) (content-type tex= t/html (charset . "UTF-8")) (transfer-encoding (chunked)) (connection close= ) (x-powered-by . "PHP/5.6.21-1+donate.sury.org~trusty+4")) port: #> $8 =3D "\n\n\n Webmention\n \n\n\n\n
\n \n

Webmention

\n \n
Webmention is a simple way to notify any URL when you link to it from your= site.
\n \n \n \n
\n\n\n" For other sites, especially ones where the pages are larger, things are broken. For example, let's try to pull down the site of friend Joey Hess: scheme@(guile-user)> (http-get (string->uri "https://joeyh.name/")) $9 =3D #< version: (1 . 1) code: 200 reason-phrase: "OK" headers:= ((date . #) (server . "Apache/2.4.10 (Debian)") (last-m= odified . #) (etag "195c-53f9d4af683f3" . #t) (accept-r= anges bytes) (content-length . 6492) (vary accept-encoding) (cache-control = (max-age . 0)) (expires . #) (connection close) (content= -type text/html)) port: #> $10 =3D "moz-background-size: cover;\n -o-background-size: cover;\n b= ackground-size: cover;\n}\n.sidebar {\n background: none;\n border: n= one;\n}\ninput#searchbox {\n display: none;\n}\n#pageinfo {\n display= : none;\n}\n.pageheader .actions ul {\n border-bottom: none;\n}\n#pagebo= dy {\n margin-left: 20%;\n}\n.archivepagedate {\n font-size: 0.5em;\n= }\n.actions {\n display: none;\n}\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n

interviews

\n\n

2012: The Setup

\n\n

\"When power is low, I = often hack in the evenings by lantern light.\"

\n\n

2015: Life after Debian

\n\n

\"I want = to build worthwhile things that might last.\"

\n\n

2016: Linux Weekly News

\n\n=

\"I still see myself as a beginner, and certainly not an exe= mplar.\"

\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n=
\n\n<= nav id=3D\"pageinfo\">\n\n\n\n\n\n\n\n\n\n\n\n
\nL= ast edited \n\n
\n\n\= n\n\n\n
\n\n\n\n\n\n\" ti= tle=3D\"Thu, 22 Sep 2016 16:13:21 -0400\">at teatime on Thursday, September= 22nd, 2016\n\n\n\n
\n\nPoW bucket bloom: throttling anon= ymous clients with proof of work, token buckets, and bloom filters
\n\n\nPosted \n
\n
\n\nlate summer
\n\n\nPosted \n\n\n
\n\n\n\n\n\n<= /aside>\n\n\n\n
\n\n
\n\n\n
\n

personal

\n\n

blog
\npics
\ncontact me
\ntodo

\n\n\n\n\n

technical

\n\n

code
\nvcshome
\ntalks
\nscreencasts
\ntermcasts
\n= rfcs
\nboxen

\n\n\n\n

fun

\n\n

Joe= y Learns to Fly
\noldusenet\nlanguages
\nyu= rt
\ncaving
\ngrep
\nmeta

\n\n\n\n