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

release-1.8release-1.9
Last change on this file since 60b49a7 was 60b49a7, checked in by Nelson Elhage <nelhage@mit.edu>, 10 years ago
Make nick-change events LOGIN messages instead of ADMIN.
  • Property mode set to 100644
File size: 2.4 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}}
68sub old_nick {shift->{old_nick}};
69
70# display
71sub context {shift->{network};}
72sub subcontext {shift->{recipient};}
73sub personal_context {"on " . shift->{network};}
74sub short_personal_context { shift->{network};}
75
76sub long_sender {shift->{from} || ""};
77
78sub login_type {
79    my $self = shift;
80    return " (" . uc $self->action . ")";
81}
82
83sub login_extra {
84    my $self = shift;
85    if ($self->action eq "quit") {
86        return $self->reason;
87    } elsif ($self->action eq 'nick change') {
88        return "was: " . $self->old_nick;
89    } else {
90        return $self->channel;
91    }
92}
93
941;
Note: See TracBrowser for help on using the repository browser.