Add controls.c: initial version of get_ctrls()

diff --git a/servers/slapd/controls.c b/servers/slapd/controls.c
new file mode 100644 (file)
index 0000000..74fadea
--- /dev/null
+++ b/servers/slapd/controls.c
@@ -0,0 +1,151 @@
+/* 
+ * Copyright 1999 The OpenLDAP Foundation.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms are permitted only
+ * as authorized by the OpenLDAP Public License.  A copy of this
+ * license is available at http://www.OpenLDAP.org/license.html or
+ * in file LICENSE in the top-level directory of the distribution.
+ */
+#include "portable.h"
+
+#include <stdio.h>
+#include <ac/socket.h>
+
+#include "slap.h"
+
+#include "../../libraries/liblber/lber-int.h"
+
+char *supportedControls[] = {
+       NULL
+};
+
+int get_ctrls(
+       Connection *conn,
+       Operation *op,
+       int sendres )
+{
+       int nctrls;
+       ber_tag_t tag;
+       ber_len_t len;
+       char *opaque;
+       BerElement *ber = op->o_ber;
+       LDAPControl ***ctrls = &op->o_ctrls;
+       int rc = LDAP_SUCCESS;
+
+       len = ber_pvt_ber_remaining(ber);
+
+       if( len == 0) {
+               /* no controls */
+               rc = LDAP_SUCCESS;
+               goto return_results;
+       }
+
+       if(( tag = ber_peek_tag( ber, &len )) != LDAP_TAG_CONTROLS ) {
+               if( tag == LBER_ERROR ) {
+                       rc = LDAP_PROTOCOL_ERROR;
+               }
+
+               goto return_results;
+       }
+
+       if( op->o_protocol < LDAP_VERSION3 ) {
+               rc = LDAP_PROTOCOL_ERROR;
+               goto return_results;
+       }
+
+       /* set through each element */
+       nctrls = 0;
+       *ctrls = ch_malloc( 1 * sizeof(LDAPControl *) );
+
+#if 0
+       if( *ctrls == NULL ) {
+               rc = LDAP_NO_MEMORY;
+               goto return_results;
+       }
+#endif
+
+       ctrls[nctrls] = NULL;
+
+       for( tag = ber_first_element( ber, &len, &opaque );
+               tag != LBER_ERROR;
+               tag = ber_next_element( ber, &len, opaque ) )
+       {
+               LDAPControl *tctrl;
+               LDAPControl **tctrls;
+
+               tctrl = ch_calloc( 1, sizeof(LDAPControl) );
+
+               /* allocate pointer space for current controls (nctrls)
+                * + this control + extra NULL
+                */
+               tctrls = (tctrl == NULL) ? NULL :
+                       ch_realloc(*ctrls, (nctrls+2) * sizeof(LDAPControl *));
+
+#if 0
+               if( tctrls == NULL ) {
+                       /* one of the above allocation failed */
+
+                       if( tctrl != NULL ) {
+                               ch_free( tctrl );
+                       }
+
+                       ldap_controls_free(*ctrls);
+                       *ctrls = NULL;
+
+                       rc = LDAP_NO_MEMORY;
+                       goto return_results;
+               }
+#endif
+
+
+               tctrls[nctrls++] = tctrl;
+               tctrls[nctrls] = NULL;
+
+               tag = ber_scanf( ber, "{a" /*}*/, &tctrl->ldctl_oid );
+
+               if( tag != LBER_ERROR ) {
+                       tag = ber_peek_tag( ber, &len );
+               }
+
+               if( tag == LBER_BOOLEAN ) {
+                       ber_int_t crit;
+                       tag = ber_scanf( ber, "b", &crit );
+                       tctrl->ldctl_iscritical = crit ? (char) 0 : (char) ~0;
+               }
+
+               if( tag != LBER_ERROR ) {
+                       tag = ber_peek_tag( ber, &len );
+               }
+
+               if( tag == LBER_OCTETSTRING ) {
+                       tag = ber_scanf( ber, "o", &tctrl->ldctl_value );
+
+               } else {
+                       tctrl->ldctl_value.bv_val = NULL;
+               }
+
+               if( tag == LBER_ERROR ) {
+                       *ctrls = NULL;
+                       ldap_controls_free( tctrls );
+                       rc = LDAP_DECODING_ERROR;
+                       goto return_results;
+               }
+
+               if( tctrl->ldctl_iscritical &&
+                       !charray_inlist( supportedControls, tctrl->ldctl_oid ) )
+               {
+                       rc = LDAP_UNAVAILABLE_CRITICIAL_EXTENSION;
+                       goto return_results;
+               }
+
+               *ctrls = tctrls;
+       }
+
+return_results:
+       if( sendres && rc != LDAP_SUCCESS ) {
+               send_ldap_result( conn, op, rc, NULL, NULL );
+       }
+
+       return rc;
+}