Changeset 934

Timestamp:

10/31/07 01:14:10 (6 years ago)

Author:

cho45

Message:

lang/perl/mobirc/trunk/mobirc/lib/Mobirc/IRCClient.pm:

Tiarra Log::Recent
他のメッセージもパースするように

Files:

• lang/perl/mobirc/trunk/mobirc/lib/Mobirc/IRCClient.pm (modified) (2 diffs)

lang/perl/mobirc/trunk/mobirc/lib/Mobirc/IRCClient.pm

@@ -193 +193 @@
         my $chann  = encode($poe->heap->{config}->{irc}->{incode}, $channel->[0]);
         if ($msg =~ qr|^(\d\d:\d\d(?::\d\d)?) ! ([^\s]+?) \((.*)\)|) {
+            # ほんとは quit
             $class = "part";
             $who   = $2;
@@ -201 +202 @@
             $who   = $2;
             $msg   = decode("utf8", "$2 join");
+            $chann = $chann;
+        } elsif ($msg =~ qr|^(\d\d:\d\d(?::\d\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]+) (.*)|) {
+            $class = undef; #"mode";
+            $who   = $2;
+            $msg   = undef;
+            $chann = $chann;
+        } elsif ($msg =~ qr|^(\d\d:\d\d(?::\d\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]+)|) {
+            $class = undef; #"nick";
+            $who   = $3;
+            $msg   = $4;
             $chann = $chann;
         } elsif ($msg =~ qr|^(\d\d:\d\d(?::\d\d)) [<>()=-]([^>]+?)[<>()=-] (.*)|) {