[alm-ore] AL-Mailユーザーだった俺の独り言

なんですか？
ここ数日，特に “Online poker” の ファッキン・コメンツが多いんですけどー．
毎朝，毎晩，手動でスパムコメントを消すのがめんどくさいんですけどー．
俺がSWG(スター・ウォーズ・ギャラクシーズ)で遊ぶ貴重な時間が減っちゃうんですけどー．
て言うか，某カワイコちゃんから「オンラインポーカーっていっぱい出てますけど，あれはなんですか？」なんて，イノセントに聞かれちゃったり．こりゃ，一肌脱いで，一肌脱がせなきゃいけないわけで！

てなわけで，ちょっちコメント機能に細工してみた．
何か問題を見つけたら，連絡ヨロシク！

【やったこと】
(MT_directory)/lib/MT/App/Comments.pm に以下を追加．
場所は，

if ($comment->url) {
require MT::Util;
if (my $fixed = MT::Util::is_valid_url($comment->url, ‘stringent’)) {
$comment->url($fixed);
} else {
return $app->handle_error($app->translate(
“Invalid URL ‘[_1]'”, $comment->url));
}
}

の真下．

## Fuckin' Online Porker (by matu)
if ($comment->author =~ /online poker/i) {
return $app->handle_error($app->translate(
"ONLINE POKER, GO HOME AND FUCK YOUR MOTHER!"));
## END Fuckin' Online Porker

ちなみに，MTのバージョンが違えば，”$comment->author” のあたりが “$author” になるとか，ならないとか・・・．俺もよう知らん．