- Timestamp:
- May 27, 2013, 2:10:17 PM (11 years ago)
- Parents:
- b58dea1 (diff), 6383920 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent. - Location:
- perl/lib
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/lib/BarnOwl.pm
r104a4eb r1ced34f 14 14 error debug 15 15 create_style getnumcolors wordwrap 16 message_matches_filter 16 17 add_dispatch remove_dispatch 17 18 add_io_dispatch remove_io_dispatch … … 239 240 240 241 Returns the number of colors this BarnOwl is capable of displaying 242 243 =head2 message_matches_filter MESSAGE FILTER_NAME [QUIET = 0] 244 245 Returns 1 if C<FILTER_NAME> is the name of a valid filter, and 246 C<MESSAGE> matches that filter. Returns 0 otherwise. If 247 C<QUIET> is false, this method displays an error message if 248 if C<FILTER_NAME> does not name a valid filter. 241 249 242 250 =head2 add_dispatch FD CALLBACK -
perl/lib/BarnOwl/Message.pm
ra130fc5 r0adbce1 51 51 sub is_ping { return 0; } 52 52 sub is_mail { return 0; } 53 sub is_personal { return shift->is_private; }53 sub is_personal { return BarnOwl::message_matches_filter(shift, "personal"); } 54 54 sub class { return undef; } 55 55 sub instance { return undef; } -
perl/lib/BarnOwl/Message/Zephyr.pm
r6401db3 r0adbce1 65 65 66 66 sub is_ping { return (lc(shift->opcode) eq "ping"); } 67 68 sub is_personal {69 my ($m) = @_;70 return ((lc($m->class) eq "message")71 && $m->is_private);72 }73 67 74 68 sub is_mail {
Note: See TracChangeset
for help on using the changeset viewer.