Changeset acb13bb


Ignore:
Timestamp:
Jul 9, 2008, 3:43:25 PM (16 years ago)
Author:
Geoffrey Thomas <geofft@mit.edu>
Branches:
master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
0398d55
Parents:
fa1b15b
Message:
Add BarnOwl::zephyr_getsubs(), a thin Perl wrapper around owl_zephyr_getsubs()
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • perlglue.xs

    rb67ab6b racb13bb  
    9898                RETVAL
    9999        CLEANUP:
     100                if (rv) owl_free(rv);
     101
     102char *
     103zephyr_getsubs()
     104        PREINIT:
     105                char *rv = NULL;
     106        CODE:
     107                rv = owl_zephyr_getsubs();
     108                RETVAL = rv;
     109    OUTPUT:
     110                RETVAL
     111    CLEANUP:
    100112                if (rv) owl_free(rv);
    101113

  • perlwrap.pm

    re2257be racb13bb  
    6767
    6868Strips zephyr formatting from a string and returns the result
     69
     70=head2 zephyr_getsubs
     71
     72Returns the list of subscription triples <class,instance,recipient>,
     73separated by newlines.
    6974
    7075=head2 queue_message MESSAGE
Note: See TracChangeset for help on using the changeset viewer.