Movable Type で、通知メールのテンプレートをカスタマイズする

Movable Type のメール通知機能でのテンプレートは、直接コードに埋め込まれているため、素人が変更するのは難しい。しかし Perl の知識があればなんとかなるだろう。以下の例では、サブジェクトはエントリーのタイトルそのままに、本文からエントリータイトルや日付など余計な部分を除いたもの。 /lib/MT/App/CMS.pm　の 6618 行付近より。

<font color="red">=comment</font>
    $name = ('(' x ($fill_len/2)) . ' ' . $name . ' ' . (')' x ($fill_len/2));
    $body .= $name . "\n\n";
    my @ts = offset_time_list(time, $blog);
    my $ts = sprintf "%04d%02d%02d%02d%02d%02d",
        $ts[5]+1900, $ts[4]+1, @ts[3,2,1,0];
    my $date = format_ts('%Y.%m.%d %H:%M:%S', $ts, $blog);
    my $fill_left = ' ' x int(($cols - length($date)) / 2);
    $body .= "$fill_left$date\n\n\n";
    $body .= ('-' x $cols) . "\n\n";
<font color="red">=cut</font>
    if ($q->param('send_excerpt')) {
        $body .= MT::I18N::wrap_text($entry->get_excerpt, $cols-4, "    ","    ") . "\n\n";
        $body .= ('-' x $cols) . "\n\n";
    }
    $body .= $entry->permalink . "\n\n";
    $body .= MT::I18N::wrap_text($q->param('message'),$cols, '', '') . "\n\n";
    if ($q->param('send_body')) {
        $body .= ('-' x $cols) . "\n\n";
        $body .= MT::I18N::wrap_text($entry->text, $cols, '', '') . "\n";
    }
<font color="red">#　以下の部分をコメントアウトまたは修正
#   my $subj = $app->translate("[_1] Update: [_2]", $blog->name, $entry->title);
# ここまで
# 以下の部分を追加
    my $subj = $app->translate("[_1]", $entry->title);</font>
</font>