たろマーク （はてなブックマーク）
-
[ perl ][ perl-casual ][ yusukebe ][ jpa ] 立ち見！
-
[ iphone ] oh... 「先月あたりから、AppleはRSSフィードや単なる名刺に毛が生えたような単純なアプリの締め出しを始めたらしい。」
■ 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;
| パーマリンク
| 
トラックバック
このエントリーのトラックバックURL:
http://vkgtaro.jp/cgi-bin/mt/mt-tb.cgi/440
この一覧は、次のエントリーを参照しています: Net::MovableType でテスト投稿:
» トラックバック可能なOPAC from 図書館退屈男
「OPACでもamazon.comのようにレビューが書けたり、他の書籍サイトの [詳しくはこちら]
