Changeset b594537 for perl/modules
- Timestamp:
- Sep 19, 2011, 1:31:34 PM (13 years ago)
- Children:
- a0c06dc
- Parents:
- 718c23f
- git-author:
- Edward Z. Yang <ezyang@mit.edu> (06/19/11 22:46:32)
- git-committer:
- Edward Z. Yang <ezyang@mit.edu> (09/19/11 13:31:34)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Facebook/lib/BarnOwl/Message/Facebook.pm
ree98987 rb594537 33 33 my $inst = shift; 34 34 my $filter; 35 # XXX I hope $filter isn't used for anything besides display purposes 35 36 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 { 37 42 $filter = "facebook: " . $self->{name}; 38 43 BarnOwl::command("filter", $filter, 39 44 qw{type ^facebook$ and name_id}, '^'.$self->{name_id}.'$'); 40 } else {41 $filter = "facebook";42 45 } 43 46 return $filter;
Note: See TracChangeset
for help on using the changeset viewer.