Changeset 8df6cbb for perl


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/IRC/lib/BarnOwl/Message/IRC.pm

    r1fd5041b r8df6cbb  
    3939        my $network = $self->network;
    4040        my $channel = $self->channel;
    41         my $filter = "irc-$network-channel-$channel";
    42         my $ftext = qq{type ^irc\$ and network ^$network\$ and channel ^$channel\$};
     41        my $sender = $self->sender;
     42        my ($filter, $ftext);
     43        if ($inst && $self->body =~ /^(\S+):/) {
     44            $filter = "irc-$network-channel-$channel-$sender-$1";
     45            $ftext = qq{type ^irc\$ and network ^$network\$ and channel ^$channel\$ and ( sender ^$sender\$ or sender ^$1\$ )};
     46        } else {
     47            $filter = "irc-$network-channel-$channel";
     48            $ftext = qq{type ^irc\$ and network ^$network\$ and channel ^$channel\$};
     49        }
    4350        BarnOwl::filter("$filter $ftext");
    4451        return $filter;
Note: See TracChangeset for help on using the changeset viewer.