ruby-ldap 0.9.19 → 0.9.20

data/test/openldap_tests/progs/ldif-filter.c

@@ -1,256 +0,0 @@
-/* ldif-filter -- clean up LDIF testdata from stdin */
-/* $OpenLDAP$ */
-/* This work is part of OpenLDAP Software <http://www.openldap.org/>.
- *
- * Copyright 2009-2016 The OpenLDAP Foundation.
- * All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted only as authorized by the OpenLDAP
- * Public License.
- *
- * A copy of this license is available in file LICENSE in the
- * top-level directory of the distribution or, alternatively, at
- * <http://www.OpenLDAP.org/license.html>.
- */
-
-#include "portable.h"
-
-#include <stdio.h>
-#include <ac/ctype.h>
-#include <ac/stdlib.h>
-#include <ac/string.h>
-#include <ac/unistd.h>
-#ifdef _WIN32
-#include <fcntl.h>
-#endif
-
-#define DEFAULT_SPECS "ndb=a,null=n"
-
-typedef struct { char   *val; size_t len, alloc; } String;
-typedef struct { String	*val; size_t len, alloc; } Strings;
-
-/* Flags and corresponding program options */
-enum { SORT_ATTRS = 1, SORT_ENTRIES = 2, NO_OUTPUT = 4, DUMMY_FLAG = 8 };
-static const char spec_options[] = "aen"; /* option index = log2(enum flag) */
-
-static const char *progname = "ldif-filter";
-static const String null_string = { NULL, 0, 0 };
-
-static void
-usage( void )
-{
-	fprintf( stderr, "\
-Usage: %s [-b backend] [-s spec[,spec]...]\n\
-Filter standard input by first <spec> matching '[<backend>]=[a][e][n]':\n\
-  - Remove LDIF comments.\n\
-  - 'a': Sort attributes in entries.\n\
-  - 'e': Sort any entries separated by just one empty line.\n\
-  - 'n': Output nothing.\n\
-<backend> defaults to the $BACKEND environment variable.\n\
-Use specs '%s' if no spec on the command line applies.\n",
-		progname, DEFAULT_SPECS );
-	exit( EXIT_FAILURE );
-}
-
-/* Return flags from "backend=flags" in spec; nonzero if backend found */
-static unsigned
-get_flags( const char *backend, const char *spec )
-{
-	size_t len = strlen( backend );
-	unsigned flags = DUMMY_FLAG;
-	const char *end, *tmp;
-
-	for ( ;; spec = end + ( *end != '\0' )) {
-		if ( !*spec )
-			return 0;
-		end = spec + strcspn( spec, "," );
-		if ( !(tmp = memchr( spec, '=', end-spec )))
-			break;
-		if ( tmp-spec == len && !memcmp( spec, backend, len )) {
-			spec = tmp+1;
-			break;
-		}
-	}
-
-	for ( ; spec < end; spec++ ) {
-		if ( (tmp = strchr( spec_options, *spec )) == NULL ) {
-			usage();
-		}
-		flags |= 1U << (tmp - spec_options);
-	}
-	return flags;
-}
-
-#define APPEND(s /* String or Strings */, data, count, isString) do { \
-	size_t slen = (s)->len, salloc = (s)->alloc, sz = sizeof *(s)->val; \
-	if ( salloc <= slen + (count) ) { \
-		(s)->alloc = salloc += salloc + ((count)|7) + 1; \
-		(s)->val   = xrealloc( (s)->val, sz * salloc ); \
-	} \
-	memcpy( (s)->val + slen, data, sz * ((count) + !!(isString)) ); \
-	(s)->len = slen + (count); \
-} while (0)
-
-static void *
-xrealloc( void *ptr, size_t len )
-{
-	if ( (ptr = realloc( ptr, len )) == NULL ) {
-		perror( progname );
-		exit( EXIT_FAILURE );
-	}
-	return ptr;
-}
-
-static int
-cmp( const void *s, const void *t )
-{
-	return strcmp( ((const String *) s)->val, ((const String *) t)->val );
-}
-
-static void
-sort_strings( Strings *ss, size_t offset )
-{
-	qsort( ss->val + offset, ss->len - offset, sizeof(*ss->val), cmp );
-}
-
-/* Build entry ss[n] from attrs ss[n...], and free the attrs */
-static void
-build_entry( Strings *ss, size_t n, unsigned flags, size_t new_len )
-{
-	String *vals = ss->val, *e = &vals[n];
-	size_t end = ss->len;
-	char *ptr;
-
-	if ( flags & SORT_ATTRS ) {
-		sort_strings( ss, n + 1 );
-	}
-	e->val = xrealloc( e->val, e->alloc = new_len + 1 );
-	ptr = e->val + e->len;
-	e->len = new_len;
-	ss->len = ++n;
-	for ( ; n < end; free( vals[n++].val )) {
-		ptr = strcpy( ptr, vals[n].val ) + vals[n].len;
-	}
-	assert( ptr == e->val + new_len );
-}
-
-/* Flush entries to stdout and free them */
-static void
-flush_entries( Strings *ss, const char *sep, unsigned flags )
-{
-	size_t i, end = ss->len;
-	const char *prefix = "";
-
-	if ( flags & SORT_ENTRIES ) {
-		sort_strings( ss, 0 );
-	}
-	for ( i = 0; i < end; i++, prefix = sep ) {
-		if ( printf( "%s%s", prefix, ss->val[i].val ) < 0 ) {
-			perror( progname );
-			exit( EXIT_FAILURE );
-		}
-		free( ss->val[i].val );
-	}
-	ss->len = 0;
-}
-
-static void
-filter_stdin( unsigned flags )
-{
-	char line[256];
-	Strings ss = { NULL, 0, 0 };	/* entries + attrs of partial entry */
-	size_t entries = 0, attrs_totlen = 0, line_len;
-	const char *entry_sep = "\n", *sep = "";
-	int comment = 0, eof = 0, eol, prev_eol = 1;	/* flags */
-	String *s;
-
-	/* LDIF = Entries ss[..entries-1] + sep + attrs ss[entries..] + line */
-	for ( ; !eof || ss.len || *sep; prev_eol = eol ) {
-		if ( eof || (eof = !fgets( line, sizeof(line), stdin ))) {
-			strcpy( line, prev_eol ? "" : *sep ? sep : "\n" );
-		}
-		line_len = strlen( line );
-		eol = (line_len == 0 || line[line_len - 1] == '\n');
-
-		if ( *line == ' ' ) {		/* continuation line? */
-			prev_eol = 0;
-		} else if ( prev_eol ) {	/* start of logical line? */
-			comment = (*line == '#');
-		}
-		if ( comment || (flags & NO_OUTPUT) ) {
-			continue;
-		}
-
-		/* Collect attrs for partial entry in ss[entries...] */
-		if ( !prev_eol && attrs_totlen != 0 ) {
-			goto grow_attr;
-		} else if ( line_len > (*line == '\r' ? 2 : 1) ) {
-			APPEND( &ss, &null_string, 1, 0 ); /* new attr */
-		grow_attr:
-			s = &ss.val[ss.len - 1];
-			APPEND( s, line, line_len, 1 ); /* strcat to attr */
-			attrs_totlen += line_len;
-			continue;
-		}
-
-		/* Empty line - consume sep+attrs or entries+sep */
-		if ( attrs_totlen != 0 ) {
-			entry_sep = sep;
-			if ( entries == 0 )
-				fputs( sep, stdout );
-			build_entry( &ss, entries++, flags, attrs_totlen );
-			attrs_totlen = 0;
-		} else {
-			flush_entries( &ss, entry_sep, flags );
-			fputs( sep, stdout );
-			entries = 0;
-		}
-		sep = "\r\n" + 2 - line_len;	/* sep = copy(line) */
-	}
-
-	free( ss.val );
-}
-
-int
-main( int argc, char **argv )
-{
-	const char *backend = getenv( "BACKEND" ), *specs = "", *tmp;
-	unsigned flags;
-	int i;
-
-	if ( argc > 0 ) {
-		progname = (tmp = strrchr( argv[0], '/' )) ? tmp+1 : argv[0];
-	}
-
-	while ( (i = getopt( argc, argv, "b:s:" )) != EOF ) {
-		switch ( i ) {
-		case 'b':
-			backend = optarg;
-			break;
-		case 's':
-			specs = optarg;
-			break;
-		default:
-			usage();
-		}
-	}
-	if ( optind < argc ) {
-		usage();
-	}
-	if ( backend == NULL ) {
-		backend = "";
-	}
-
-#ifdef _WIN32
-	_setmode(1, _O_BINARY);	/* don't convert \n to \r\n on stdout */
-#endif
-	flags = get_flags( backend, specs );
-	filter_stdin( flags ? flags : get_flags( backend, DEFAULT_SPECS ));
-	if ( fclose( stdout ) == EOF ) {
-		perror( progname );
-		return EXIT_FAILURE;
-	}
-
-	return EXIT_SUCCESS;
-}

data/test/openldap_tests/progs/slapd-addel.c

@@ -1,435 +0,0 @@
-/* $OpenLDAP$ */
-/* This work is part of OpenLDAP Software <http://www.openldap.org/>.
- *
- * Copyright 1999-2016 The OpenLDAP Foundation.
- * All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted only as authorized by the OpenLDAP
- * Public License.
- *
- * A copy of this license is available in file LICENSE in the
- * top-level directory of the distribution or, alternatively, at
- * <http://www.OpenLDAP.org/license.html>.
- */
-/* ACKNOWLEDGEMENTS:
- * This work was initially developed by Kurt Spanier for inclusion
- * in OpenLDAP Software.
- */
- 
-#include "portable.h"
-
-#include <stdio.h>
-
-#include "ac/stdlib.h"
-
-#include "ac/ctype.h"
-#include "ac/param.h"
-#include "ac/socket.h"
-#include "ac/string.h"
-#include "ac/unistd.h"
-#include "ac/wait.h"
-
-#include "ldap.h"
-#include "lutil.h"
-
-#include "slapd-common.h"
-
-#define LOOPS	100
-#define RETRIES	0
-
-static char *
-get_add_entry( char *filename, LDAPMod ***mods );
-
-static void
-do_addel( char *uri, char *manager, struct berval *passwd,
-	char *dn, LDAPMod **attrs, int maxloop, int maxretries, int delay,
-	int friendly, int chaserefs );
-
-static void
-usage( char *name )
-{
-        fprintf( stderr,
-		"usage: %s "
-		"-H <uri> | ([-h <host>] -p <port>) "
-		"-D <manager> "
-		"-w <passwd> "
-		"-f <addfile> "
-		"[-i <ignore>] "
-		"[-l <loops>] "
-		"[-L <outerloops>] "
-		"[-r <maxretries>] "
-		"[-t <delay>] "
-		"[-F] "
-		"[-C]\n",
-			name );
-	exit( EXIT_FAILURE );
-}
-
-int
-main( int argc, char **argv )
-{
-	int		i;
-	char		*host = "localhost";
-	char		*uri = NULL;
-	int		port = -1;
-	char		*manager = NULL;
-	struct berval	passwd = { 0, NULL };
-	char		*filename = NULL;
-	char		*entry = NULL;
-	int		loops = LOOPS;
-	int		outerloops = 1;
-	int		retries = RETRIES;
-	int		delay = 0;
-	int		friendly = 0;
-	int		chaserefs = 0;
-	LDAPMod		**attrs = NULL;
-
-	tester_init( "slapd-addel", TESTER_ADDEL );
-
-	while ( ( i = getopt( argc, argv, "CD:Ff:H:h:i:L:l:p:r:t:w:" ) ) != EOF )
-	{
-		switch ( i ) {
-		case 'C':
-			chaserefs++;
-			break;
-
-		case 'F':
-			friendly++;
-			break;
-			
-		case 'H':		/* the server's URI */
-			uri = strdup( optarg );
-			break;
-
-		case 'h':		/* the servers host */
-			host = strdup( optarg );
-			break;
-
-		case 'i':
-			/* ignored (!) by now */
-			break;
-
-		case 'p':		/* the servers port */
-			if ( lutil_atoi( &port, optarg ) != 0 ) {
-				usage( argv[0] );
-			}
-			break;
-
-		case 'D':		/* the servers manager */
-			manager = strdup( optarg );
-			break;
-
-		case 'w':		/* the server managers password */
-			passwd.bv_val = strdup( optarg );
-			passwd.bv_len = strlen( optarg );
-			memset( optarg, '*', passwd.bv_len );
-			break;
-
-		case 'f':		/* file with entry search request */
-			filename = strdup( optarg );
-			break;
-
-		case 'l':		/* the number of loops */
-			if ( lutil_atoi( &loops, optarg ) != 0 ) {
-				usage( argv[0] );
-			}
-			break;
-
-		case 'L':		/* the number of outerloops */
-			if ( lutil_atoi( &outerloops, optarg ) != 0 ) {
-				usage( argv[0] );
-			}
-			break;
-
-		case 'r':		/* number of retries */
-			if ( lutil_atoi( &retries, optarg ) != 0 ) {
-				usage( argv[0] );
-			}
-			break;
-
-		case 't':		/* delay in seconds */
-			if ( lutil_atoi( &delay, optarg ) != 0 ) {
-				usage( argv[0] );
-			}
-			break;
-
-		default:
-			usage( argv[0] );
-			break;
-		}
-	}
-
-	if (( filename == NULL ) || ( port == -1 && uri == NULL ) ||
-				( manager == NULL ) || ( passwd.bv_val == NULL ))
-		usage( argv[0] );
-
-	entry = get_add_entry( filename, &attrs );
-	if (( entry == NULL ) || ( *entry == '\0' )) {
-
-		fprintf( stderr, "%s: invalid entry DN in file \"%s\".\n",
-				argv[0], filename );
-		exit( EXIT_FAILURE );
-
-	}
-
-	if (( attrs == NULL ) || ( *attrs == '\0' )) {
-
-		fprintf( stderr, "%s: invalid attrs in file \"%s\".\n",
-				argv[0], filename );
-		exit( EXIT_FAILURE );
-
-	}
-
-	uri = tester_uri( uri, host, port );
-
-	for ( i = 0; i < outerloops; i++ ) {
-		do_addel( uri, manager, &passwd, entry, attrs,
-				loops, retries, delay, friendly, chaserefs );
-	}
-
-	exit( EXIT_SUCCESS );
-}
-
-
-static void
-addmodifyop( LDAPMod ***pmodsp, int modop, char *attr, char *value, int vlen )
-{
-    LDAPMod		**pmods;
-    int			i, j;
-    struct berval	*bvp;
-
-    pmods = *pmodsp;
-    modop |= LDAP_MOD_BVALUES;
-
-    i = 0;
-    if ( pmods != NULL ) {
-		for ( ; pmods[ i ] != NULL; ++i ) {
-	    	if ( strcasecmp( pmods[ i ]->mod_type, attr ) == 0 &&
-		    	pmods[ i ]->mod_op == modop ) {
-				break;
-	    	}
-		}
-    }
-
-    if ( pmods == NULL || pmods[ i ] == NULL ) {
-		if (( pmods = (LDAPMod **)realloc( pmods, (i + 2) *
-			sizeof( LDAPMod * ))) == NULL ) {
-	    		tester_perror( "realloc", NULL );
-	    		exit( EXIT_FAILURE );
-		}
-		*pmodsp = pmods;
-		pmods[ i + 1 ] = NULL;
-		if (( pmods[ i ] = (LDAPMod *)calloc( 1, sizeof( LDAPMod )))
-			== NULL ) {
-	    		tester_perror( "calloc", NULL );
-	    		exit( EXIT_FAILURE );
-		}
-		pmods[ i ]->mod_op = modop;
-		if (( pmods[ i ]->mod_type = strdup( attr )) == NULL ) {
-	    	tester_perror( "strdup", NULL );
-	    	exit( EXIT_FAILURE );
-		}
-    }
-
-    if ( value != NULL ) {
-		j = 0;
-		if ( pmods[ i ]->mod_bvalues != NULL ) {
-	    	for ( ; pmods[ i ]->mod_bvalues[ j ] != NULL; ++j ) {
-				;
-	    	}
-		}
-		if (( pmods[ i ]->mod_bvalues =
-			(struct berval **)ber_memrealloc( pmods[ i ]->mod_bvalues,
-			(j + 2) * sizeof( struct berval * ))) == NULL ) {
-	    		tester_perror( "ber_memrealloc", NULL );
-	    		exit( EXIT_FAILURE );
-		}
-		pmods[ i ]->mod_bvalues[ j + 1 ] = NULL;
-		if (( bvp = (struct berval *)ber_memalloc( sizeof( struct berval )))
-			== NULL ) {
-	    		tester_perror( "ber_memalloc", NULL );
-	    		exit( EXIT_FAILURE );
-		}
-		pmods[ i ]->mod_bvalues[ j ] = bvp;
-
-	    bvp->bv_len = vlen;
-	    if (( bvp->bv_val = (char *)malloc( vlen + 1 )) == NULL ) {
-			tester_perror( "malloc", NULL );
-			exit( EXIT_FAILURE );
-	    }
-	    AC_MEMCPY( bvp->bv_val, value, vlen );
-	    bvp->bv_val[ vlen ] = '\0';
-    }
-}
-
-
-static char *
-get_add_entry( char *filename, LDAPMod ***mods )
-{
-	FILE    *fp;
-	char    *entry = NULL;
-
-	if ( (fp = fopen( filename, "r" )) != NULL ) {
-		char  line[BUFSIZ];
-
-		if ( fgets( line, BUFSIZ, fp )) {
-			char *nl;
-
-			if (( nl = strchr( line, '\r' )) || ( nl = strchr( line, '\n' )))
-				*nl = '\0';
-			nl = line;
-			if ( !strncasecmp( nl, "dn: ", 4 ))
-				nl += 4;
-			entry = strdup( nl );
-
-		}
-
-		while ( fgets( line, BUFSIZ, fp )) {
-			char	*nl;
-			char	*value;
-
-			if (( nl = strchr( line, '\r' )) || ( nl = strchr( line, '\n' )))
-				*nl = '\0';
-
-			if ( *line == '\0' ) break;
-			if ( !( value = strchr( line, ':' ))) break;
-
-			*value++ = '\0'; 
-			while ( *value && isspace( (unsigned char) *value ))
-				value++;
-
-			addmodifyop( mods, LDAP_MOD_ADD, line, value, strlen( value ));
-
-		}
-		fclose( fp );
-	}
-
-	return( entry );
-}
-
-
-static void
-do_addel(
-	char *uri,
-	char *manager,
-	struct berval *passwd,
-	char *entry,
-	LDAPMod **attrs,
-	int maxloop,
-	int maxretries,
-	int delay,
-	int friendly,
-	int chaserefs )
-{
-	LDAP	*ld = NULL;
-	int  	i = 0, do_retry = maxretries;
-	int	rc = LDAP_SUCCESS;
-	int	version = LDAP_VERSION3;
-
-retry:;
-	ldap_initialize( &ld, uri );
-	if ( ld == NULL ) {
-		tester_perror( "ldap_initialize", NULL );
-		exit( EXIT_FAILURE );
-	}
-
-	(void) ldap_set_option( ld, LDAP_OPT_PROTOCOL_VERSION, &version );
-	(void) ldap_set_option( ld, LDAP_OPT_REFERRALS,
-		chaserefs ? LDAP_OPT_ON : LDAP_OPT_OFF );
-
-	if ( do_retry == maxretries ) {
-		fprintf( stderr, "PID=%ld - Add/Delete(%d): entry=\"%s\".\n",
-			(long) pid, maxloop, entry );
-	}
-
-	rc = ldap_sasl_bind_s( ld, manager, LDAP_SASL_SIMPLE, passwd, NULL, NULL, NULL );
-	if ( rc != LDAP_SUCCESS ) {
-		tester_ldap_error( ld, "ldap_sasl_bind_s", NULL );
-		switch ( rc ) {
-		case LDAP_BUSY:
-		case LDAP_UNAVAILABLE:
-			if ( do_retry > 0 ) {
-				do_retry--;
-				if ( delay != 0 ) {
-				    sleep( delay );
-				}
-				goto retry;
-			}
-		/* fallthru */
-		default:
-			break;
-		}
-		exit( EXIT_FAILURE );
-	}
-
-	for ( ; i < maxloop; i++ ) {
-
-		/* add the entry */
-		rc = ldap_add_ext_s( ld, entry, attrs, NULL, NULL );
-		if ( rc != LDAP_SUCCESS ) {
-			tester_ldap_error( ld, "ldap_add_ext_s", NULL );
-			switch ( rc ) {
-			case LDAP_ALREADY_EXISTS:
-				/* NOTE: this likely means
-				 * the delete failed
-				 * during the previous round... */
-				if ( !friendly ) {
-					goto done;
-				}
-				break;
-
-			case LDAP_BUSY:
-			case LDAP_UNAVAILABLE:
-				if ( do_retry > 0 ) {
-					do_retry--;
-					goto retry;
-				}
-				/* fall thru */
-
-			default:
-				goto done;
-			}
-		}
-
-#if 0
-		/* wait a second for the add to really complete */
-		/* This masks some race conditions though. */
-		sleep( 1 );
-#endif
-
-		/* now delete the entry again */
-		rc = ldap_delete_ext_s( ld, entry, NULL, NULL );
-		if ( rc != LDAP_SUCCESS ) {
-			tester_ldap_error( ld, "ldap_delete_ext_s", NULL );
-			switch ( rc ) {
-			case LDAP_NO_SUCH_OBJECT:
-				/* NOTE: this likely means
-				 * the add failed
-				 * during the previous round... */
-				if ( !friendly ) {
-					goto done;
-				}
-				break;
-
-			case LDAP_BUSY:
-			case LDAP_UNAVAILABLE:
-				if ( do_retry > 0 ) {
-					do_retry--;
-					goto retry;
-				}
-				/* fall thru */
-
-			default:
-				goto done;
-			}
-		}
-	}
-
-done:;
-	fprintf( stderr, "  PID=%ld - Add/Delete done (%d).\n", (long) pid, rc );
-
-	ldap_unbind_ext( ld, NULL, NULL );
-}
-
-