Changeset 421c8ef7 for perlwrap.pm

Timestamp:

Oct 29, 2006, 5:01:52 AM (18 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

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

Message:

Adding some missing owl_message_type_is functions.
Ensuring all the attributes of a message make it out to the perl hash.

File:

• perlwrap.pm (modified) (1 diff)

perlwrap.pm

@@ -89 +89 @@
 sub is_deleted  { return shift->{"deleted"}; }
 
+sub is_admin    { return (shift->{"type"} eq "admin"); }
+sub is_generic  { return (shift->{"type"} eq "generic"); }
 sub is_zephyr   { return (shift->{"type"} eq "zephyr"); }
 sub is_aim      { return (shift->{"type"} eq "aim"); }
-sub is_admin    { return (shift->{"type"} eq "admin"); }
-sub is_generic  { return (shift->{"type"} eq "generic"); }
 sub is_jabber   { return (shift->{"type"} eq "jabber"); }
+sub is_icq      { return (shift->{"type"} eq "icq"); }
+sub is_yahoo    { return (shift->{"type"} eq "yahoo"); }
+sub is_msn      { return (shift->{"type"} eq "msn"); }
+sub is_loopback { return (shift->{"type"} eq "loopback"); }
 
 # These are overridden by appropriate message types