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")