+/* $OpenLDAP$ */
/*
* Copyright 1999, John C. Quillan, All rights reserved.
*
Backend *be,
Connection *conn,
Operation *op,
- char *dn,
+ const char *dn,
+ const char *ndn,
LDAPModList *modlist
)
{
{
dSP; ENTER; SAVETMPS;
-
+
PUSHMARK(sp);
XPUSHs( perl_back->pb_obj_ref );
+ XPUSHs(sv_2mortal(newSVpv( dn , 0)));
for (; modlist != NULL; modlist = modlist->ml_next ) {
LDAPMod *mods = &modlist->ml_mod;
break;
}
-
+
XPUSHs(sv_2mortal(newSVpv( mods->mod_type, 0 )));
for ( i = 0;
ldap_pvt_thread_mutex_unlock( &perl_interpreter_mutex );
if( return_code != 0 ) {
- send_ldap_result( conn, op, LDAP_OPERATIONS_ERROR, "", "" );
+ send_ldap_result( conn, op, LDAP_OPERATIONS_ERROR,
+ NULL, NULL, NULL, NULL );
} else {
- send_ldap_result( conn, op, LDAP_SUCCESS, "", "" );
+ send_ldap_result( conn, op, LDAP_SUCCESS,
+ NULL, NULL, NULL, NULL );
}
Debug( LDAP_DEBUG_ANY, "Perl MODIFY\n", 0, 0, 0 );