bug#39800: gnutls guile bug receiving https data

[Ludovic Courtès]

Hi,

"address@hidden" <address@hidden> skribis:

> ;;Now, submitting this simple https request, you get an exception
> (http-request "https://www.google.com";)
> ice-9/boot-9.scm:1669:16: In procedure raise-exception:
> Throw to key `gnutls-error' with args `(#<gnutls-error-enum La
> connessione TLS non è stata terminata in modo corretto.>
> read_from_session_record_port)'.

That happens when passing #:keep-alive? #f (the default), specifically
when reading the response body:

--8<---------------cut here---------------start------------->8---
scheme@(guile-user)> (http-request "https://www.google.com"; #:keep-alive? #f 
#:streaming? #t)
$1 = #<<response> version: (1 . 1) code: 200 reason-phrase: "OK" headers: 
((date . #<date nanosecond: 0 second: 56 minute: 45 hour: 21 day: 6 month: 3 
year: 2020 zone-offset: 0>) (expires . #<date nanosecond: 0 second: 0 minute: 0 
hour: 0 day: 1 month: 1 year: 1970 zone-offset: 0>) (cache-control private 
(max-age . 0)) (content-type text/html (charset . "ISO-8859-1")) (p3p . 
"CP=\"This is not a P3P policy! See g.co/p3phelp for more info.\"") (server . 
"gws") (x-xss-protection . "0") (x-frame-options . "SAMEORIGIN") (set-cookie . 
"1P_JAR=2020-03-06-21; expires=Sun, 05-Apr-2020 21:45:56 GMT; path=/; 
domain=.google.com; Secure") (set-cookie . 
"NID=199=yXgE_KAGvxJbZAIGEXLt8CsEe3pre-RRLm1Jqap3b3iJRqZZq_PJ9wCT798mfDZ2TC5_3mKnM5KABSh8CguI64SsNoWHIc9EsW2osFltsIJnMswXhrtjQFDpfm_fUb6RDrWrqKHkOuvkG7Izp5im1Ys1TzGdztrFmOQV4FOraJk;
 expires=Sat, 05-Sep-2020 21:45:56 GMT; path=/; domain=.google.com; HttpOnly") 
(alt-svc . "quic=\":443\"; ma=2592000; v=\"46,43\",h3-Q050=\":443\"; 
ma=2592000,h3-Q049=\":443\"; ma=2592000,h3-Q048=\":443\"; 
ma=2592000,h3-Q046=\":443\"; ma=2592000,h3-Q043=\":443\"; ma=2592000") 
(accept-ranges none) (vary accept-encoding) (connection close)) port: 
#<input-output: file 7f3ae7dd3540>>
$2 = #<input-output: file 7f3ae7dd3540>
scheme@(guile-user)> (define bv (get-bytevector-all $2))
ice-9/boot-9.scm:1669:16: In procedure raise-exception:
Throw to key `gnutls-error' with args `(#<gnutls-error-enum The TLS connection 
was non-properly terminated.> read_from_session_record_port)'.
--8<---------------cut here---------------end--------------->8---

The reason for this is that google.com closes the connection right away,
without sending a proper TLS “bye” message as is conventionally done.

Fixed in commit 076276c4f580368b4106316a77752d69c8f1494a, which will be
in 3.0.1.

Thanks,
Ludo’.