来自 Network.HTTP.simpleHTTP 的 ErrorClosed 异常 - 尝试使用 haxr 通过 XML-RPC 上传图像

Question

我正在尝试使用 haxr 3000.8.5 将图像上传到使用 metaWeblog API 的 WordPress 博客——具体来说，是 newMediaObject 方法。

我已经让它适用于 small 图像，成功上传了 PNG 和 JPG 格式的 20x20 图标。但是，当我尝试中等大小的图像（比如 300x300）时，我得到了一个 ErrorClosed 异常，大概来自 HTTP 包（我做了一些源代码潜水，发现 haxr 最终调用 Network.HTTP.simpleHTTP）。

谁能解释为什么调用simpleHTTP 可能会因ErrorClosed 而失败？也欢迎提出尝试和潜在解决方法的建议。

这里是full tcpdump output from a successful upload 和from an unsuccessful upload 的链接。

下面还显示了（经过清理的）代码，以备不时之需。

import           Network.XmlRpc.Client      (remote)
import           Network.XmlRpc.Internals   (Value(..), toValue)
import           Data.Char                  (toLower)
import           System.FilePath            (takeFileName, takeExtension)
import qualified Data.ByteString.Char8 as B
import           Data.Functor               ((<$>))

uploadMediaObject :: FilePath -> IO Value
uploadMediaObject file = do
  media <- mkMediaObject file
  remote "http://someblog.wordpress.com/xmlrpc.php" "metaWeblog.newMediaObject"
    "default" "username" "password" media

-- Create the required struct representing the image.
mkMediaObject :: FilePath -> IO Value
mkMediaObject filePath = do
  bits <- B.unpack <$> B.readFile filePath
  return $ ValueStruct
    [ ("name", toValue fileName)
    , ("type", toValue fileType)
    , ("bits", ValueBase64 bits)
    ]
  where
    fileName = takeFileName filePath
    fileType = case (map toLower . drop 1 . takeExtension) fileName of
                 "png"  -> "image/png"
                 "jpg"  -> "image/jpeg"
                 "jpeg" -> "image/jpeg"
                 "gif"  -> "image/gif"

main = do
  v <- uploadMediaObject "images/puppy.png"
  print v

Answer 1

21:59:56.813021 IP 192.168.1.148.39571 > ..http: Flags [.]
22:00:01.922598 IP ..http > 192.168.1.148.39571: Flags [F.]

由于客户端没有发送任何数据，服务器在 3-4 秒超时后关闭连接，以防止慢速和类似的 ddos​​ 攻击。 （F为FIN标志，关闭一个方向的双向连接）。

服务器不等待客户端关闭连接（等待 eof/0 == recv(fd)）而是使用 close() 系统调用；如果服务器上的内核接收到更多数据，它将以 [R]eset 数据包进行响应，正如您在转储末尾看到的那样。

我猜是客户端先打开http连接，然后准备数据，时间太长了。