Changeset 421c8ef7 for perlconfig.c

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:

• perlconfig.c (modified) (3 diffs)

perlconfig.c

@@ -32 +32 @@
   char *ptr, *blessas;
   int i, j;
+  owl_pair *pair;
 
   if (!m) return &PL_sv_undef;
@@ -57 +58 @@
   }
 
+  j=owl_list_get_size(&(m->attributes));
+  for(i=0; i<j; i++) {
+    pair=owl_list_get_element(&(m->attributes), i);
+    hv_store(h, owl_pair_get_key(pair), strlen(owl_pair_get_key(pair)),
+             newSVpv(owl_pair_get_value(pair),0),0);
+  }
+  
   MSG2H(h, type);
   MSG2H(h, direction);
@@ -80 +88 @@
   if (owl_message_is_type_zephyr(m))       blessas = "owl::Message::Zephyr";
   else if (owl_message_is_type_aim(m))     blessas = "owl::Message::AIM";
+  else if (owl_message_is_type_jabber(m))  blessas = "owl::Message::Jabber";
   else if (owl_message_is_type_admin(m))   blessas = "owl::Message::Admin";
   else if (owl_message_is_type_generic(m)) blessas = "owl::Message::Generic";