Changeset 421c8ef7 for perlwrap.pm


Ignore:
Timestamp:
Oct 29, 2006, 5:01:52 AM (14 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
Branches:
master, barnowl_perlaim, debian, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perlwrap.pm

    rdd16bdd r421c8ef7  
    8989sub is_deleted  { return shift->{"deleted"}; }
    9090
     91sub is_admin    { return (shift->{"type"} eq "admin"); }
     92sub is_generic  { return (shift->{"type"} eq "generic"); }
    9193sub is_zephyr   { return (shift->{"type"} eq "zephyr"); }
    9294sub 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"); }
    9595sub is_jabber   { return (shift->{"type"} eq "jabber"); }
     96sub is_icq      { return (shift->{"type"} eq "icq"); }
     97sub is_yahoo    { return (shift->{"type"} eq "yahoo"); }
     98sub is_msn      { return (shift->{"type"} eq "msn"); }
     99sub is_loopback { return (shift->{"type"} eq "loopback"); }
    96100
    97101# These are overridden by appropriate message types
Note: See TracChangeset for help on using the changeset viewer.