Changeset 740d5f7 for perlglue.xs


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    rc4ba74d r740d5f7  
    113113        CLEANUP:
    114114                if (rv) owl_free(rv);
     115
     116char *
     117zephyr_smartstrip_user(in)
     118        char *in
     119        PREINIT:
     120                char *rv = NULL;
     121        CODE:
     122        {
     123                rv = owl_zephyr_smartstripped_user(in);
     124                RETVAL = rv;
     125        }
     126        OUTPUT:
     127                RETVAL
     128        CLEANUP:
     129                owl_free(rv);
    115130
    116131char *
Note: See TracChangeset for help on using the changeset viewer.