Changeset 923c3f6

Timestamp:

Sep 30, 2011, 7:24:05 PM (13 years ago)

Author:

Alex Dehnert <adehnert@mit.edu>

Children:

ba4d1ad

Parents:

7803326

git-author:

Alex Dehnert <adehnert@mit.edu> (09/30/11 18:42:51)

git-committer:

Alex Dehnert <adehnert@mit.edu> (09/30/11 19:24:05)

Message:

Export zephyr_zcrypt function to Perl

The currently available infrastructure doesn't appear to allow sending
multi-line zcrypted zephyrs from Perl (or at least not reasonably).

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -98 +98 @@
                 i = owl_zwrite_create_and_send_from_line(cmd, msg);
 
+int
+zephyr_zcrypt(cmd,msg)
+        const char *cmd
+        const char *msg
+        PREINIT:
+                owl_zwrite z;
+                int rv;
+        CODE:
+                rv=owl_zwrite_create_from_line(&z, cmd);
+                if (rv) {
+                } else {
+                        owl_function_zcrypt(&z, msg);
+                }
+                RETVAL = rv;
+        OUTPUT:
+                RETVAL
+
 const utf8 *
 ztext_stylestrip(ztext)