Changeset 8df6cbb for perl/modules
- Timestamp:
- May 6, 2008, 1:37:29 AM (17 years ago)
- 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
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Message/IRC.pm
r1fd5041b r8df6cbb 39 39 my $network = $self->network; 40 40 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 } 43 50 BarnOwl::filter("$filter $ftext"); 44 51 return $filter;
Note: See TracChangeset
for help on using the changeset viewer.