tiarraのSystem::SendMessage（ControlPort経由）でnick宛に送信するパッチ

どうやらSystem::SendMessageはチャンネル宛にしか送れないらしい。IRC（仕様）もtiarraもNICK宛に送れるので処理が抜けてる気がする。ホントやっつけなんだけど、でっち上げた。
NOTIFY System::SendMessageのChannel部分にカンマ区切りでNICKを指定すると送れる。
マスクとか良く分からないので無視してるので良い子は悪戯しないように。

Index: module/System/SendMessage.pm
===================================================================
--- module/System/SendMessage.pm        (リビジョン 39028)
+++ module/System/SendMessage.pm        (作業コピー)
@@ -58,6 +58,17 @@
               )->($text);
        }
     }
+    if ( !$matched ) {
+        my %nick;
+        $nick{$_} = 1 for split /,/msx, $mask;
+        foreach my $person ( $server->person_list ) {
+            if ( exists $nick{ $person->nick } ) {
+                ++$matched;
+                Auto::Utils::sendto_channel_closure( $person->nick, $command,
+                    undef, undef, undef, 0 )->($text);
+            }
+        }
+    }
     if ($matched) {
        my $reply = ControlPort::Reply->new(200, 'OK');
        $reply->MatchedChannels($matched);