Changeset 0d5d51b for perl


Ignore:
Timestamp:
Jan 8, 2007, 11:19:16 PM (17 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
ffd3f69
Parents:
d89b57f
git-author:
Nelson Elhage <nelhage@mit.edu> (01/08/07 23:19:14)
git-committer:
Nelson Elhage <nelhage@mit.edu> (01/08/07 23:19:16)
Message:
Adding jabber smartnarrow support for muc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    r46e8a1e r0d5d51b  
    11641164sub from { shift->{from} };
    11651165sub to { shift->{to} };
     1166sub room { shift->{room} };
    11661167
    11671168sub smartfilter {
     
    11691170    my $inst = shift;
    11701171
     1172    my ($filter, $ftext);
     1173
    11711174    if($self->jtype eq 'chat') {
    1172         my ($user, $filter, $ftext);
     1175        my $user;
    11731176        if($self->direction eq 'in') {
    11741177            $user = $self->from;
     
    11821185        owl::filter("$filter $ftext");
    11831186        return $filter;
     1187    } elsif ($self->jtype eq 'groupchat') {
     1188        my $room = $self->room;
     1189        $filter = "jabber-room-$room";
     1190        $ftext = qq{type ^jabber\$ and room ^$room\$};
     1191        owl::filter("$filter $ftext");
     1192        return $filter;
    11841193    }
    11851194}
Note: See TracChangeset for help on using the changeset viewer.