トラックバックが送れない

30分プログラム、その575。トラックバックの送信をやろうとして失敗した。
http://www.movabletype.org/docs/mttrackback.htmlによると、トラックバック専用のURLにPOSTリクエストを投げればいいらしい。

POST http://www.example.com/trackback/5
Content-Type: application/x-www-form-urlencoded

url=http://www.bar.com/

でも、

<?xml version="1.0" encoding="utf-8" ?>
  <response>
    <error>1</error>
    <message>Trackback is not authorized.</message>
</response>

と言われてしまう。せめて、もう少し詳しい情報を・・・。

使い方

1> trackback:send("http://d.hatena.ne.jp/mzp/20090502","http://d.hatena.ne.jp/mzp/").

ソースコード

-module(trackback).
-compile([export_all]).

send(To,From)->
    UserAgent   = "TB-SENDER/1.0 (Macintosh; U; Intel Mac OS X 10_5_6; ja-jp)",
    ContentType = "application/x-www-form-urlencoded",
    Body = edoc_lib:escape_uri(lists:concat(["url=",From])),
    http:request(post,{To,[{"user-agent",UserAgent}],ContentType,Body},[],[]).

参考

• 過去の30分プログラム