りばにしの戯言

moblogの投稿時刻

今まで，moblogからの投稿時刻は，メールを受信してmoblogスクリプトを実行した時間，つまりXML-RPCを呼んだ時間になっていました．が，メールの中には時刻情報が入っているので，そっちの情報を優先させることにしました．

メール内部に書かれている時刻を，以下のようにISO 8601という形式に変換．

use Date::Manip qw(ParseDate UnixDate);
# メールのヘッダ部分は「MIME::Parser」モジュールを用いて取得済みとする．
$blog_date = $head->get('Date');
$blog_date = ParseDate($blog_date);
$blog_date = UnixDate($blog_date, "%Y-%m-%dT%H:%M:%S%z");

あとはこの時刻を，metaWeblog.newPost時に「dateCreated」として送ることで解決．