mt-ban-norefertb.pl 0.02
んで、導入してみて経過を見ていたのですが、配布元エントリのコメントにあるようなエラーが見られて原因を究明してみました。
mt-ban-norefertb.pl にバグがあったので直しておきました。ご指摘どうもです。
--- /home/naoya/mt-ban-norefertb.pl.orig 2005-09-01 14:41:23.000000000 +0900 +++ mt-ban-norefertb.pl 2005-09-01 14:42:21.000000000 +0900 @@ -9,7 +9,7 @@ use MT; use MT::Plugin; use MT::Blog; -our $VERSION = "0.01"; +our $VERSION = "0.02"; my $plugin = MT::Plugin->new({ name => __PACKAGE__ . " v$VERSION", @@ -26,7 +26,7 @@ $ua->agent(__PACKAGE__ . "/$VERSION"); $ua->timeout(10); my $res = $ua->request(HTTP::Request->new(GET => $tbping->source_url)); - return error($app, $tbping, "the server returned " . $res->status) + return error($app, $tbping, "the server returned " . $res->status_line) unless ($res->is_success); my $url = MT::Blog->load($tbping->blog_id)->site_url; return error($app, $tbping, "there is no link to your blog")