Changeset 421c8ef7 for perlconfig.c


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
  • perlconfig.c

    rdb8b00b r421c8ef7  
    3232  char *ptr, *blessas;
    3333  int i, j;
     34  owl_pair *pair;
    3435
    3536  if (!m) return &PL_sv_undef;
     
    5758  }
    5859
     60  j=owl_list_get_size(&(m->attributes));
     61  for(i=0; i<j; i++) {
     62    pair=owl_list_get_element(&(m->attributes), i);
     63    hv_store(h, owl_pair_get_key(pair), strlen(owl_pair_get_key(pair)),
     64             newSVpv(owl_pair_get_value(pair),0),0);
     65  }
     66 
    5967  MSG2H(h, type);
    6068  MSG2H(h, direction);
     
    8088  if (owl_message_is_type_zephyr(m))       blessas = "owl::Message::Zephyr";
    8189  else if (owl_message_is_type_aim(m))     blessas = "owl::Message::AIM";
     90  else if (owl_message_is_type_jabber(m))  blessas = "owl::Message::Jabber";
    8291  else if (owl_message_is_type_admin(m))   blessas = "owl::Message::Admin";
    8392  else if (owl_message_is_type_generic(m)) blessas = "owl::Message::Generic";
Note: See TracChangeset for help on using the changeset viewer.