Changeset 0d5d51b for perl

Timestamp:

Jan 8, 2007, 11:19:16 PM (18 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:

• perl/modules/jabber.pl (modified) (3 diffs)

perl/modules/jabber.pl

@@ -1164 +1164 @@
 sub from { shift->{from} };
 sub to { shift->{to} };
+sub room { shift->{room} };
 
 sub smartfilter {
@@ -1169 +1170 @@
     my $inst = shift;
 
+    my ($filter, $ftext);
+
     if($self->jtype eq 'chat') {
-        my ($user, $filter, $ftext);
+        my $user;
         if($self->direction eq 'in') {
             $user = $self->from;
@@ -1182 +1185 @@
         owl::filter("$filter $ftext");
         return $filter;
+    } elsif ($self->jtype eq 'groupchat') {
+        my $room = $self->room;
+        $filter = "jabber-room-$room";
+        $ftext = qq{type ^jabber\$ and room ^$room\$};
+        owl::filter("$filter $ftext");
+        return $filter;
     }
 }