以前Commentした人にもメールで通知 (改造)

現状のMT(Version2.64)では、あるEntryに新しいコメントが追加された場合、設定よりそのEntryのAuthorにはメールで通知が行きます。 そこで、Commentが追加された場合に、以前そのEntryにコメントした人にも、メールで通知するように、内部のモジュール(mt/lib/MT/App/Comments.pm)を改造してみました。

L126の if ($blog->email_new_comments) { の下に、以下を挿入

########################### # # あたらしいコメントが追加された場合、同一Entryで以前Commentした人にも、 # メールで通知するように追加。 # # added by akira my @comments = MT::Comment->load( {blog_id => $entry->blog_id($entry->blog_id), entry_id => $comment->entry_id($q->param('entry_id')) }) or return $app->error($app->translate("Comments emails load error..")); my $comms; my $cc_email; my $author_email = lc ( $entry->author->email ); my $my_email = lc ( $comment->email ); foreach $comms (@comments) { my $email = lc( $comms->email ); if ( $email eq $author_email || $email eq $my_email || $cc_email =~ /$email/i ){ # EntryのAuthorと、コメントした自分と、同じメールアドレスはのぞく } else { # add Cc if( $cc_email ){ $cc_email .= ", " . $email; } else { $cc_email .= $email; } } } ############################

L133の From => $comment->email || $author->email, の次に以下を挿入

Cc => $cc_email, ## added by akira

よろしければ、置き換えて使ってみて下さい。 そのうち、ファイルも公開致します。