インターフェイスが微妙なのと、自分でいろいろ出来るblogがほしくなったのでさくらのブログからMTへ移行中。
とりあえず、4系最新安定板を入れてみたけど、メールで記事を投稿する機能がないのでてこずる。
いくつが調べてみたが、ソースの公開されているもので、4系に対応したものはないらしい。
なので、自作。sakura.ne.jpは元から結構perl module入ってるので楽。
標準入力から渡されたメールの内容をMTのXMLRPC経由で記事をpostする。
添付ファイルには対応してないし、カテゴリ等の指定も出来ないが、とりあえずはこんなところか。
#!/usr/bin/perluse strict;
use XMLRPC::Lite;
use MIME::Parser;
use Jcode;my $blogid = '1';
my $username = 'user';
my $password = 'xmlrpc-pass';
my $proxyurl = 'http://0-9.sakura.ne.jp/mtpass/mt-xmlrpc.cgi';my $parser = new MIME::Parser;
$parser->output_to_core(1);
$parser->tmp_recycling(1);
$parser->tmp_to_core(1);
$parser->use_inner_files(1);
$parser->decode_headers(1);
my $entity = $parser->parse(\*STDIN) or die( 'parse error' );
my $subject = $entity->head->get( 'subject' ) or die( 'no subject' );
my $body = $entity->bodyhandle()->as_string() or die( 'no body' );
$subject = jcode( $subject )->utf8;
$body = jcode( $body )->utf8;
my $entry_id = XMLRPC::Lite->proxy( $proxyurl )
->call('metaWeblog.newPost', $blogid, $username, $password,
{'title' => $subject, 'description' => $body, 'mt_convert_breaks' => 1, },
1, )
->result();
コメントする