Changeset 0da506ce9d98b7097cea151432f3eb19eab40e6d

Timestamp:

01/26/07 16:52:37 (2 years ago)

Author:

Nelson Elhage <nelhage@…>

git-author:

Nelson Elhage <nelhage@mit.edu> / 2007-01-26T16:41:33Z-0500

Parents:

c25a20fcbef752a45d4e0f8a19d35b2fda93190f

Children:

ac1bbe23d335d92de71ead394cb3042676203969

git-committer:

Nelson Elhage <nelhage@mit.edu> / 2007-01-26T21:52:37Z+0000

Message:

Add smartnarrow on login/out messages.

Files:

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

perl/modules/jabber.pl

@@ -1414 +1414 @@
         die("Unable to resolve account $from") unless $from_jid;
         $to_jid = resolveDestJID($to, $from_jid);
-        push @matches, [$from_jid, $to_jid];
+        push @matches, [$from_jid, $to_jid] if $to_jid;
     } else {
         for my $f ($conn->getJIDs) {
@@ -1461 +1461 @@
             $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 ) ) };
-        BarnOwl::filter("$filter $ftext");
-        return $filter;
+        return smartfilter_user($user, $inst);
     } elsif ($self->jtype eq 'groupchat') {
         my $room = $self->room;
@@ -1473 +1468 @@
         BarnOwl::filter("$filter $ftext");
         return $filter;
-    }
-}
+    } elsif ($self->login ne 'none') {
+        return smartfilter_user($self->from, $inst);
+    }
+}
+
+sub smartfilter_user {
+    my $user = shift;
+    my $inst = shift;
+
+    $user   = Net::Jabber::JID->new($user)->GetJID( $inst ? 'full' : 'base' );
+    my $filter = "jabber-user-$user";
+    my $ftext  =
+        qq{type ^jabber\$ and ( ( direction ^in\$ and from ^$user ) }
+      . qq{or ( direction ^out\$ and to ^$user ) ) };
+    BarnOwl::filter("$filter $ftext");
+    return $filter;
+
+}
+
 
 1;