source: perl/modules/IRC/lib/BarnOwl/Message/IRC.pm @ e322b7c

use warnings;
use strict;

=head1 NAME

BarnOwl::Message::IRC

=head1 DESCRIPTION

A subclass of BarnOwl::Message for IRC messages

=cut

package BarnOwl::Message::IRC;

use base qw( BarnOwl::Message );

sub smartfilter {
    my $self = shift;
    my $inst = shift;

    my ($filter, $ftext);

    if($self->is_private) {
        my $who;
        if($self->direction eq 'out') {
            $who = $self->recipient;
        } else {
            $who = $self->sender;
        }
        $filter = "irc-user-$who";
        my $ftext  =
             qq{type ^irc\$ and ( ( direction ^in\$ and sender ^$who\$ ) }
           . qq{or ( direction ^out\$ and recipient ^$who\$ ) ) };
        BarnOwl::filter("$filter $ftext");
        return $filter;
    } else {
        # 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;
    }
}

sub server {shift->{server}}
sub network {shift->{network}}
sub channel {shift->{channel}}

# display
sub context {shift->{network};}
sub subcontext {shift->{recipient};}

sub long_sender {shift->{from} || ""};

sub login_type {
    my $self = shift;
    return " (" . ($self->is_login ? "JOIN" : "PART") . ")";
}

sub login_extra { shift->channel; }


1;