[1136] in BarnOwl Developers
[D-O-H] r1088 - trunk/owl
daemon@ATHENA.MIT.EDU (geofft@MIT.EDU)
Thu Oct 29 18:13:23 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
X-Original-To: nelhage@nelhage.com
Date: Wed, 9 Jul 2008 15:43:25 -0400 (EDT)
To: dirty-owl-hackers@MIT.EDU
From: geofft@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Author: geofft
Date: 2008-07-09 15:43:25 -0400 (Wed, 09 Jul 2008)
New Revision: 1088
Modified:
trunk/owl/perlglue.xs
trunk/owl/perlwrap.pm
Log:
Add BarnOwl::zephyr_getsubs(), a thin Perl wrapper around owl_zephyr_getsubs()
Modified: trunk/owl/perlglue.xs
===================================================================
--- trunk/owl/perlglue.xs 2008-07-07 10:23:18 UTC (rev 1087)
+++ trunk/owl/perlglue.xs 2008-07-09 19:43:25 UTC (rev 1088)
@@ -99,6 +99,18 @@
CLEANUP:
if (rv) owl_free(rv);
+char *
+zephyr_getsubs()
+ PREINIT:
+ char *rv = NULL;
+ CODE:
+ rv = owl_zephyr_getsubs();
+ RETVAL = rv;
+ OUTPUT:
+ RETVAL
+ CLEANUP:
+ if (rv) owl_free(rv);
+
void
new_command_internal(name, func, summary, usage, description)
char *name
Modified: trunk/owl/perlwrap.pm
===================================================================
--- trunk/owl/perlwrap.pm 2008-07-07 10:23:18 UTC (rev 1087)
+++ trunk/owl/perlwrap.pm 2008-07-09 19:43:25 UTC (rev 1088)
@@ -67,6 +67,11 @@
Strips zephyr formatting from a string and returns the result
+=head2 zephyr_getsubs
+
+Returns the list of subscription triples <class,instance,recipient>,
+separated by newlines.
+
=head2 queue_message MESSAGE
Enqueue a message in the BarnOwl message list, logging it and
