たろマーク （はてなブックマーク）
-
[ moinmoin ]
-
[ upstart ] プロセス監視して死んでも蘇らせてくれるのか。
■ Net::MovableType でテスト投稿
この記事は、Net::MovableType を使って投稿したテストです。
ソース
#!/usr/bin/perl
use strict;
use warnings;
use Net::MovableType;
use Jcode;
my $mt = Net::MovableType->new('http://domain/path/to/mt-xmlrpc.cgi');
$mt->username('username');
$mt->password('password');
$mt->blogId(1);
my $title = 'Net::MovableType でテスト投稿';
my $description = <<'EOF';
<p>この記事は、<a href="http://search.cpan.org/~sherzodr/Net-MovableType-1.73/MovableType.pm">Net::MovableType</a> を使って投稿したテストです。</p>
EOF
my $mt_text_more = <<'EOF';
<p>ソース</p>
<pre class="code">
hogehoge
</pre>
EOF
my $entry = {
title => $title,
description => $description,
mt_text_more => $mt_text_more,
mt_convert_breaks => '0',
};
foreach my $key ( keys %{$entry} ) {
$entry->{$key} = Jcode->new($entry->{$key}, 'euc')->utf8;
}
my $new_id = $mt->newPost($entry, 0) or die $mt->errstr;
$mt->setPostCategories($new_id, "perl") or die $mt->errstr;
$mt->publishPost($new_id) or die $mt->errstr;
| パーマリンク
| トラックバック (1)
| 
