/* config.c - relay backend configuration file routine */
/* This work is part of OpenLDAP Software <http://www.openldap.org/>.
 *
 * Copyright 2004-2007 The OpenLDAP Foundation.
 * Portions Copyright 2004 Pierangelo Masarati.
 * 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 the 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 Pierangelo Masaratifor inclusion
 * in OpenLDAP Software.
 */

#include "portable.h"

#include <stdio.h>

#include "slap.h"
#include "back-relay.h"

int
relay_back_db_config(
	BackendDB	*be,
	const char	*fname,
	int		lineno,
	int		argc,
	char		**argv
)
{
	relay_back_info *ri = (struct relay_back_info *)be->be_private;

	if ( ri == NULL ) {
		fprintf( stderr, "%s: line %d: relay backend info is null!\n",
		    fname, lineno );
		return 1;
	}

	/* real naming context */
	if ( strcasecmp( argv[0], "relay" ) == 0 ) {
		struct berval	dn, ndn, pdn;
		int		rc;
		BackendDB	*bd;

		if ( argc < 2 ) {
			fprintf( stderr,
	"%s: line %d: missing relay suffix in \"relay <dn> [massage]\" line\n",
			    fname, lineno );
			return 1;

		} else if ( argc > 3 ) {
			fprintf( stderr,
	"%s: line %d: too many args in \"relay <dn> [massage]\" line\n",
			    fname, lineno );
			return 1;
		}

		dn.bv_val = argv[ 1 ];
		dn.bv_len = strlen( argv[ 1 ] );
		rc = dnPrettyNormal( NULL, &dn, &pdn, &ndn, NULL );
		if ( rc != LDAP_SUCCESS ) {
			fprintf( stderr, "%s: line %d: "
					"relay dn \"%s\" is invalid "
					"in \"relay <dn> [massage]\" line\n",
					fname, lineno, argv[ 1 ] );
			return 1;
		}

		bd = select_backend( &ndn, 0, 1 );
		if ( bd == NULL ) {
			fprintf( stderr, "%s: line %d: "
					"cannot find database "
					"of relay dn \"%s\" "
					"in \"relay <dn> [massage]\" line\n",
					fname, lineno, argv[ 1 ] );
			return 1;

		} else if ( bd == be ) {
			fprintf( stderr, "%s: line %d: "
					"relay dn \"%s\" would call self "
					"in \"relay <dn> [massage]\" line\n",
					fname, lineno, pdn.bv_val );
			return 1;
		}

		ri->ri_realsuffix = ndn;

		if ( overlay_config( be, "rwm" ) ) {
			fprintf( stderr, "%s: line %d: unable to install "
					"rwm overlay "
					"in \"relay <dn> [massage]\" line\n",
					fname, lineno );
			return 1;
		}

		if ( argc == 3 ) {
			char	*cargv[ 4 ];

			if ( strcmp( argv[2], "massage" ) != 0 ) {
				fprintf( stderr, "%s: line %d: "
					"unknown directive \"%s\" "
					"in \"relay <dn> [massage]\" line\n",
					fname, lineno, argv[2] );
				return 1;
			}

			cargv[ 0 ] = "rwm-suffixmassage";
			cargv[ 1 ] = be->be_suffix[0].bv_val;
			cargv[ 2 ] = pdn.bv_val;
			cargv[ 3 ] = NULL;

			if ( be->be_config( be, fname, lineno, 3, cargv ) ) {
				return 1;
			}
		}

		ch_free( pdn.bv_val );

	/* anything else */
	} else {
		return SLAP_CONF_UNKNOWN;
	}

	return 0;
}