del_alias.c

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

/* del_alias.c -  */

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

/* 
 * $Header: /xtel/isode/isode/others/quipu/uips/manage/RCS/del_alias.c,v 9.0 1992/06/16 12:44:45 isode Rel $
 *
 *
 * $Log: del_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/entry.h"
#include "quipu/remove.h"
#include "quipu/compare.h"
#include "quipu/modify.h"

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

call_del_alias (argc, argv)
int		argc;
char	      **argv;
{
	DN		dnptr, aoj_dn, oj_dn, save_dn;
	DN		trail = NULLDN ;
extern	DN		str2dn_aux() ;
extern	DN		sequence_dn () ;
	PS		str_ps ;
	char	       *str_buffer ;
	char		alias = FALSE ;
	int		mod_failed = 0 ;
	AV_Sequence	aliObjNameAVS ;
        struct          entrymod               *emnew ;
	struct		DSError			compare_error;
	struct		ds_compare_result	compare_result;
	struct		ds_compare_arg		compare_arg;
	struct		ds_removeentry_arg	remove_arg;
	struct		ds_modifyentry_arg	mod_arg;
	struct		DSError			mod_error;
	struct		DSError			error;
	char		objectname[80] ;
	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() ;
	str_buffer = (char *) malloc ((unsigned)1000) ;
	contact_showentry[5] = (char *) malloc ((unsigned)strlen(argv[1])) ;
	(void)strcpy(contact_showentry[5], argv[1]+1) ;

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

	if ((argc = service_control (OPT, argc, argv, &remove_arg.rma_common)) == -1)
		return ;

	if (argc > 2)
	{
		ps_printf (OPT,"Too many arguments. Aborting...\n");
		Usage (argv[0]);
		return ;
	}

	if (argc == 1)
	{
		ps_printf (OPT,"Delete what???\n") ;
		Usage (argv[0]) ;
		return ;
	}

	(void)strcpy(objectname,argv[1]) ;
	contact_compare[1] = argv[1] ;

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

	/* Turn a sequence number back into a 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. Aborting.\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 = str2dn_aux(objectname,&alias) ;
			if (save_dn != NULLDN)
			{
				if (alias)
				{
					oj_dn = dn_cpy(save_dn);
				} 
				else
				{
					if (dn == NULLDN)
					{
						oj_dn = dn_cpy(save_dn) ;
					}
					else
					{
						oj_dn = dn_cpy(dn) ;
						dn_append (oj_dn,dn_cpy(save_dn));
					}
				}
			}
			dn_free(save_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 ;
	}

	save_dn = dn_cpy(dn) ;
	dn = dn_cpy(oj_dn) ;
	compare_arg.cma_object = oj_dn;

	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 == FALSE)
	{
		ps_printf(OPT, "Sorry, object is not an alias. Aborting.\n") ;
		return ;
	}

	call_showentry(5, contact_showentry) ;

	if (current_entry == NULLENTRY)
	{
		(void)fprintf(stderr, "we have no current entry. No wonder!\n") ;
	}
	else
	{
		Attr_Sequence eptr ;
		AttributeType a_t = AttrT_new("aliasedObjectName") ;

		for (eptr = current_entry->e_attributes; eptr != NULLATTR; eptr = eptr->attr_link) 
		{
			if ( AttrT_cmp (eptr->attr_type, a_t) == 0 )
			{
				aliObjNameAVS = avs_cpy(eptr->attr_value);
			}
		}
	}
	if (aliObjNameAVS == NULLAV)
	{
		ps_print(OPT, "Can't find 'aliasedObjectName' attribute type.\n") ;
		ps_print(OPT, "Are you sure that this is an alias? Aborting.\n") ;
		return ;
	}

	/* Now we have the other end of the alias in AttrValue format,
	 * convert it into a DN, so we can modify it.
	 */

	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 ;
	}

	avs_print(str_ps, aliObjNameAVS, EDBOUT) ;
	*str_ps->ps_ptr = 0 ;
	ps_free (str_ps) ;
	{
		char	*ptr_local = str_buffer ;
		while(*ptr_local !=0 && *ptr_local != '\n')
			ptr_local++ ;
		*ptr_local = '\0' ;
	}
	aoj_dn = str2dn(str_buffer) ;

	/* We now have converted a string to DN and we now have to form the
	 * attribute "seeAlso=<DN>", put it into the modify attributes
	 * and delete that attribute from the other end of the alias.
	 */

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

	dn_free(dn) ;
	dn = dn_cpy(aoj_dn) ;
	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)
	{
		(void)fprintf(stderr, "we have no current entry. No wonder!\n") ;
	}
	else
	{
		Attr_Sequence eptr ;
		AttributeType a_t = AttrT_new("seeAlso") ;

		emnew->em_type = -1 ;
		for (eptr = current_entry->e_attributes; eptr != NULLATTR; eptr = eptr->attr_link) 
		{
			if ( AttrT_cmp (eptr->attr_type, a_t) == 0 )
			{
				if (emnew->em_type == -1)
				{
					emnew->em_type = EM_REMOVEATTRIBUTE ;
				}
				else
				{
					emnew->em_type = EM_REMOVEVALUES ;
				}
			}
		}
		if (emnew->em_type == -1)
		{
			ps_print(OPT, "INVALID set of entries for the alias object\n") ;
			ps_print(OPT, "Aborting...\n") ;
			return ;
		}
	}

	{
		AV_Sequence	new_avs = avs_comp_alloc() ;
		AttributeValue	new_AV = AttrV_alloc() ;

		str_buffer = (char *) malloc ((unsigned)1000) ;
		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, "\nContinuing to delete alias...") ;
			mod_failed = 1 ;
		}
		mod_arg.mea_object = mod_error.ERR_REFERRAL.DSE_ref_candidates->cr_name;
	}
	if (!mod_failed)
	{
		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) ;

	if (move (objectname) == OK)
		argc--;

	remove_arg.rma_object = dn;

	if (rebind () != OK)
		return ;

	while (ds_removeentry (&remove_arg, &error) != DS_OK) 
	{
		if (dish_error (OPT, &error) == 0)
			return ;
		remove_arg.rma_object = error.ERR_REFERRAL.DSE_ref_candidates->cr_name;
	} 
		
	ps_print (RPS, "Removed ");
	dn_print (RPS, dn, EDBOUT);
	delete_cache (dn);
	for (dnptr = dn; dnptr->dn_parent != NULLDN; dnptr = dnptr->dn_parent)
		trail = dnptr;

	if (trail != NULLDN) 
		trail->dn_parent = NULLDN;
	else
		dn = NULLDN;

	dn_comp_free (dnptr);
	ps_print (RPS, "\n");
}