7

我正在尝试使用haxr 3000.8.5 使用 metaWeblog API 将图像上传到WordPress博客——特别是newMediaObject方法。

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

任何人都可以阐明呼叫simpleHTTP可能失败的原因ErrorClosed吗？也欢迎提出尝试和潜在解决方法的建议。

以下是成功上传和不成功上传的完整 tcpdump 输出的链接。

（已清理的）代码也显示在下面，以防万一。

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
4

1 回答 1

4 
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连接，然后准备需要太长时间的数据。

于 2012-07-02T21:23:24.040 回答