Changeset 740d5f7 for perlglue.xs

Timestamp:

Aug 25, 2008, 8:11:16 PM (16 years ago)

Author:

Nelson Elhage <nelhage@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:

f830d84

Parents:

147d880

Message:

Move Zephyr and AIM reply command logic into perl.

This has the side effect of fixing quoting, so you can now correctly
reply to instances like ["can't touch this"].

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -113 +113 @@
         CLEANUP:
                 if (rv) owl_free(rv);
+
+char *
+zephyr_smartstrip_user(in)
+        char *in
+        PREINIT:
+                char *rv = NULL;
+        CODE:
+        {
+                rv = owl_zephyr_smartstripped_user(in);
+                RETVAL = rv;
+        }
+        OUTPUT:
+                RETVAL
+        CLEANUP:
+                owl_free(rv);
 
 char *