/* This file is part of the Project Athena Zephyr Notification System.
 * It contains source for the ZSubscribeTo, ZUnsubscribeTo, and
 * ZCancelSubscriptions functions.
 *
 *	Created by:	Robert French
 *
 *	$Source$
 *	$Author$
 *
 *	Copyright (c) 1987 by the Massachusetts Institute of Technology.
 *	For copying and distribution information, see the file
 *	"mit-copyright.h". 
 */
/* $Header$ */

#include <zephyr/mit-copyright.h>

#include <zephyr/zephyr_internal.h>

Code_t ZSubscribeTo(sublist,nitems,port)
	ZSubscription_t	*sublist;
	int nitems;
	u_short port;
{
	return (Z_Subscriptions(sublist,nitems,port,CLIENT_SUBSCRIBE));
}

Code_t ZUnsubscribeTo(sublist,nitems,port)
	ZSubscription_t	*sublist;
	int nitems;
	u_short port;
{
	return (Z_Subscriptions(sublist,nitems,port,CLIENT_UNSUBSCRIBE));
}

Code_t ZCancelSubscriptions(port)
	u_short port;
{
	return (Z_Subscriptions((ZSubscription_t *)0,0,port,
				CLIENT_CANCELSUB));
}

Z_Subscriptions(sublist,nitems,port,opcode)
	ZSubscription_t	*sublist;
	int nitems;
	u_short port;
	char *opcode;
{
	int i,retval;
	ZNotice_t notice,retnotice;
	ZPacket_t buffer;
	char **list;
	
	list = (char **)malloc((unsigned)nitems*3*sizeof(char *));
	if (!list)
		return (ENOMEM);
	
	notice.z_kind = ACKED;
	notice.z_port = port;
	notice.z_class = ZEPHYR_CTL_CLASS;
	notice.z_class_inst = ZEPHYR_CTL_CLIENT;
	notice.z_opcode = opcode;
	notice.z_sender = 0;
	notice.z_recipient = "";
	notice.z_message_len = 0;

	for (i=0;i<nitems;i++) {
		list[i*3] = sublist[i].class;
		list[i*3+1] = sublist[i].classinst;
		if (sublist[i].recipient && *sublist[i].recipient &&
		    *sublist[i].recipient != '*')
			list[i*3+2] = ZGetSender();
		else
			list[i*3+2] = "";
	}
	
	retval = ZSendList(&notice,list,nitems*3,ZAUTH);

	free((char *)list);

	if (retval != ZERR_NONE)
		return (retval);

	if ((retval = ZIfNotice(buffer,sizeof buffer,&retnotice,(int *)0,
			        ZCompareUIDPred,(char *)&notice.z_uid)) !=
	    ZERR_NONE)
		return (retval);

	if (retnotice.z_kind == SERVNAK)
		return (ZERR_SERVNAK);
	
	if (retnotice.z_kind != SERVACK)
		return (ZERR_INTERNAL);

	return (ZERR_NONE);
}