]> git.sur5r.net Git - openldap/blob - servers/slapd/back-perl/add.c
Merge remote branch 'origin/mdb.master' into OPENLDAP_REL_ENG_2_4
[openldap] / servers / slapd / back-perl / add.c
1 /* $OpenLDAP$ */
2 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
3  *
4  * Copyright 1999-2013 The OpenLDAP Foundation.
5  * Portions Copyright 1999 John C. Quillan.
6  * Portions Copyright 2002 myinternet Limited.
7  * All rights reserved.
8  *
9  * Redistribution and use in source and binary forms, with or without
10  * modification, are permitted only as authorized by the OpenLDAP
11  * Public License.
12  *
13  * A copy of this license is available in file LICENSE in the
14  * top-level directory of the distribution or, alternatively, at
15  * <http://www.OpenLDAP.org/license.html>.
16  */
17
18 #include "perl_back.h"
19
20 int
21 perl_back_add(
22         Operation       *op,
23         SlapReply       *rs )
24 {
25         PerlBackend *perl_back = (PerlBackend *) op->o_bd->be_private;
26         int len;
27         int count;
28
29         PERL_SET_CONTEXT( PERL_INTERPRETER );
30         ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex );
31         ldap_pvt_thread_mutex_lock( &entry2str_mutex );
32
33         {
34                 dSP; ENTER; SAVETMPS;
35
36                 PUSHMARK(sp);
37                 XPUSHs( perl_back->pb_obj_ref );
38                 XPUSHs(sv_2mortal(newSVpv( entry2str( op->ora_e, &len ), 0 )));
39
40                 PUTBACK;
41
42                 count = call_method("add", G_SCALAR);
43
44                 SPAGAIN;
45
46                 if (count != 1) {
47                         croak("Big trouble in back_add\n");
48                 }
49                                                          
50                 rs->sr_err = POPi;
51
52                 PUTBACK; FREETMPS; LEAVE;
53         }
54
55         ldap_pvt_thread_mutex_unlock( &entry2str_mutex );
56         ldap_pvt_thread_mutex_unlock( &perl_interpreter_mutex );        
57
58         send_ldap_result( op, rs );
59
60         Debug( LDAP_DEBUG_ANY, "Perl ADD\n", 0, 0, 0 );
61         return( 0 );
62 }