/*
 * readnews - read news articles.
 */

#ifdef SCCSID
static char	*SccsId = "@(#)readnews.c	2.28	6/6/85";
#endif /* SCCSID */

#include "rparams.h"

/*
 * readnews - article reading program
 */

#ifndef SYSBUF
char	SYSBUF[BUFSIZ];	/* to buffer std out */
#endif

#define OPTION	0	/* pick up an option string */
#define STRING	1	/* pick up a string of arguments */

int onsig(), cleanup();

/*
 *	Authors:
 *		Matt Glickman	ucbvax!glickman
 *		Mark Horton	cbosg!mark
 *		Stephen Daniels	duke!swd
 *		Tom Truscott	duke!trt
 */

main(argc, argv)
int	argc;
register char	**argv;
{
	register char	*ptr;	/* pointer to rest of buffer		*/
	char	*user, *home;
	int	optflag = FALSE, space = FALSE;
	struct utsname ubuf;
	char	*myrc;

	/* set up defaults and initialize. */
	pathinit();
	mode = UNKNOWN;
	header.title[0] = header.nbuf[0] = '\0';
	coptbuf[0] = datebuf[0] = '\0';
	uname(&ubuf);
	strcpy(FULLSYSNAME, ubuf.nodename);

	savmask = umask(N_UMASK);	/* set up mask */
	uid = getuid();
	gid = getgid();
	duid = 0;
	dgid = 0;

#ifndef SHELL
	if ((SHELL = getenv("SHELL")) == NULL)
		SHELL = "/bin/sh";
#endif
#ifndef IHCC
	/*
	 * IHCC does not allow use of $LOGNAME to prevent forgery.
	 * Note that this shouldn't matter in readnews, since inews
	 * does all the actual posting of news.
	 */
	if ((user = getenv("USER")) == NULL)
		user = getenv("LOGNAME");
	if ((home = getenv("HOME")) == NULL)
		home = getenv("LOGDIR");
#endif
	if (user == NULL || home == NULL)
		getuser();
	else {
		username = AllocCpy(user);
		(void) strcpy(header.path, username);
		userhome = AllocCpy(home);
	}

	if (!(MAILER = getenv("MAILER")))
		MAILER = "mail";	/* was /bin/mail */

#ifdef PAGE
	if (myrc = getenv("PAGER"))
		PAGER = AllocCpy(myrc);
	else {
# ifdef IHCC
		(void) sprintf(bfr, "%s/bin/%s", logdir(HOME), PAGE);
		PAGER = AllocCpy(bfr);
# else /* !IHCC */
		PAGER = PAGE;
# endif /* !IHCC */
	}
#endif /* PAGE */

	if (ptr = getenv("NEWSOPTS"))
		(void) strcpy(rcbuf, ptr);
	else
		*rcbuf = '\0';
	if (*rcbuf) {
		(void) strcat(rcbuf, " \1");
		ptr = rcbuf;
		while (*++ptr)
			if (isspace(*ptr))
				*ptr = '\0';
		for (ptr = rcbuf; ; ptr++) {
			if (!*ptr)
				continue;
			if (*ptr == '\1')
				break;
			if (++line > LINES)
				xerror("Too many options.");
			if ((rcline[line] = malloc((unsigned)(strlen(ptr) + 1))) == NULL)
				xerror("Not enough memory.");
			argvrc[line] = rcline[line];
			(void) strcpy(rcline[line], ptr);
			while (*ptr)
				ptr++;
		}
	}
	myrc = getenv("NEWSRC");
	if (myrc == NULL) {
		myrc = NEWSRC;
		(void) sprintf(newsrc, "%s/%s", userhome, myrc);
	} else {
		(void) strcpy(newsrc, myrc);
	}
	if (access(newsrc, 0))
		newrc(newsrc);
	if ((rcfp = fopen(newsrc, "r")) != NULL) {
		rcreadok = FALSE;
		while (fgets(rcbuf, LBUFLEN, rcfp) != NULL) {
			if (!(space = isspace(*rcbuf)))
				optflag = FALSE;
			if (!strncmp(rcbuf, "options ", 8))
				optflag = TRUE;
			if (optflag) {
				(void) strcat(rcbuf, "\1");
				if (space)
					ptr = rcbuf - 1;
				else
					ptr = &rcbuf[7];
				while (*++ptr)
					if (isspace(*ptr))
						*ptr = '\0';
				if (space)
					ptr = rcbuf;
				else
					ptr = &rcbuf[8];
				for (; ; ptr++) {
					if (!*ptr)
						continue;
					if (*ptr == '\1')
						break;
					if (++line > LINES)
						xerror("Too many options.");
					if ((rcline[line] = malloc((unsigned)(strlen(ptr) + 1))) == NULL)
						xerror("Not enough memory.");
					argvrc[line] = rcline[line];
					(void) strcpy(rcline[line], ptr);
					while (*ptr)
						ptr++;
				}
			}
		}
		(void) fclose(rcfp);
		rcreadok = TRUE;
	}
	if (line != -1) {
#ifdef DEBUG
		register int i;
		for (i = 0; i <= line; i++)
			fprintf(stderr, "options:  %s\n", rcline[i]);
#endif
		process(line + 2, argvrc);
		do {
#ifdef DEBUG
			fprintf(stderr, "Freeing %d\n", line);
#endif
			free(rcline[line]);
		} while (line--);
	}

	argv++;
	(void) strcat(header.nbuf, ADMSUB);
	process(argc, argv);
	if (!nflag)
		(void) sprintf(header.nbuf, "%s,%s", DFLTSUB, ADMSUB);
	lcase(header.nbuf);
	makehimask(header.nbuf, "junk");
	makehimask(header.nbuf, "control");
	makehimask(header.nbuf, "test");

	setbuf(stdout, SYSBUF);
	SigTrap = FALSE;	/* true if a signal has been caught */
	if (!pflag && !lflag && !eflag) {
		(void) signal(SIGQUIT, SIG_IGN);
		(void) signal(SIGHUP, cleanup);
		(void) signal(SIGINT, onsig);
		(void) signal(SIGPIPE, onsig);
	}

	/*
	 * ALL of the command line has now been processed. (!)
	 */

	if (!*header.nbuf)
		strcpy(header.nbuf, DFLTSUB);
	if (sflag) {
		printf("Subscription list:  %s\n", header.nbuf);
		xxit(0);
	}
	if (xflag)
		line = -1;
	rcfp = xfopen(newsrc, "r");
	while (fgets(rcbuf, LBUFLEN, rcfp) != NULL) {
		if (!nstrip(rcbuf))
			xerror(".newsrc line too long");
		if (++line >= LINES)
			xerror("Too many .newsrc lines");
		if ((rcline[line] = malloc((unsigned)(strlen(rcbuf) + 1))) == NULL)
			xerror("Not enough memory");
		(void) strcpy(rcline[line], rcbuf);
	}
	fclose(rcfp);

	if (SigTrap) {
		if (SigTrap == SIGHUP || !rcreadok)
			xxit(0);
		fprintf(stdout, "Abort (n)?  ");
		(void) fflush(stdout);
		if (gets(bfr) == NULL || *bfr == 'y' || *bfr == 'Y')
			xxit(0);
		SigTrap = FALSE;
	}
	sortactive();
	actfp = xfopen(ACTIVE, "r");

#ifdef DEBUG
	fprintf(stderr, "header.nbuf = %s\n", header.nbuf);
#endif
	switch (mode) {
	case UNKNOWN:
		readr();
		break;
#ifdef TMAIL
	case MAIL:
		Mail();
		break;
#endif
	}

	cleanup();
	/*NOTREACHED*/
}

cleanup()
{
	(void) signal(SIGHUP, SIG_IGN);
	(void) fflush(stdout);
	if (!news || xflag || lflag || tflag)
		xxit(0);
	if (*groupdir && mode != MAIL)
		updaterc();
	writeoutrc();
	xxit(0);
}

/*
 * Write out the .newsrc file. It's already been cleaned up by sortactive()
 * Take care that data is all written, and flushed, before we destroy the
 * old copy.
 */
writeoutrc()
{
	FILE *wrcfp;
	char aline[BUFLEN];
	register int i;

	/* NEVER write it out if xflag */
	if (xflag || !rcreadok)
		return;

	(void) strcpy(aline, newsrc);
	(void) strcat(aline, ".new");

#ifdef VMS
	(void) vmsdelete(aline);
#endif
	wrcfp = xfopen(aline, "w");

	for (i = 0; i <= line; i++) {
		if (rcline[i] != NULL)
			if (fprintf(wrcfp, "%s\n", rcline[i]) < 0)
				goto fouled;
	}
	if (fclose(wrcfp) < 0)
		goto fouled;

#ifdef VMS
	(void) vmsdelete(newsrc);
#endif
	if (rename(aline, newsrc) < 0)
		xerror("Cannot rename %s to %s", aline, newsrc);
	return;

  fouled:
	xerror("Error writing new .newsrc file - no changes made\n");
	return;
}

/*
 * Forbid newsgroup ng, unless he asked for it in nbuf.
 */
makehimask(nbuf, ng)
char *nbuf, *ng;
{
	if (!findex(nbuf, ng))
		(void) sprintf(rindex(nbuf, '\0'), ",!%s", ng);
}

/*
 * Return true if the string searchfor is in string, but not if preceded by !.
 */
findex(string, searchfor)
char *string, *searchfor;
{
	register char first;
	register char *p;

	first = *searchfor;
	for (p=index(string, first); p; p = index(p+1, first)) {
		if (((p==string) || (p[-1]!='!')) && strncmp(p, searchfor, strlen(searchfor)) == 0)
			return TRUE;
	}
	return FALSE;
}