Changeset 8df6cbb for perl

Timestamp:

May 6, 2008, 1:37:29 AM (16 years ago)

Author:

Geoffrey Thomas <geofft@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

2017d07

Parents:

f094fc4

Message:

IRC: Make M-N mostly, rather than completely, useless.

File:

• perl/modules/IRC/lib/BarnOwl/Message/IRC.pm (modified) (1 diff)

perl/modules/IRC/lib/BarnOwl/Message/IRC.pm

@@ -39 +39 @@
         my $network = $self->network;
         my $channel = $self->channel;
-        my $filter = "irc-$network-channel-$channel";
-        my $ftext = qq{type ^irc\$ and network ^$network\$ and channel ^$channel\$};
+        my $sender = $self->sender;
+        my ($filter, $ftext);
+        if ($inst && $self->body =~ /^(\S+):/) {
+            $filter = "irc-$network-channel-$channel-$sender-$1";
+            $ftext = qq{type ^irc\$ and network ^$network\$ and channel ^$channel\$ and ( sender ^$sender\$ or sender ^$1\$ )};
+        } else {
+            $filter = "irc-$network-channel-$channel";
+            $ftext = qq{type ^irc\$ and network ^$network\$ and channel ^$channel\$};
+        }
         BarnOwl::filter("$filter $ftext");
         return $filter;