Changeset 30678ae for perlglue.xs

Timestamp:

Jan 29, 2007, 9:54:41 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:

29ebcea

Parents:

a8a3433

git-author:

Nelson Elhage <nelhage@mit.edu> (01/29/07 21:54:30)

git-committer:

Nelson Elhage <nelhage@mit.edu> (01/29/07 21:54:41)

Message:

Making message type into a string

File:

• perlglue.xs (modified) (2 diffs)

perlglue.xs

@@ -117 +117 @@
         SV *msg
         PREINIT:
-                char * key;
-                char * val;
                 owl_message *m;
-                HV * hash;
-                HE * ent;
-                I32 count;
-                I32 len;
         CODE:
         {
@@ -130 +124 @@
                 }
 
-                hash = (HV*)SvRV(msg);
-                m = owl_malloc(sizeof(owl_message));
-                owl_message_init(m);
-
-                count = hv_iterinit(hash);
-                while((ent = hv_iternext(hash))) {
-                        key = hv_iterkey(ent, &len);
-                        val = SvPV_nolen(hv_iterval(hash, ent));
-                        if(!strcmp(key, "type")) {
-                                owl_message_set_type(m, owl_message_parse_type(val));
-                        } else if(!strcmp(key, "direction")) {
-                                owl_message_set_direction(m, owl_message_parse_direction(val));
-                        } else if(!strcmp(key, "private")) {
-                                SV * v = hv_iterval(hash, ent);
-                                if(SvTRUE(v)) {
-                                        owl_message_set_isprivate(m);
-                                }
-                        } else if (!strcmp(key, "hostname")) {
-                                owl_message_set_hostname(m, val);
-                        } else if (!strcmp(key, "zwriteline")) {
-                                owl_message_set_zwriteline(m, val);
-                        } else if (!strcmp(key, "time")) {
-                                m->timestr = owl_strdup(val);
-                                struct tm tm;
-                                strptime(val, "%a %b %d %T %Y", &tm);
-                                m->time = mktime(&tm);
-                        } else {
-                                owl_message_set_attribute(m, key, val);
-                        }
-                }
-                if(owl_message_is_type_admin(m)) {
-                        if(!owl_message_get_attribute_value(m, "adminheader"))
-                                owl_message_set_attribute(m, "adminheader", "");
-                } 
+                m = owl_perlconfig_hashref2message(msg);
 
                 owl_global_messagequeue_addmsg(&g, m);