unofficial mirror of bug-guile@gnu.org 
 help / color / mirror / Atom feed
From: Alexey Abramov via "Bug reports for GUILE, GNU's Ubiquitous Extension Language" <bug-guile@gnu.org>
To: jakub-w@riseup.net
Cc: 51133@debbugs.gnu.org
Subject: bug#51133: [PATCH 1/1] Tolerate http response line without reason phrase
Date: Tue, 12 Oct 2021 16:35:29 +0200	[thread overview]
Message-ID: <87lf2yjopa.fsf@delta.lan> (raw)
In-Reply-To: <87bl3uh86a.fsf@riseup.net> (jakub-w@riseup.net's message of "Tue, 12 Oct 2021 12:03:09 +0200")

[-- Attachment #1: Type: text/plain, Size: 393 bytes --]

jakub-w@riseup.net writes:

> You're right but you didn't address my second point.
> The fact that with this patch
>
> (call-with-input-string "HTTP/1.1 \n"
>   (lambda (port) (read-response-line port)))

I see, my bad, thanks! Please find a newly attached patch.

I added a test for such a case, but I am not sure about the indentation
though. Please let me know what you think.

-- 
Alexey


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-http-Tolerate-http-response-line-without-a-reason-ph.patch --]
[-- Type: text/x-patch, Size: 3717 bytes --]

From b589595db9ab448aa52d002c34d7919a601904e4 Mon Sep 17 00:00:00 2001
From: Alexey Abramov <levenson@mmer.org>
Date: Thu, 7 Oct 2021 13:45:02 +0200
Subject: [PATCH] http: Tolerate http response line without a reason phrase

* module/web/http.scm (read-response-line): Use the end of the string,
in case a line doesn't have char-set:whitespace at the end.
* test-suite/tests/web-http.test ("read-response-line"): Add tests.
* .dir-locals.el (scheme-mode): Add indentation rule for pass-if-named-exception.
---
 .dir-locals.el                 |  1 +
 module/web/http.scm            | 20 +++++++++++++-------
 test-suite/tests/web-http.test |  8 +++++++-
 3 files changed, 21 insertions(+), 8 deletions(-)

diff --git a/.dir-locals.el b/.dir-locals.el
index 90257e7bf..e94ceb723 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -10,6 +10,7 @@
      (eval . (put 'let/ec              'scheme-indent-function 1))
      (eval . (put 'pass-if             'scheme-indent-function 1))
      (eval . (put 'pass-if-exception   'scheme-indent-function 2))
+     (eval . (put 'pass-if-named-exception   'scheme-indent-function 3))
      (eval . (put 'pass-if-equal       'scheme-indent-function 2))
      (eval . (put 'with-test-prefix    'scheme-indent-function 1))
      (eval . (put 'with-test-prefix/c&e 'scheme-indent-function 1))
diff --git a/module/web/http.scm b/module/web/http.scm
index 4276e1744..4053e5271 100644
--- a/module/web/http.scm
+++ b/module/web/http.scm
@@ -1187,14 +1187,20 @@ values: the HTTP version, the response code, and the (possibly empty)
 \"reason phrase\"."
   (let* ((line (read-header-line port))
          (d0 (string-index line char-set:whitespace)) ; "delimiter zero"
-         (d1 (and d0 (string-index line char-set:whitespace
-                                   (skip-whitespace line d0)))))
-    (unless (and d0 d1)
+         (d1 (and d0 (or (string-index line char-set:whitespace
+                                       (skip-whitespace line d0))
+                         ;; tolerate responses with empty "reason phrase"
+                         (string-length line)))))
+    (cond
+     ((not d0)
+      (bad-response "Bad Response-Line: ~s" line))
+     ((and d0 d1 (string-null? (string-trim (substring line d0 d1))))
       (bad-response "Bad Response-Line: ~s" line))
-    (values (parse-http-version line 0 d0)
-            (parse-non-negative-integer line (skip-whitespace line d0 d1)
-                                        d1)
-            (string-trim-both line char-set:whitespace d1))))
+     (else
+      (values (parse-http-version line 0 d0)
+              (parse-non-negative-integer line (skip-whitespace line d0 d1)
+                                          d1)
+              (string-trim-both line char-set:whitespace d1))))))
 
 (define (write-response-line version code reason-phrase port)
   "Write the first line of an HTTP response to PORT."
diff --git a/test-suite/tests/web-http.test b/test-suite/tests/web-http.test
index 63377349c..7d4885722 100644
--- a/test-suite/tests/web-http.test
+++ b/test-suite/tests/web-http.test
@@ -216,7 +216,13 @@
 
   ;; Empty reason phrases are valid; see <http://bugs.gnu.org/22273>.
   (pass-if-read-response-line "HTTP/1.1 302 "
-                              (1 . 1) 302 ""))
+                              (1 . 1) 302 "")
+  (pass-if-read-response-line "HTTP/1.1 302"
+                              (1 . 1) 302 "")
+  (pass-if-named-exception "missing HTTP code" bad-response "Bad Response-Line"
+    (call-with-input-string "HTTP/1.1 \n"
+      (lambda (port)
+        (read-response-line port)))))
 
 (with-test-prefix "write-response-line"
   (pass-if-write-response-line "HTTP/1.0 404 Not Found"
-- 
2.31.1


      reply	other threads:[~2021-10-12 14:35 UTC|newest]

Thread overview: 6+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2021-10-11  7:03 bug#51133: [PATCH 1/1] Tolerate http response line without reason phrase Alexey Abramov via Bug reports for GUILE, GNU's Ubiquitous Extension Language
2021-10-12  8:01 ` jakub-w
2021-10-12  8:26   ` Alexey Abramov via Bug reports for GUILE, GNU's Ubiquitous Extension Language
2021-10-12  9:11     ` tomas
2021-10-12 10:03     ` jakub-w
2021-10-12 14:35       ` Alexey Abramov via Bug reports for GUILE, GNU's Ubiquitous Extension Language [this message]

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=87lf2yjopa.fsf@delta.lan \
    --to=bug-guile@gnu.org \
    --cc=51133@debbugs.gnu.org \
    --cc=jakub-w@riseup.net \
    --cc=levenson@mmer.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).