Changeset 06bd0d1 for perl/modules


Ignore:
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:
1 edited

Legend:

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

    r51ff997 r06bd0d1  
    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.