scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

syntax of comma separated list which is the field value of the 

Transfer-Encoding header: needs a single SP less
This commit is contained in:
vibr 2005-04-15 15:50:30 +00:00
parent d174ad3954
commit 630c77d83f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/handler-lib.scm
View File

@ -77,11 +77,11 @@
(if (not field-value) (if (not field-value)
#f #f
; the field value is a list of transfer-codings (3.6), ; the field value is a comma-separated list of transfer-codings (3.6),
; extract the last transfer-coding in the list ; extract the last transfer-coding in the list
(let* ((reversed-field-value (string-reverse field-value)) (let* ((reversed-field-value (string-reverse field-value))
(index ; does the list contain more than one element? (index ; does the list contain more than one element?
(string-contains reversed-field-value " , ")) (string-contains reversed-field-value " ,"))
(last-transfer-coding (last-transfer-coding
(if index (if index
(string-trim (string-reverse (string-take reversed-field-value index))) (string-trim (string-reverse (string-take reversed-field-value index)))