Changeset 2670

Timestamp:

12/06/07 22:19:17 (5 years ago)

Author:

drry

Message:

mobirc/lib/Mobirc/Plugin/IRCCommand/TiarraLog.pm:

Tiarra で general { sysmsg-prefix } を設定している場合の設定値 sysmsg_prefix を追加
ほか

Files:

• lang/perl/mobirc/trunk/mobirc/lib/Mobirc/Plugin/IRCCommand/TiarraLog.pm (modified) (4 diffs)

lang/perl/mobirc/trunk/mobirc/lib/Mobirc/Plugin/IRCCommand/TiarraLog.pm

@@ -6 +6 @@
 
 sub register {
-    my ($class, $global_context) = @_;
+    my ($class, $global_context, $conf) = @_;
 
     $global_context->register_hook(
-        'on_irc_notice' => \&_process,
+        'on_irc_notice' => sub { _process(@_, $conf) },
     );
+
+    $conf->{sysmsg_prefix} ||= q{tiarra};
 }
 
 sub _process {
-    my ($poe, $who, $channel, $msg) = @_;
+    my ($poe, $who, $channel, $msg, $conf) = @_;
 
     DEBUG "parse tiara's Log::Recent log";
 
     # Tiarra Log::Recent Parser
-    if ($who && $who eq "tiarra") {
+    if ($who && $who eq $conf->{sysmsg_prefix}) {
         # header: %H:%M:%S
         # header: %H:%M
@@ -28 +30 @@
         DEBUG "IRC INCODE IS $irc_incode";
         my $chann  = encode($irc_incode , $channel->[0]);
-        if ($msg =~ qr|^(\d\d:\d\d(?::\d\d)?) ! ([^\s]+?) \((.*)\)|) {
+        if ($msg =~ qr|^([0-2]\d:[0-5]\d(?::[0-5]\d)?) ! (\S+?) \((.*)\)|) {
             # ほんとは quit
             $class = "part";
@@ -34 +36 @@
             $msg   = undef;
             $chann = $chann;
-        } elsif ($msg =~ qr|^(\d\d:\d\d(?::\d\d)) \+ ([^\s]+?) \(([^\)]+)\) to ([^\s]+)|) {
+        } elsif ($msg =~ qr|^([0-2]\d:[0-5]\d(?::[0-5]\d)?) \+ (\S+?) \(([^\)]+)\) to (\S+)|) {
             $class = "join";
             $who   = $2;
             $msg   = decode("utf8", "$2 join");
             $chann = $chann;
-        } elsif ($msg =~ qr|^(\d\d:\d\d(?::\d\d)) \- ([^\s]+?) from ([^\s]+)|) {
+        } elsif ($msg =~ qr|^([0-2]\d:[0-5]\d(?::[0-5]\d)?) \- (\S+?) from (\S+)|) {
             $class = "part";
             $who   = $2;
             $msg   = undef;
             $chann = $chann;
-        } elsif ($msg =~ qr|^(\d\d:\d\d(?::\d\d)) Mode by ([^\s]+?): ([^\s]+) (.*)|) {
+        } elsif ($msg =~ qr|^([0-2]\d:[0-5]\d(?::[0-5]\d)?) Mode by (\S+?): (\S+) (.*)|) {
             $class = "mode";
             $who   = $2;
             $msg   = undef;
             $chann = $chann;
-        } elsif ($msg =~ qr|^(\d\d:\d\d(?::\d\d)) Topic of channel ([^\s]+?) by ([^\s]+): (.*)|) {
+        } elsif ($msg =~ qr|^([0-2]\d:[0-5]\d(?::[0-5]\d)?) Topic of channel (\S+?) by (\S+): (.*)|) {
             $class = "topic";
             $who   = $3;
             $msg   = $4;
             $chann = $chann;
-        } elsif ($msg =~ qr|^(\d\d:\d\d(?::\d\d)) ([^\s]+?) -> ([^\s]+)|) {
+        } elsif ($msg =~ qr|^([0-2]\d:[0-5]\d(?::[0-5]\d)?) (\S+?) -> (\S+)|) {
             $class = "nick";
             $who   = $3;
             $msg   = $4;
             $chann = $chann;
-        } elsif ($msg =~ qr|^(\d\d:\d\d(?::\d\d)) [<>()=-]([^>]+?)[<>()=-] (.*)|) {
+        } elsif ($msg =~ qr|^([0-2]\d:[0-5]\d(?::[0-5]\d)?) [<>()=-]([^>]+?)[<>()=-] (.*)|) {
             # priv も notice もまとめて notice に
             # keyword 反応を再度しないため
@@ -85 +87 @@
 
 1;
+__END__
+
+=head1 NAME
+
+Mobirc::Plugin::IRCCommand::TiarraLog - Tiarra log blah-blah-blah
+
+=head1 SYNOPSIS
+
+  - module: Mobirc::Plugin::IRCCommand::TiarraLog
+    config:
+      sysmsg_prefix: tiarra
+