[unix-history] / usr / src / sbin / dump / main.c

static	char *sccsid = "@(#)main.c	1.10 (Berkeley) %G%";
#include "dump.h"

int	notify = 0;	/* notify operator flag */
int	blockswritten = 0;	/* number of blocks written on current tape */
int	tapeno = 0;	/* current tape number */
int	density = 160;	/* density in 0.1" units */
#ifdef RDUMP
char	*host;
#endif

main(argc, argv)
	int	argc;
	char	*argv[];
{
	char		*arg;
	int		i;
	float		fetapes;
	register	struct	fstab	*dt;

	time(&(spcl.c_date));

	tsize = 2300L*12L*10L;
	tape = TAPE;
	disk = DISK;
	increm = NINCREM;
	if (TP_BSIZE / DEV_BSIZE == 0 || TP_BSIZE % DEV_BSIZE != 0) {
		msg("TP_BSIZE must be a multiple of DEV_BSIZE\n");
		dumpabort();
	}
	incno = '9';
	uflag = 0;
	arg = "u";
	if(argc > 1) {
		argv++;
		argc--;
		arg = *argv;
		if (*arg == '-')
			argc++;
	}
	while(*arg)
	switch (*arg++) {
	case 'w':
		lastdump('w');		/* tell us only what has to be done */
		exit(0);
		break;
	case 'W':			/* what to do */
		lastdump('W');		/* tell us the current state of what has been done */
		exit(0);		/* do nothing else */
		break;

	case 'J':			/* update old to new */
		o_nconvert();
		exit(0);		/* do nothing else */
		break;

	case 'f':			/* output file */
		if(argc > 1) {
			argv++;
			argc--;
			tape = *argv;
		}
		break;

	case 'd':			/* density, in bits per inch */
		if (argc > 1) {
			argv++;
			argc--;
			density = atoi(*argv) / 10;
		}
		break;

	case 's':			/* tape size, feet */
		if(argc > 1) {
			argv++;
			argc--;
			tsize = atol(*argv);
			tsize *= 12L*10L;
		}
		break;

	case '0':			/* dump level */
	case '1':
	case '2':
	case '3':
	case '4':
	case '5':
	case '6':
	case '7':
	case '8':
	case '9':
		incno = arg[-1];
		break;

	case 'u':			/* update /etc/dumpdates */
		uflag++;
		break;

	case 'n':			/* notify operators */
		notify++;
		break;

	default:
		printf("bad key '%c%'\n", arg[-1]);
		Exit(X_ABORT);
	}
	if(argc > 1) {
		argv++;
		argc--;
		disk = *argv;
	}
#ifdef RDUMP
	{ char *index();
	  host = tape;
	  tape = index(host, ':');
	  if (tape == 0) {
		msg("need keyletter ``f'' and device ``host:tape''");
		exit(1);
	  }
	  *tape++ = 0;
	  if (rmthost(host) == 0)
		exit(X_ABORT);
	}
#endif
	if (signal(SIGHUP, sighup) == SIG_IGN)
		signal(SIGHUP, SIG_IGN);
	if (signal(SIGTRAP, sigtrap) == SIG_IGN)
		signal(SIGTRAP, SIG_IGN);
	if (signal(SIGFPE, sigfpe) == SIG_IGN)
		signal(SIGFPE, SIG_IGN);
	if (signal(SIGBUS, sigbus) == SIG_IGN)
		signal(SIGBUS, SIG_IGN);
	if (signal(SIGSEGV, sigsegv) == SIG_IGN)
		signal(SIGSEGV, SIG_IGN);
	if (signal(SIGTERM, sigterm) == SIG_IGN)
		signal(SIGTERM, SIG_IGN);
	

	if (signal(SIGINT, interrupt) == SIG_IGN)
		signal(SIGINT, SIG_IGN);

	set_operators();	/* /etc/group snarfed */
	getfstab();		/* /etc/fstab snarfed */
	/*
	 *	disk can be either the full special file name,
	 *	the suffix of the special file name,
	 *	the special name missing the leading '/',
	 *	the file system name with or without the leading '/'.
	 */
	dt = fstabsearch(disk);
	if (dt != 0)
		disk = rawname(dt->fs_spec);
	getitime();		/* /etc/dumpdates snarfed */

	msg("Date of this level %c dump: %s\n", incno, prdate(spcl.c_date));
	msg("Date of last level %c dump: %s\n", incno, prdate(spcl.c_ddate));
	msg("Dumping %s ", disk);
	if (dt != 0)
		msgtail("(%s) ", dt->fs_file);
#ifdef RDUMP
	msgtail("to %s on host %s\n", tape, host);
#else
	msgtail("to %s\n", tape);
#endif

	fi = open(disk, 0);
	if (fi < 0) {
		msg("Cannot open %s\n", disk);
		Exit(X_ABORT);
	}
	esize = 0;
	sblock = (struct fs *)buf;
	sync();
	bread(SBLOCK, sblock, SBSIZE);
	if (sblock->fs_magic != FS_MAGIC) {
		msg("bad sblock magic number\n");
		dumpabort();
	}
	msiz = roundup(howmany(sblock->fs_ipg * sblock->fs_ncg, NBBY),
		TP_BSIZE);
	clrmap = (char *)calloc(msiz, sizeof(char));
	dirmap = (char *)calloc(msiz, sizeof(char));
	nodmap = (char *)calloc(msiz, sizeof(char));

	msg("mapping (Pass I) [regular files]\n");
	pass(mark, (char *)NULL);		/* mark updates esize */

	do {
		msg("mapping (Pass II) [directories]\n");
		nadded = 0;
		pass(add, dirmap);
	} while(nadded);

	bmapest(clrmap);
	bmapest(nodmap);

	fetapes =
		(	  esize		/* blocks */
			* TP_BSIZE	/* bytes / block */
			* (1.0/density)	/* 0.1" / byte */
		  +
			  esize		/* blocks */
			* (1.0/NTREC)	/* IRG's / block */
			* 7		/* 0.1" / IRG */
		) * (1.0 / tsize )	/* tape / 0.1" */
	;
	etapes = fetapes;		/* truncating assignment */
	etapes++;
	/* count the nodemap on each additional tape */
	for (i = 1; i < etapes; i++)
		bmapest(nodmap);
	esize += i + 10;	/* headers + 10 trailer blocks */
	msg("estimated %ld tape blocks on %3.2f tape(s).\n", esize, fetapes);

	otape();			/* bitmap is the first to tape write */
	time(&(tstart_writing));
	bitmap(clrmap, TS_CLRI);

	msg("dumping (Pass III) [directories]\n");
	pass(dump, dirmap);

	msg("dumping (Pass IV) [regular files]\n");
	pass(dump, nodmap);

	spcl.c_type = TS_END;
#ifndef RDUMP
	for(i=0; i<NTREC; i++)
		spclrec();
#endif
	msg("DUMP: %ld tape blocks on %d tape(s)\n",spcl.c_tapea,spcl.c_volume);
	msg("DUMP IS DONE\n");

	putitime();
#ifndef RDUMP
	close(to);
#else
	tflush(1);
#endif
	rewind();
	broadcast("DUMP IS DONE!\7\7\n");
	Exit(X_FINOK);
}

int	sighup(){	msg("SIGHUP()  try rewriting\n"); sigAbort();}
int	sigtrap(){	msg("SIGTRAP()  try rewriting\n"); sigAbort();}
int	sigfpe(){	msg("SIGFPE()  try rewriting\n"); sigAbort();}
int	sigbus(){	msg("SIGBUS()  try rewriting\n"); sigAbort();}
int	sigsegv(){	msg("SIGSEGV()  ABORTING!\n"); abort();}
int	sigalrm(){	msg("SIGALRM()  try rewriting\n"); sigAbort();}
int	sigterm(){	msg("SIGTERM()  try rewriting\n"); sigAbort();}

sigAbort()
{
	msg("Rewriting attempted as response to unknown signal.\n");
	fflush(stderr);
	fflush(stdout);
	close_rewind();
	exit(X_REWRITE);
}

char *rawname(cp)
	char *cp;
{
	static char rawbuf[32];
	char *rindex();
	char *dp = rindex(cp, '/');

	if (dp == 0)
		return (0);
	*dp = 0;
	strcpy(rawbuf, cp);
	*dp = '/';
	strcat(rawbuf, "/r");
	strcat(rawbuf, dp+1);
	return (rawbuf);
}
Commit	Line	Data
b17ae412	1	static char *sccsid = "@(#)main.c 1.10 (Berkeley) %G%";
0393c389 BJ	2	#include "dump.h"
	3
	4	int notify = 0; /* notify operator flag */
	5	int blockswritten = 0; /* number of blocks written on current tape */
	6	int tapeno = 0; /* current tape number */
	7	int density = 160; /* density in 0.1" units */
c47275e3 SL	8	#ifdef RDUMP
	9	char *host;
	10	#endif
0393c389 BJ	11
	12	main(argc, argv)
	13	int argc;
	14	char *argv[];
	15	{
	16	char *arg;
b6407c9d	17	int i;
0393c389 BJ	18	float fetapes;
	19	register struct fstab *dt;
	20
	21	time(&(spcl.c_date));
	22
	23	tsize = 2300L12L10L;
	24	tape = TAPE;
	25	disk = DISK;
	26	increm = NINCREM;
b6407c9d KM	27	if (TP_BSIZE / DEV_BSIZE == 0 \|\| TP_BSIZE % DEV_BSIZE != 0) {
	28	msg("TP_BSIZE must be a multiple of DEV_BSIZE\n");
	29	dumpabort();
	30	}
0393c389 BJ	31	incno = '9';
	32	uflag = 0;
	33	arg = "u";
	34	if(argc > 1) {
	35	argv++;
	36	argc--;
	37	arg = *argv;
	38	if (*arg == '-')
	39	argc++;
	40	}
	41	while(*arg)
	42	switch (*arg++) {
77db894d BJ	43	case 'w':
	44	lastdump('w'); /* tell us only what has to be done */
	45	exit(0);
	46	break;
0393c389	47	case 'W': /* what to do */
77db894d	48	lastdump('W'); /* tell us the current state of what has been done */
0393c389 BJ	49	exit(0); /* do nothing else */
	50	break;
	51
	52	case 'J': /* update old to new */
	53	o_nconvert();
	54	exit(0); /* do nothing else */
	55	break;
	56
	57	case 'f': /* output file */
	58	if(argc > 1) {
	59	argv++;
	60	argc--;
	61	tape = *argv;
	62	}
	63	break;
	64
	65	case 'd': /* density, in bits per inch */
	66	if (argc > 1) {
	67	argv++;
	68	argc--;
	69	density = atoi(*argv) / 10;
	70	}
	71	break;
	72
	73	case 's': /* tape size, feet */
	74	if(argc > 1) {
	75	argv++;
	76	argc--;
	77	tsize = atol(*argv);
	78	tsize = 12L10L;
	79	}
	80	break;
	81
	82	case '0': /* dump level */
	83	case '1':
	84	case '2':
	85	case '3':
	86	case '4':
	87	case '5':
	88	case '6':
	89	case '7':
	90	case '8':
	91	case '9':
	92	incno = arg[-1];
	93	break;
	94
	95	case 'u': /* update /etc/dumpdates */
	96	uflag++;
	97	break;
	98
	99	case 'n': /* notify operators */
	100	notify++;
	101	break;
	102
	103	default:
	104	printf("bad key '%c%'\n", arg[-1]);
	105	Exit(X_ABORT);
	106	}
	107	if(argc > 1) {
	108	argv++;
	109	argc--;
	110	disk = *argv;
	111	}
c29a1d14 SL	112	#ifdef RDUMP
	113	{ char *index();
	114	host = tape;
	115	tape = index(host, ':');
	116	if (tape == 0) {
	117	msg("need keyletter ``f'' and device ``host:tape''");
	118	exit(1);
	119	}
	120	*tape++ = 0;
	121	if (rmthost(host) == 0)
	122	exit(X_ABORT);
	123	}
	124	#endif
0393c389 BJ	125	if (signal(SIGHUP, sighup) == SIG_IGN)
	126	signal(SIGHUP, SIG_IGN);
	127	if (signal(SIGTRAP, sigtrap) == SIG_IGN)
	128	signal(SIGTRAP, SIG_IGN);
	129	if (signal(SIGFPE, sigfpe) == SIG_IGN)
	130	signal(SIGFPE, SIG_IGN);
	131	if (signal(SIGBUS, sigbus) == SIG_IGN)
	132	signal(SIGBUS, SIG_IGN);
	133	if (signal(SIGSEGV, sigsegv) == SIG_IGN)
	134	signal(SIGSEGV, SIG_IGN);
	135	if (signal(SIGTERM, sigterm) == SIG_IGN)
	136	signal(SIGTERM, SIG_IGN);
	137
	138
	139	if (signal(SIGINT, interrupt) == SIG_IGN)
	140	signal(SIGINT, SIG_IGN);
	141
	142	set_operators(); /* /etc/group snarfed */
	143	getfstab(); /* /etc/fstab snarfed */
	144	/*
	145	* disk can be either the full special file name,
	146	* the suffix of the special file name,
	147	* the special name missing the leading '/',
	148	* the file system name with or without the leading '/'.
	149	*/
	150	dt = fstabsearch(disk);
	151	if (dt != 0)
	152	disk = rawname(dt->fs_spec);
	153	getitime(); /* /etc/dumpdates snarfed */
	154
	155	msg("Date of this level %c dump: %s\n", incno, prdate(spcl.c_date));
	156	msg("Date of last level %c dump: %s\n", incno, prdate(spcl.c_ddate));
	157	msg("Dumping %s ", disk);
	158	if (dt != 0)
	159	msgtail("(%s) ", dt->fs_file);
c29a1d14	160	#ifdef RDUMP
b17ae412 KM	161	msgtail("to %s on host %s\n", tape, host);
	162	#else
	163	msgtail("to %s\n", tape);
c47275e3	164	#endif
0393c389 BJ	165
	166	fi = open(disk, 0);
	167	if (fi < 0) {
	168	msg("Cannot open %s\n", disk);
	169	Exit(X_ABORT);
	170	}
0393c389	171	esize = 0;
b6407c9d KM	172	sblock = (struct fs *)buf;
b6407c9d KM	173	sync();
012ccbb8	174	bread(SBLOCK, sblock, SBSIZE);
b6407c9d KM	175	if (sblock->fs_magic != FS_MAGIC) {
	176	msg("bad sblock magic number\n");
	177	dumpabort();
	178	}
	179	msiz = roundup(howmany(sblock->fs_ipg * sblock->fs_ncg, NBBY),
	180	TP_BSIZE);
	181	clrmap = (char *)calloc(msiz, sizeof(char));
	182	dirmap = (char *)calloc(msiz, sizeof(char));
	183	nodmap = (char *)calloc(msiz, sizeof(char));
0393c389 BJ	184
0393c389 BJ	185	msg("mapping (Pass I) [regular files]\n");
b6407c9d	186	pass(mark, (char )NULL); / mark updates esize */
0393c389 BJ	187
	188	do {
	189	msg("mapping (Pass II) [directories]\n");
	190	nadded = 0;
	191	pass(add, dirmap);
	192	} while(nadded);
	193
	194	bmapest(clrmap);
	195	bmapest(nodmap);
	196
	197	fetapes =
b6407c9d KM	198	( esize /* blocks */
	199	* TP_BSIZE /* bytes / block */
	200	* (1.0/density) /* 0.1" / byte */
0393c389	201	+
b6407c9d KM	202	esize /* blocks */
	203	* (1.0/NTREC) /* IRG's / block */
	204	* 7 /* 0.1" / IRG */
0393c389 BJ	205	) * (1.0 / tsize ) /* tape / 0.1" */
	206	;
	207	etapes = fetapes; /* truncating assignment */
	208	etapes++;
b6407c9d KM	209	/* count the nodemap on each additional tape */
	210	for (i = 1; i < etapes; i++)
	211	bmapest(nodmap);
	212	esize += i + 10; /* headers + 10 trailer blocks */
0393c389 BJ	213	msg("estimated %ld tape blocks on %3.2f tape(s).\n", esize, fetapes);
	214
	215	otape(); /* bitmap is the first to tape write */
	216	time(&(tstart_writing));
	217	bitmap(clrmap, TS_CLRI);
	218
	219	msg("dumping (Pass III) [directories]\n");
	220	pass(dump, dirmap);
	221
	222	msg("dumping (Pass IV) [regular files]\n");
	223	pass(dump, nodmap);
	224
	225	spcl.c_type = TS_END;
c47275e3 SL	226	#ifndef RDUMP
c47275e3 SL	227	for(i=0; i<NTREC; i++)
0393c389	228	spclrec();
c47275e3	229	#endif
0393c389 BJ	230	msg("DUMP: %ld tape blocks on %d tape(s)\n",spcl.c_tapea,spcl.c_volume);
	231	msg("DUMP IS DONE\n");
	232
	233	putitime();
c47275e3	234	#ifndef RDUMP
0393c389	235	close(to);
c47275e3 SL	236	#else
	237	tflush(1);
	238	#endif
0393c389 BJ	239	rewind();
	240	broadcast("DUMP IS DONE!\7\7\n");
	241	Exit(X_FINOK);
	242	}
	243
	244	int sighup(){ msg("SIGHUP() try rewriting\n"); sigAbort();}
	245	int sigtrap(){ msg("SIGTRAP() try rewriting\n"); sigAbort();}
	246	int sigfpe(){ msg("SIGFPE() try rewriting\n"); sigAbort();}
	247	int sigbus(){ msg("SIGBUS() try rewriting\n"); sigAbort();}
	248	int sigsegv(){ msg("SIGSEGV() ABORTING!\n"); abort();}
	249	int sigalrm(){ msg("SIGALRM() try rewriting\n"); sigAbort();}
	250	int sigterm(){ msg("SIGTERM() try rewriting\n"); sigAbort();}
	251
	252	sigAbort()
	253	{
	254	msg("Rewriting attempted as response to unknown signal.\n");
	255	fflush(stderr);
	256	fflush(stdout);
	257	close_rewind();
	258	exit(X_REWRITE);
	259	}
	260
	261	char *rawname(cp)
	262	char *cp;
	263	{
	264	static char rawbuf[32];
1d070b31	265	char *rindex();
0393c389 BJ	266	char *dp = rindex(cp, '/');
	267
	268	if (dp == 0)
	269	return (0);
	270	*dp = 0;
	271	strcpy(rawbuf, cp);
	272	*dp = '/';
	273	strcat(rawbuf, "/r");
	274	strcat(rawbuf, dp+1);
	275	return (rawbuf);
	276	}