/*
 *
 *	Copyright (C) 1988, 1989 by the Massachusetts Institute of Technology
 *    	Developed by the MIT Student Information Processing Board (SIPB).
 *    	For copying information, see the file mit-copyright.h in this release.
 *
 */
/*
 *	$Source: /mit/sipb-athena/repository/src/discuss/mclient/crmtgs.c,v $
 *	$Header: /mit/sipb-athena/repository/src/discuss/mclient/crmtgs.c,v 1.5 1997/11/30 00:57:06 svalente Exp $
 *
 *	Fill out a .meetings file with the primary name of all the
 *	meetings in it.  This requires that the meeting be accessible
 *	at this time; however, this program may be run several times
 *	to get it right..
 *
 *	$Log: crmtgs.c,v $
 *	Revision 1.5  1997/11/30 00:57:06  svalente
 *	Change from Imakefiles to configure script.
 *	Prototype all exported functions in appropriate header files.
 *	Ensure ANSI-clean and 64bit-clean.
 *
 * Revision 1.5  1992/06/26  02:19:57  raeburn
 * getting in sync with current source tree
 *
 * Revision 1.4  89/06/03  00:30:40  srz
 * Added standard copyright notice.
 * 
 * Revision 1.3  89/01/05  07:14:35  raeburn
 * replaced included header files with <discuss/discuss.h>
 * 
 * Revision 1.2  88/09/23  23:55:27  raeburn
 * Added declaration of getenv(), to satisfy prototypes of functions.
 * 
 * Revision 1.1  87/04/08  04:00:53  wesommer
 * Initial revision
 * 
 */

#ifndef lint
static char rcsid_crmtgs_c[] =
    "$Header: /mit/sipb-athena/repository/src/discuss/mclient/crmtgs.c,v 1.5 1997/11/30 00:57:06 svalente Exp $";
#endif /* lint */

#include <stdlib.h>
#include <com_err.h>
#include <discuss/discuss.h>

int punt (char *);
int punt_code (char *, int);

main(argc, argv)
	int argc;
	char **argv;
{
	int n_matches, code;
	register name_blk *nbp;
	name_blk *set;
	int i;
	mtg_info info;
	char **aliasv;
	int naliases;
	
	init_dsc_err_tbl();

	dsc_expand_mtg_set(getenv("USER"), "*", &set, &n_matches, &code);

	if (code)
		punt_code("Can't expand meeting set", code);

	if (!n_matches)
		punt("No meetings?");

	for (nbp = set; nbp < set + n_matches; ++nbp) {
		dsc_get_mtg_info(nbp, &info, &code);
		if (code) {
			printf("%s: %s\n", nbp->aliases[0],
			       error_message(code));
			continue;
		}
		if (strcmp(nbp->aliases[0], info.long_name)) {
			printf("Adding long_name %s to %s\n",
			       info.long_name, nbp->aliases[0]);

			/*
			 * Beware of dragons and fenceposts in the
			 * following code.
			 */
			aliasv = nbp->aliases;
			while (*aliasv++) continue;
			naliases = aliasv - nbp->aliases;
			nbp->aliases = (char **) realloc(nbp->aliases,
				++naliases * sizeof(nbp->aliases));
			aliasv = nbp->aliases + naliases;
			while(naliases--) {
				*aliasv = aliasv[-1];
				--aliasv;
			}
			if (aliasv != nbp->aliases) abort();
			*aliasv = info.long_name;
		} else printf("Long name %s already present\n", 
			      info.long_name);
	}
	dsc_update_mtg_set(getenv("USER"), set, n_matches, &code);
	if (code)
		punt_code("update_mtg_set failed", code);
}

punt(string)
	char *string;
{
	puts(string);
	exit(1);
}

punt_code(string, code)
	char *string;
	int code;
{
	printf("%s: %s", string, error_message(code));
	exit(1);
}