Changeset 1b6b2f3 for perlglue.xs

Timestamp:

Oct 27, 2006, 1:17:18 PM (18 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:

e74c01c

Parents:

dd16bdd

Message:

Refactoring the editwin code somewhat, and adding the ability to hang
arbitrary reply commands off of messages.

File:

• perlglue.xs (modified) (3 diffs)

perlglue.xs

@@ -100 +100 @@
                 owl_cmddict_add_cmd(owl_global_get_cmddict(&g), &cmd);
 
-void queue_message(msg)
+void queue_message(msg) 
         SV *msg
         PREINIT:
@@ -111 +111 @@
                 I32 len;
         CODE:
+        {
                 if(!SvROK(msg) || SvTYPE(SvRV(msg)) != SVt_PVHV) {
                         croak("Usage: owl::queue_message($message)");
@@ -131 +132 @@
                         }
                 }
+                owl_message_set_isprivate(m);
+                if(owl_message_is_type_admin(m)) {
+                        if(!owl_message_get_attribute_value(m, "adminheader"))
+                                owl_message_set_attribute(m, "adminheader", "");
+                } 
 
                 owl_global_messagequeue_addmsg(&g, m);
+        }