Changeset 06bd0d1 for perl/modules

Timestamp:

Jun 22, 2011, 9:56:46 PM (13 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Children:

33a8d77

Parents:

c323405

git-author:

Edward Z. Yang <ezyang@mit.edu> (06/19/11 22:46:32)

git-committer:

Edward Z. Yang <ezyang@mit.edu> (06/22/11 21:56:46)

Message:

Make filters act more like traditional Zephyr filters.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>

File:

• perl/modules/Facebook/lib/BarnOwl/Message/Facebook.pm (modified) (1 diff)

perl/modules/Facebook/lib/BarnOwl/Message/Facebook.pm

@@ -33 +33 @@
     my $inst = shift;
     my $filter;
+    # XXX I hope $filter isn't used for anything besides display purposes
     if($inst) {
-        # XXX I hope $filter isn't used for anything besides display purposes
+        $filter = "facebook: " . $self->{name} . " " . $self->{postid};
+        BarnOwl::command("filter", $filter,
+                         qw{type ^facebook$ and name_id}, '^'.$self->{name_id}.'$',
+                         qw{and postid}, '^'.$self->{postid}.'$');
+    } else {
         $filter = "facebook: " . $self->{name};
         BarnOwl::command("filter", $filter,
                          qw{type ^facebook$ and name_id}, '^'.$self->{name_id}.'$');
-    } else {
-        $filter = "facebook";
     }
     return $filter;