諸事情でWordPressをインストールして別箇所で使っていたのですが、これは素晴らしいですね！！！
何が素晴らしいって、もう

• UIは使いやすいし！
• アップデートは自動だし！
• 固定ページとかの編集も簡単だし！
• テンプレートを簡単に変更できるし！
• プラグインは豊富だし！
• かわいいテンプレート一杯あるし！
• かわいいテンプレートがたくさんあるし！
• かわ（ｒｙ

もう移行しない理由とかないよねーないよねー、ということでちょっと重い腰を上げて移行！することにしました。言語別にパッケージが分かれてるのは正直ダサいと思いますが、不満はそれぐらいです。

はてな記法を捨てたい。

はてな記法のプラグインを使ってて依存していたため移行をためらっていたのですが、今回この負の連鎖を断ち切るべく、プラグインの変換エンジン部分を適当に引っ張ってきて、エクスポートしたデータのはてな記法の部分を変換する（！）スクリプトを書きました。

「ブログ記事のエクスポート」で引っ張ってきたexport*****.txtファイルを、このスクリプトに渡して下さい

perl format.pl export******.txt

ごめんなさい：追記部分の変換を忘れてました。使用時には注意してくださいね…。

今回Perl使ったのは初めてなのですが、空文字列をfalseとして認識する使用で随分ひっかかりました。もうやめようよそういう仕様…ね？

　当Blogでも利用しております、MovableTypeではてな記法（やその他）を使えるようにするプラグイン、mt-sukeroku2 β3は、MovableType5では不具合があるようで、文の冒頭が全角空白で始まっている場合に整形されなくなってしまうようです（半角空白で始まっている場合に効かなくなるのは「整形済みテキスト」記法なので、仕様です）。

　今回、対策用のパッチを作ってみましたのでおいておきます。内容は正規表現の中の「\s」を「 」(半角空白そのもの)に置き換えただけです。

　以下のパッチをEUCで保存して当てて下さい。これくらいなら手動でもいい気がしますけれど。

=== modified file 'extlib/Text/Sukeroku/HatenaDiary.pm'
--- extlib/Text/Sukeroku/HatenaDiary.pm	2010-03-07 06:49:17 +0000
+++ extlib/Text/Sukeroku/HatenaDiary.pm	2010-03-07 07:32:46 +0000
@@ -174,7 +174,7 @@
# スタックを吐き出す
push(@result, splice(@saved));
# 空白文字ではじまり、整形テキスト出力でないなら<p></p>付加
-      if (/^\s+/) {
+      if (/^ +/) {
($modeParagraph == 1 &&
$modePreLevel != 1) ? push(@result, $self->html->inlineElement('p', $_, ()))
: push(@result, ($_));
=== modified file 'extlib/Text/Sukeroku/PukiWiki.pm'
--- extlib/Text/Sukeroku/PukiWiki.pm	2010-03-07 06:49:17 +0000
+++ extlib/Text/Sukeroku/PukiWiki.pm	2010-03-07 07:34:16 +0000
@@ -129,7 +129,7 @@
push(@result, "<p>");
}
# 整形済みテキスト
-    elsif (/^\s(.*)$/) {
+    elsif (/^ (.*)$/) {
$self->backPush('pre', 1, \@saved, \@result, ());
push(@result, $self->html->escape($1));
}
@@ -166,7 +166,7 @@
$self->backPush('table', 1, \@saved, \@result, ());
my $tmp = "$1,";
my @value = map {/^"(.*)"$/ ? scalar($_ = $1, s/""/"/g, $_) : $_} ($tmp =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g); # ";
-      my @align = map {(s/^\s+//) ?);
}
# 整形済みテキスト
-    elsif (/^\s(.*)$/) {
+    elsif (/^ (.*)$/) {
$self->backPush('pre', 1, \@saved, \@result, ());
push(@result, $self->html->escape($1)); # Not &$func_inline, but &escape
}
@@ -103,7 +103,7 @@
$self->backPush('table', 1, \@saved, \@result, ());
my $tmp = "$1,";
my @value = map {/^"(.*)"$/ ? scalar($_ = $1, s/""/"/g, $_) : $_} ($tmp =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g); # "
-      my @align = map {(s/^\s+//) ? ((s/\s+$//) ? ' align="center"' : ' align="right"') : ''} @value;
+      my @align = map {(s/^ +//) ? ((s/ +$//) ? ' align="center"' : ' align="right"') : ''} @value;
my @colspan = map {($_ eq '==') ? 0 : 1} @value;
for (my $i = 0; $i < @value; $i++) {
if ($colspan[$i]) {

■「\s」に全角空白にヒットするか？

　ネットでちまちま検索してみたところ、メタ文字「\s」に全角空白はヒットしないようですし、このプラグインを無理やりコマンドラインから叩いてみてもやっぱりヒットしませんでした。

　が、なぜかMT5内から呼ばれると全角にもヒットするようになり、当Blogのように段落の冒頭に全角空白を入れてる場合、ほとんどのテキストが整形されなくなってしまうようです。

　よくわかんないや。まあ動いたから良いや。

1. s/\s+$//) ? ' align="center"' : ' align="right"') : ''} @value; + my @align = map {(s/^ +//) ? ((s/ +$//) ? ' align="center"' : ' align="right"') : ''} @value; my @colspan = map {($_ eq '==') ? 0 : 1} @value; for (my $i = 0; $i < @value; $i++) { if ($colspan[$i]) { === modified file 'extlib/Text/Sukeroku/YukiWiki.pm' --- extlib/Text/Sukeroku/YukiWiki.pm 2010-03-07 06:49:17 +0000 +++ extlib/Text/Sukeroku/YukiWiki.pm 2010-03-07 07:34:25 +0000 @@ -93,7 +93,7 @@ push(@result, $self->html->openElement('p',( [↩]

　受験なのにコメント欄のSPAMを手動で削除するとか出来るわけないだろ常識的に考えて…

　ということで、（マシンパワー的に）安上がりだけど効果のある方法を考えてやってみました。

　今のところ来てません。どれくらいもつかな…。コメント/トラックバックの公開前の手動確認などは行っておらず、直ちに公開されるので、SPAMコメント/トラックバックが来てたら…そういう事だと思ってください＾＾；

■スクリプト名変更

　出来れば呼び出されたくすらないので†1、スクリプトファイルの名前を書き換えてしまいます。

• mt-comments.cgi　→　mt-comment.cgi
• mt-tb.cgi　→　mt-trackbacks.cgi

　に書き換えた場合、mt-config.cgiの以下の部分を書き換えてください。

# AdminScript mt.pl
#ここの部分のコメントを外し、書き換えた後のスクリプト名に変更する。
CommentScript mt-comment.cgi
TrackbackScript mt-trackbacks.cgi
# SearchScript mt-search.pl
# XMLRPCScript mt-xmlrpc.pl
# ViewScript mt-view.pl
# AtomScript mt-atom.pl
# UpgradeScript mt-upgrade.pl

　これで完了です。

■コメント対策

　「さきゅばす」公式サイトの掲示板でも行っている、「今年何年？」認証です。日本語が読めないと駄目なのが痛いところですが、ほとんどSPAM以外に外国語コメントは来たことがないのでまあこれで良いでしょう。

　「個別エントリ」、「コメントの一覧」、「コメントプレビュー」のテンプレートのメール欄の下に、西暦の入力欄を作成します。

<p>
<label for="comment-code">今年は西暦何年？（SPAM対策です）: </label>
<input id="comment-code" name="code" size="30" />年
</p>

　次に、認証のためのコードを少し追加します。lib/MT/App/Comment.pmを以下を参考にして追加してください。

sub post {
my $app = shift;
my $q = $app->{query};
return $app->error($app->translate("Invalid request"))
if $app->request_method() ne 'POST';
#追加開始
my $code = $q->param('code') || '';
$code =~ s/^\s+|\s+$//g;
if ($code eq '') {
return $app->handle_error("今年は西暦何年か答えてください。");
}
my @code_localtime = localtime(time);
my $code_true_code = 1900 + @code_localtime[5];
if ($code ne $code_true_code) {
return $app->handle_error("今年は西暦$code年じゃないですよ。");
}
#追加おわり

　保存する際、自分のBlogの文字コードと同じ文字コードで保存してください。ちなみにこのサイトの場合はUTF-8です。

　どこかのページを再構築して実際にためしてみてくださいね。

■トラックバック対策

　トラックバックも同じように「今年何年？」で認証するのは無理なので、メールと同じ感じでいいかなーと。。。

　そのため、必ずスクリプト名は変更してください。

　まずはページの上の方にコメントとしてついているRDFのトラックバック欄を書き換えます。

　lib/MT/Template/ContextHandlers.pmを以下を参考にして書き換えてください。

sub _hdlr_entry_tb_data {
my($ctx, $args) = @_;
my $e = $ctx->stash('entry')
or return $ctx->_no_entry_error('MTEntryTrackbackData');
require MT::Trackback;
my $tb = MT::Trackback->load({ entry_id => $e->id })
or return '';
return '' if $tb->is_disabled;
my $cfg = MT::ConfigMgr->instance;
my $path = _hdlr_cgi_path($ctx);
#ここを書き換え
$path .= $cfg->TrackbackScript . '<DELETE THIS>/' . $tb->id;

　テンプレートの「エントリ・アーカイブ」のトラックバックURLのところを

<p>このエントリーのトラックバックURL: <br />
<$MTCGIPath$><DELETE THIS><$MTTrackbackScript$>/<$MTEntryID$></p>

　みたいな感じに書き換えてください。

■

　自動処理で数多くのBlogを同時に狙ってくるようなタイプのSPAMerには効果があるはずです。個別で狙われたら意味がほとんどありませんが、狙われたら狙われたで人気がある証拠ですので、喜んでください（えー

• †1: コメント/トラックバックのCGIは重いから