Changeset 2024

Timestamp:

04/15/10 16:29:03 (5 months ago)

Author:

x.pechoultres@…

Message:

Http:
+ fix http deflate header handling

Files:

• trunk/modules/Http/source/http_filter.cl (modified) (2 diffs)

trunk/modules/Http/source/http_filter.cl

@@ -45 +45 @@
 //<xp> output buffer check input for continue or abort http command
 // Todo : best management when connexion must abort (zera lenth chunk .. see HTTP RFC)
-write_port(self:http_output, buf:char*, len:integer) : integer ->
-        (read!(self.input_device.source),
+pwrite_port(self:http_output, buf:char*, len:integer) : integer ->
+        (//[2] write_port(~S, ~S, ~S) // self,buf,len,
+        if not(self.input_device.source % descriptor)
+                //[1] ***** warning input devise is not a descriptor !!!,
+        read!(self.input_device.source),
         write!(self.input_device.source),
         if (select?())
@@ -344 +347 @@
                                         error("http_parse_headers(~S) read an error status [~A]", self, head)),
                         //[-100] ~A // head,
-                        if (find(lhead, "content-encoding: ") = 1 & (find(lhead, "gzip") > 0 | find(lhead, "defalte") > 0))
+                        if (find(lhead, "content-encoding: ") = 1 & (find(lhead, "gzip") > 0 | find(lhead, "deflate") > 0))
                                 compress? := true
                         else if (find(lhead, "transfer-encoding: ") = 1 & find(lhead, "chunked") > 0)