今このブログで使っているトラックバックのシステムは、
「tb-standalone 日本語化 + メール送信: blog.bulknews.net」
http://blog.bulknews.net/mt/archives/000383.html
で紹介されているもの(http://bulknews.net/lib/archives/trackback)を
ベースにしたもの。

いまさらながら、言及リンクなしトラックバックをはじくようにして
みました。もっと早くやっとけよ！的な。

下記の部分に、

$i->{timestamp} = time;
respond_exit("No URL (url)") unless $i->{url};
my $data = load_data($tb_id);
unshift @$data, $i;

以下のようなブロックを足すだけ。言及リンクを厳密に調べているわけ
ではないけど、ちゃんと働いてくれると思います。

$i->{timestamp} = time;
respond_exit("No URL (url)") unless $i->{url};
{
    use LWP::Simple qw(!head);
    my $str = get($i->{url}) || "";
    respond_exit("No Link") unless $str =~ /nais\.to/;
}
my $data = load_data($tb_id);
unshift @$data, $i;

（「qw(!head)」は「Prototype mismatch: sub main::head ($)...」が
出たときのおまじない。see perldoc）

Trackback Auto Discovery をやめてからスパムは劇的に減ったのですが
[2006-07-14-1]、それでもときどきやってきます。気づいたときに
消しますけど、今回の措置でそれも不要になるかな。

ref. [を] トラックバックスパムを劇的に減らす方法[2006-07-14-1]