Changes in perl/modules/IRC/lib/BarnOwl/Message/IRC.pm [b38b0b2:0e52069]

File:

• perl/modules/IRC/lib/BarnOwl/Message/IRC.pm (modified) (2 diffs)

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

@@ -36 +36 @@
         return $filter;
     } else {
-        # Unimplemented
-        return undef;
+        # To a Channel
+        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\$};
+        BarnOwl::filter("$filter $ftext");
+        return $filter;
     }
 }
@@ -43 +48 @@
 sub server {shift->{server}}
 sub network {shift->{network}}
+sub channel {shift->{channel}}
 
 # display
-sub context {shift->{channel};}
+sub context {shift->{network};}
+sub subcontext {shift->{recipient};}
 
 sub long_sender {shift->{from} || ""};