MovableType 3.2、MT::App::Trackback.pmの修正

TrackBackを受け付けてくれない問題、どうも「403 Throttled」が出る確率が圧倒的に高いようなのでちょっとMT::Trackback.pm、MT::App::Trackback.pmあたりを確認。
どうも、MT::App::Trackback.pm内の、同一IPからの頻繁なTrackBackをはじくはずのルーチンで、検索条件にIPアドレスが入っていないバグのために、SPAMを含めた全てのTrackBackの頻度で弾かれてしまっているっぽい。
どこのBlogでも同じだと思うけど今TrackBackスパムの来襲は雨霰のごとく、なので、TrackBackスパムの投稿が頻度フィルタを通り抜けると、その後しばらく一切のTBが受け付けられなくなってしまい、時間が過ぎたと思えば最初にフィルタを通過するのはスパムなので、結局一切まともなTBが受け付けられない、という状況になっていたわけです。
ついでに言えばスパムTBは頻度フィルタの通り抜けには成功しても、その後のプラグインのBlacklistやKeywordフィルタで引っ掛かるので、かくして一切のTBが受け付けられない状況になっていた、というわけです。

とりあえず、検索条件にIPアドレスを加えて、TBを受け付けるようになった事を確認しました。
ついでに、TrackBack Pingに対するXMLレスポンスが、UTF-8決め打ちにも関わらずHTTPヘッダの文字コードがBlogの設定文字コードを返すようになっていたので、それも気持ち悪かったのでついでに直してみました。

*** Trackback.pm.orig   2005-10-12 00:40:13.000000000 +0900
--- Trackback.pm        2005-10-12 00:45:46.000000000 +0900
***************
*** 70,75 ****
--- 70,77 ----
      $app->send_http_header('text/xml');
      $app->{no_print_body} = 1;

+     $app->{charset} = 'utf-8';
+
      if (my $err = $param{Error}) {
          my $re = join '|', keys %map;
          $err =~ s!($re)!$map{$1}!g;
***************
*** 126,131 ****
--- 128,134 ----
      require MT::TBPing;
      if ($app->config('OneHourMaxPings')
            <= MT::TBPing->count({ blog_id => $tb->blog_id,
+                                  ip => $user_ip,
                                   created_on => [$from] },
                                 {range => {created_on => 1} }))
      {
***************
*** 137,142 ****
--- 140,146 ----
      $from = sprintf("%04d%02d%02d%02d%02d%02d",
                      $ts[5]+1900, $ts[4]+1, @ts[3,2,1,0]);
      my $count = MT::TBPing->count({ blog_id => $tb->blog_id,
+                                     ip => $user_ip,
                                    created_on => [$from] },
                                  {range => {created_on => 1} });
      if ($count >= $app->config('OneDayMaxPings')) {