- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Message/IRC.pm
r0e52069 rb38b0b2 36 36 return $filter; 37 37 } else { 38 # To a Channel 39 my $network = $self->network; 40 my $channel = $self->channel; 41 my $filter = "irc-$network-channel-$channel"; 42 my $ftext = qq{type ^irc\$ and network ^$network\$ and channel ^$channel\$}; 43 BarnOwl::filter("$filter $ftext"); 44 return $filter; 38 # Unimplemented 39 return undef; 45 40 } 46 41 } … … 48 43 sub server {shift->{server}} 49 44 sub network {shift->{network}} 50 sub channel {shift->{channel}}51 45 52 46 # display 53 sub context {shift->{network};} 54 sub subcontext {shift->{recipient};} 47 sub context {shift->{channel};} 55 48 56 49 sub long_sender {shift->{from} || ""};
Note: See TracChangeset
for help on using the changeset viewer.