Changeset 38a7f22 for perl/modules
- Timestamp:
- Aug 21, 2008, 2:08:39 AM (16 years ago)
- Branches:
- master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- a82e091
- Parents:
- c4ba74d
- Location:
- perl/modules
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Message/IRC.pm
r4789b17 r38a7f22 20 20 my $inst = shift; 21 21 22 my ($filter, $ftext); 22 my $filter; 23 my @filter; 23 24 24 25 if($self->is_private) { … … 30 31 } 31 32 $filter = "irc-user-$who"; 32 my $ftext = 33 qq{( type ^irc\$ and filter personal and } 34 . qq{( ( direction ^in\$ and sender ^$who\$ ) or ( direction ^out\$ and recipient ^$who\$ ) ) ) }; 35 BarnOwl::filter("$filter $ftext"); 33 @filter = 34 (qw{( type ^irc$ and filter personal and }, 35 qw{( ( direction ^in$ and sender}, "^$who\$", 36 qw{ ) or ( direction ^out$ and recipient}, "^$who\$", 37 qw{) ) ) }); 38 BarnOwl::command("filter", "$filter", @filter); 36 39 return $filter; 37 40 } else { … … 43 46 if ($inst && $self->body =~ /^(\S+):/) { 44 47 $filter = "irc-$network-channel-$channel-$sender-$1"; 45 $ftext = qq{type ^irc\$ and network ^$network\$ and channel ^$channel\$ and ( sender ^$sender\$ or sender ^$1\$ )}; 48 @filter = 49 (qw{type ^irc$ and network}, "^$network\$", 50 qw{and channel}, "^$channel\$", 51 qw{and ( sender}, "^$sender\$", 52 qw{or sender}, "^$1\$",qq{)}); 46 53 } else { 47 54 $filter = "irc-$network-channel-$channel"; 48 $ftext = qq{type ^irc\$ and network ^$network\$ and channel ^$channel\$}; 55 @filter = (qw{type ^irc$ and network}, "^$network\$", 56 qw{and channel}, "^$channel\$"); 49 57 } 50 BarnOwl:: filter("$filter $ftext");58 BarnOwl::command("filter", "$filter", @filter); 51 59 return $filter; 52 60 } -
perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm
ra1a2036 r38a7f22 56 56 my $inst = shift; 57 57 58 my ($filter, $ftext);58 my $filter; 59 59 60 60 if($self->jtype eq 'chat') { … … 69 69 my $room = $self->room; 70 70 $filter = "jabber-room-$room"; 71 $ftext = qq{type ^jabber\$ and room ^$room\$};72 BarnOwl::filter("$filter $ftext");71 BarnOwl::command(qw[filter], $filter, 72 qw[type ^jabber$ and room], "^$room\$"); 73 73 return $filter; 74 74 } elsif ($self->login ne 'none') { … … 83 83 $user = Net::Jabber::JID->new($user)->GetJID( $inst ? 'full' : 'base' ); 84 84 my $filter = "jabber-user-$user"; 85 my $ftext =86 qq{type ^jabber\$ and ( ( direction ^in\$ and from ^$user ) }87 . qq{or ( direction ^out\$ and to ^$user ) ) };88 BarnOwl::filter("$filter $ftext");85 BarnOwl::command(qw[filter], $filter, qw[type ^jabber$], 86 qw[and ( ( direction ^in$ and from], "^$user", 87 qw[) or ( direction ^out$ and to ], "^$user", 88 qw[ ) ) ]); 89 89 return $filter; 90 90
Note: See TracChangeset
for help on using the changeset viewer.