Moving NSCP Directory Server from DirectoryBranch to TRUNK, initial drop. (foxworth)ldapserver7x

1 files changed, 380 insertions, 0 deletions

diff --git a/ldap/servers/slapd/str2filter.c b/ldap/servers/slapd/str2filter.c
new file mode 100644
index 00000000..c3cb2e31
--- /dev/null
+++ b/ldap/servers/slapd/str2filter.c
@@ -0,0 +1,380 @@
+/** BEGIN COPYRIGHT BLOCK
+ * Copyright 2001 Sun Microsystems, Inc.
+ * Portions copyright 1999, 2001-2003 Netscape Communications Corporation.
+ * All rights reserved.
+ * END COPYRIGHT BLOCK **/
+/* slapi_str2filter.c - parse an rfc 1588 string filter */
+
+#include <stdio.h>
+#include <string.h>
+#include <sys/types.h>
+#ifndef _WIN32
+#include <sys/socket.h>
+#endif
+#include "slap.h"
+
+static struct slapi_filter	*str2list();
+static int		str2subvals();
+
+struct slapi_filter *
+slapi_str2filter( char *str )
+{
+	struct slapi_filter	*f = NULL;
+	char		*end;
+
+	LDAPDebug( LDAP_DEBUG_FILTER, "slapi_str2filter \"%s\"\n", str, 0, 0 );
+
+	if ( str == NULL || *str == '\0' ) {
+		return( NULL );
+	}
+
+	switch ( *str ) {
+	case '(':
+		if ( (end = slapi_find_matching_paren( str )) == NULL ) {
+			slapi_filter_free( f, 1 );
+			return( NULL );
+		}
+		*end = '\0';
+
+		str++;
+		switch ( *str ) {
+		case '&':
+			LDAPDebug( LDAP_DEBUG_FILTER, "slapi_str2filter: AND\n",
+			    0, 0, 0 );
+
+			str++;
+			f = str2list( str, LDAP_FILTER_AND );
+			break;
+
+		case '|':
+			LDAPDebug( LDAP_DEBUG_FILTER, "put_filter: OR\n",
+			    0, 0, 0 );
+
+			str++;
+			f = str2list( str, LDAP_FILTER_OR );
+			break;
+
+		case '!':
+			LDAPDebug( LDAP_DEBUG_FILTER, "put_filter: NOT\n",
+			    0, 0, 0 );
+
+			str++;
+			f = str2list( str, LDAP_FILTER_NOT );
+			break;
+
+		default:
+			LDAPDebug( LDAP_DEBUG_FILTER, "slapi_str2filter: simple\n",
+			    0, 0, 0 );
+
+			f = str2simple( str , 1 /* unescape_filter */);
+			break;
+		}
+		*end = ')';
+		break;
+
+	default:	/* assume it's a simple type=value filter */
+		LDAPDebug( LDAP_DEBUG_FILTER, "slapi_str2filter: default\n", 0, 0,
+		    0 );
+
+		f = str2simple( str , 1 /* unescape_filter */);
+		break;
+	}
+
+	return( f );
+}
+
+/*
+ * Put a list of filters like this "(filter1)(filter2)..."
+ */
+
+static struct slapi_filter *
+str2list( char *str, unsigned long ftype )
+{
+	struct slapi_filter	*f;
+	struct slapi_filter	**fp;
+	char		*next;
+	char		save;
+
+	LDAPDebug( LDAP_DEBUG_FILTER, "str2list \"%s\"\n", str, 0, 0 );
+
+	f = (struct slapi_filter *) slapi_ch_calloc( 1, sizeof(struct slapi_filter) );
+	f->f_choice = ftype;
+	fp = &f->f_list;
+
+	while ( *str ) {
+		while ( *str && ldap_utf8isspace( str ) )
+			LDAP_UTF8INC( str );
+		if ( *str == '\0' )
+			break;
+
+		if ( (next = slapi_find_matching_paren( str )) == NULL ) {
+			slapi_filter_free( f, 1 );
+			return( NULL );
+		}
+		save = *++next;
+		*next = '\0';
+
+		/* now we have "(filter)" with str pointing to it */
+		if ( (*fp = slapi_str2filter( str )) == NULL ) {
+			slapi_filter_free( f, 1 );
+			*next = save;
+			return( NULL );
+		}
+		*next = save;
+
+		str = next;
+		f->f_flags |= ((*fp)->f_flags & SLAPI_FILTER_LDAPSUBENTRY);
+		f->f_flags |= ((*fp)->f_flags & SLAPI_FILTER_TOMBSTONE);
+		fp = &(*fp)->f_next;
+	}
+	*fp = NULL;
+	filter_compute_hash(f);
+
+	return( f );
+}
+
+static char*
+str_find_star (char* s)
+     /* Like strchr(s, '*'), except ignore "\*" */
+{
+    char* r;
+    if (s == NULL) return s;
+    r = strchr (s, '*');
+    if (r != s) while (r != NULL && r[-1] == '\\') {
+	r = strchr (r+1, '*');
+    }
+    return r;
+}
+
+
+/*
+ * unescape a string into another buffer -- note that an unescaped ldap
+ * string may contain nulls if 'binary' is set!  this is sort of a mix
+ * between the LDAP SDK version and terry hayes' version.  optimally it
+ * would be nice if the LDAP SDK exported something like this.
+ *
+ * if 'binary' is set, "\00" is allowed, otherwise it's not.
+ *
+ * returns: 0 on error, 1 on success 
+ *          (*outlen) is the actual length of the unescaped string
+ */
+static int
+filt_unescape_str(const char *instr, char *outstr, size_t outsize, size_t* outlen, int binary)
+{
+    const char *inp;
+    char *outp;
+    int ival;
+    *outlen = 0;
+
+    if (!outstr) return -1;
+    for (inp = instr, outp = outstr; *inp; inp++)
+    {
+        if (! outsize)
+            return 0; /* fail */
+        if (*inp == '\\')
+        {
+            if (! *(++inp))
+                return 0; /* fail */
+            if (((ival = hexchar2int(inp[0])) < 0) || (hexchar2int(inp[1]) < 0))
+            {
+                /* LDAPv2 (RFC1960) escape sequence */
+                *outp++ = *inp;
+                (*outlen)++, outsize--;
+            }
+            else
+            {
+                /* LDAPv3 hex escape sequence */
+                if (! *(++inp))
+                    return 0; /* fail */
+                *outp = (ival << 4) | hexchar2int(*inp);
+                if ((!binary) && (!*outp))
+                    return 0;	/* fail: "\00" not allowed unless it's binary */
+                outp++;
+                (*outlen)++, outsize--;
+            }
+        }
+        else
+        {
+            *outp++ = *inp;
+            (*outlen)++, outsize--;
+        }
+    }
+    return 1; /* ok */
+}
+
+    
+/*
+ *  The caller unescapes it if unescape_filter  == 0.
+ */
+struct slapi_filter *
+str2simple( char *str , int unescape_filter)
+{
+	struct slapi_filter	*f;
+	char		*s;
+	char		*value, savechar;
+
+	LDAPDebug( LDAP_DEBUG_FILTER, "str2simple \"%s\"\n", str, 0, 0 );
+
+	if ( (s = strchr( str, '=' )) == NULL ) {
+		return( NULL );
+	}
+	value = s;
+	LDAP_UTF8INC(value);
+	LDAP_UTF8DEC(s);
+
+	f = (struct slapi_filter *) slapi_ch_calloc( 1, sizeof(struct slapi_filter) );
+
+	switch ( *s ) {
+	case '<':
+		f->f_choice = LDAP_FILTER_LE;
+		break;
+	case '>':
+		f->f_choice = LDAP_FILTER_GE;
+		break;
+	case '~':
+		f->f_choice = LDAP_FILTER_APPROX;
+		break;
+	default:
+		LDAP_UTF8INC(s);
+		if ( str_find_star( value ) == NULL ) {
+			f->f_choice = LDAP_FILTER_EQUALITY;
+		} else if ( strcmp( value, "*" ) == 0 ) {
+			f->f_choice = LDAP_FILTER_PRESENT;
+		} else {
+			f->f_choice = LDAP_FILTER_SUBSTRINGS;
+			savechar = *s;
+			*s = 0;
+			f->f_sub_type = slapi_ch_strdup( str );
+			*s = savechar;
+			if ( str2subvals( value, f , unescape_filter) != 0 ) {
+				slapi_filter_free( f, 1 );
+				return( NULL );
+			}
+			filter_compute_hash(f);
+			return( f );
+		}
+		break;
+	}
+
+	if ( f->f_choice == LDAP_FILTER_PRESENT ) {
+		savechar = *s;
+		*s = 0;
+		f->f_type = slapi_ch_strdup( str );
+		*s = savechar;
+	} else if ( unescape_filter ) {
+        int r;
+		char *unqstr;
+		size_t len = strlen(value), len2;
+
+		/* dup attr */
+		savechar = *s;
+		*s = 0;
+		f->f_avtype = slapi_ch_strdup( str );
+		*s = savechar;
+
+		/* dup value */
+		savechar = value[len];
+		value[len] = 0;
+		unqstr = slapi_ch_calloc( 1, len+1);
+        	r= filt_unescape_str(value, unqstr, len, &len2, 1);
+		value[len] = savechar;
+		if (!r) {
+		    slapi_filter_free(f, 1);
+		    return NULL;
+		}
+		f->f_avvalue.bv_val = unqstr;
+		f->f_avvalue.bv_len = len2;
+
+		if((f->f_choice == LDAP_FILTER_EQUALITY) && 
+		   (0 == strncasecmp (str,"objectclass",strlen("objectclass")))) {
+			if (0 == strcasecmp (unqstr,"ldapsubentry"))
+				f->f_flags |= SLAPI_FILTER_LDAPSUBENTRY;
+			if (0 == strcasecmp (unqstr,SLAPI_ATTR_VALUE_TOMBSTONE))
+				f->f_flags |= SLAPI_FILTER_TOMBSTONE;
+		}
+	} if ( !unescape_filter ) {
+		f->f_avtype = slapi_ch_strdup( str );
+		f->f_avvalue.bv_val = slapi_ch_strdup ( value );
+		f->f_avvalue.bv_len = strlen ( f->f_avvalue.bv_val );
+	} 
+
+	filter_compute_hash(f);
+	return( f );
+}
+
+static int
+str2subvals( char *val, struct slapi_filter *f, int unescape_filter )
+{
+	char	*nextstar, *unqval;
+	int	gotstar;
+	size_t  len, outlen;
+
+	LDAPDebug( LDAP_DEBUG_FILTER, "str2subvals \"%s\"\n", val, 0, 0 );
+
+	gotstar = 0;
+	while ( val != NULL && *val ) {
+		if ( (nextstar = str_find_star( val )) != NULL )
+			*nextstar = '\0';
+
+		if ( unescape_filter ) {
+			len = strlen(val);
+			unqval = slapi_ch_malloc(len+1);
+			if (!filt_unescape_str(val, unqval, len, &outlen, 0)) {
+		    		slapi_ch_free((void **)&unqval);
+		    		return -1;
+			}
+        		unqval[outlen]= '\0';
+		} else {
+			unqval = slapi_ch_strdup ( val );		
+		}
+		if (unqval && unqval[0]) {
+		    if (gotstar == 0) {
+			f->f_sub_initial = unqval;
+		    } else if ( nextstar == NULL ) {
+			f->f_sub_final = unqval;
+		    } else {
+			charray_add( &f->f_sub_any, unqval );
+		    }
+		} else {
+		    slapi_ch_free((void **)&unqval);
+		}
+
+		gotstar = 1;
+		if ( nextstar != NULL )
+			*nextstar++ = '*';
+		val = nextstar;
+	}
+
+	return( 0 );
+}
+
+/*
+ * find_matching_paren - return a pointer to the right paren in s matching
+ * the left paren to which *s currently points
+ */
+
+char *
+slapi_find_matching_paren( const char *s )
+{
+	int	balance, escape;
+
+	balance = 0;
+	escape = 0;
+	for ( ; *s; s++ ) {
+		if ( escape == 0 ) {
+			if ( *s == '(' )
+				balance++;
+			else if ( *s == ')' )
+				balance--;
+		}
+		if ( balance == 0 ) {
+			return( (char *)s );
+		}
+		if ( *s == '\\' && ! escape )
+			escape = 1;
+		else
+			escape = 0;
+	}
+
+	return( NULL );
+}