Changeset 25729b2 for perl/modules

Timestamp:

Jan 8, 2007, 4:17:55 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:

723f464

Parents:

6beac73

git-author:

Nelson Elhage <nelhage@mit.edu> (01/08/07 15:55:09)

git-committer:

Nelson Elhage <nelhage@mit.edu> (01/08/07 16:17:55)

Message:

Adding basic smartnarrow support for jabber, and infrastructure to
make it extensible.

File:

• perl/modules/jabber.pl (modified) (1 diff)

perl/modules/jabber.pl

@@ -1156 +1156 @@
 }
 
+#####################################################################
+#####################################################################
+
+package owl::Message::Jabber;
+
+our @ISA = qw( owl::Message );
+
+sub jtype { shift->{jtype} };
+sub from { shift->{from} };
+sub to { shift->{to} };
+
+sub smartfilter {
+    my $self = shift;
+    my $inst = shift;
+
+    if($self->jtype eq 'chat') {
+        my ($user, $filter, $ftext);
+        if($self->direction eq 'in') {
+            $user = $self->from;
+        } else {
+            $user = $self->to;
+        }
+        $user = Net::Jabber::JID->new($user)->GetJID($inst ? 'full' : 'base');
+        $filter = "jabber-user-$user";
+        $ftext = qq{type ^jabber\$ and ( ( direction ^in\$ and from ^$user ) } .
+                 qq{or ( direction ^out\$ and to ^$user ) ) };
+        owl::filter("$filter $ftext");
+        return $filter;
+    }
+}
+
 1;