Changeset 1c2e0b3

Timestamp:

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

272a4a0

Parents:

a1bb198

Message:

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

Files:

• perl/modules/jabber.pl (modified) (2 diffs)
• perlglue.xs (modified) (1 diff)

perl/modules/jabber.pl

@@ -1011 +1011 @@
 
     my $m = j2o( $j, { direction => 'out' } );
-    if ( $vars{jwrite}{type} ne 'groupchat' && BarnOwl::getvar('displayoutgoing') eq 'on') {
-        BarnOwl::queue_message($m);
+    if ( $vars{jwrite}{type} ne 'groupchat') {
+        BarnOwl::add_message($m);
     }
 
@@ -1292 +1292 @@
 sub queue_admin_msg {
     my $err = shift;
-    my $m   = BarnOwl::Message->new(
-        type      => 'admin',
-        direction => 'none',
-        body      => $err
-    );
-    BarnOwl::queue_message($m);
+    BarnOwl::admin_message("jabber.pl", $err);
 }
 

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