Changeset dab82f29 for perlwrap.pm
- Timestamp:
- Mar 28, 2009, 5:00:34 PM (15 years ago)
- Branches:
- owl
- Children:
- 4de643d
- Parents:
- 5189631
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlwrap.pm
r87c6ef1 rdab82f29 45 45 sub recipient { return shift->{"recipient"}; } 46 46 sub login { return shift->{"login"}; } 47 sub is_private { return shift->{"private"}; } 47 48 48 49 sub is_login { return shift->login eq "login"; } … … 63 64 sub is_mail { return 0; } 64 65 sub is_personal { return undef; } 65 sub is_private { return undef; }66 66 sub class { return undef; } 67 67 sub instance { return undef; } … … 191 191 sub is_ping { return (lc(shift->opcode) eq "ping"); } 192 192 193 sub is_private {194 my ($m) = @_;195 return (lc($m->recipient) eq lc(owl::zephyr_getsender()));196 }197 198 193 sub is_personal { 199 194 my ($m) = @_;
Note: See TracChangeset
for help on using the changeset viewer.