add_alias.c

来自「ftam等标准协议服务器和客户端的源代码。」· C语言 代码 · 共 486 行

/* add_alias.c -  a mutilated add.c*/

#ifndef	lint
static char *rcsid = "$Header: /xtel/isode/isode/others/quipu/uips/manage/RCS/add_alias.c,v 9.0 1992/06/16 12:44:45 isode Rel $";
#endif

/* 
 * $Header: /xtel/isode/isode/others/quipu/uips/manage/RCS/add_alias.c,v 9.0 1992/06/16 12:44:45 isode Rel $
 *
 *
 * $Log: add_alias.c,v $
 * Revision 9.0  1992/06/16  12:44:45  isode
 * Release 8.0
 *
 */

/*
 *				  NOTICE
 *
 *    Acquisition, use, and distribution of this module and related
 *    materials are subject to the restrictions of a license agreement.
 *    Consult the Preface in the User's Manual for the full terms of
 *    this agreement.
 *
 */


#include "quipu/util.h"
#include "quipu/dua.h"
#include "quipu/add.h"
#include "quipu/entry.h"
#include "quipu/compare.h"
#include "quipu/modify.h"

#define ORG_PERSON "newPilotPerson & quipuObject"
	/* this should probably go elsewhere !!! */

extern	DN	dn;
#define OPT     (!frompipe || rps -> ps_byteno == 0 ? opt : rps)
#define RPS     (!frompipe || opt -> ps_byteno == 0 ? rps : opt)
extern	char	frompipe;
extern	PS	opt;
extern	PS	rps;
extern	Entry	current_entry;
static	char	new_draft;

call_add_alias (argc, argv)
int             argc;
char          **argv;
{
	DN		oj_dn, aoj_dn ;
	DN		save_dn, dnptr, trail ;
	DN		moddn;
extern	DN		str2dn_aux() ;
extern	DN		sequence_dn() ;
	Entry		entry_ptr;
	FILE           *fd;
	PS		tmp ;
	PS		str_ps;
	char		str_buffer[1000];
	char		fname[128];
	char		alias = FALSE ;

	struct		ds_addentry_arg		add_arg;
	struct		DSError			error;
	struct		DSError			compare_error;
	struct		ds_compare_result	compare_result;
	struct		ds_compare_arg		compare_arg;
	struct		ds_modifyentry_arg	mod_arg;
	struct		DSError			mod_error;
	struct		entrymod	       *emnew ;

	AV_Sequence	objClassAVS ;
	AV_Sequence	treeStrAVS = NULLAV;
	Attr_Sequence   get_attributes();

	extern int	parse_status;

	int		draft_flag = 0;
	char	       *home;
	char		objectname[80] ;
	char		aliasobjectname[160] ;
	char	       *contact_compare[6] ;
	char	       *contact_showentry[6] ;
	char	       *contact_modify[1] ;

	contact_compare[0] = "compare" ;
	contact_compare[1] = "";
	contact_compare[2] = "-attribute";
	contact_compare[4] = "-noprint";
	contact_compare[5] = "-dontdereferencealias" ;
	contact_showentry[0] = "showentry";
	contact_showentry[1] = "-noshow" ;
	contact_showentry[2] = "-all" ;
	contact_showentry[3] = "-nokey" ;
	contact_showentry[4] = "-dontdereferencealias";
	contact_modify[0] = "modify" ;

	emnew = em_alloc() ;
	if (argc < 3)
	{
		ps_printf(OPT, "Not enough arguments.\n") ;
		Usage (argv[0]) ;
		return ;
	}
	contact_showentry[5] = (char *) malloc ((unsigned)strlen(argv[2])+1) ;
	(void)strcpy(contact_showentry[5], argv[2]) ;

	contact_compare[3] = (char *) malloc ((unsigned)strlen("objectClass=alias.")) ;
	(void)strcpy(contact_compare[3], "objectClass=alias") ;

	if (service_control (OPT, 6, contact_compare, &compare_arg.cma_common) == -1)
	{
		ps_print(OPT, "Problems with compare service control flags.\n") ;
		return ;
	}

	if (home = getenv ("HOME"))
	    (void) sprintf (fname, "%s/.dishdraft", home);
	else
	    (void) strcpy (fname, "./.dishdraft");
	new_draft = FALSE;

	if ((argc = service_control (OPT, argc, argv, &add_arg.ada_common)) == -1)
		return ;

	(void)strcpy(objectname, argv[1]) ;
	(void)strcpy(aliasobjectname, argv[2]) ;

	/* Turn a sequence number back into a DN */
	if (*aliasobjectname >= '0' && *aliasobjectname <= '9')
	{
		/* First convert the number into a dn */
		aoj_dn = dn_cpy(sequence_dn(atoi(aliasobjectname))) ;
	}
	else
	{
		if (*aliasobjectname == '.')
		{
			ps_print(OPT, "..@ gives me a headache. Ambiguous. Abort... \n") ;
			return ;
		}

		if (*aliasobjectname == '@')
		{	
			aoj_dn = dn_cpy(str2dn(aliasobjectname + 1)) ;
		}
		else
		{
			/*aoj_dn = dn_cpy(dn) ;
			 *dn_append(aoj_dn, dn_cpy(str2dn(aliasobjectname))) ;
			 */
			save_dn = str2dn_aux(aliasobjectname,&alias) ;
			if (save_dn != NULLDN)
			{
				if (alias)
				{
					aoj_dn = dn_cpy(save_dn);
				} 
				else
				{
					if (dn == NULLDN)
					{
						aoj_dn = dn_cpy(save_dn) ;
					}
					else
					{
						aoj_dn = dn_cpy(dn) ;
						dn_append (aoj_dn,dn_cpy(save_dn));
					}
				}
			}
			dn_free(save_dn) ;
		}
 	}

	if (*objectname >= '0' && *objectname <= '9')
	{
		/* First convert the number into a dn */
		oj_dn = dn_cpy(sequence_dn(atoi(objectname))) ;
	}
	else
	{
		if (*objectname == '.')
		{
			ps_print(OPT, "..@ gives me a headache. Ambiguous. Abort... \n") ;
			return ;
		}

		if (*objectname == '@')
		{	
			oj_dn = dn_cpy(str2dn(objectname + 1)) ;
		}
		else
		{
			oj_dn = dn_cpy(dn) ;
			dn_append(oj_dn, dn_cpy(str2dn(objectname))) ;
		}
 	}

	save_dn = dn_cpy(dn) ;
	dn_free(dn) ;
	dn = dn_cpy(aoj_dn) ;
	ps_print(OPT, "Trying to move to ") ;
	dn_print(OPT, dn, EDBOUT) ;
	ps_print(OPT, ".\n") ;
	if (test_move_dn() != TRUE)
	{
		ps_print(OPT, "Can't move to ") ;
		dn_print(OPT, dn, EDBOUT) ;
		ps_print(OPT, ".\nAborting.\n") ;
		return ;
	}
	compare_arg.cma_object = aoj_dn;
	if (get_ava (&compare_arg.cma_purported, "objectClass", "alias") != OK)
	{
		ps_print(OPT, "Oops, 'objectClass=alias' is a bad attribute!\n") ;
		ps_print(OPT, "This is very bad...\n") ;
		return ;
	}

	if (rebind () != OK)
		return ;

	while (ds_compare (&compare_arg, &compare_error, &compare_result) != DS_OK) 
	{
		if (dish_error (OPT, &compare_error) == 0)
		{
			return ;
		}
		compare_arg.cma_object = compare_error.ERR_REFERRAL.DSE_ref_candidates->cr_name;
	}

	if ( compare_result.cmr_matched == 1 )	/* if <AOJ> is an alias, abort. */
	{
		ps_printf(OPT, "Sorry, %s is an alias.\nAliasing to aliases is illegal.\n", aliasobjectname) ;
		return ;
	}

	/* Now we want to discover the objectClass of our object, and make
	 * sure that this will be OK when we add in the alias. (ie fitting
	 * in with the treeStructure.) 
	 */

	/* stick the aliasobjectname into the cache so we can read 
	 * bits of information from it.
	 */

	call_showentry(6, contact_showentry) ;
	contact_showentry[5] = (char *) malloc ((unsigned)strlen(argv[2])+1) ;
	(void)strcpy(contact_showentry[5], argv[2]) ;

	if (current_entry == NULLENTRY)
	{
		ps_print(OPT, "Can't read ") ;
		dn_print(OPT, dn, EDBOUT) ;
		ps_print(OPT, " for objectClass attribute. Aborting.\n") ;
		return ;
	}
	else
	{
		/* Find the objectClass attribute to compare with the tree
		 * structure of the node we are going to dangle the alias
		 * from. 
		 * While we are at it, find out how many seeAlso attributes
		 * are present, so we can decide whether we need to add
		 * the entire attribute or just another value.
		 */

		Attr_Sequence eptr ;
		AttributeType a_t = AttrT_new("objectClass") ;
		AttributeType a_t2 = AttrT_new("seeAlso") ;

		emnew->em_type = EM_ADDATTRIBUTE ;
		for (eptr = current_entry->e_attributes; eptr != NULLATTR; eptr = eptr->attr_link) 
		{
			if ( AttrT_cmp (eptr->attr_type, a_t) == 0 )
			{
				objClassAVS = avs_cpy(eptr->attr_value);
			}
			if ( AttrT_cmp (eptr->attr_type, a_t2) == 0 )
			{
				emnew->em_type = EM_ADDVALUES ;
			}
		}
	}
	if (objClassAVS == NULLAV)
	{
		ps_print(OPT, "We can't find Object Class.... Aborting.\n") ;
		return ;
	}
	/* We should have got the ObjectClass now, so return to where we were
	 * and move up a level to grab the tree structure */

	dn_free(dn) ;
	dn = dn_cpy(oj_dn) ;

	for (dnptr = dn; dnptr->dn_parent != NULLDN; dnptr = dnptr->dn_parent)
		trail = dnptr;
	dn_comp_free (dnptr);
	trail->dn_parent = NULLDN;

	contact_showentry[1] = ( char *) malloc ((unsigned)strlen("-noshow") + 1) ;
	(void)strcpy(contact_showentry[1], "-noshow") ;
	contact_showentry[2] = ( char *) malloc ((unsigned)strlen("-all") + 1) ;
	(void)strcpy(contact_showentry[2], "-all") ;
	contact_showentry[3] = ( char *) malloc ((unsigned)strlen("-nokey") + 1) ;
	(void)strcpy(contact_showentry[3], "-nokey") ;
	contact_showentry[4] = ( char *) malloc ((unsigned)strlen("-dontdereferencealias") + 1) ;
	(void)strcpy(contact_showentry[4], "-dontdereferencealias") ;

	call_showentry(5, contact_showentry) ;

	if (current_entry == NULLENTRY)
	{
		ps_print(OPT, "Can't read ") ;
		dn_print(OPT, dn, EDBOUT) ;
		ps_print(OPT, " for the treeStructure. Aborting.\n") ;
		return ;
	}
	else
	{
		Attr_Sequence eptr ;
		AttributeType a_t = AttrT_new("treeStructure") ;

		for (eptr = current_entry->e_attributes; eptr != NULLATTR; eptr = eptr->attr_link)
		{
			if ( AttrT_cmp (eptr->attr_type, a_t) == 0 )
			{
				treeStrAVS = avs_cpy (eptr->attr_value) ;
			}
		}
	}

	if (treeStrAVS == NULLAV)
	{
		ps_print(OPT, "Tree Structure Missing in ") ;
		dn_print(OPT, dn, EDBOUT) ;
		ps_print(OPT, ".\nAssuming that the add will be valid.\n") ;
	}
	else
	{
		if (test_schema(treeStrAVS, objClassAVS) != OK)
		{
			ps_print(OPT, "Not allowed to add this alias here.\n") ;
			ps_print(OPT, "It would break the directory schema to add this alias here.\n") ;
			return ;
		}
	}

	/* This is where we have to start being rather careful, previously
	 * we have just being reading and checking, but now we start to add
	 * things in, changing in several places. Mistakes => inconsistencies
	 * ie BAD...
	 */

	/* If we reach here, we should have the appropriate arguments,
	 * one is the new object,
	 * the other is an existing non-alias-entry object.
	 * We now write the information to a draft file, and 'whongo'
	 * the alias into the database.
	 */

	/* open the draft file for writing... */

	if ((fd = fopen (fname, "w")) == (FILE *) NULL) 
	{
		ps_printf (OPT, "Can't open draft entry %s\n", fname);
		return ;
	}
	
	(void)fprintf(fd, "aliasedObjectName= ") ;
	if ( ((tmp = ps_alloc (std_open)) != NULLPS) &&
	     (std_setup (tmp, fd) != NOTOK) )
	{
		dn_print(tmp, aoj_dn, EDBOUT) ;
	}
	else
	{
		ps_print(OPT, "Unable to open appropriate ps. Aborting..\n") ;
		return ;
	}
	(void)fprintf(fd, "\nobjectClass= quipuObject & alias & top\n") ;
	(void) fclose(fd) ;

	if (move (objectname) != OK)
	{
		ps_printf (OPT,"Unknown option %s\n",objectname);
		return ;
	}

	/* now parse the files */
	if ((fd = fopen (fname, "r")) == (FILE *) NULL) {
		ps_printf (OPT, "Can't open draft entry %s\n", fname);
		return ;
	}
	entry_ptr = get_default_entry (NULLENTRY);
	entry_ptr->e_attributes = get_attributes (fd);
	(void) fclose (fd);
	if (parse_status != 0)
		return ;
		
	add_arg.ada_object = dn;
	for (moddn = dn ; moddn->dn_parent != NULLDN; moddn=moddn->dn_parent)
		;
	entry_ptr->e_name = rdn_cpy (moddn->dn_rdn);
	add_arg.ada_entry = entry_ptr->e_attributes;

	if (rebind () != OK) {
		entry_free (entry_ptr);
		return ;
	}

	while (ds_addentry (&add_arg, &error) != DS_OK) {
		if (dish_error (OPT, &error) == 0) {
			entry_free (entry_ptr);
			return ;
		}
		add_arg.ada_object = error.ERR_REFERRAL.DSE_ref_candidates->cr_name;
	} 
	ps_print (RPS, "Added ");
	dn_print (RPS, dn, EDBOUT);
	ps_print (RPS, "\n");
	entry_free (entry_ptr);
	make_old (fname,draft_flag);	

	/* Now we have to add a "seeAlso=<DN>" attribute to the <AOJ> */

	if (service_control(OPT, 1, contact_modify, &mod_arg.mea_common) == -1)
	{
		ps_printf(OPT, "Add_alias: Badly wrong. Service controls for modify in error...\n") ;
		return ;
	}

	dn_free(dn) ;
	dn = dn_cpy(save_dn) ;
	{
		AV_Sequence	new_avs = avs_comp_alloc() ;
		AttributeValue	new_AV = AttrV_alloc() ;
		
		if ((str_ps = ps_alloc(str_open)) == NULLPS)
		{
			ps_printf(OPT, "Ps alloc for your string failed.\n") ;
			return ;
		}
		if (str_setup (str_ps, str_buffer, 998, 1) == NOTOK)
		{
			ps_printf (OPT, "str_setup: %s", ps_error (str_ps -> ps_errno));
			ps_free (str_ps);
			return ;
		}
		dn_print(str_ps, oj_dn, EDBOUT) ;
		*str_ps->ps_ptr = 0 ;
		ps_free(str_ps) ;

		new_AV = AttrV_cpy(str2AttrV(str_buffer, str2syntax("DN"))) ;
		new_avs = avs_comp_new(AttrV_cpy(new_AV)) ;
		emnew->em_what = as_comp_new(AttrT_new("seeAlso"), new_avs, NULLACL_INFO) ;
	}
	emnew->em_next = NULLMOD ;
	mod_arg.mea_object = aoj_dn;
	mod_arg.mea_changes = emnew ;

	if (rebind () != OK)
		return ;
			
	while (ds_modifyentry (&mod_arg, &mod_error) != DS_OK)
	{
		if (dish_error (OPT, &mod_error) == 0)
		{
			ps_print(OPT, "Unable to modify ") ;
			dn_print(OPT, aoj_dn, EDBOUT) ;
			ps_print(OPT, "\n") ;
			return ;
		}
		mod_arg.mea_object = mod_error.ERR_REFERRAL.DSE_ref_candidates->cr_name;
	}
	ps_print (RPS, "Modified ");
	dn_print (RPS, aoj_dn, EDBOUT);
	ps_print (RPS, "\n");
	delete_cache (aoj_dn);	/* re-cache when next read */

	dn_free(dn) ;
	dn = dn_cpy(save_dn) ;
}