1 /* txn.c - LDAP Transactions */
3 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
5 * Copyright 1998-2006 The OpenLDAP Foundation.
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted only as authorized by the OpenLDAP
12 * A copy of this license is available in the file LICENSE in the
13 * top-level directory of the distribution or, alternatively, at
14 * <http://www.OpenLDAP.org/license.html>.
22 #include <ac/socket.h>
23 #include <ac/string.h>
24 #include <ac/unistd.h>
32 const struct berval slap_EXOP_TXN_START = BER_BVC(LDAP_EXOP_X_TXN_START);
33 const struct berval slap_EXOP_TXN_END = BER_BVC(LDAP_EXOP_X_TXN_END);
36 Operation *op, SlapReply *rs )
41 Statslog( LDAP_DEBUG_STATS, "%s TXN START\n",
42 op->o_log_prefix, 0, 0, 0, 0 );
44 if( op->ore_reqdata != NULL ) {
45 rs->sr_text = "no request data expected";
46 return LDAP_PROTOCOL_ERROR;
49 op->o_bd = op->o_conn->c_authz_backend;
50 if( backend_check_restrictions( op, rs,
51 (struct berval *)&slap_EXOP_TXN_START ) != LDAP_SUCCESS )
56 /* acquire connection lock */
57 ldap_pvt_thread_mutex_lock( &op->o_conn->c_mutex );
59 if( op->o_conn->c_txn ) {
60 rs->sr_text = "Too many transactions";
65 assert( op->o_conn->c_txn_backend == NULL );
68 bv = (struct berval *) ch_malloc( sizeof (struct berval) );
76 /* release connection lock */
77 ldap_pvt_thread_mutex_unlock( &op->o_conn->c_mutex );
82 Operation *op, SlapReply *rs, LDAPControl *ctrl )
84 if ( !ctrl->ldctl_iscritical ) {
85 rs->sr_text = "txnSpec control must be marked critical";
86 return LDAP_PROTOCOL_ERROR;
89 rs->sr_text = "txnSpec control provided multiple times";
90 return LDAP_PROTOCOL_ERROR;
93 if ( ctrl->ldctl_value.bv_val == NULL ) {
94 rs->sr_text = "no transaction identifier provided";
95 return LDAP_PROTOCOL_ERROR;
97 if ( ctrl->ldctl_value.bv_len != 0 ) {
98 rs->sr_text = "invalid transaction identifier";
99 return LDAP_X_TXN_ID_INVALID;
102 op->o_txnSpec = SLAP_CONTROL_CRITICAL;
107 Operation *op, SlapReply *rs )
110 BerElementBuffer berbuf;
111 BerElement *ber = (BerElement *)&berbuf;
117 Statslog( LDAP_DEBUG_STATS, "%s TXN END\n",
118 op->o_log_prefix, 0, 0, 0, 0 );
120 if( op->ore_reqdata == NULL ) {
121 rs->sr_text = "request data expected";
122 return LDAP_PROTOCOL_ERROR;
124 if( op->ore_reqdata->bv_len == 0 ) {
125 rs->sr_text = "empty request data";
126 return LDAP_PROTOCOL_ERROR;
129 op->o_bd = op->o_conn->c_authz_backend;
130 if( backend_check_restrictions( op, rs,
131 (struct berval *)&slap_EXOP_TXN_END ) != LDAP_SUCCESS )
136 ber_init2( ber, op->ore_reqdata, 0 );
138 tag = ber_scanf( ber, "{" /*}*/ );
139 if( tag == LBER_ERROR ) {
140 rs->sr_text = "request data decoding error";
141 return LDAP_PROTOCOL_ERROR;
144 tag = ber_peek_tag( ber, &len );
145 assert( tag == LBER_BOOLEAN );
146 if( tag == LBER_BOOLEAN ) {
147 tag = ber_scanf( ber, "b", &commit );
148 if( tag == LBER_ERROR ) {
149 rs->sr_text = "request data decoding error";
150 return LDAP_PROTOCOL_ERROR;
154 tag = ber_scanf( ber, /*{*/ "m}", &txnid );
155 if( tag == LBER_ERROR ) {
156 rs->sr_text = "request data decoding error";
157 return LDAP_PROTOCOL_ERROR;
161 rs->sr_text = "invalid transaction identifier";
162 return LDAP_X_TXN_ID_INVALID;
165 /* acquire connection lock */
166 ldap_pvt_thread_mutex_lock( &op->o_conn->c_mutex );
168 if( op->o_conn->c_txn == 0 ) {
169 rs->sr_text = "invalid transaction identifier";
170 rc = LDAP_X_TXN_ID_INVALID;
175 rs->sr_text = "not yet implemented";
176 rc = LDAP_UNWILLING_TO_PERFORM;
179 rs->sr_text = "transaction aborted";
183 op->o_conn->c_txn = 0;
184 op->o_conn->c_txn_backend = NULL;
187 /* release connection lock */
188 ldap_pvt_thread_mutex_unlock( &op->o_conn->c_mutex );
193 #endif /* LDAP_X_TXN */