/*
 * Copyright (c) 1998 Sendmail, Inc.  All rights reserved.
 * Copyright (c) 1992 Eric P. Allman.  All rights reserved.
 * Copyright (c) 1992, 1993
 *	The Regents of the University of California.  All rights reserved.
 *
 * By using this file, you agree to the terms and conditions set
 * forth in the LICENSE file which can be found at the top level of
 * the sendmail distribution.
 *
 */

#ifndef lint
static char sccsid[] = "@(#)makemap.c	8.62 (Berkeley) 6/24/98";
#endif /* not lint */

#include <sys/types.h>
#include <sys/errno.h>
#ifndef ISC_UNIX
# include <sys/file.h>
#endif
#include "sendmail.h"
#include "pathnames.h"

#ifdef NDBM
# include <ndbm.h>
#endif

#ifdef NEWDB
# include <db.h>
# ifndef DB_VERSION_MAJOR
#  define DB_VERSION_MAJOR 1
# endif
#endif

enum type { T_DBM, T_BTREE, T_HASH, T_ERR, T_UNKNOWN };

union dbent
{
#ifdef NDBM
	datum	dbm;
#endif
#ifdef NEWDB
	DBT	db;
#endif
	struct
	{
		char	*data;
		size_t	size;
	} xx;
};

uid_t	RealUid;
gid_t	RealGid;
char	*RealUserName;
uid_t	RunAsUid;
uid_t	RunAsGid;
char	*RunAsUserName;
int	Verbose = 2;
bool	DontInitGroups = TRUE;
long	DontBlameSendmail = DBS_SAFE;
u_char	tTdvect[100];
uid_t	TrustedFileUid = 0;

#define BUFSIZE		1024

int
main(argc, argv)
	int argc;
	char **argv;
{
	char *progname;
	char *cfile;
	bool inclnull = FALSE;
	bool notrunc = FALSE;
	bool allowreplace = FALSE;
	bool allowdups = FALSE;
	bool verbose = FALSE;
	bool foldcase = TRUE;
	int exitstat;
	int opt;
	char *typename;
	char *mapname;
	char *ext;
	int lineno;
	int st;
	int mode;
	int putflags;
	long dbcachesize = 1024 * 1024;
	enum type type;
	int fd;
	int sff = SFF_ROOTOK|SFF_REGONLY;
	struct passwd *pw;
	union
	{
#ifdef NDBM
		DBM	*dbm;
#endif
#ifdef NEWDB
		DB	*db;
#endif
		void	*dbx;
	} dbp;
	union dbent key, val;
#ifdef NEWDB
# if DB_VERSION_MAJOR < 2
	BTREEINFO bti;
	HASHINFO hinfo;
# else
	DB_INFO dbinfo;
# endif
#endif
	char ibuf[BUFSIZE];
	char fbuf[MAXNAME];
	char dbuf[MAXNAME];
#ifdef NDBM
	char pbuf[MAXNAME];
#endif
#if _FFR_TRUSTED_FILE_OWNER
	FILE *cfp;
	char buf[MAXLINE];
#endif
	static char rnamebuf[MAXNAME];	/* holds RealUserName */
	struct stat std;
#ifdef NDBM
	struct stat stp;
#endif
	extern char *optarg;
	extern int optind;

	progname = argv[0];
	cfile = _PATH_SENDMAILCF;

	RunAsUid = RealUid = getuid();
	RunAsGid = RealGid = getgid();
	pw = getpwuid(RealUid);
	if (pw != NULL)
	{
		if (strlen(pw->pw_name) > MAXNAME - 1)
			pw->pw_name[MAXNAME] = 0;
		sprintf(rnamebuf, "%s", pw->pw_name);
	}
	else
		sprintf(rnamebuf, "Unknown UID %d", (int) RealUid);
	RunAsUserName = RealUserName = rnamebuf;

#if _FFR_NEW_MAKEMAP_FLAGS
#define OPTIONS		"C:Nc:dforsv"
#else
#define OPTIONS		"C:Ndforsv"
#endif
	while ((opt = getopt(argc, argv, OPTIONS)) != EOF)
	{
		switch (opt)
		{
		  case 'C':
			cfile = optarg;
			break;

		  case 'N':
			inclnull = TRUE;
			break;

#if _FFR_NEW_MAKEMAP_FLAGS
		  case 'c':
			dbcachesize = atol(optarg);
			break;
#endif

		  case 'd':
			allowdups = TRUE;
			break;

		  case 'f':
			foldcase = FALSE;
			break;

		  case 'o':
			notrunc = TRUE;
			break;

		  case 'r':
			allowreplace = TRUE;
			break;

		  case 's':
			DontBlameSendmail |= DBS_MAPINUNSAFEDIRPATH|DBS_WRITEMAPTOHARDLINK|DBS_WRITEMAPTOSYMLINK|DBS_LINKEDMAPINWRITABLEDIR;
			break;

		  case 'v':
			verbose = TRUE;
			break;

		  default:
			type = T_ERR;
			break;
		}
	}

	if (!bitset(DBS_WRITEMAPTOSYMLINK, DontBlameSendmail))
		sff |= SFF_NOSLINK;
        if (!bitset(DBS_WRITEMAPTOHARDLINK, DontBlameSendmail))
		sff |= SFF_NOHLINK;
	if (!bitset(DBS_LINKEDMAPINWRITABLEDIR, DontBlameSendmail))
		sff |= SFF_NOWLINK;

	argc -= optind;
	argv += optind;
	if (argc != 2)
		type = T_ERR;
	else
	{
		typename = argv[0];
		mapname = argv[1];
		ext = NULL;

		if (strcmp(typename, "dbm") == 0)
		{
			type = T_DBM;
		}
		else if (strcmp(typename, "btree") == 0)
		{
			type = T_BTREE;
			ext = ".db";
		}
		else if (strcmp(typename, "hash") == 0)
		{
			type = T_HASH;
			ext = ".db";
		}
		else
			type = T_UNKNOWN;
	}

#if _FFR_TRUSTED_FILE_OWNER
	if ((cfp = fopen(cfile, "r")) == NULL)
	{
		fprintf(stderr, "mailstats: ");
		perror(cfile);
		exit(EX_NOINPUT);
	}
	while (fgets(buf, sizeof(buf), cfp) != NULL)
	{
		register char *b;

		if ((b = strchr(buf, '\n')) != NULL)
			*b = '\0';

		b = buf;
		switch (*b++)
		{
		  case 'O':		/* option */
			if (strncasecmp(b, " TrustedFileOwner", 17) == 0 &&
			    !(isascii(b[17]) && isalnum(b[17])))
			{
				b = strchr(b, '=');
				if (b == NULL)
					continue;
				while (isascii(*++b) && isspace(*b))
					continue;
				if (isascii(*b) && isdigit(*b))
					TrustedFileUid = atoi(b);
				else
				{
					register struct passwd *pw;
					
					TrustedFileUid = 0;
					pw = getpwnam(b);
					if (pw == NULL)
						fprintf(stderr,
							"TrustedFileOwner: unknown user %s", b);
					else
						TrustedFileUid = pw->pw_uid;
				}
				
# ifdef UID_MAX
				if (TrustedFileUid > UID_MAX)
				{
					syserr("TrustedFileOwner: uid value (%ld) > UID_MAX (%ld)",
					       TrustedFileUid, UID_MAX);
					TrustedFileUid = 0;
				}
# endif
				break;
			}


		  default:
			continue;
		}
	}
	(void) fclose(cfp);
#endif
	switch (type)
	{
	  case T_ERR:
#if _FFR_NEW_MAKEMAP_FLAGS
		fprintf(stderr,
			"Usage: %s [-N] [-c cachesize] [-d] [-f] [-o] [-r] [-s] [-v] type mapname\n",
			progname);
#else
		fprintf(stderr, "Usage: %s [-N] [-d] [-f] [-o] [-r] [-s] [-v] type mapname\n", progname);
#endif
		exit(EX_USAGE);

	  case T_UNKNOWN:
		fprintf(stderr, "%s: Unknown database type %s\n",
			progname, typename);
		exit(EX_USAGE);

#ifndef NDBM
	  case T_DBM:
#endif
#ifndef NEWDB
	  case T_BTREE:
	  case T_HASH:
#endif
		fprintf(stderr, "%s: Type %s not supported in this version\n",
			progname, typename);
		exit(EX_UNAVAILABLE);

#ifdef NEWDB
	  case T_BTREE:
# if DB_VERSION_MAJOR < 2
		bzero(&bti, sizeof bti);
# else
		bzero(&dbinfo, sizeof dbinfo);
# endif
		if (allowdups)
		{
# if DB_VERSION_MAJOR < 2
			bti.flags |= R_DUP;
# else
			dbinfo.flags |= DB_DUP;
# endif
		}
		if (allowdups || allowreplace)
			putflags = 0;
		else
		{
# if DB_VERSION_MAJOR < 2
			putflags = R_NOOVERWRITE;
# else
			putflags = DB_NOOVERWRITE;
# endif
		}
		break;

	  case T_HASH:
# if DB_VERSION_MAJOR < 2
		bzero(&hinfo, sizeof hinfo);
# else
		bzero(&dbinfo, sizeof dbinfo);
# endif
		if (allowreplace)
			putflags = 0;
		else
		{
# if DB_VERSION_MAJOR < 2
			putflags = R_NOOVERWRITE;
# else
			putflags = DB_NOOVERWRITE;
# endif
		}
		break;
#endif
#ifdef NDBM
	  case T_DBM:
		if (allowdups)
		{
			fprintf(stderr, "%s: Type %s does not support -d (allow dups)\n",
				progname, typename);
			exit(EX_UNAVAILABLE);
		}
		if (allowreplace)
			putflags = DBM_REPLACE;
		else
			putflags = DBM_INSERT;
		break;
#endif
	}

	/*
	**  Adjust file names.
	*/

	if (ext != NULL)
	{
		int el, fl;

		el = strlen(ext);
		fl = strlen(mapname);
		if (el + fl + 1 >= sizeof fbuf)
		{
			fprintf(stderr, "%s: file name too long", mapname);
			exit(EX_USAGE);
		}
		if (fl < el || strcmp(&mapname[fl - el], ext) != 0)
		{
			strcpy(fbuf, mapname);
			strcat(fbuf, ext);
			mapname = fbuf;
		}
	}

	if (!notrunc)
		sff |= SFF_CREAT;
	switch (type)
	{
#ifdef NEWDB
	  case T_BTREE:
	  case T_HASH:
		if (strlen(mapname) >= sizeof dbuf)
		{
			fprintf(stderr,
				"%s: map name too long\n", mapname);
			exit(EX_USAGE);
		}
		strcpy(dbuf, mapname);
		if ((st = safefile(dbuf, RealUid, RealGid, RealUserName,
				   sff, S_IWUSR, &std)) != 0)
		{
			fprintf(stderr,
				"%s: could not create: %s\n",
				dbuf, errstring(st));
			exit(EX_CANTCREAT);
		}
		break;
#endif
#ifdef NDBM
	  case T_DBM:
		if (strlen(mapname) + 5 > sizeof dbuf)
		{
			fprintf(stderr,
				"%s: map name too long\n", mapname);
			exit(EX_USAGE);
		}
		sprintf(dbuf, "%s.dir", mapname);
		if ((st = safefile(dbuf, RealUid, RealGid, RealUserName,
			   sff, S_IWUSR, &std)) != 0)
		{
			fprintf(stderr,
				"%s: could not create: %s\n",
				dbuf, errstring(st));
			exit(EX_CANTCREAT);
		}
		sprintf(pbuf, "%s.pag", mapname);
		if ((st = safefile(pbuf, RealUid, RealGid, RealUserName,
			   sff, S_IWUSR, &stp)) != 0)
		{
			fprintf(stderr,
				"%s: could not create: %s\n",
				pbuf, errstring(st));
			exit(EX_CANTCREAT);
		}
		break;
#endif
	  default:
		fprintf(stderr,
			"%s: internal error: type %d\n",
			progname,
			type);
		exit(EX_SOFTWARE);
	}

	/*
	**  Create the database.
	*/

	mode = O_RDWR;
	if (!notrunc)
		mode |= O_CREAT|O_TRUNC;
#if O_EXLOCK
	mode |= O_EXLOCK;
#else
	/* pre-lock the database */
	fd = safeopen(dbuf, mode & ~O_TRUNC, 0644, sff);
	if (fd < 0)
	{
		fprintf(stderr, "%s: cannot create type %s map %s\n",
			progname, typename, mapname);
		exit(EX_CANTCREAT);
	}
#endif
	switch (type)
	{
#ifdef NDBM
	  case T_DBM:
		dbp.dbm = dbm_open(mapname, mode, 0644);
		if (dbp.dbm != NULL &&
		    dbm_dirfno(dbp.dbm) == dbm_pagfno(dbp.dbm))
		{
			fprintf(stderr, "dbm map %s: cannot run with GDBM\n",
				mapname);
			dbm_close(dbp.dbm);
			exit(EX_CONFIG);
		}
		if (dbp.dbm != NULL &&
		    (filechanged(dbuf, dbm_dirfno(dbp.dbm), &std) ||
		     filechanged(pbuf, dbm_pagfno(dbp.dbm), &stp)))
		{
			fprintf(stderr,
				"dbm map %s: file changed after open\n",
				mapname);
			dbm_close(dbp.dbm);
			exit(EX_CANTCREAT);
		}
		if (geteuid() == 0 && TrustedFileUid != 0)
		{
			if (fchown(dbm_dirfno(dbp.dbm), TrustedFileUid, -1) < 0 ||
			    fchown(dbm_pagfno(dbp.dbm), TrustedFileUid, -1) < 0)
			{
				fprintf(stderr,
					"WARNING: ownership change on %s failed: %s",
					mapname, errstring(errno));
			}
		}

		break;
#endif

#ifdef NEWDB
	  case T_HASH:
		/* tweak some parameters for performance */
# if DB_VERSION_MAJOR < 2
		hinfo.nelem = 4096;
		hinfo.cachesize = dbcachesize;
# else
		dbinfo.h_nelem = 4096;
		dbinfo.db_cachesize = dbcachesize;
# endif
		
# if DB_VERSION_MAJOR < 2
		dbp.db = dbopen(mapname, mode, 0644, DB_HASH, &hinfo);
# else
		{
			int flags = 0;
			
			if (bitset(O_CREAT, mode))
				flags |= DB_CREATE;
			if (bitset(O_TRUNC, mode))
				flags |= DB_TRUNCATE;
			
			dbp.db = NULL;
			errno = db_open(mapname, DB_HASH, flags, 0644,
					NULL, &dbinfo, &dbp.db);
		}
# endif
		if (dbp.db != NULL)
		{
			int fd;
			
# if DB_VERSION_MAJOR < 2
			fd = dbp.db->fd(dbp.db);
# else
			fd = -1;
			errno = dbp.db->fd(dbp.db, &fd);
# endif
			if (filechanged(dbuf, fd, &std))
			{
				fprintf(stderr,
					"db map %s: file changed after open\n",
					mapname);
# if DB_VERSION_MAJOR < 2
				dbp.db->close(dbp.db);
# else
				errno = dbp.db->close(dbp.db, 0);
# endif
				exit(EX_CANTCREAT);
			}
			(void) (*dbp.db->sync)(dbp.db, 0);
			if (geteuid() == 0 && TrustedFileUid != 0)
			{
				if (fchown(fd, TrustedFileUid, -1) < 0)
				{
					fprintf(stderr,
						"WARNING: ownership change on %s failed: %s",
						mapname, errstring(errno));
				}
			}
		}
		break;

	  case T_BTREE:
		/* tweak some parameters for performance */
# if DB_VERSION_MAJOR < 2
		bti.cachesize = dbcachesize;
# else
		dbinfo.db_cachesize = dbcachesize;
# endif

# if DB_VERSION_MAJOR < 2
		dbp.db = dbopen(mapname, mode, 0644, DB_BTREE, &bti);
# else
		{
			int flags = 0;
			
			if (bitset(O_CREAT, mode))
				flags |= DB_CREATE;
			if (bitset(O_TRUNC, mode))
				flags |= DB_TRUNCATE;
			
			dbp.db = NULL;
			errno = db_open(mapname, DB_BTREE, flags, 0644,
					NULL, &dbinfo, &dbp.db);
		}
# endif
		if (dbp.db != NULL)
		{
			int fd;
			
# if DB_VERSION_MAJOR < 2
			fd = dbp.db->fd(dbp.db);
# else
			fd = -1;
			errno = dbp.db->fd(dbp.db, &fd);
# endif
			if (filechanged(dbuf, fd, &std))
			{
				fprintf(stderr,
					"db map %s: file changed after open\n",
					mapname);
# if DB_VERSION_MAJOR < 2
				dbp.db->close(dbp.db);
# else
				errno = dbp.db->close(dbp.db, 0);
# endif
				exit(EX_CANTCREAT);
			}
			(void) (*dbp.db->sync)(dbp.db, 0);
			if (geteuid() == 0 && TrustedFileUid != 0)
			{
				if (fchown(fd, TrustedFileUid, -1) < 0)
				{
					fprintf(stderr,
						"WARNING: ownership change on %s failed: %s",
						mapname, errstring(errno));
				}
			}
		}
		break;
#endif

	  default:
		fprintf(stderr, "%s: internal error: type %d\n",
			progname, type);
		exit(EX_SOFTWARE);
	}

	if (dbp.dbx == NULL)
	{
		fprintf(stderr, "%s: cannot open type %s map %s\n",
			progname, typename, mapname);
		exit(EX_CANTCREAT);
	}

	/*
	**  Copy the data
	*/

	lineno = 0;
	exitstat = EX_OK;
	while (fgets(ibuf, sizeof ibuf, stdin) != NULL)
	{
		register char *p;

		lineno++;

		/*
		**  Parse the line.
		*/

		p = strchr(ibuf, '\n');
		if (p != NULL)
			*p = '\0';
		else if (!feof(stdin))
		{
			fprintf(stderr, "%s: %s: line %d: line too long (%ld bytes max)\n",
				progname, mapname, lineno, (long) sizeof ibuf);
			continue;
		}
			
		if (ibuf[0] == '\0' || ibuf[0] == '#')
			continue;
		if (isascii(ibuf[0]) && isspace(ibuf[0]))
		{
			fprintf(stderr, "%s: %s: line %d: syntax error (leading space)\n",
				progname, mapname, lineno);
			continue;
		}
#ifdef NEWDB
		if (type == T_HASH || type == T_BTREE)
		{
			bzero(&key.db, sizeof key.db);
			bzero(&val.db, sizeof val.db);
		}
#endif

		key.xx.data = ibuf;
		for (p = ibuf; *p != '\0' && !(isascii(*p) && isspace(*p)); p++)
		{
			if (foldcase && isascii(*p) && isupper(*p))
				*p = tolower(*p);
		}
		key.xx.size = p - key.xx.data;
		if (inclnull)
			key.xx.size++;
		if (*p != '\0')
			*p++ = '\0';
		while (isascii(*p) && isspace(*p))
			p++;
		if (*p == '\0')
		{
			fprintf(stderr, "%s: %s: line %d: no RHS for LHS %s\n",
				progname, mapname, lineno, key.xx.data);
			continue;
		}
		val.xx.data = p;
		val.xx.size = strlen(p);
		if (inclnull)
			val.xx.size++;

		/*
		**  Do the database insert.
		*/

		if (verbose)
		{
			printf("key=`%s', val=`%s'\n", key.xx.data, val.xx.data);
		}

		switch (type)
		{
#ifdef NDBM
		  case T_DBM:
			st = dbm_store(dbp.dbm, key.dbm, val.dbm, putflags);
			break;
#endif

#ifdef NEWDB
		  case T_BTREE:
		  case T_HASH:
# if DB_VERSION_MAJOR < 2
			st = (*dbp.db->put)(dbp.db, &key.db, &val.db, putflags);
# else
			errno = (*dbp.db->put)(dbp.db, NULL, &key.db,
					       &val.db, putflags);
			switch (errno)
			{
			  case DB_KEYEXIST:
				st = 1;
				break;

			  case 0:
				st = 0;
				break;

			  default:
				st = -1;
				break;
			}
# endif
			break;
#endif
		  default:
			break;
		}

		if (st < 0)
		{
			fprintf(stderr, "%s: %s: line %d: key %s: put error\n",
				progname, mapname, lineno, key.xx.data);
			perror(mapname);
			exitstat = EX_IOERR;
		}
		else if (st > 0)
		{
			fprintf(stderr,
				"%s: %s: line %d: key %s: duplicate key\n",
				progname, mapname, lineno, key.xx.data);
		}
	}

	/*
	**  Now close the database.
	*/

	switch (type)
	{
#ifdef NDBM
	  case T_DBM:
		dbm_close(dbp.dbm);
		break;
#endif

#ifdef NEWDB
	  case T_HASH:
	  case T_BTREE:
# if DB_VERSION_MAJOR < 2
		if ((*dbp.db->close)(dbp.db) < 0)
# else
		if ((errno = (*dbp.db->close)(dbp.db, 0)) != 0)
# endif
		{
			fprintf(stderr, "%s: %s: error on close\n",
				progname, mapname);
			perror(mapname);
			exitstat = EX_IOERR;
		}
#endif
	  default:
		break;
	}

#if !O_EXLOCK
	/* release locks */
	close(fd);
#endif

	exit (exitstat);
}
/*
**  LOCKFILE -- lock a file using flock or (shudder) fcntl locking
**
**	Parameters:
**		fd -- the file descriptor of the file.
**		filename -- the file name (for error messages).
**		ext -- the filename extension.
**		type -- type of the lock.  Bits can be:
**			LOCK_EX -- exclusive lock.
**			LOCK_NB -- non-blocking.
**
**	Returns:
**		TRUE if the lock was acquired.
**		FALSE otherwise.
*/

bool
lockfile(fd, filename, ext, type)
	int fd;
	char *filename;
	char *ext;
	int type;
{
# if !HASFLOCK
	int action;
	struct flock lfd;
	extern int errno;

	bzero(&lfd, sizeof lfd);
	if (bitset(LOCK_UN, type))
		lfd.l_type = F_UNLCK;
	else if (bitset(LOCK_EX, type))
		lfd.l_type = F_WRLCK;
	else
		lfd.l_type = F_RDLCK;
	if (bitset(LOCK_NB, type))
		action = F_SETLK;
	else
		action = F_SETLKW;

	if (fcntl(fd, action, &lfd) >= 0)
		return TRUE;

	/*
	**  On SunOS, if you are testing using -oQ/tmp/mqueue or
	**  -oA/tmp/aliases or anything like that, and /tmp is mounted
	**  as type "tmp" (that is, served from swap space), the
	**  previous fcntl will fail with "Invalid argument" errors.
	**  Since this is fairly common during testing, we will assume
	**  that this indicates that the lock is successfully grabbed.
	*/

	if (errno == EINVAL)
		return TRUE;

# else	/* HASFLOCK */

	if (flock(fd, type) >= 0)
		return TRUE;

# endif

	return FALSE;
}

/*VARARGS1*/
void
#ifdef __STDC__
message(const char *msg, ...)
#else
message(msg, va_alist)
	const char *msg;
	va_dcl
#endif
{
	const char *m;
	VA_LOCAL_DECL

	m = msg;
	if (isascii(m[0]) && isdigit(m[0]) &&
	    isascii(m[1]) && isdigit(m[1]) &&
	    isascii(m[2]) && isdigit(m[2]) && m[3] == ' ')
		m += 4;
	VA_START(msg);
	vfprintf(stderr, m, ap);
	VA_END;
	fprintf(stderr, "\n");
}

/*VARARGS1*/
void
#ifdef __STDC__
syserr(const char *msg, ...)
#else
syserr(msg, va_alist)
	const char *msg;
	va_dcl
#endif
{
	const char *m;
	VA_LOCAL_DECL

	m = msg;
	if (isascii(m[0]) && isdigit(m[0]) &&
	    isascii(m[1]) && isdigit(m[1]) &&
	    isascii(m[2]) && isdigit(m[2]) && m[3] == ' ')
		m += 4;
	VA_START(msg);
	vfprintf(stderr, m, ap);
	VA_END;
	fprintf(stderr, "\n");
}

const char *
errstring(err)
	int err;
{
	static char errstr[64];
#if !HASSTRERROR && !defined(ERRLIST_PREDEFINED)
	extern char *sys_errlist[];
	extern int sys_nerr;
#endif

	/* handle pseudo-errors internal to sendmail */
	switch (err)
	{
	  case E_SM_OPENTIMEOUT:
		return "Timeout on file open";

	  case E_SM_NOSLINK:
		return "Symbolic links not allowed";

	  case E_SM_NOHLINK:
		return "Hard links not allowed";

	  case E_SM_REGONLY:
		return "Regular files only";

	  case E_SM_ISEXEC:
		return "Executable files not allowed";

	  case E_SM_WWDIR:
		return "World writable directory";

	  case E_SM_GWDIR:
		return "Group writable directory";

	  case E_SM_FILECHANGE:
		return "File changed after open";

	  case E_SM_WWFILE:
		return "World writable file";

	  case E_SM_GWFILE:
		return "Group writable file";
	}

#if HASSTRERROR
	return strerror(err);
#else
	if (err < 0 || err >= sys_nerr)
	{
		sprintf(errstr, "Error %d", err);
		return errstr;
	}
	return sys_errlist[err];
#endif
}