Changeset 421c8ef7 for perlwrap.pm
- Timestamp:
- Oct 29, 2006, 5:01:52 AM (18 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:
- 3c9012b
- Parents:
- 4692b70
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlwrap.pm
rdd16bdd r421c8ef7 89 89 sub is_deleted { return shift->{"deleted"}; } 90 90 91 sub is_admin { return (shift->{"type"} eq "admin"); } 92 sub is_generic { return (shift->{"type"} eq "generic"); } 91 93 sub is_zephyr { return (shift->{"type"} eq "zephyr"); } 92 94 sub is_aim { return (shift->{"type"} eq "aim"); } 93 sub is_admin { return (shift->{"type"} eq "admin"); }94 sub is_generic { return (shift->{"type"} eq "generic"); }95 95 sub is_jabber { return (shift->{"type"} eq "jabber"); } 96 sub is_icq { return (shift->{"type"} eq "icq"); } 97 sub is_yahoo { return (shift->{"type"} eq "yahoo"); } 98 sub is_msn { return (shift->{"type"} eq "msn"); } 99 sub is_loopback { return (shift->{"type"} eq "loopback"); } 96 100 97 101 # These are overridden by appropriate message types
Note: See TracChangeset
for help on using the changeset viewer.