Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10 6/7/83; site hao.UUCP
Path: utzoo!linus!philabs!seismo!hao!pag
From: pag@hao.UUCP
Newsgroups: net.news.b
Subject: Bug fix to expire bug fix
Message-ID: <552@hao.UUCP>
Date: Mon, 20-Jun-83 15:24:55 EDT
Article-I.D.: hao.552
Posted: Mon Jun 20 15:24:55 1983
Date-Received: Tue, 21-Jun-83 13:55:39 EDT
References: <480@pyuxmm.UUCP>
Organization: High Altitude Obs./NCAR, Boulder CO
Lines: 20

In the vanilla v7 dbm routines, .pag and  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