Changeset 1c2e0b3 for perlglue.xs

Timestamp:

Feb 10, 2007, 10:30:11 PM (16 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:

272a4a0

Parents:

a1bb198

Message:

Export owl_function_add_message and owl_function_queue_message to perl.
Use them in jabber.pl.

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -129 +129 @@
         }
 
+void add_message(msg) 
+        SV *msg
+        PREINIT:
+                owl_message *m;
+        CODE:
+        {
+                if(!SvROK(msg) || SvTYPE(SvRV(msg)) != SVt_PVHV) {
+                        croak("Usage: owl::add_message($message)");
+                }
+
+                if (owl_global_is_displayoutgoing(&g)) {
+                        m = owl_perlconfig_hashref2message(msg);
+                        owl_function_add_message(m);
+                }
+        }
+
+void admin_message(header, body) 
+        char *header
+        char *body
+        PREINIT:
+                owl_message *m;
+        CODE:
+        {
+                owl_function_adminmsg(header, body);            
+        }
+
 void start_question(line, callback)
         char *line