Changeset 3d10ed3 for perl/modules


Ignore:
Timestamp:
Sep 20, 2011, 11:15:31 PM (10 years ago)
Author:
Edward Z. Yang <ezyang@mit.edu>
Branches:
master, release-1.9
Children:
460413f
Parents:
63afb72
git-author:
Edward Z. Yang <ezyang@mit.edu> (06/19/11 22:46:32)
git-committer:
Edward Z. Yang <ezyang@mit.edu> (09/20/11 23:15:31)
Message:
Make filters act more like traditional Zephyr filters.

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

Legend:

Unmodified
Added
Removed
  • perl/modules/Facebook/lib/BarnOwl/Message/Facebook.pm

    r24bd860 r3d10ed3  
    3333    my $inst = shift;
    3434    my $filter;
     35    # XXX I hope $filter isn't used for anything besides display purposes
    3536    if($inst) {
    36         # XXX I hope $filter isn't used for anything besides display purposes
     37        $filter = "facebook: " . $self->{name} . " " . $self->{postid};
     38        BarnOwl::command("filter", $filter,
     39                         qw{type ^facebook$ and name_id}, '^'.$self->{name_id}.'$',
     40                         qw{and postid}, '^'.$self->{postid}.'$');
     41    } else {
    3742        $filter = "facebook: " . $self->{name};
    3843        BarnOwl::command("filter", $filter,
    3944                         qw{type ^facebook$ and name_id}, '^'.$self->{name_id}.'$');
    40     } else {
    41         $filter = "facebook";
    4245    }
    4346    return $filter;
Note: See TracChangeset for help on using the changeset viewer.