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

debianrelease-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since f79d6a2 was f79d6a2, checked in by Anders Kaseorg <andersk@mit.edu>, 12 years ago
IRC: Escape interpolated variables in regexes using "\Q\E".
  • Property mode set to 100644
File size: 2.1 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};}
72
73sub long_sender {shift->{from} || ""};
74
75sub login_type {
76    my $self = shift;
77    return " (" . uc $self->action . ")";
78}
79
80sub login_extra { 
81    my $self = shift;
82    if ($self->action eq "quit") {
83        return $self->reason;
84    } else {
85        return $self->channel;
86    }
87}
88
891;
Note: See TracBrowser for help on using the repository browser.