[net.news.b] Bug fix to expire bug fix

pag@hao.UUCP (06/20/83)

In the vanilla v7 dbm routines, <file>.pag and <file.dir> must exist
when the first call to dbminit() is made (despite comment to contrary).
Otherwse they are not created, and no hashing occurs.  The fix:

1.  add to declarations:
char	PAGFILE[BUFLEN], DIRFILE[BUFLEN];

2.  added code before dbminit():
#ifdef DBM
	/*
	 * the .pag and .dir files must exist before the call to dbminit()
	 */
	sprintf(PAGFILE, "%s/%s", LIB, "nhistory.pag");
	sprintf(DIRFILE, "%s/%s", LIB, "nhistory.dir");
	close(creat(PAGFILE, 0666));
	close(creat(DIRFILE, 0666));
 	dbminit(NARTFILE);
#endif

--peter