Changeset 216c734 for perlwrap.pm
- Timestamp:
- Oct 24, 2006, 12:40:02 PM (17 years ago)
- Branches:
- master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- 0138478
- Parents:
- 4211f50b
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlwrap.pm
r87c6ef1 r216c734 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.