OpenSolaris Launch

1 files changed, 414 insertions, 0 deletions

diff --git a/usr/src/lib/libldap4/common/getdn.c b/usr/src/lib/libldap4/common/getdn.c
new file mode 100644
index 0000000000..0c64236a6a
--- /dev/null
+++ b/usr/src/lib/libldap4/common/getdn.c
@@ -0,0 +1,414 @@
+/*
+ *
+ * Portions Copyright %G% Sun Microsystems, Inc. 
+ * All Rights Reserved
+ *
+ */
+
+#pragma ident	"%Z%%M%	%I%	%E% SMI"
+
+/*
+ *  Copyright (c) 1994 Regents of the University of Michigan.
+ *  All rights reserved.
+ *
+ *  getdn.c
+ */
+
+#ifndef lint 
+static char copyright[] = "@(#) Copyright (c) 1990 Regents of the University of Michigan.\nAll rights reserved.\n";
+#endif
+
+#include <stdio.h>
+#include <ctype.h>
+#include <string.h>
+#include <stdlib.h> /* malloc(), realloc(), calloc() for Solaris */
+#ifdef MACOS
+#include <stdlib.h>
+#include "macos.h"
+#else /* MACOS */
+#if defined( DOS ) || defined( _WIN32 )
+#include <malloc.h>
+#include "msdos.h"
+#else /* DOS */
+#include <sys/types.h>
+#include <sys/socket.h>
+#endif /* DOS */
+#endif /* MACOS */
+
+#include "lber.h"
+#include "ldap.h"
+#include "ldap-private.h"
+#include "ldap-int.h"
+
+char *
+ldap_get_dn( LDAP *ld, LDAPMessage *entry )
+{
+	char		*dn;
+	BerElement	tmp;
+
+	Debug( LDAP_DEBUG_TRACE, catgets(slapdcat, 1, 181, "ldap_get_dn\n"), 0, 0, 0 );
+
+	if ( entry == NULL ) {
+		ld->ld_errno = LDAP_PARAM_ERROR;
+		return( NULL );
+	}
+
+	tmp = *entry->lm_ber;	/* struct copy */
+	if ( ber_scanf( &tmp, "{a", &dn ) == LBER_ERROR ) {
+		ld->ld_errno = LDAP_DECODING_ERROR;
+		return( NULL );
+	}
+
+	return( dn );
+}
+
+char *
+ldap_dn2ufn( char *dn )
+{
+	char	*p, *ufn, *r;
+	int	state;
+
+	Debug( LDAP_DEBUG_TRACE, catgets(slapdcat, 1, 182, "ldap_dn2ufn\n"), 0, 0, 0 );
+
+	if ( ldap_is_dns_dn( dn ) || ( p = strchr( dn, '=' )) == NULL )
+		return( strdup( dn ));
+
+	ufn = strdup( ++p );
+
+#define INQUOTE		1
+#define OUTQUOTE	2
+	state = OUTQUOTE;
+	for ( p = ufn, r = ufn; *p; p++ ) {
+		switch ( *p ) {
+		case '\\':
+			if ( *++p == '\0' )
+				p--;
+			else {
+				*r++ = '\\';
+				*r++ = *p;
+			}
+			break;
+		case '"':
+			if ( state == INQUOTE )
+				state = OUTQUOTE;
+			else
+				state = INQUOTE;
+			*r++ = *p;
+			break;
+		case ';':
+		case ',':
+			if ( state == OUTQUOTE )
+				*r++ = ',';
+			else
+				*r++ = *p;
+			break;
+		case '=':
+			if ( state == INQUOTE )
+				*r++ = *p;
+			else {
+				char	*rsave = r;
+
+				*r-- = '\0';
+				while ( !isspace( *r ) && *r != ';'
+				    && *r != ',' && r > ufn )
+					r--;
+				r++;
+
+				if ( strcasecmp( r, "c" )
+				    && strcasecmp( r, "o" )
+				    && strcasecmp( r, "ou" )
+				    && strcasecmp( r, "st" )
+				    && strcasecmp( r, "l" )
+				    && strcasecmp( r, "cn" ) ) {
+					r = rsave;
+					*r++ = '=';
+				}
+			}
+			break;
+		default:
+			*r++ = *p;
+			break;
+		}
+	}
+	*r = '\0';
+
+	return( ufn );
+}
+
+char **
+ldap_explode_dns( char *dn )
+{
+	int	ncomps, maxcomps;
+	char	*s;
+	char	**rdns;
+
+	if ( (rdns = (char **) malloc( 8 * sizeof(char *) )) == NULL ) {
+		return( NULL );
+	}
+
+	maxcomps = 8;
+	ncomps = 0;
+	for ( s = strtok( dn, "@." ); s != NULL; s = strtok( NULL, "@." ) ) {
+		if ( ncomps == maxcomps ) {
+			maxcomps *= 2;
+			if ( (rdns = (char **) realloc( rdns, maxcomps *
+			    sizeof(char *) )) == NULL ) {
+				return( NULL );
+			}
+		}
+		rdns[ncomps++] = strdup( s );
+	}
+	rdns[ncomps] = NULL;
+
+	return( rdns );
+}
+
+char **
+ldap_explode_dn( char *dn, int notypes )
+{
+	char	*p, *q, *rdnstart, **rdns = NULL;
+	int	state, count = 0, endquote;
+	ssize_t  len;
+
+	Debug( LDAP_DEBUG_TRACE, catgets(slapdcat, 1, 183, "ldap_explode_dn\n"), 0, 0, 0 );
+
+	if ( ldap_is_dns_dn( dn ) ) {
+		return( ldap_explode_dns( dn ) );
+	}
+
+	rdnstart = dn;
+	p = dn-1;
+	state = OUTQUOTE;
+
+	do {
+
+		++p;
+		switch ( *p ) {
+		case '\\':
+			if ( *++p == '\0' )
+				p--;
+			break;
+		case '"':
+			if ( state == INQUOTE )
+				state = OUTQUOTE;
+			else
+				state = INQUOTE;
+			break;
+		case ';':
+		case ',':
+		case '\0':
+			if ( state == OUTQUOTE ) {
+				++count;
+				if ( rdns == NULL ) {
+					if (( rdns = (char **)malloc( 8
+						 * sizeof( char *))) == NULL )
+						return( NULL );
+				} else if ( count >= 8 ) {
+					if (( rdns = (char **)realloc( rdns,
+						(count+1) * sizeof( char *)))
+						== NULL )
+						return( NULL );
+				}
+				rdns[ count ] = NULL;
+				endquote = 0;
+				if ( notypes ) {
+					for ( q = rdnstart;
+					    q < p && *q != '='; ++q ) {
+						;
+					}
+					if ( q < p ) {
+						rdnstart = ++q;
+					}
+					if ( *rdnstart == '"' ) {
+						++rdnstart;
+					}
+					
+					if ( *(p-1) == '"' ) {
+						endquote = 1;
+						--p;
+					}
+				}
+
+				len = p - rdnstart;
+				if (( rdns[ count-1 ] = (char *)calloc( 1,
+				    len + 1 )) != NULL ) {
+				    	(void) SAFEMEMCPY( rdns[ count-1 ], rdnstart,
+					    len );
+					rdns[ count-1 ][ len ] = '\0';
+				}
+
+				/*
+				 *  Don't forget to increment 'p' back to where
+				 *  it should be.  If we don't, then we will
+				 *  never get past an "end quote."
+				 */
+				if ( endquote == 1 )
+					p++;
+
+				rdnstart = *p ? p + 1 : p;
+				while ( isspace( *rdnstart ))
+					++rdnstart;
+			}
+			break;
+		}
+	} while ( *p );
+
+	return( rdns );
+}
+
+
+int
+ldap_is_dns_dn( char *dn )
+{
+	return( dn[ 0 ] != '\0' && strchr( dn, '=' ) == NULL &&
+	    strchr( dn, ',' ) == NULL );
+}
+
+
+#if defined( ultrix ) || defined( NeXT )
+
+char *strdup( char *s )
+{
+	char	*p;
+
+	if ( (p = (char *) malloc( strlen( s ) + 1 )) == NULL )
+		return( NULL );
+
+	strcpy( p, s );
+
+	return( p );
+}
+
+#endif /* ultrix */
+
+
+/*
+ * Convert a DNS domain name into an X.500 distinguished name.
+ * For example, "sales.wiz.com" -> "dc=sales,dc=wiz,dc=com"
+ *
+ * If an error is encountered zero is returned, otherwise a string
+ * distinguished name and the number of nameparts is returned.
+ * The caller should free the returned string if it is non-zero.
+ */
+
+char *
+ldap_dns_to_dn(
+	char	*dns_name,
+	int	*nameparts
+)
+{
+	size_t	dns_len;
+	char	*dn = 0;
+	char	*cp;
+
+	/* check for NULL string, empty name and name ending in '.' */
+	if (dns_name && (dns_len = strlen(dns_name)) &&
+	    (dns_name[dns_len - 1] != '.')) {
+		if (dn = (char *)malloc(dns_len * 3 + 1)) {
+			*nameparts = 0;
+			cp = dn;
+			while (*dns_name) {
+				*cp++ = 'd';
+				*cp++ = 'c';
+				*cp++ = '=';
+
+				while (*dns_name && (*dns_name != '.')) {
+					*cp++ = *dns_name++;
+				}
+				if (*dns_name == '.') {
+					dns_name++;
+					*cp++ = ',';
+				}
+				(*nameparts)++;
+			}
+			*cp = '\0';
+		}
+	}
+	return (dn);
+}
+
+char **
+ldap_explode_rdn( char *rdn, int notypes )
+{
+	char	*p, *q, *rdnstart, **rdncomps = NULL;
+	int	state, count = 0, endquote;
+	size_t  len;
+
+	Debug( LDAP_DEBUG_TRACE, catgets(slapdcat, 1, 183, "ldap_explode_rdn\n"), 0, 0, 0 );
+
+	rdnstart = rdn;
+	p = rdn-1;
+	state = OUTQUOTE;
+
+	do {
+
+		++p;
+		switch ( *p ) {
+		case '\\':
+			if ( *++p == '\0' )
+				p--;
+			break;
+		case '"':
+			if ( state == INQUOTE )
+				state = OUTQUOTE;
+			else
+				state = INQUOTE;
+			break;
+		case '+':
+		case '\0':
+			if ( state == OUTQUOTE ) {
+				++count;
+				if ( rdncomps == NULL ) {
+					if (( rdncomps = (char **)malloc( 8 * sizeof( char *))) == NULL )
+						return( NULL );
+				} else if ( count >= 8 ) {
+					if (( rdncomps = (char **)realloc( rdncomps,
+						(count+1) * sizeof( char *)))
+						== NULL )
+						return( NULL );
+				}
+				rdncomps[ count ] = NULL;
+				endquote = 0;
+				if ( notypes ) {
+					for ( q = rdnstart;
+					    q < p && *q != '='; ++q ) {
+						;
+					}
+					if ( q < p ) {
+						rdnstart = ++q;
+					}
+					if ( *rdnstart == '"' ) {
+						++rdnstart;
+					}
+					
+					if ( *(p-1) == '"' ) {
+						endquote = 1;
+						--p;
+					}
+				}
+
+				len = p - rdnstart;
+				if (( rdncomps[ count-1 ] = (char *)calloc( 1, len + 1 )) != NULL ) {
+				    	SAFEMEMCPY( rdncomps[ count-1 ], rdnstart,
+					    len );
+					rdncomps[ count-1 ][ len ] = '\0';
+				}
+
+				/*
+				 *  Don't forget to increment 'p' back to where
+				 *  it should be.  If we don't, then we will
+				 *  never get past an "end quote."
+				 */
+				if ( endquote == 1 )
+					p++;
+
+				rdnstart = *p ? p + 1 : p;
+				while ( isspace( *rdnstart ))
+					++rdnstart;
+			}
+			break;
+		}
+	} while ( *p );
+
+	return( rdncomps );
+}