Changeset 3c9012b


Ignore:
Timestamp:
Oct 29, 2006, 6:36:56 PM (17 years ago)
Author:
Nelson Elhage <nelhage@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:
e7ac2b6
Parents:
421c8ef7
Message:
Adding some support for distinguishing personals/private with messages generated from perl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    rdb8b00b r3c9012b  
    135135                        } else if(!strcmp(key, "direction")) {
    136136                                owl_message_set_direction(m, owl_message_parse_direction(val));
     137                        } else if(!strcmp(key, "isprivate")) {
     138                                SV * v = hv_iterval(hash, ent);
     139                                if(SvTRUE(v)) {
     140                                        owl_message_set_isprivate(m);
     141                                }
    137142                        } else {
    138143                                owl_message_set_attribute(m, key, val);
    139144                        }
    140145                }
    141                 owl_message_set_isprivate(m);
    142146                if(owl_message_is_type_admin(m)) {
    143147                        if(!owl_message_get_attribute_value(m, "adminheader"))
  • perlwrap.pm

    r421c8ef7 r3c9012b  
    102102sub is_ping     { return 0; }
    103103sub is_mail     { return 0; }
    104 sub is_personal { return undef; }
     104sub is_personal { return shift->is_private; }
    105105sub class       { return undef; }
    106106sub instance    { return undef; }
Note: See TracChangeset for help on using the changeset viewer.