xref: /netbsd-src/external/bsd/openldap/dist/servers/slapd/back-ldap/add.c (revision 274254cdae52594c1aa480a736aef78313d15c9c)
1 /* add.c - ldap backend add function */
2 /* $OpenLDAP: pkg/ldap/servers/slapd/back-ldap/add.c,v 1.61.2.5 2008/02/11 23:26:46 kurt Exp $ */
3 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
4  *
5  * Copyright 1999-2008 The OpenLDAP Foundation.
6  * Portions Copyright 2000-2003 Pierangelo Masarati.
7  * Portions Copyright 1999-2003 Howard Chu.
8  * All rights reserved.
9  *
10  * Redistribution and use in source and binary forms, with or without
11  * modification, are permitted only as authorized by the OpenLDAP
12  * Public License.
13  *
14  * A copy of this license is available in the file LICENSE in the
15  * top-level directory of the distribution or, alternatively, at
16  * <http://www.OpenLDAP.org/license.html>.
17  */
18 /* ACKNOWLEDGEMENTS:
19  * This work was initially developed by the Howard Chu for inclusion
20  * in OpenLDAP Software and subsequently enhanced by Pierangelo
21  * Masarati.
22  */
23 
24 #include "portable.h"
25 
26 #include <stdio.h>
27 
28 #include <ac/string.h>
29 #include <ac/socket.h>
30 
31 #include "slap.h"
32 #include "back-ldap.h"
33 
34 int
35 ldap_back_add(
36 	Operation	*op,
37 	SlapReply	*rs )
38 {
39 	ldapinfo_t		*li = (ldapinfo_t *)op->o_bd->be_private;
40 
41 	ldapconn_t		*lc = NULL;
42 	int			i = 0,
43 				j = 0;
44 	Attribute		*a;
45 	LDAPMod			**attrs = NULL,
46 				*attrs2 = NULL;
47 	ber_int_t		msgid;
48 	int			isupdate;
49 	ldap_back_send_t	retrying = LDAP_BACK_RETRYING;
50 	LDAPControl		**ctrls = NULL;
51 
52 	rs->sr_err = LDAP_SUCCESS;
53 
54 	Debug( LDAP_DEBUG_ARGS, "==> ldap_back_add(\"%s\")\n",
55 			op->o_req_dn.bv_val, 0, 0 );
56 
57 	if ( !ldap_back_dobind( &lc, op, rs, LDAP_BACK_SENDERR ) ) {
58 		lc = NULL;
59 		goto cleanup;
60 	}
61 
62 	/* Count number of attributes in entry */
63 	for ( i = 1, a = op->oq_add.rs_e->e_attrs; a; i++, a = a->a_next )
64 		/* just count attrs */ ;
65 
66 	/* Create array of LDAPMods for ldap_add() */
67 	attrs = (LDAPMod **)ch_malloc( sizeof( LDAPMod * )*i
68 			+ sizeof( LDAPMod )*( i - 1 ) );
69 	attrs2 = ( LDAPMod * )&attrs[ i ];
70 
71 	isupdate = be_shadow_update( op );
72 	for ( i = 0, a = op->oq_add.rs_e->e_attrs; a; a = a->a_next ) {
73 		if ( !isupdate && !get_relax( op ) && a->a_desc->ad_type->sat_no_user_mod  )
74 		{
75 			continue;
76 		}
77 
78 		attrs[ i ] = &attrs2[ i ];
79 		attrs[ i ]->mod_op = LDAP_MOD_BVALUES;
80 		attrs[ i ]->mod_type = a->a_desc->ad_cname.bv_val;
81 
82 		for ( j = 0; a->a_vals[ j ].bv_val; j++ )
83 			/* just count vals */ ;
84 		attrs[i]->mod_vals.modv_bvals =
85 			ch_malloc( ( j + 1 )*sizeof( struct berval * ) );
86 		for ( j = 0; a->a_vals[ j ].bv_val; j++ ) {
87 			attrs[ i ]->mod_vals.modv_bvals[ j ] = &a->a_vals[ j ];
88 		}
89 		attrs[ i ]->mod_vals.modv_bvals[ j ] = NULL;
90 		i++;
91 	}
92 	attrs[ i ] = NULL;
93 
94 retry:
95 	ctrls = op->o_ctrls;
96 	rs->sr_err = ldap_back_controls_add( op, rs, lc, &ctrls );
97 	if ( rs->sr_err != LDAP_SUCCESS ) {
98 		send_ldap_result( op, rs );
99 		goto cleanup;
100 	}
101 
102 	rs->sr_err = ldap_add_ext( lc->lc_ld, op->o_req_dn.bv_val, attrs,
103 			ctrls, NULL, &msgid );
104 	rs->sr_err = ldap_back_op_result( lc, op, rs, msgid,
105 		li->li_timeout[ SLAP_OP_ADD ],
106 		( LDAP_BACK_SENDRESULT | retrying ) );
107 	if ( rs->sr_err == LDAP_UNAVAILABLE && retrying ) {
108 		retrying &= ~LDAP_BACK_RETRYING;
109 		if ( ldap_back_retry( &lc, op, rs, LDAP_BACK_SENDERR ) ) {
110 			/* if the identity changed, there might be need to re-authz */
111 			(void)ldap_back_controls_free( op, rs, &ctrls );
112 			goto retry;
113 		}
114 	}
115 
116 cleanup:
117 	(void)ldap_back_controls_free( op, rs, &ctrls );
118 
119 	if ( attrs ) {
120 		for ( --i; i >= 0; --i ) {
121 			ch_free( attrs[ i ]->mod_vals.modv_bvals );
122 		}
123 		ch_free( attrs );
124 	}
125 
126 	if ( lc ) {
127 		ldap_back_release_conn( li, lc );
128 	}
129 
130 	Debug( LDAP_DEBUG_ARGS, "<== ldap_back_add(\"%s\"): %d\n",
131 			op->o_req_dn.bv_val, rs->sr_err, 0 );
132 
133 	return rs->sr_err;
134 }
135 
136