backup/dump/dumpmain.c

0Sstevel@tonic-gate/*
*757Svsakar * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
0Sstevel@tonic-gate * Use is subject to license terms.
0Sstevel@tonic-gate */
0Sstevel@tonic-gate
0Sstevel@tonic-gate/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
0Sstevel@tonic-gate/*	  All Rights Reserved	*/
0Sstevel@tonic-gate
0Sstevel@tonic-gate/*
0Sstevel@tonic-gate * Copyright (c) 1980 Regents of the University of California.
0Sstevel@tonic-gate * All rights reserved.  The Berkeley software License Agreement
0Sstevel@tonic-gate * specifies the terms and conditions for redistribution.
0Sstevel@tonic-gate */
0Sstevel@tonic-gate
0Sstevel@tonic-gate#pragma ident	"%Z%%M%	%I%	%E% SMI"
0Sstevel@tonic-gate
0Sstevel@tonic-gate#include "dump.h"
0Sstevel@tonic-gate#include <rmt.h>
0Sstevel@tonic-gate#include <sys/mtio.h>
0Sstevel@tonic-gate#include <limits.h>
0Sstevel@tonic-gate#include <priv_utils.h>
0Sstevel@tonic-gate#include "roll_log.h"
0Sstevel@tonic-gate
0Sstevel@tonic-gateint	notify = 0;		/* notify operator flag */
0Sstevel@tonic-gateint	blockswritten = 0;	/* number of blocks written on current tape */
0Sstevel@tonic-gateuint_t	tapeno = 0;		/* current tape number */
0Sstevel@tonic-gatedaddr32_t filenum = 0;		/* current file number on tape */
0Sstevel@tonic-gateint	density = 0;		/* density in bytes/0.1" */
0Sstevel@tonic-gateint	tenthsperirg;		/* inter-record-gap in 0.1"'s */
0Sstevel@tonic-gateuint_t	ntrec = 0;		/* # tape blocks in each tape record */
0Sstevel@tonic-gateuint_t	saved_ntrec = 0;	/* saved value of ntrec */
0Sstevel@tonic-gateuint_t	forceflag = 0;		/* forced to change tp_bsize */
0Sstevel@tonic-gateint	cartridge = 0;		/* assume non-cartridge tape */
0Sstevel@tonic-gateuint_t	tracks;			/* # tracks on a cartridge tape */
0Sstevel@tonic-gateint	diskette = 0;		/* assume not dumping to a diskette */
0Sstevel@tonic-gateint	printsize = 0;		/* just print estimated size and exit */
0Sstevel@tonic-gateint	mapfd = -1;		/* if >= 0, file descriptor for mmap */
0Sstevel@tonic-gateint32_t	tp_bsize = TP_BSIZE_MIN; /* tape block record size (frag size) */
0Sstevel@tonic-gate#ifdef DEBUG
0Sstevel@tonic-gateint	xflag;			/* debugging switch */
0Sstevel@tonic-gate#endif
0Sstevel@tonic-gate
0Sstevel@tonic-gatechar	*myname;
0Sstevel@tonic-gate
0Sstevel@tonic-gate/*
0Sstevel@tonic-gate * This should be struct fs, but there are trailing bits on disk
0Sstevel@tonic-gate * that we also need to read in as part of it.  It's an array of
0Sstevel@tonic-gate * longs instead of char to force proper alignment.
0Sstevel@tonic-gate */
0Sstevel@tonic-gatestatic long sblock_buf[SBSIZE/sizeof (long)];
0Sstevel@tonic-gate
0Sstevel@tonic-gate#ifdef __STDC__
0Sstevel@tonic-gatestatic char *mb(u_offset_t);
0Sstevel@tonic-gatestatic void nextstate(int);
0Sstevel@tonic-gate#else
0Sstevel@tonic-gatestatic char *mb();
0Sstevel@tonic-gatestatic void nextstate();
0Sstevel@tonic-gate#endif
0Sstevel@tonic-gate
0Sstevel@tonic-gateextern	jmp_buf checkpoint_buf;	/* context for return from checkpoint */
0Sstevel@tonic-gate#define	FUDGE_FACTOR	0x2000000
0Sstevel@tonic-gate
0Sstevel@tonic-gatemain(argc, argv)
0Sstevel@tonic-gate	int	argc;
0Sstevel@tonic-gate	char	*argv[];
0Sstevel@tonic-gate{
0Sstevel@tonic-gate	char		*arg;
0Sstevel@tonic-gate	int		bflag = 0, i, error = 0, saverr;
0Sstevel@tonic-gate	double		fetapes = 0.0;
0Sstevel@tonic-gate	struct	mnttab	*dt;
0Sstevel@tonic-gate	char		msgbuf[3000], *msgp;
0Sstevel@tonic-gate	char		kbsbuf[BUFSIZ];
0Sstevel@tonic-gate	u_offset_t	esize_shift = 0;
0Sstevel@tonic-gate	int32_t	new_mult = 0;
0Sstevel@tonic-gate	time32_t	snapdate;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	host = NULL;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (myname = strrchr(argv[0], '/'))
0Sstevel@tonic-gate		myname++;
0Sstevel@tonic-gate	else
0Sstevel@tonic-gate		myname = argv[0];
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (strcmp("hsmdump", myname) == 0) {
0Sstevel@tonic-gate		msg(gettext("hsmdump emulation is no longer supported.\n"));
0Sstevel@tonic-gate		Exit(X_ABORT);
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	tape = DEFTAPE;
0Sstevel@tonic-gate	autoload_period = 12;
0Sstevel@tonic-gate	autoload_tries = 12;	/* traditional default of ~2.5 minutes */
0Sstevel@tonic-gate
0Sstevel@tonic-gate	(void) setlocale(LC_ALL, "");
0Sstevel@tonic-gate#if !defined(TEXT_DOMAIN)
0Sstevel@tonic-gate#define	TEXT_DOMAIN "SYS_TEST"
0Sstevel@tonic-gate#endif  /* TEXT_DOMAIN */
0Sstevel@tonic-gate	(void) textdomain(TEXT_DOMAIN);
0Sstevel@tonic-gate
0Sstevel@tonic-gate	/*
0Sstevel@tonic-gate	 * If someone strips the set-uid bit, dump will still work for local
0Sstevel@tonic-gate	 * tapes.  Fail when we try to access a remote tape.
0Sstevel@tonic-gate	 */
0Sstevel@tonic-gate	(void) __init_suid_priv(0, PRIV_NET_PRIVADDR, (char *)NULL);
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (sysinfo(SI_HOSTNAME, spcl.c_host, sizeof (spcl.c_host)) < 0) {
0Sstevel@tonic-gate		saverr = errno;
0Sstevel@tonic-gate		msg(gettext("Could not get host name: %s\n"),
0Sstevel@tonic-gate		    strerror(saverr));
0Sstevel@tonic-gate		bzero(spcl.c_host, sizeof (spcl.c_host));
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	dumppid = getpid();
0Sstevel@tonic-gate	tsize = 0;	/* no default size, detect EOT dynamically */
0Sstevel@tonic-gate
0Sstevel@tonic-gate	disk = NULL;
0Sstevel@tonic-gate	dname = NULL;
0Sstevel@tonic-gate	disk_dynamic = 0;
0Sstevel@tonic-gate	increm = NINCREM;
0Sstevel@tonic-gate	incno = '9';
0Sstevel@tonic-gate	uflag = 0;
0Sstevel@tonic-gate	arg = "u";
0Sstevel@tonic-gate	tlabel = "none";
0Sstevel@tonic-gate	if (argc > 1) {
0Sstevel@tonic-gate		argv++;
0Sstevel@tonic-gate		argc--;
0Sstevel@tonic-gate		arg = *argv;
0Sstevel@tonic-gate		if (*arg == '-')
0Sstevel@tonic-gate			arg++;
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	while (*arg)
0Sstevel@tonic-gate	switch (*arg++) {		/* BE CAUTIOUS OF FALLTHROUGHS */
0Sstevel@tonic-gate	case 'M':
0Sstevel@tonic-gate		/*
0Sstevel@tonic-gate		 * This undocumented option causes each process to
0Sstevel@tonic-gate		 * mkdir debug_chdir/getpid(), and chdir to it.  This is
0Sstevel@tonic-gate		 * to ease the collection of profiling information and
0Sstevel@tonic-gate		 * core dumps.
0Sstevel@tonic-gate		 */
0Sstevel@tonic-gate		if (argc > 1) {
0Sstevel@tonic-gate			argv++;
0Sstevel@tonic-gate			argc--;
0Sstevel@tonic-gate			debug_chdir = *argv;
0Sstevel@tonic-gate			msg(gettext(
0Sstevel@tonic-gate			    "Each process shall try to chdir to %s/<pid>\n"),
0Sstevel@tonic-gate			    debug_chdir);
0Sstevel@tonic-gate			child_chdir();
0Sstevel@tonic-gate		} else {
0Sstevel@tonic-gate			msg(gettext("Missing move-to-dir (M) name\n"));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'w':
0Sstevel@tonic-gate		lastdump('w');		/* tell us only what has to be done */
0Sstevel@tonic-gate		exit(0);
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'W':			/* what to do */
0Sstevel@tonic-gate		lastdump('W');		/* tell state of what has been done */
0Sstevel@tonic-gate		exit(0);		/* do nothing else */
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'T':
0Sstevel@tonic-gate		if (argc > 1) {
0Sstevel@tonic-gate			int count;
0Sstevel@tonic-gate			int multiplier;
0Sstevel@tonic-gate			char units;
0Sstevel@tonic-gate
0Sstevel@tonic-gate			argv++;
0Sstevel@tonic-gate			argc--;
0Sstevel@tonic-gate			count = atoi(*argv);
0Sstevel@tonic-gate			if (count < 1) {
0Sstevel@tonic-gate				msg(gettext(
0Sstevel@tonic-gate				    "Unreasonable autoload timeout period\n"));
0Sstevel@tonic-gate				dumpabort();
0Sstevel@tonic-gate				/*NOTREACHED*/
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			units = *(*argv + strlen(*argv) - 1);
0Sstevel@tonic-gate			switch (units) {
0Sstevel@tonic-gate			case 's':
0Sstevel@tonic-gate				multiplier = 1;
0Sstevel@tonic-gate				break;
0Sstevel@tonic-gate			case 'h':
0Sstevel@tonic-gate				multiplier = 3600;
0Sstevel@tonic-gate				break;
0Sstevel@tonic-gate			case '0': case '1': case '2': case '3': case '4':
0Sstevel@tonic-gate			case '5': case '6': case '7': case '8': case '9':
0Sstevel@tonic-gate			case 'm':
0Sstevel@tonic-gate				multiplier = 60;
0Sstevel@tonic-gate				break;
0Sstevel@tonic-gate			default:
0Sstevel@tonic-gate				msg(gettext(
0Sstevel@tonic-gate				    "Unknown timeout units indicator `%c'\n"),
0Sstevel@tonic-gate				    units);
0Sstevel@tonic-gate				dumpabort();
0Sstevel@tonic-gate				/*NOTREACHED*/
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			autoload_tries = 1 +
0Sstevel@tonic-gate			    ((count * multiplier) / autoload_period);
0Sstevel@tonic-gate		} else {
0Sstevel@tonic-gate			msg(gettext("Missing autoload timeout period\n"));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'f':			/* output file */
0Sstevel@tonic-gate		if (argc > 1) {
0Sstevel@tonic-gate			argv++;
0Sstevel@tonic-gate			argc--;
0Sstevel@tonic-gate			tape = *argv;
0Sstevel@tonic-gate			if (*tape == '\0') {
0Sstevel@tonic-gate				msg(gettext("Bad output device name\n"));
0Sstevel@tonic-gate				dumpabort();
0Sstevel@tonic-gate				/*NOTREACHED*/
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate		} else {
0Sstevel@tonic-gate			msg(gettext("Missing output device name\n"));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		if (strcmp(tape, "-") == 0 && verify) {
0Sstevel@tonic-gate			msg(gettext(
0Sstevel@tonic-gate			"Cannot verify when dumping to standard out.\n"));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'd':			/* density, in bits per inch */
0Sstevel@tonic-gate		if (argc > 1) {
0Sstevel@tonic-gate			argv++;
0Sstevel@tonic-gate			argc--;
0Sstevel@tonic-gate			density = atoi(*argv) / 10;
0Sstevel@tonic-gate			if (density <= 0) {
0Sstevel@tonic-gate				msg(gettext(
0Sstevel@tonic-gate				    "Density must be a positive integer\n"));
0Sstevel@tonic-gate				dumpabort();
0Sstevel@tonic-gate				/*NOTREACHED*/
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate		} else {
0Sstevel@tonic-gate			msg(gettext("Missing density\n"));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 's':			/* tape size, feet */
0Sstevel@tonic-gate		if (argc > 1) {
0Sstevel@tonic-gate			argv++;
0Sstevel@tonic-gate			argc--;
0Sstevel@tonic-gate			tsize = atol(*argv);
0Sstevel@tonic-gate			if ((*argv[0] == '-') || (tsize == 0)) {
0Sstevel@tonic-gate				msg(gettext(
0Sstevel@tonic-gate			    "Tape size must be a positive integer\n"));
0Sstevel@tonic-gate				dumpabort();
0Sstevel@tonic-gate				/*NOTREACHED*/
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate		} else {
0Sstevel@tonic-gate			msg(gettext("Missing tape size\n"));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 't':			/* tracks */
0Sstevel@tonic-gate		if (argc > 1) {
0Sstevel@tonic-gate			argv++;
0Sstevel@tonic-gate			argc--;
0Sstevel@tonic-gate			tracks = atoi(*argv);
0Sstevel@tonic-gate		} else {
0Sstevel@tonic-gate			msg(gettext("Missing track count\n"));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'b':			/* blocks per tape write */
0Sstevel@tonic-gate		if (argc > 1) {
0Sstevel@tonic-gate			argv++;
0Sstevel@tonic-gate			argc--;
0Sstevel@tonic-gate			bflag++;
0Sstevel@tonic-gate			/*
0Sstevel@tonic-gate			 * We save the ntrec in case we need to change
0Sstevel@tonic-gate			 * tp_bsize later, we will have to recalculate
0Sstevel@tonic-gate			 * it.
0Sstevel@tonic-gate			 */
0Sstevel@tonic-gate			saved_ntrec = ntrec = atoi(*argv);
0Sstevel@tonic-gate			if (ntrec == 0 || (ntrec&1) || ntrec > (MAXNTREC*2)) {
0Sstevel@tonic-gate				msg(gettext(
0Sstevel@tonic-gate		    "Block size must be a positive, even integer <= %d\n"),
0Sstevel@tonic-gate				    MAXNTREC*2);
0Sstevel@tonic-gate				dumpabort();
0Sstevel@tonic-gate				/*NOTREACHED*/
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			ntrec /= (tp_bsize/DEV_BSIZE);
0Sstevel@tonic-gate		} else {
0Sstevel@tonic-gate			msg(gettext("Missing blocking factor\n"));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'c':			/* Tape is cart. not 9-track */
0Sstevel@tonic-gate	case 'C':			/* 'C' to be consistent with 'D' */
0Sstevel@tonic-gate		cartridge++;
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case '0':			/* dump level */
0Sstevel@tonic-gate	case '1':
0Sstevel@tonic-gate	case '2':
0Sstevel@tonic-gate	case '3':
0Sstevel@tonic-gate	case '4':
0Sstevel@tonic-gate	case '5':
0Sstevel@tonic-gate	case '6':
0Sstevel@tonic-gate	case '7':
0Sstevel@tonic-gate	case '8':
0Sstevel@tonic-gate	case '9':
0Sstevel@tonic-gate		incno = arg[-1];
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'u':			/* update /etc/dumpdates */
0Sstevel@tonic-gate		uflag++;
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'n':			/* notify operators */
0Sstevel@tonic-gate		notify++;
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'a':			/* create archive file */
0Sstevel@tonic-gate		archive = 1;
0Sstevel@tonic-gate		if (argc > 1) {
0Sstevel@tonic-gate			argv++;
0Sstevel@tonic-gate			argc--;
0Sstevel@tonic-gate			if (**argv == '\0') {
0Sstevel@tonic-gate				msg(gettext("Bad archive file name\n"));
0Sstevel@tonic-gate				dumpabort();
0Sstevel@tonic-gate				/*NOTREACHED*/
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			archivefile = strdup(*argv);
0Sstevel@tonic-gate			if (archivefile == NULL) {
0Sstevel@tonic-gate				saverr = errno;
0Sstevel@tonic-gate				msg(gettext("Cannot allocate memory: %s\n"),
0Sstevel@tonic-gate				    strerror(saverr));
0Sstevel@tonic-gate				dumpabort();
0Sstevel@tonic-gate				/*NOTREACHED*/
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate		} else {
0Sstevel@tonic-gate			msg(gettext("Missing archive file name\n"));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'v':
0Sstevel@tonic-gate		verify++;
0Sstevel@tonic-gate		doingverify++;
0Sstevel@tonic-gate		if (strcmp(tape, "-") == 0) {
0Sstevel@tonic-gate			msg(gettext(
0Sstevel@tonic-gate			"Cannot verify when dumping to standard out.\n"));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'D':
0Sstevel@tonic-gate		diskette++;
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'N':
0Sstevel@tonic-gate		if (argc > 1) {
0Sstevel@tonic-gate			argv++;
0Sstevel@tonic-gate			argc--;
0Sstevel@tonic-gate			if (**argv == '\0') {
0Sstevel@tonic-gate				msg(gettext("Missing name for dumpdates "
0Sstevel@tonic-gate				    "entry.\n"));
0Sstevel@tonic-gate				dumpabort();
0Sstevel@tonic-gate				/*NOTREACHED*/
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			dname = *argv;
0Sstevel@tonic-gate			if (strlen(dname) > MAXNAMLEN + 2) {
0Sstevel@tonic-gate				msg(gettext("Dumpdates entry name too "
0Sstevel@tonic-gate				    "long.\n"));
0Sstevel@tonic-gate				dumpabort();
0Sstevel@tonic-gate				/*NOTREACHED*/
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			for (i = 0; i < strlen(dname); i++) {
0Sstevel@tonic-gate				if (isspace(*(dname+i))) {
0Sstevel@tonic-gate					msg(gettext("Dumpdates entry name may "
0Sstevel@tonic-gate					    "not contain white space.\n"));
0Sstevel@tonic-gate					dumpabort();
0Sstevel@tonic-gate					/*NOTREACHED*/
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate		} else {
0Sstevel@tonic-gate			msg(gettext("Missing name for dumpdates entry.\n"));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate	case 'L':
0Sstevel@tonic-gate		if (argc > 1) {
0Sstevel@tonic-gate			argv++;
0Sstevel@tonic-gate			argc--;
0Sstevel@tonic-gate			if (**argv == '\0') {
0Sstevel@tonic-gate				msg(gettext("Missing tape label name\n"));
0Sstevel@tonic-gate				dumpabort();
0Sstevel@tonic-gate				/*NOTREACHED*/
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			tlabel = *argv;
0Sstevel@tonic-gate			if (strlen(tlabel) > (sizeof (spcl.c_label) - 1)) {
0Sstevel@tonic-gate				tlabel[sizeof (spcl.c_label) - 1] = '\0';
0Sstevel@tonic-gate				msg(gettext(
0Sstevel@tonic-gate		    "Truncating label to maximum supported length: `%s'\n"),
0Sstevel@tonic-gate				    tlabel);
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate		} else {
0Sstevel@tonic-gate			msg(gettext("Missing tape label name\n"));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'l':
0Sstevel@tonic-gate		autoload++;
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'o':
0Sstevel@tonic-gate		offline++;
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	case 'S':
0Sstevel@tonic-gate		printsize++;
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate
0Sstevel@tonic-gate#ifdef DEBUG
0Sstevel@tonic-gate	case 'z':
0Sstevel@tonic-gate		xflag++;
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate#endif
0Sstevel@tonic-gate
0Sstevel@tonic-gate	default:
0Sstevel@tonic-gate		msg(gettext("Bad option `%c'\n"), arg[-1]);
0Sstevel@tonic-gate		dumpabort();
0Sstevel@tonic-gate		/*NOTREACHED*/
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	if (argc > 1) {
0Sstevel@tonic-gate		argv++;
0Sstevel@tonic-gate		argc--;
0Sstevel@tonic-gate		if (**argv == '\0') {
0Sstevel@tonic-gate			msg(gettext("Bad disk name\n"));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		disk = *argv;
0Sstevel@tonic-gate		disk_dynamic = 0;
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	if (disk == NULL) {
0Sstevel@tonic-gate		(void) fprintf(stderr, gettext(
0Sstevel@tonic-gate	"Usage: %s [0123456789fustdWwnNDCcbavloS [argument]] filesystem\n"),
0Sstevel@tonic-gate		    myname);
0Sstevel@tonic-gate		Exit(X_ABORT);
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	if (!filenum)
0Sstevel@tonic-gate		filenum = 1;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (signal(SIGINT, interrupt) == SIG_IGN)
0Sstevel@tonic-gate		(void) signal(SIGINT, SIG_IGN);
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (strcmp(tape, "-") == 0) {
0Sstevel@tonic-gate		pipeout++;
0Sstevel@tonic-gate		tape = gettext("standard output");
0Sstevel@tonic-gate		dumpdev = sdumpdev = strdup(tape);
0Sstevel@tonic-gate		if (dumpdev == NULL) {
0Sstevel@tonic-gate			saverr = errno;
0Sstevel@tonic-gate			msg(gettext("Cannot allocate memory: %s\n"),
0Sstevel@tonic-gate			    strerror(saverr));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		/*CONSTANTCONDITION*/
0Sstevel@tonic-gate		assert(sizeof (spcl.c_label) > 5);
0Sstevel@tonic-gate		(void) strcpy(spcl.c_label, "none");
0Sstevel@tonic-gate	} else if (*tape == '+') {
0Sstevel@tonic-gate		nextdevice();
0Sstevel@tonic-gate		(void) strcpy(spcl.c_label, tlabel);
0Sstevel@tonic-gate	} else {
0Sstevel@tonic-gate		/* if not already set, set diskette to default */
0Sstevel@tonic-gate		if (diskette && strcmp(tape, DEFTAPE) == 0)
0Sstevel@tonic-gate			tape = DISKETTE;
0Sstevel@tonic-gate		nextdevice();
0Sstevel@tonic-gate		(void) strcpy(spcl.c_label, tlabel);
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	if (cartridge && diskette) {
0Sstevel@tonic-gate		error = 1;
0Sstevel@tonic-gate		msg(gettext("Cannot select both cartridge and diskette\n"));
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	if (density && diskette) {
0Sstevel@tonic-gate		error = 1;
0Sstevel@tonic-gate		msg(gettext("Cannot select density of diskette\n"));
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	if (tracks && diskette) {
0Sstevel@tonic-gate		error = 1;
0Sstevel@tonic-gate		msg(gettext("Cannot select number of tracks of diskette\n"));
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	if (error) {
0Sstevel@tonic-gate		dumpabort();
0Sstevel@tonic-gate		/*NOTREACHED*/
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	/*
0Sstevel@tonic-gate	 * Determine how to default tape size and density
0Sstevel@tonic-gate	 *
0Sstevel@tonic-gate	 *		density				tape size
0Sstevel@tonic-gate	 * 9-track	1600 bpi (160 bytes/.1")	2300 ft.
0Sstevel@tonic-gate	 * 9-track	6250 bpi (625 bytes/.1")	2300 ft.
0Sstevel@tonic-gate	 *
0Sstevel@tonic-gate	 * Most Sun-2's came with 4 track (20MB) cartridge tape drives,
0Sstevel@tonic-gate	 * while most other machines (Sun-3's and non-Sun's) come with
0Sstevel@tonic-gate	 * 9 track (45MB) cartridge tape drives.  Some Sun-2's came with
0Sstevel@tonic-gate	 * 9 track drives, but there is no way for the software to detect
0Sstevel@tonic-gate	 * which drive type is installed.  Sigh...  We make the gross
0Sstevel@tonic-gate	 * assumption that #ifdef mc68010 will test for a Sun-2.
0Sstevel@tonic-gate	 *
0Sstevel@tonic-gate	 * cartridge	8000 bpi (100 bytes/.1")	425 * tracks ft.
0Sstevel@tonic-gate	 */
0Sstevel@tonic-gate	if (density == 0)
0Sstevel@tonic-gate		density = cartridge ? 100 : 625;
0Sstevel@tonic-gate	if (tracks == 0)
0Sstevel@tonic-gate		tracks = 9;
0Sstevel@tonic-gate	if (!bflag) {
0Sstevel@tonic-gate		if (cartridge)
0Sstevel@tonic-gate			ntrec = CARTRIDGETREC;
0Sstevel@tonic-gate		else if (diskette)
0Sstevel@tonic-gate			ntrec = NTREC;
0Sstevel@tonic-gate		else if (density >= 625)
0Sstevel@tonic-gate			ntrec = HIGHDENSITYTREC;
0Sstevel@tonic-gate		else
0Sstevel@tonic-gate			ntrec = NTREC;
0Sstevel@tonic-gate		/*
0Sstevel@tonic-gate		 * save ntrec in case we have to change tp_bsize later.
0Sstevel@tonic-gate		 */
0Sstevel@tonic-gate		saved_ntrec = (ntrec * (tp_bsize/DEV_BSIZE));
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	if (!diskette) {
0Sstevel@tonic-gate		tsize *= 12L*10L;
0Sstevel@tonic-gate		if (cartridge)
0Sstevel@tonic-gate			tsize *= tracks;
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	rmtinit(msg, Exit);
0Sstevel@tonic-gate	if (host) {
0Sstevel@tonic-gate		char	*cp = strchr(host, '@');
0Sstevel@tonic-gate		if (cp == (char *)0)
0Sstevel@tonic-gate			cp = host;
0Sstevel@tonic-gate		else
0Sstevel@tonic-gate			cp++;
0Sstevel@tonic-gate
0Sstevel@tonic-gate		if (rmthost(host, ntrec) == 0) {
0Sstevel@tonic-gate			msg(gettext("Cannot connect to tape host `%s'\n"), cp);
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	if (signal(SIGHUP, sigAbort) == SIG_IGN)
0Sstevel@tonic-gate		(void) signal(SIGHUP, SIG_IGN);
0Sstevel@tonic-gate	if (signal(SIGTRAP, sigAbort) == SIG_IGN)
0Sstevel@tonic-gate		(void) signal(SIGTRAP, SIG_IGN);
0Sstevel@tonic-gate	if (signal(SIGFPE, sigAbort) == SIG_IGN)
0Sstevel@tonic-gate		(void) signal(SIGFPE, SIG_IGN);
0Sstevel@tonic-gate	if (signal(SIGBUS, sigAbort) == SIG_IGN)
0Sstevel@tonic-gate		(void) signal(SIGBUS, SIG_IGN);
0Sstevel@tonic-gate	if (signal(SIGSEGV, sigAbort) == SIG_IGN)
0Sstevel@tonic-gate		(void) signal(SIGSEGV, SIG_IGN);
0Sstevel@tonic-gate	if (signal(SIGTERM, sigAbort) == SIG_IGN)
0Sstevel@tonic-gate		(void) signal(SIGTERM, SIG_IGN);
0Sstevel@tonic-gate	if (signal(SIGUSR1, sigAbort) == SIG_IGN)
0Sstevel@tonic-gate		(void) signal(SIGUSR1, SIG_IGN);
0Sstevel@tonic-gate	if (signal(SIGPIPE, sigAbort) == SIG_IGN)
0Sstevel@tonic-gate		(void) signal(SIGPIPE, SIG_IGN);
0Sstevel@tonic-gate
0Sstevel@tonic-gate	mnttabread();		/* /etc/fstab, /etc/mtab snarfed */
0Sstevel@tonic-gate
0Sstevel@tonic-gate	/*
0Sstevel@tonic-gate	 *	disk can be either the full special file name,
0Sstevel@tonic-gate	 *	the suffix of the special file name,
0Sstevel@tonic-gate	 *	the special name missing the leading '/',
0Sstevel@tonic-gate	 *	the file system name with or without the leading '/'.
0Sstevel@tonic-gate	 *	NB:  we attempt to avoid dumping the block device
0Sstevel@tonic-gate	 *	(using rawname) because specfs and the vm system
0Sstevel@tonic-gate	 *	are not necessarily in sync.
0Sstevel@tonic-gate	 */
0Sstevel@tonic-gate
0Sstevel@tonic-gate	/*
0Sstevel@tonic-gate	 * Attempt to roll the log before doing the dump.  There's nothing
0Sstevel@tonic-gate	 * the user can do if we are unable to roll the log, so we'll silently
0Sstevel@tonic-gate	 * ignore failures.
0Sstevel@tonic-gate	 */
0Sstevel@tonic-gate	if ((rl_roll_log(disk) != RL_SUCCESS) && (disk[0] != '/')) {
0Sstevel@tonic-gate		/* Try it again with leading '/'. */
0Sstevel@tonic-gate		char	*slashed;
0Sstevel@tonic-gate
0Sstevel@tonic-gate		slashed = (char *)malloc(strlen(disk) + 2);
0Sstevel@tonic-gate		if (slashed != (char *)NULL) {
0Sstevel@tonic-gate			(void) sprintf(slashed, "%c%s", '/', disk);
0Sstevel@tonic-gate			(void) rl_roll_log(slashed);
0Sstevel@tonic-gate			free(slashed);
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	dt = mnttabsearch(disk, 0);
0Sstevel@tonic-gate	if (dt != 0) {
0Sstevel@tonic-gate		filesystem = dt->mnt_mountp;
0Sstevel@tonic-gate		if (disk_dynamic) {
0Sstevel@tonic-gate			/* LINTED: disk is not NULL */
0Sstevel@tonic-gate			free(disk);
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		disk = rawname(dt->mnt_special);
0Sstevel@tonic-gate		disk_dynamic = (disk != dt->mnt_special);
0Sstevel@tonic-gate
0Sstevel@tonic-gate		(void) strncpy(spcl.c_dev, dt->mnt_special,
0Sstevel@tonic-gate		    sizeof (spcl.c_dev));
0Sstevel@tonic-gate		spcl.c_dev[sizeof (spcl.c_dev) - 1] = '\0';
0Sstevel@tonic-gate		(void) strncpy(spcl.c_filesys, dt->mnt_mountp,
0Sstevel@tonic-gate		    sizeof (spcl.c_filesys));
0Sstevel@tonic-gate		spcl.c_filesys[sizeof (spcl.c_filesys) - 1] = '\0';
0Sstevel@tonic-gate	} else {
0Sstevel@tonic-gate		(void) strncpy(spcl.c_dev, disk, sizeof (spcl.c_dev));
0Sstevel@tonic-gate		spcl.c_dev[sizeof (spcl.c_dev) - 1] = '\0';
0Sstevel@tonic-gate#ifdef PARTIAL
0Sstevel@tonic-gate		/* check for partial filesystem dump */
0Sstevel@tonic-gate		partial_check();
0Sstevel@tonic-gate		dt = mnttabsearch(disk, 1);
0Sstevel@tonic-gate		if (dt != 0) {
0Sstevel@tonic-gate			filesystem = dt->mnt_mountp;
0Sstevel@tonic-gate			if (disk_dynamic)
0Sstevel@tonic-gate				free(disk);
0Sstevel@tonic-gate			disk = rawname(dt->mnt_special);
0Sstevel@tonic-gate			disk_dynamic = (disk != dt->mnt_special);
0Sstevel@tonic-gate
0Sstevel@tonic-gate			(void) strncpy(spcl.c_filesys,
0Sstevel@tonic-gate			    "a partial file system", sizeof (spcl.c_filesys));
0Sstevel@tonic-gate			spcl.c_filesys[sizeof (spcl.c_filesys) - 1] = '\0';
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		else
0Sstevel@tonic-gate#endif /* PARTIAL */
0Sstevel@tonic-gate		{
0Sstevel@tonic-gate			char *old_disk = disk;
0Sstevel@tonic-gate
0Sstevel@tonic-gate			(void) strncpy(spcl.c_filesys,
0Sstevel@tonic-gate			    "an unlisted file system",
0Sstevel@tonic-gate			    sizeof (spcl.c_filesys));
0Sstevel@tonic-gate			spcl.c_filesys[sizeof (spcl.c_filesys) - 1] = '\0';
0Sstevel@tonic-gate
0Sstevel@tonic-gate			disk = rawname(old_disk);
0Sstevel@tonic-gate			if (disk != old_disk) {
0Sstevel@tonic-gate				if (disk_dynamic)
0Sstevel@tonic-gate					free(old_disk);
0Sstevel@tonic-gate				disk_dynamic = 1;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			/*
0Sstevel@tonic-gate			 * If disk == old_disk, then disk_dynamic's state
0Sstevel@tonic-gate			 * does not change.
0Sstevel@tonic-gate			 */
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	fi = open64(disk, O_RDONLY);
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (fi < 0) {
0Sstevel@tonic-gate		saverr = errno;
0Sstevel@tonic-gate		msg(gettext("Cannot open dump device `%s': %s\n"),
0Sstevel@tonic-gate			disk, strerror(saverr));
0Sstevel@tonic-gate		Exit(X_ABORT);
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (sscanf(&incno, "%1d", &spcl.c_level) != 1) {
0Sstevel@tonic-gate		msg(gettext("Bad dump level `%c' specified\n"), incno);
0Sstevel@tonic-gate		dumpabort();
0Sstevel@tonic-gate		/*NOTREACHED*/
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	getitime();		/* /etc/dumpdates snarfed */
0Sstevel@tonic-gate
0Sstevel@tonic-gate	sblock = (struct fs *)&sblock_buf;
0Sstevel@tonic-gate	sync();
0Sstevel@tonic-gate
0Sstevel@tonic-gate	bread((diskaddr_t)SBLOCK, (uchar_t *)sblock, (long)SBSIZE);
0Sstevel@tonic-gate	if ((sblock->fs_magic != FS_MAGIC) &&
0Sstevel@tonic-gate	    (sblock->fs_magic != MTB_UFS_MAGIC)) {
0Sstevel@tonic-gate		msg(gettext(
0Sstevel@tonic-gate	    "Warning - super-block on device `%s' is corrupt - run fsck\n"),
0Sstevel@tonic-gate		    disk);
0Sstevel@tonic-gate		dumpabort();
0Sstevel@tonic-gate		/*NOTREACHED*/
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
*757Svsakar	if (sblock->fs_magic == FS_MAGIC &&
*757Svsakar	    (sblock->fs_version != UFS_EFISTYLE4NONEFI_VERSION_2 &&
*757Svsakar	    sblock->fs_version != UFS_VERSION_MIN)) {
*757Svsakar		msg(gettext("Unrecognized UFS version: %d\n"),
*757Svsakar		    sblock->fs_version);
*757Svsakar		dumpabort();
*757Svsakar		/*NOTREACHED*/
*757Svsakar	}
*757Svsakar
0Sstevel@tonic-gate	if (sblock->fs_magic == MTB_UFS_MAGIC &&
0Sstevel@tonic-gate	    (sblock->fs_version < MTB_UFS_VERSION_MIN ||
0Sstevel@tonic-gate	    sblock->fs_version > MTB_UFS_VERSION_1)) {
0Sstevel@tonic-gate		msg(gettext("Unrecognized UFS version: %d\n"),
0Sstevel@tonic-gate		    sblock->fs_version);
0Sstevel@tonic-gate		dumpabort();
0Sstevel@tonic-gate		/*NOTREACHED*/
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	/*
0Sstevel@tonic-gate	 * Try to set up for using mmap(2).  It only works on the block
0Sstevel@tonic-gate	 * device, but if we can use it, things go somewhat faster.  If
0Sstevel@tonic-gate	 * we can't open it, we'll silently fall back to the old method
0Sstevel@tonic-gate	 * (read/memcpy). We also only try this if it's been cleanly
0Sstevel@tonic-gate	 * unmounted. Dumping a live filesystem this way runs into
0Sstevel@tonic-gate	 * buffer consistency problems. Of course, we don't support
0Sstevel@tonic-gate	 * running dump on a mounted filesystem, but some people do it
0Sstevel@tonic-gate	 * anyway.
0Sstevel@tonic-gate	 */
0Sstevel@tonic-gate	if (sblock->fs_clean == FSCLEAN) {
0Sstevel@tonic-gate		char *block = unrawname(disk);
0Sstevel@tonic-gate
0Sstevel@tonic-gate		if (block != NULL) {
0Sstevel@tonic-gate			mapfd = open(block, O_RDONLY, 0);
0Sstevel@tonic-gate			free(block);
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gaterestart:
0Sstevel@tonic-gate	bread((diskaddr_t)SBLOCK, (uchar_t *)sblock, (long)SBSIZE);
0Sstevel@tonic-gate	if ((sblock->fs_magic != FS_MAGIC) &&
0Sstevel@tonic-gate	    (sblock->fs_magic != MTB_UFS_MAGIC)) {	/* paranoia */
0Sstevel@tonic-gate		msg(gettext("bad super-block magic number, run fsck\n"));
0Sstevel@tonic-gate		dumpabort();
0Sstevel@tonic-gate		/*NOTREACHED*/
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
*757Svsakar	if (sblock->fs_magic == FS_MAGIC &&
*757Svsakar	    (sblock->fs_version != UFS_EFISTYLE4NONEFI_VERSION_2 &&
*757Svsakar	    sblock->fs_version != UFS_VERSION_MIN)) {
*757Svsakar		msg(gettext("Unrecognized UFS version: %d\n"),
*757Svsakar		    sblock->fs_version);
*757Svsakar		dumpabort();
*757Svsakar		/*NOTREACHED*/
*757Svsakar	}
*757Svsakar
0Sstevel@tonic-gate	if (sblock->fs_magic == MTB_UFS_MAGIC &&
0Sstevel@tonic-gate	    (sblock->fs_version < MTB_UFS_VERSION_MIN ||
0Sstevel@tonic-gate	    sblock->fs_version > MTB_UFS_VERSION_1)) {
0Sstevel@tonic-gate		msg(gettext("Unrecognized UFS version: %d\n"),
0Sstevel@tonic-gate		    sblock->fs_version);
0Sstevel@tonic-gate		dumpabort();
0Sstevel@tonic-gate		/*NOTREACHED*/
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (!doingactive)
0Sstevel@tonic-gate		allocino();
0Sstevel@tonic-gate
0Sstevel@tonic-gate	/* XXX should sanity-check the super block before trusting/using it */
0Sstevel@tonic-gate
0Sstevel@tonic-gate	/* LINTED XXX time truncated - tolerate until tape format changes */
0Sstevel@tonic-gate	spcl.c_date = (time32_t)time((time_t *)NULL);
0Sstevel@tonic-gate	bcopy(&(spcl.c_shadow), c_shadow_save, sizeof (c_shadow_save));
0Sstevel@tonic-gate
0Sstevel@tonic-gate	snapdate = is_fssnap_dump(disk);
0Sstevel@tonic-gate	if (snapdate)
0Sstevel@tonic-gate		spcl.c_date = snapdate;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (!printsize) {
0Sstevel@tonic-gate		msg(gettext("Date of this level %c dump: %s\n"),
0Sstevel@tonic-gate		    incno, prdate(spcl.c_date));
0Sstevel@tonic-gate		msg(gettext("Date of last level %c dump: %s\n"),
0Sstevel@tonic-gate			(uchar_t)lastincno, prdate(spcl.c_ddate));
0Sstevel@tonic-gate		msg(gettext("Dumping %s "), disk);
0Sstevel@tonic-gate		if (filesystem != 0)
0Sstevel@tonic-gate			msgtail("(%.*s:%s) ",
0Sstevel@tonic-gate			    /* LINTED unsigned -> signed cast ok */
0Sstevel@tonic-gate			    (int)sizeof (spcl.c_host), spcl.c_host, filesystem);
0Sstevel@tonic-gate		msgtail(gettext("to %s.\n"), sdumpdev);
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	esize = f_esize = o_esize = 0;
0Sstevel@tonic-gate	msiz = roundup(d_howmany(sblock->fs_ipg * sblock->fs_ncg, NBBY),
0Sstevel@tonic-gate		TP_BSIZE_MAX);
0Sstevel@tonic-gate	if (!doingactive) {
0Sstevel@tonic-gate		clrmap = (uchar_t *)xcalloc(msiz, sizeof (*clrmap));
0Sstevel@tonic-gate		filmap = (uchar_t *)xcalloc(msiz, sizeof (*filmap));
0Sstevel@tonic-gate		dirmap = (uchar_t *)xcalloc(msiz, sizeof (*dirmap));
0Sstevel@tonic-gate		nodmap = (uchar_t *)xcalloc(msiz, sizeof (*nodmap));
0Sstevel@tonic-gate		shamap = (uchar_t *)xcalloc(msiz, sizeof (*shamap));
0Sstevel@tonic-gate		activemap = (uchar_t *)xcalloc(msiz, sizeof (*activemap));
0Sstevel@tonic-gate	} else {
0Sstevel@tonic-gate		if (clrmap == NULL || filmap == NULL || dirmap == NULL ||
0Sstevel@tonic-gate		    nodmap == NULL || shamap == NULL || activemap == NULL) {
0Sstevel@tonic-gate			msg(gettext(
0Sstevel@tonic-gate	    "Internal error: NULL map pointer while re-dumping active files"));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		bzero(clrmap, msiz);
0Sstevel@tonic-gate		bzero(filmap, msiz);
0Sstevel@tonic-gate		bzero(dirmap, msiz);
0Sstevel@tonic-gate		bzero(nodmap, msiz);
0Sstevel@tonic-gate		bzero(shamap, msiz);
0Sstevel@tonic-gate		/* retain active map */
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	dumpstate = DS_INIT;
0Sstevel@tonic-gate	dumptoarchive = 1;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	/*
0Sstevel@tonic-gate	 * Read cylinder group inode-used bitmaps to avoid reading clear inodes.
0Sstevel@tonic-gate	 */
0Sstevel@tonic-gate	{
0Sstevel@tonic-gate		uchar_t *clrp = clrmap;
0Sstevel@tonic-gate		struct cg *cgp =
0Sstevel@tonic-gate		    (struct cg *)xcalloc((uint_t)sblock->fs_cgsize, 1);
0Sstevel@tonic-gate
0Sstevel@tonic-gate		for (i = 0; i < sblock->fs_ncg; i++) {
0Sstevel@tonic-gate			bread(fsbtodb(sblock, cgtod(sblock, i)),
0Sstevel@tonic-gate			    (uchar_t *)cgp, sblock->fs_cgsize);
0Sstevel@tonic-gate			bcopy(cg_inosused(cgp), clrp,
0Sstevel@tonic-gate			    (int)sblock->fs_ipg / NBBY);
0Sstevel@tonic-gate			clrp += sblock->fs_ipg / NBBY;
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		free((char *)cgp);
0Sstevel@tonic-gate		/* XXX right-shift clrmap one bit.  why? */
0Sstevel@tonic-gate		for (i = 0; clrp > clrmap; i <<= NBBY) {
0Sstevel@tonic-gate			i |= *--clrp & ((1<<NBBY) - 1);
0Sstevel@tonic-gate			*clrp = i >> 1;
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (!printsize) {
0Sstevel@tonic-gate		msgp = gettext("Mapping (Pass I) [regular files]\n");
0Sstevel@tonic-gate		msg(msgp);
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	ino = 0;
0Sstevel@tonic-gate#ifdef PARTIAL
0Sstevel@tonic-gate	if (partial_mark(argc, argv)) {
0Sstevel@tonic-gate#endif /* PARTIAL */
0Sstevel@tonic-gate		if (!doingactive)
0Sstevel@tonic-gate			pass(mark, clrmap);	/* mark updates 'x'_esize */
0Sstevel@tonic-gate		else
0Sstevel@tonic-gate			pass(active_mark, clrmap);	/* updates 'x'_esize */
0Sstevel@tonic-gate#ifdef PARTIAL
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate#endif /* PARTIAL */
0Sstevel@tonic-gate	do {
0Sstevel@tonic-gate		if (!printsize) {
0Sstevel@tonic-gate			msgp = gettext("Mapping (Pass II) [directories]\n");
0Sstevel@tonic-gate			msg(msgp);
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		nadded = 0;
0Sstevel@tonic-gate		ino = 0;
0Sstevel@tonic-gate		pass(add, dirmap);
0Sstevel@tonic-gate	} while (nadded);
0Sstevel@tonic-gate
0Sstevel@tonic-gate	ino = 0; /* adjust estimated size for shadow inodes */
0Sstevel@tonic-gate	pass(markshad, nodmap);
0Sstevel@tonic-gate	ino = 0;
0Sstevel@tonic-gate	pass(estshad, shamap);
0Sstevel@tonic-gate	freeshad();
0Sstevel@tonic-gate
0Sstevel@tonic-gate	bmapest(clrmap);
0Sstevel@tonic-gate	bmapest(nodmap);
0Sstevel@tonic-gate	esize = o_esize + f_esize;
0Sstevel@tonic-gate	if (diskette) {
0Sstevel@tonic-gate		/* estimate number of floppies */
0Sstevel@tonic-gate		if (tsize != 0)
0Sstevel@tonic-gate			fetapes = (double)(esize + ntrec) / (double)tsize;
0Sstevel@tonic-gate	} else if (cartridge) {
0Sstevel@tonic-gate		/*
0Sstevel@tonic-gate		 * Estimate number of tapes, assuming streaming stops at
0Sstevel@tonic-gate		 * the end of each block written, and not in mid-block.
0Sstevel@tonic-gate		 * Assume no erroneous blocks; this can be compensated for
0Sstevel@tonic-gate		 * with an artificially low tape size.
0Sstevel@tonic-gate		 */
0Sstevel@tonic-gate		tenthsperirg = 16;	/* actually 15.48, says Archive */
0Sstevel@tonic-gate		if (tsize != 0)
0Sstevel@tonic-gate			fetapes = ((double)esize /* blocks */
0Sstevel@tonic-gate			    * (tp_bsize		/* bytes/block */
0Sstevel@tonic-gate			    * (1.0/density))	/* 0.1" / byte */
0Sstevel@tonic-gate			    +
0Sstevel@tonic-gate			    (double)esize	/* blocks */
0Sstevel@tonic-gate			    * (1.0/ntrec)	/* streaming-stops per block */
0Sstevel@tonic-gate			    * tenthsperirg)	/* 0.1" / streaming-stop */
0Sstevel@tonic-gate			    * (1.0 / tsize);	/* tape / 0.1" */
0Sstevel@tonic-gate	} else {
0Sstevel@tonic-gate		/* Estimate number of tapes, for old fashioned 9-track tape */
0Sstevel@tonic-gate#ifdef sun
0Sstevel@tonic-gate		/* sun has long irg's */
0Sstevel@tonic-gate		tenthsperirg = (density == 625) ? 6 : 12;
0Sstevel@tonic-gate#else
0Sstevel@tonic-gate		tenthsperirg = (density == 625) ? 5 : 8;
0Sstevel@tonic-gate#endif
0Sstevel@tonic-gate		if (tsize != 0)
0Sstevel@tonic-gate			fetapes = ((double)esize /* blocks */
0Sstevel@tonic-gate			    * (tp_bsize		/* bytes / block */
0Sstevel@tonic-gate			    * (1.0/density))	/* 0.1" / byte */
0Sstevel@tonic-gate			    +
0Sstevel@tonic-gate			    (double)esize	/* blocks */
0Sstevel@tonic-gate			    * (1.0/ntrec)	/* IRG's / block */
0Sstevel@tonic-gate			    * tenthsperirg)	/* 0.1" / IRG */
0Sstevel@tonic-gate			    * (1.0 / tsize);	/* tape / 0.1" */
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	etapes = fetapes;	/* truncating assignment */
0Sstevel@tonic-gate	etapes++;
0Sstevel@tonic-gate	/* count the nodemap on each additional tape */
0Sstevel@tonic-gate	for (i = 1; i < etapes; i++)
0Sstevel@tonic-gate		bmapest(nodmap);
0Sstevel@tonic-gate	/*
0Sstevel@tonic-gate	 * If the above bmapest is called, it changes o_esize and f_esize.
0Sstevel@tonic-gate	 * So we will recalculate esize here anyway to make sure.
0Sstevel@tonic-gate	 * Also, add tape headers and trailer records.
0Sstevel@tonic-gate	 */
0Sstevel@tonic-gate	esize = o_esize + f_esize + etapes + ntrec;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	/*
0Sstevel@tonic-gate	 * If the estimated number of tp_bsize tape blocks is greater than
0Sstevel@tonic-gate	 * INT_MAX we have to adjust tp_bsize and ntrec to handle
0Sstevel@tonic-gate	 * the larger dump.  esize is an estimate, so we 'fudge'
0Sstevel@tonic-gate	 * INT_MAX a little.  If tp_bsize is adjusted, it will be adjusted
0Sstevel@tonic-gate	 * to the size needed for this dump (2048, 4096, 8192, ...)
0Sstevel@tonic-gate	 */
0Sstevel@tonic-gate	if (esize > (INT_MAX - FUDGE_FACTOR)) { /* esize is too big */
0Sstevel@tonic-gate		forceflag++;
0Sstevel@tonic-gate		esize_shift =
0Sstevel@tonic-gate		    ((esize + (INT_MAX - FUDGE_FACTOR) - 1)/
0Sstevel@tonic-gate		    ((u_offset_t)(INT_MAX - FUDGE_FACTOR))) - 1;
0Sstevel@tonic-gate		if ((esize_shift > ESIZE_SHIFT_MAX) || (ntrec == 0)) {
0Sstevel@tonic-gate			msgp = gettext(
0Sstevel@tonic-gate	"Block factor %d ('b' flag) is too small for this size dump.");
0Sstevel@tonic-gate			msg(msgp, saved_ntrec);
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		/*
0Sstevel@tonic-gate		 * recalculate esize from:
0Sstevel@tonic-gate		 * o_esize - header tape records
0Sstevel@tonic-gate		 * (f_esize + (num_mult -1)) >> esize_shift - new non-header
0Sstevel@tonic-gate		 *	tape records for files/maps
0Sstevel@tonic-gate		 * etapes - TS_TAPE records
0Sstevel@tonic-gate		 * ntrec - TS_END records
0Sstevel@tonic-gate		 *
0Sstevel@tonic-gate		 * ntrec is adjusted so a tape record is still 'b' flag
0Sstevel@tonic-gate		 * number of DEV_BSIZE (512) in size
0Sstevel@tonic-gate		 */
0Sstevel@tonic-gate		new_mult = (tp_bsize << esize_shift)/tp_bsize;
0Sstevel@tonic-gate		tp_bsize = (tp_bsize << esize_shift);
0Sstevel@tonic-gate		esize = o_esize + ((f_esize +
0Sstevel@tonic-gate		    (new_mult - 1)) >> esize_shift) + etapes + ntrec;
0Sstevel@tonic-gate		ntrec = (saved_ntrec/(tp_bsize/DEV_BSIZE));
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	if (forceflag != 0) {
0Sstevel@tonic-gate		msgp = gettext(
0Sstevel@tonic-gate		    "Forcing larger tape block size (%d).\n");
0Sstevel@tonic-gate		msg(msgp, tp_bsize);
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	alloctape();			/* allocate tape buffers */
0Sstevel@tonic-gate
0Sstevel@tonic-gate	assert((tp_bsize / DEV_BSIZE != 0) && (tp_bsize % DEV_BSIZE == 0));
0Sstevel@tonic-gate	/*
0Sstevel@tonic-gate	 * If all we wanted was the size estimate,
0Sstevel@tonic-gate	 * just print it out and exit.
0Sstevel@tonic-gate	 */
0Sstevel@tonic-gate	if (printsize) {
0Sstevel@tonic-gate		(void) printf("%llu\n", esize * tp_bsize);
0Sstevel@tonic-gate		Exit(0);
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (tsize != 0) {
0Sstevel@tonic-gate		if (diskette)
0Sstevel@tonic-gate			msgp = gettext(
0Sstevel@tonic-gate			    "Estimated %lld blocks (%s) on %3.2f diskettes.\n");
0Sstevel@tonic-gate		else
0Sstevel@tonic-gate			msgp = gettext(
0Sstevel@tonic-gate			    "Estimated %lld blocks (%s) on %3.2f tapes.\n");
0Sstevel@tonic-gate
0Sstevel@tonic-gate		msg(msgp,
0Sstevel@tonic-gate		    (esize*(tp_bsize/DEV_BSIZE)), mb(esize), fetapes);
0Sstevel@tonic-gate	} else {
0Sstevel@tonic-gate		msgp = gettext("Estimated %lld blocks (%s).\n");
0Sstevel@tonic-gate		msg(msgp, (esize*(tp_bsize/DEV_BSIZE)), mb(esize));
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	dumpstate = DS_CLRI;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	otape(1);			/* bitmap is the first to tape write */
0Sstevel@tonic-gate	*telapsed = 0;
0Sstevel@tonic-gate	(void) time(tstart_writing);
0Sstevel@tonic-gate
0Sstevel@tonic-gate	/* filmap indicates all non-directory inodes */
0Sstevel@tonic-gate	{
0Sstevel@tonic-gate		uchar_t *np, *fp, *dp;
0Sstevel@tonic-gate		np = nodmap;
0Sstevel@tonic-gate		dp = dirmap;
0Sstevel@tonic-gate		fp = filmap;
0Sstevel@tonic-gate		for (i = 0; i < msiz; i++)
0Sstevel@tonic-gate			*fp++ = *np++ ^ *dp++;
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	while (dumpstate != DS_DONE) {
0Sstevel@tonic-gate		/*
0Sstevel@tonic-gate		 * When we receive EOT notification from
0Sstevel@tonic-gate		 * the writer, the signal handler calls
0Sstevel@tonic-gate		 * rollforward and then jumps here.
0Sstevel@tonic-gate		 */
0Sstevel@tonic-gate		(void) setjmp(checkpoint_buf);
0Sstevel@tonic-gate		switch (dumpstate) {
0Sstevel@tonic-gate		case DS_INIT:
0Sstevel@tonic-gate			/*
0Sstevel@tonic-gate			 * We get here if a tape error occurred
0Sstevel@tonic-gate			 * after releasing the name lock but before
0Sstevel@tonic-gate			 * the volume containing the last of the
0Sstevel@tonic-gate			 * dir info was completed.  We have to start
0Sstevel@tonic-gate			 * all over in this case.
0Sstevel@tonic-gate			 */
0Sstevel@tonic-gate			{
0Sstevel@tonic-gate				char *rmsg = gettext(
0Sstevel@tonic-gate		"Warning - output error occurred after releasing name lock\n\
0Sstevel@tonic-gate\tThe dump will restart\n");
0Sstevel@tonic-gate				msg(rmsg);
0Sstevel@tonic-gate				goto restart;
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			/* NOTREACHED */
0Sstevel@tonic-gate		case DS_START:
0Sstevel@tonic-gate		case DS_CLRI:
0Sstevel@tonic-gate			ino = UFSROOTINO;
0Sstevel@tonic-gate			dumptoarchive = 1;
0Sstevel@tonic-gate			bitmap(clrmap, TS_CLRI);
0Sstevel@tonic-gate			nextstate(DS_BITS);
0Sstevel@tonic-gate			/* FALLTHROUGH */
0Sstevel@tonic-gate		case DS_BITS:
0Sstevel@tonic-gate			ino = UFSROOTINO;
0Sstevel@tonic-gate			dumptoarchive = 1;
0Sstevel@tonic-gate			if (BIT(UFSROOTINO, nodmap))	/* empty dump check */
0Sstevel@tonic-gate				bitmap(nodmap, TS_BITS);
0Sstevel@tonic-gate			nextstate(DS_DIRS);
0Sstevel@tonic-gate			if (!doingverify) {
0Sstevel@tonic-gate				msgp = gettext(
0Sstevel@tonic-gate					"Dumping (Pass III) [directories]\n");
0Sstevel@tonic-gate				msg(msgp);
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			/* FALLTHROUGH */
0Sstevel@tonic-gate		case DS_DIRS:
0Sstevel@tonic-gate			dumptoarchive = 1;
0Sstevel@tonic-gate			pass(dirdump, dirmap);
0Sstevel@tonic-gate			nextstate(DS_FILES);
0Sstevel@tonic-gate			if (!doingverify) {
0Sstevel@tonic-gate				msgp = gettext(
0Sstevel@tonic-gate					"Dumping (Pass IV) [regular files]\n");
0Sstevel@tonic-gate				msg(msgp);
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			/* FALLTHROUGH */
0Sstevel@tonic-gate		case DS_FILES:
0Sstevel@tonic-gate			dumptoarchive = 0;
0Sstevel@tonic-gate
0Sstevel@tonic-gate			pass(lf_dump, filmap);
0Sstevel@tonic-gate
0Sstevel@tonic-gate			flushcmds();
0Sstevel@tonic-gate			dumpstate = DS_END;	/* don't reset ino */
0Sstevel@tonic-gate			/* FALLTHROUGH */
0Sstevel@tonic-gate		case DS_END:
0Sstevel@tonic-gate			dumptoarchive = 1;
0Sstevel@tonic-gate			spcl.c_type = TS_END;
0Sstevel@tonic-gate			for (i = 0; i < ntrec; i++) {
0Sstevel@tonic-gate				spclrec();
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			flusht();
0Sstevel@tonic-gate			break;
0Sstevel@tonic-gate		case DS_DONE:
0Sstevel@tonic-gate			break;
0Sstevel@tonic-gate		default:
0Sstevel@tonic-gate			msg(gettext("Internal state error\n"));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if ((! doingactive) && (! active))
0Sstevel@tonic-gate		trewind();
0Sstevel@tonic-gate	if (verify && !doingverify) {
0Sstevel@tonic-gate		msgp = gettext("Finished writing last dump volume\n");
0Sstevel@tonic-gate		msg(msgp);
0Sstevel@tonic-gate		Exit(X_VERIFY);
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	if (spcl.c_volume > 1)
0Sstevel@tonic-gate		(void) snprintf(msgbuf, sizeof (msgbuf),
0Sstevel@tonic-gate		    gettext("%lld blocks (%s) on %ld volumes"),
0Sstevel@tonic-gate		    ((uint64_t)spcl.c_tapea*(tp_bsize/DEV_BSIZE)),
0Sstevel@tonic-gate		    mb((u_offset_t)(unsigned)(spcl.c_tapea)),
0Sstevel@tonic-gate		    spcl.c_volume);
0Sstevel@tonic-gate	else
0Sstevel@tonic-gate		(void) snprintf(msgbuf, sizeof (msgbuf),
0Sstevel@tonic-gate		    gettext("%lld blocks (%s) on 1 volume"),
0Sstevel@tonic-gate		    ((uint64_t)spcl.c_tapea*(tp_bsize/DEV_BSIZE)),
0Sstevel@tonic-gate		    mb((u_offset_t)(unsigned)(spcl.c_tapea)));
0Sstevel@tonic-gate	if (timeclock((time_t)0) != (time_t)0) {
0Sstevel@tonic-gate		(void) snprintf(kbsbuf, sizeof (kbsbuf),
0Sstevel@tonic-gate		    gettext(" at %ld KB/sec"),
0Sstevel@tonic-gate		    (long)(((float)spcl.c_tapea / (float)timeclock((time_t)0))
0Sstevel@tonic-gate			* 1000.0));
0Sstevel@tonic-gate		(void) strcat(msgbuf, kbsbuf);
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	(void) strcat(msgbuf, "\n");
0Sstevel@tonic-gate	msg(msgbuf);
0Sstevel@tonic-gate	(void) timeclock((time_t)-1);
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (archive)
0Sstevel@tonic-gate		msg(gettext("Archiving dump to `%s'\n"), archivefile);
0Sstevel@tonic-gate	if (active && !verify) {
0Sstevel@tonic-gate		nextstate(DS_INIT);
0Sstevel@tonic-gate		activepass();
0Sstevel@tonic-gate		goto restart;
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	msgp = gettext("DUMP IS DONE\n");
0Sstevel@tonic-gate	msg(msgp);
0Sstevel@tonic-gate	broadcast(msgp);
0Sstevel@tonic-gate	if (! doingactive)
0Sstevel@tonic-gate		putitime();
0Sstevel@tonic-gate	Exit(X_FINOK);
0Sstevel@tonic-gate#ifdef lint
0Sstevel@tonic-gate	return (0);
0Sstevel@tonic-gate#endif
0Sstevel@tonic-gate}
0Sstevel@tonic-gate
0Sstevel@tonic-gatevoid
0Sstevel@tonic-gatesigAbort(sig)
0Sstevel@tonic-gate	int	sig;
0Sstevel@tonic-gate{
0Sstevel@tonic-gate	char	*sigtype;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	switch (sig) {
0Sstevel@tonic-gate	case SIGHUP:
0Sstevel@tonic-gate		sigtype = "SIGHUP";
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate	case SIGTRAP:
0Sstevel@tonic-gate		sigtype = "SIGTRAP";
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate	case SIGFPE:
0Sstevel@tonic-gate		sigtype = "SIGFPE";
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate	case SIGBUS:
0Sstevel@tonic-gate		msg(gettext("%s  ABORTING!\n"), "SIGBUS()");
0Sstevel@tonic-gate		(void) signal(SIGUSR2, SIG_DFL);
0Sstevel@tonic-gate		abort();
0Sstevel@tonic-gate		/*NOTREACHED*/
0Sstevel@tonic-gate	case SIGSEGV:
0Sstevel@tonic-gate		msg(gettext("%s  ABORTING!\n"), "SIGSEGV()");
0Sstevel@tonic-gate		(void) signal(SIGUSR2, SIG_DFL);
0Sstevel@tonic-gate		abort();
0Sstevel@tonic-gate		/*NOTREACHED*/
0Sstevel@tonic-gate	case SIGALRM:
0Sstevel@tonic-gate		sigtype = "SIGALRM";
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate	case SIGTERM:
0Sstevel@tonic-gate		sigtype = "SIGTERM";
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate	case SIGPIPE:
0Sstevel@tonic-gate		msg(gettext("Broken pipe\n"));
0Sstevel@tonic-gate		dumpabort();
0Sstevel@tonic-gate		/*NOTREACHED*/
0Sstevel@tonic-gate	default:
0Sstevel@tonic-gate		sigtype = "SIGNAL";
0Sstevel@tonic-gate		break;
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	msg(gettext("%s()  try rewriting\n"), sigtype);
0Sstevel@tonic-gate	if (pipeout) {
0Sstevel@tonic-gate		msg(gettext("Unknown signal, Cannot recover\n"));
0Sstevel@tonic-gate		dumpabort();
0Sstevel@tonic-gate		/*NOTREACHED*/
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate	msg(gettext("Rewriting attempted as response to unknown signal.\n"));
0Sstevel@tonic-gate	(void) fflush(stderr);
0Sstevel@tonic-gate	(void) fflush(stdout);
0Sstevel@tonic-gate	close_rewind();
0Sstevel@tonic-gate	Exit(X_REWRITE);
0Sstevel@tonic-gate}
0Sstevel@tonic-gate
0Sstevel@tonic-gate/* Note that returned value is malloc'd if != cp && != NULL */
0Sstevel@tonic-gatechar *
0Sstevel@tonic-gaterawname(cp)
0Sstevel@tonic-gate	char *cp;
0Sstevel@tonic-gate{
0Sstevel@tonic-gate	struct stat64 st;
0Sstevel@tonic-gate	char *dp;
0Sstevel@tonic-gate	extern char *getfullrawname();
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (stat64(cp, &st) < 0 || (st.st_mode & S_IFMT) != S_IFBLK)
0Sstevel@tonic-gate		return (cp);
0Sstevel@tonic-gate
0Sstevel@tonic-gate	dp = getfullrawname(cp);
0Sstevel@tonic-gate	if (dp == 0)
0Sstevel@tonic-gate		return (0);
0Sstevel@tonic-gate	if (*dp == '\0') {
0Sstevel@tonic-gate		free(dp);
0Sstevel@tonic-gate		return (0);
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (stat64(dp, &st) < 0 || (st.st_mode & S_IFMT) != S_IFCHR) {
0Sstevel@tonic-gate		free(dp);
0Sstevel@tonic-gate		return (cp);
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	return (dp);
0Sstevel@tonic-gate}
0Sstevel@tonic-gate
0Sstevel@tonic-gatestatic char *
0Sstevel@tonic-gatemb(blks)
0Sstevel@tonic-gate	u_offset_t blks;
0Sstevel@tonic-gate{
0Sstevel@tonic-gate	static char buf[16];
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (blks < 1024)
0Sstevel@tonic-gate		(void) snprintf(buf, sizeof (buf), "%lldKB", blks);
0Sstevel@tonic-gate	else
0Sstevel@tonic-gate		(void) snprintf(buf, sizeof (buf), "%.2fMB",
0Sstevel@tonic-gate		    ((double)(blks*tp_bsize)) / (double)(1024*1024));
0Sstevel@tonic-gate	return (buf);
0Sstevel@tonic-gate}
0Sstevel@tonic-gate
0Sstevel@tonic-gate#ifdef signal
0Sstevel@tonic-gatevoid (*nsignal(sig, act))(int)
0Sstevel@tonic-gate	int	sig;
0Sstevel@tonic-gate	void	(*act)(int);
0Sstevel@tonic-gate{
0Sstevel@tonic-gate	struct sigaction sa, osa;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	sa.sa_handler = act;
0Sstevel@tonic-gate	(void) sigemptyset(&sa.sa_mask);
0Sstevel@tonic-gate	sa.sa_flags = SA_RESTART;
0Sstevel@tonic-gate	if (sigaction(sig, &sa, &osa) < 0)
0Sstevel@tonic-gate		return ((void (*)(int))-1);
0Sstevel@tonic-gate	return (osa.sa_handler);
0Sstevel@tonic-gate}
0Sstevel@tonic-gate#endif
0Sstevel@tonic-gate
0Sstevel@tonic-gatestatic void
0Sstevel@tonic-gatenextstate(state)
0Sstevel@tonic-gate	int	state;
0Sstevel@tonic-gate{
0Sstevel@tonic-gate	/* LINTED assigned value never used - kept for documentary purposes */
0Sstevel@tonic-gate	dumpstate = state;
0Sstevel@tonic-gate	/* LINTED assigned value never used - kept for documentary purposes */
0Sstevel@tonic-gate	ino = 0;
0Sstevel@tonic-gate	/* LINTED assigned value never used - kept for documentary purposes */
0Sstevel@tonic-gate	pos = 0;
0Sstevel@tonic-gate	leftover = 0;
0Sstevel@tonic-gate}
0Sstevel@tonic-gate
0Sstevel@tonic-gate/*
0Sstevel@tonic-gate * timeclock() function, for keeping track of how much time we've spent
0Sstevel@tonic-gate * writing to the tape device.  it always returns the amount of time
0Sstevel@tonic-gate * already spent, in milliseconds.  if you pass it a positive, then that's
0Sstevel@tonic-gate * telling it that we're writing, so the time counts.  if you pass it a
0Sstevel@tonic-gate * zero, then that's telling it we're not writing; perhaps we're waiting
0Sstevel@tonic-gate * for user input.
0Sstevel@tonic-gate *
0Sstevel@tonic-gate * a state of -1 resets everything.
0Sstevel@tonic-gate */
0Sstevel@tonic-gatetime32_t
0Sstevel@tonic-gatetimeclock(state)
0Sstevel@tonic-gate	time32_t state;
0Sstevel@tonic-gate{
0Sstevel@tonic-gate	static int *currentState = NULL;
0Sstevel@tonic-gate	static struct timeval *clockstart;
0Sstevel@tonic-gate	static time32_t *emilli;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	struct timeval current[1];
0Sstevel@tonic-gate	int fd, saverr;
0Sstevel@tonic-gate
0Sstevel@tonic-gate#ifdef DEBUG
0Sstevel@tonic-gate	fprintf(stderr, "pid=%d timeclock ", getpid());
0Sstevel@tonic-gate	if (state == (time32_t)-1)
0Sstevel@tonic-gate		fprintf(stderr, "cleared\n");
0Sstevel@tonic-gate	else if (state > 0)
0Sstevel@tonic-gate		fprintf(stderr, "ticking\n");
0Sstevel@tonic-gate	else
0Sstevel@tonic-gate		fprintf(stderr, "paused\n");
0Sstevel@tonic-gate#endif /* DEBUG */
0Sstevel@tonic-gate
0Sstevel@tonic-gate	/* if we haven't setup the shared memory, init */
0Sstevel@tonic-gate	if (currentState == (int *)NULL) {
0Sstevel@tonic-gate		if ((fd = open("/dev/zero", O_RDWR)) < 0) {
0Sstevel@tonic-gate			saverr = errno;
0Sstevel@tonic-gate			msg(gettext("Cannot open `%s': %s\n"),
0Sstevel@tonic-gate				"/dev/zero", strerror(saverr));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		/*LINTED [mmap always returns an aligned value]*/
0Sstevel@tonic-gate		currentState = (int *)mmap((char *)0, getpagesize(),
0Sstevel@tonic-gate			PROT_READ|PROT_WRITE, MAP_SHARED, fd, (off_t)0);
0Sstevel@tonic-gate		if (currentState == (int *)-1) {
0Sstevel@tonic-gate			saverr = errno;
0Sstevel@tonic-gate			msg(gettext(
0Sstevel@tonic-gate				"Cannot memory map monitor variables: %s\n"),
0Sstevel@tonic-gate				strerror(saverr));
0Sstevel@tonic-gate			dumpabort();
0Sstevel@tonic-gate			/*NOTREACHED*/
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate		(void) close(fd);
0Sstevel@tonic-gate
0Sstevel@tonic-gate		/* LINTED currentState is sufficiently aligned */
0Sstevel@tonic-gate		clockstart = (struct timeval *)(currentState + 1);
0Sstevel@tonic-gate		emilli = (time32_t *)(clockstart + 1);
0Sstevel@tonic-gate		/* Note everything is initialized to zero via /dev/zero */
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (state == (time32_t)-1) {
0Sstevel@tonic-gate		bzero(clockstart, sizeof (*clockstart));
0Sstevel@tonic-gate		*currentState = 0;
0Sstevel@tonic-gate		*emilli = (time32_t)0;
0Sstevel@tonic-gate		return (0);
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	(void) gettimeofday(current, NULL);
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (*currentState != 0) {
0Sstevel@tonic-gate		current->tv_usec += 1000000;
0Sstevel@tonic-gate		current->tv_sec--;
0Sstevel@tonic-gate
0Sstevel@tonic-gate		/* LINTED: result will fit in a time32_t */
0Sstevel@tonic-gate		*emilli += (current->tv_sec - clockstart->tv_sec) * 1000;
0Sstevel@tonic-gate		/* LINTED: result will fit in a time32_t */
0Sstevel@tonic-gate		*emilli += (current->tv_usec - clockstart->tv_usec) / 1000;
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (state != 0)
0Sstevel@tonic-gate		bcopy(current, clockstart, sizeof (current));
0Sstevel@tonic-gate
0Sstevel@tonic-gate	*currentState = state;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	return (*emilli);
0Sstevel@tonic-gate}
0Sstevel@tonic-gate
0Sstevel@tonic-gatestatic int
0Sstevel@tonic-gatestatcmp(const struct stat64 *left, const struct stat64 *right)
0Sstevel@tonic-gate{
0Sstevel@tonic-gate	int result = 1;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if ((left->st_dev == right->st_dev) &&
0Sstevel@tonic-gate	    (left->st_ino == right->st_ino) &&
0Sstevel@tonic-gate	    (left->st_mode == right->st_mode) &&
0Sstevel@tonic-gate	    (left->st_nlink == right->st_nlink) &&
0Sstevel@tonic-gate	    (left->st_uid == right->st_uid) &&
0Sstevel@tonic-gate	    (left->st_gid == right->st_gid) &&
0Sstevel@tonic-gate	    (left->st_rdev == right->st_rdev) &&
0Sstevel@tonic-gate	    (left->st_ctim.tv_sec == right->st_ctim.tv_sec) &&
0Sstevel@tonic-gate	    (left->st_ctim.tv_nsec == right->st_ctim.tv_nsec) &&
0Sstevel@tonic-gate	    (left->st_mtim.tv_sec == right->st_mtim.tv_sec) &&
0Sstevel@tonic-gate	    (left->st_mtim.tv_nsec == right->st_mtim.tv_nsec) &&
0Sstevel@tonic-gate	    (left->st_blksize == right->st_blksize) &&
0Sstevel@tonic-gate	    (left->st_blocks == right->st_blocks)) {
0Sstevel@tonic-gate		result = 0;
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	return (result);
0Sstevel@tonic-gate}
0Sstevel@tonic-gate
0Sstevel@tonic-gate/*
0Sstevel@tonic-gate * Safely open a file or device.
0Sstevel@tonic-gate */
0Sstevel@tonic-gatestatic int
0Sstevel@tonic-gatesafe_open_common(const char *filename, int mode, int perms, int device)
0Sstevel@tonic-gate{
0Sstevel@tonic-gate	int fd;
0Sstevel@tonic-gate	int working_mode;
0Sstevel@tonic-gate	int saverr;
0Sstevel@tonic-gate	char *errtext;
0Sstevel@tonic-gate	struct stat64 pre_stat, pre_lstat;
0Sstevel@tonic-gate	struct stat64 post_stat, post_lstat;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	/*
0Sstevel@tonic-gate	 * Don't want to be spoofed into trashing something we
0Sstevel@tonic-gate	 * shouldn't, thus the following rigamarole.  If it doesn't
0Sstevel@tonic-gate	 * exist, we create it and proceed.  Otherwise, require that
0Sstevel@tonic-gate	 * what's there be a real file with no extraneous links and
0Sstevel@tonic-gate	 * owned by whoever ran us.
0Sstevel@tonic-gate	 *
0Sstevel@tonic-gate	 * The silliness with using both lstat() and fstat() is to avoid
0Sstevel@tonic-gate	 * race-condition games with someone replacing the file with a
0Sstevel@tonic-gate	 * symlink after we've opened it.  If there was an flstat(),
0Sstevel@tonic-gate	 * we wouldn't need the fstat().
0Sstevel@tonic-gate	 *
0Sstevel@tonic-gate	 * The initial open with the hard-coded flags is ok even if we
0Sstevel@tonic-gate	 * are intending to open only for reading.  If it succeeds,
0Sstevel@tonic-gate	 * then the file did not exist, and we'll synthesize an appropriate
0Sstevel@tonic-gate	 * complaint below.  Otherwise, it does exist, so we won't be
0Sstevel@tonic-gate	 * truncating it with the open.
0Sstevel@tonic-gate	 */
0Sstevel@tonic-gate	if ((fd = open(filename, O_WRONLY|O_CREAT|O_TRUNC|O_EXCL|O_LARGEFILE,
0Sstevel@tonic-gate	    perms)) < 0) {
0Sstevel@tonic-gate		if (errno == EEXIST) {
0Sstevel@tonic-gate			if (lstat64(filename, &pre_lstat) < 0) {
0Sstevel@tonic-gate				return (-1);
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate
0Sstevel@tonic-gate			if (stat64(filename, &pre_stat) < 0) {
0Sstevel@tonic-gate				return (-1);
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate
0Sstevel@tonic-gate			working_mode = mode & (O_WRONLY|O_RDWR|O_RDONLY);
0Sstevel@tonic-gate			working_mode |= O_LARGEFILE;
0Sstevel@tonic-gate			if ((fd = open(filename, working_mode)) < 0) {
0Sstevel@tonic-gate				if (errno == ENOENT) {
0Sstevel@tonic-gate					errtext = gettext(
0Sstevel@tonic-gate"Unexpected condition detected: %s used to exist, but doesn't any longer\n");
0Sstevel@tonic-gate					msg(errtext, filename);
0Sstevel@tonic-gate					syslog(LOG_WARNING, errtext, filename);
0Sstevel@tonic-gate					errno = ENOENT;
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate				return (-1);
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate
0Sstevel@tonic-gate			if (lstat64(filename, &post_lstat) < 0) {
0Sstevel@tonic-gate				saverr = errno;
0Sstevel@tonic-gate				(void) close(fd);
0Sstevel@tonic-gate				errno = saverr;
0Sstevel@tonic-gate				return (-1);
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate
0Sstevel@tonic-gate			if (fstat64(fd, &post_stat) < 0) {
0Sstevel@tonic-gate				saverr = errno;
0Sstevel@tonic-gate				(void) close(fd);
0Sstevel@tonic-gate				errno = saverr;
0Sstevel@tonic-gate				return (-1);
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate
0Sstevel@tonic-gate			/*
0Sstevel@tonic-gate			 * Can't just use memcmp(3C), because the access
0Sstevel@tonic-gate			 * time is updated by open(2).
0Sstevel@tonic-gate			 */
0Sstevel@tonic-gate			if (statcmp(&pre_lstat, &post_lstat) != 0) {
0Sstevel@tonic-gate				errtext = gettext(
0Sstevel@tonic-gate	    "Unexpected change detected: %s's lstat(2) information changed\n");
0Sstevel@tonic-gate				msg(errtext, filename);
0Sstevel@tonic-gate				syslog(LOG_WARNING, errtext, filename);
0Sstevel@tonic-gate				errno = EPERM;
0Sstevel@tonic-gate				return (-1);
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate
0Sstevel@tonic-gate			if (statcmp(&pre_stat, &post_stat) != 0) {
0Sstevel@tonic-gate				errtext = gettext(
0Sstevel@tonic-gate	    "Unexpected change detected: %s's stat(2) information changed\n"),
0Sstevel@tonic-gate				msg(errtext, filename);
0Sstevel@tonic-gate				syslog(LOG_WARNING, errtext, filename);
0Sstevel@tonic-gate				errno = EPERM;
0Sstevel@tonic-gate				return (-1);
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate
0Sstevel@tonic-gate			/*
0Sstevel@tonic-gate			 * If inode, device, or type are wrong, bail out.
0Sstevel@tonic-gate			 * Note using post_stat instead of post_lstat for the
0Sstevel@tonic-gate			 * S_ISCHR() test.  This is to allow the /dev ->
0Sstevel@tonic-gate			 * /devices bit to work, as long as the final target
0Sstevel@tonic-gate			 * is a character device (i.e., raw disk or tape).
0Sstevel@tonic-gate			 */
0Sstevel@tonic-gate			if (device && !(S_ISCHR(post_stat.st_mode)) &&
0Sstevel@tonic-gate			    !(S_ISFIFO(post_stat.st_mode)) &&
0Sstevel@tonic-gate			    !(S_ISREG(post_lstat.st_mode))) {
0Sstevel@tonic-gate				errtext = gettext(
0Sstevel@tonic-gate	    "Unexpected condition detected: %s is not a supported device\n"),
0Sstevel@tonic-gate				msg(errtext, filename);
0Sstevel@tonic-gate				syslog(LOG_WARNING, errtext, filename);
0Sstevel@tonic-gate				(void) close(fd);
0Sstevel@tonic-gate				errno = EPERM;
0Sstevel@tonic-gate				return (-1);
0Sstevel@tonic-gate			} else if (!device &&
0Sstevel@tonic-gate			    (!S_ISREG(post_lstat.st_mode) ||
0Sstevel@tonic-gate			    (post_stat.st_ino != post_lstat.st_ino) ||
0Sstevel@tonic-gate			    (post_stat.st_dev != post_lstat.st_dev))) {
0Sstevel@tonic-gate				errtext = gettext(
0Sstevel@tonic-gate	    "Unexpected condition detected: %s is not a regular file\n"),
0Sstevel@tonic-gate				msg(errtext, filename);
0Sstevel@tonic-gate				syslog(LOG_WARNING, errtext, filename);
0Sstevel@tonic-gate				(void) close(fd);
0Sstevel@tonic-gate				errno = EPERM;
0Sstevel@tonic-gate				return (-1);
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate
0Sstevel@tonic-gate			/*
0Sstevel@tonic-gate			 * Bad link count implies someone's linked our
0Sstevel@tonic-gate			 * target to something else, which we probably
0Sstevel@tonic-gate			 * shouldn't step on.
0Sstevel@tonic-gate			 */
0Sstevel@tonic-gate			if (post_lstat.st_nlink != 1) {
0Sstevel@tonic-gate				errtext = gettext(
0Sstevel@tonic-gate	    "Unexpected condition detected: %s must have exactly one link\n"),
0Sstevel@tonic-gate				msg(errtext, filename);
0Sstevel@tonic-gate				syslog(LOG_WARNING, errtext, filename);
0Sstevel@tonic-gate				(void) close(fd);
0Sstevel@tonic-gate				errno = EPERM;
0Sstevel@tonic-gate				return (-1);
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			/*
0Sstevel@tonic-gate			 * Root might make a file, but non-root might
0Sstevel@tonic-gate			 * need to open it.  If the permissions let us
0Sstevel@tonic-gate			 * get this far, then let it through.
0Sstevel@tonic-gate			 */
0Sstevel@tonic-gate			if (post_lstat.st_uid != getuid() &&
0Sstevel@tonic-gate			    post_lstat.st_uid != 0) {
0Sstevel@tonic-gate				errtext = gettext(
0Sstevel@tonic-gate"Unsupported condition detected: %s must be owned by uid %ld or 0\n"),
0Sstevel@tonic-gate				msg(errtext, filename, (long)getuid());
0Sstevel@tonic-gate				syslog(LOG_WARNING, errtext, filename,
0Sstevel@tonic-gate				    (long)getuid());
0Sstevel@tonic-gate				(void) close(fd);
0Sstevel@tonic-gate				errno = EPERM;
0Sstevel@tonic-gate				return (-1);
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate			if (mode & O_TRUNC) {
0Sstevel@tonic-gate				if (ftruncate(fd, (off_t)0) < 0) {
0Sstevel@tonic-gate					msg("ftruncate(%s): %s\n",
0Sstevel@tonic-gate					    filename, strerror(errno));
0Sstevel@tonic-gate					(void) close(fd);
0Sstevel@tonic-gate					return (-1);
0Sstevel@tonic-gate				}
0Sstevel@tonic-gate			}
0Sstevel@tonic-gate		} else {
0Sstevel@tonic-gate			/*
0Sstevel@tonic-gate			 * Didn't exist, but couldn't open it.
0Sstevel@tonic-gate			 */
0Sstevel@tonic-gate			return (-1);
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate	} else {
0Sstevel@tonic-gate		/*
0Sstevel@tonic-gate		 * If truncating open succeeded for a read-only open,
0Sstevel@tonic-gate		 * bail out, as we really shouldn't have succeeded.
0Sstevel@tonic-gate		 */
0Sstevel@tonic-gate		if (mode & O_RDONLY) {
0Sstevel@tonic-gate			/* Undo the O_CREAT */
0Sstevel@tonic-gate			(void) unlink(filename);
0Sstevel@tonic-gate			msg("open(%s): %s\n",
0Sstevel@tonic-gate			    filename, strerror(ENOENT));
0Sstevel@tonic-gate			(void) close(fd);
0Sstevel@tonic-gate			errno = ENOENT;
0Sstevel@tonic-gate			return (-1);
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	return (fd);
0Sstevel@tonic-gate}
0Sstevel@tonic-gate
0Sstevel@tonic-gate/*
0Sstevel@tonic-gate * Safely open a file.
0Sstevel@tonic-gate */
0Sstevel@tonic-gateint
0Sstevel@tonic-gatesafe_file_open(const char *filename, int mode, int perms)
0Sstevel@tonic-gate{
0Sstevel@tonic-gate	return (safe_open_common(filename, mode, perms, 0));
0Sstevel@tonic-gate}
0Sstevel@tonic-gate
0Sstevel@tonic-gate/*
0Sstevel@tonic-gate * Safely open a device.
0Sstevel@tonic-gate */
0Sstevel@tonic-gateint
0Sstevel@tonic-gatesafe_device_open(const char *filename, int mode, int perms)
0Sstevel@tonic-gate{
0Sstevel@tonic-gate	return (safe_open_common(filename, mode, perms, 1));
0Sstevel@tonic-gate}
0Sstevel@tonic-gate
0Sstevel@tonic-gate/*
0Sstevel@tonic-gate * STDIO version of safe_open
0Sstevel@tonic-gate */
0Sstevel@tonic-gateFILE *
0Sstevel@tonic-gatesafe_fopen(const char *filename, const char *smode, int perms)
0Sstevel@tonic-gate{
0Sstevel@tonic-gate	int fd;
0Sstevel@tonic-gate	int bmode;
0Sstevel@tonic-gate
0Sstevel@tonic-gate	/*
0Sstevel@tonic-gate	 * accepts only modes  "r", "r+", and "w"
0Sstevel@tonic-gate	 */
0Sstevel@tonic-gate	if (smode[0] == 'r') {
0Sstevel@tonic-gate		if (smode[1] == '\0') {
0Sstevel@tonic-gate			bmode = O_RDONLY;
0Sstevel@tonic-gate		} else if ((smode[1] == '+') && (smode[2] == '\0')) {
0Sstevel@tonic-gate			bmode = O_RDWR;
0Sstevel@tonic-gate		}
0Sstevel@tonic-gate	} else if ((smode[0] == 'w') && (smode[1] == '\0')) {
0Sstevel@tonic-gate		bmode = O_WRONLY;
0Sstevel@tonic-gate	} else {
0Sstevel@tonic-gate		msg(gettext("internal error: safe_fopen: invalid mode `%s'\n"),
0Sstevel@tonic-gate		    smode);
0Sstevel@tonic-gate		return (NULL);
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate
0Sstevel@tonic-gate	fd = safe_file_open(filename, bmode, perms);
0Sstevel@tonic-gate
0Sstevel@tonic-gate	/*
0Sstevel@tonic-gate	 * caller is expected to report error.
0Sstevel@tonic-gate	 */
0Sstevel@tonic-gate	if (fd >= 0)
0Sstevel@tonic-gate	    return (fdopen(fd, smode));
0Sstevel@tonic-gate
0Sstevel@tonic-gate	return ((FILE *)NULL);
0Sstevel@tonic-gate}
0Sstevel@tonic-gate
0Sstevel@tonic-gatevoid
0Sstevel@tonic-gatechild_chdir(void)
0Sstevel@tonic-gate{
0Sstevel@tonic-gate	char name[MAXPATHLEN];
0Sstevel@tonic-gate
0Sstevel@tonic-gate	if (debug_chdir != NULL) {
0Sstevel@tonic-gate		snprintf(name, sizeof (name), "%s/%ld",
0Sstevel@tonic-gate		    debug_chdir, (long)getpid());
0Sstevel@tonic-gate		if (mkdir(name, 0755) < 0)
0Sstevel@tonic-gate			msg("mkdir(%s): %s", name, strerror(errno));
0Sstevel@tonic-gate		if (chdir(name) < 0)
0Sstevel@tonic-gate			msg("chdir(%s): %s", name, strerror(errno));
0Sstevel@tonic-gate	}
0Sstevel@tonic-gate}