Changeset a130fc5 for perlglue.xs

Timestamp:

Jul 9, 2011, 4:11:45 PM (14 years ago)

Author:

Jason Gross <jgross@mit.edu>

Branches:

master, release-1.10, release-1.8, release-1.9

Children:

176d2c75, 4168fb8, 220db88, 820e852, 4bf2a11, 976e58a

Parents:

efeec7f

git-author:

Jason Gross <jgross@mit.edu> (05/23/11 19:23:05)

git-committer:

Jason Gross <jgross@mit.edu> (07/09/11 16:11:45)

Message:

Improved ability to delete messages from perl

BarnOwl::Message now has a delete_and_expunge command, and
BarnOwl::queue_message returns the queued message, so that deletion
actually works; there used to be no way to get the id of a queued
message, and so ->delete() didn't actually do anything...

File:

• perlglue.xs (modified) (2 diffs)

perlglue.xs

@@ -143 +143 @@
                 g_free(rv);
 
-void
+SV *
 queue_message(msg)
         SV *msg
@@ -157 +157 @@
 
                 owl_global_messagequeue_addmsg(&g, m);
-        }
+
+                RETVAL = owl_perlconfig_message2hashref(m);
+        }
+        OUTPUT:
+                RETVAL
 
 void