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

release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since df7018f was dfaa47d, checked in by Geoffrey Thomas <geofft@mit.edu>, 12 years ago
Display context for personals, so as to make <message,*,%me> usable. Signed-off-by: Geoffrey Thomas <geofft@mit.edu>
  • Property mode set to 100644
File size: 2.2 KB
Line 
1use warnings;
2use strict;
3
4=head1 NAME
5
6BarnOwl::Message::IRC
7
8=head1 DESCRIPTION
9
10A subclass of BarnOwl::Message for IRC messages
11
12=cut
13
14package BarnOwl::Message::IRC;
15
16use base qw( BarnOwl::Message );
17
18sub smartfilter {
19    my $self = shift;
20    my $inst = shift;
21
22    my $filter;
23    my @filter;
24
25    if($self->is_private) {
26        my $who;
27        if($self->direction eq 'out') {
28            $who = $self->recipient;
29        } else {
30            $who = $self->sender;
31        }
32        $filter = "irc-user-$who";
33        @filter  =
34             (qw{( type ^irc$ and filter personal and },
35              qw{( ( direction ^in$ and sender}, "^\Q$who\E\$",
36              qw{ ) or ( direction ^out$ and recipient}, "^\Q$who\E\$",
37              qw{) ) ) });
38        BarnOwl::command("filter", "$filter", @filter);
39        return $filter;
40    } else {
41        # To a Channel
42        my $network = $self->network;
43        my $channel = $self->channel;
44        my $sender = $self->sender;
45        my ($filter, $ftext);
46        if ($inst && $self->body =~ /^(\S+):/) {
47            $filter = "irc-$network-channel-$channel-$sender-$1";
48            @filter =
49                 (qw{type ^irc$ and network}, "^\Q$network\E\$",
50                  qw{and channel}, "^\Q$channel\E\$",
51                  qw{and ( sender}, "^\Q$sender\E\$",
52                  qw{or sender}, "^\Q$1\E\$",qq{)});
53        } else {
54            $filter = "irc-$network-channel-$channel";
55            @filter = (qw{type ^irc$ and network}, "^\Q$network\E\$",
56                       qw{and channel}, "^\Q$channel\E\$");
57        }
58        BarnOwl::command("filter", "$filter", @filter);
59        return $filter;
60    }
61}
62
63sub server {shift->{server}}
64sub network {shift->{network}}
65sub channel {shift->{channel}}
66sub action {shift->{action}}
67sub reason {shift->{reason}}
68
69# display
70sub context {shift->{network};}
71sub subcontext {shift->{recipient};}
72sub personal_context {"on " . shift->{network};}
73
74sub long_sender {shift->{from} || ""};
75
76sub login_type {
77    my $self = shift;
78    return " (" . uc $self->action . ")";
79}
80
81sub login_extra { 
82    my $self = shift;
83    if ($self->action eq "quit") {
84        return $self->reason;
85    } else {
86        return $self->channel;
87    }
88}
89
901;
Note: See TracBrowser for help on using the repository browser.