NetBSD/distrib/utils/sysinst/disks.c

/*	$NetBSD: disks.c,v 1.57 2003/06/09 19:06:48 dsl Exp $ */

/*
 * Copyright 1997 Piermont Information Systems Inc.
 * All rights reserved.
 *
 * Written by Philip A. Nelson for Piermont Information Systems Inc.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *      This product includes software developed for the NetBSD Project by
 *      Piermont Information Systems Inc.
 * 4. The name of Piermont Information Systems Inc. may not be used to endorse
 *    or promote products derived from this software without specific prior
 *    written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY PIERMONT INFORMATION SYSTEMS INC. ``AS IS''
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL PIERMONT INFORMATION SYSTEMS INC. BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
 * THE POSSIBILITY OF SUCH DAMAGE.
 *
 */

/* disks.c -- routines to deal with finding disks and labeling disks. */


#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>
#include <util.h>

#include <sys/param.h>
#include <ufs/ufs/dinode.h>
#include <ufs/ffs/fs.h>
#define FSTYPENAMES
#define static
#include <sys/disklabel.h>
#undef static

#include "defs.h"
#include "md.h"
#include "msg_defs.h"
#include "menu_defs.h"
#include "txtwalk.h"



/* Local prototypes */
static void get_disks (void);
static void foundffs(struct data *, size_t);
static int do_fsck(const char *);
static int fsck_root(void);
static int do_flfs_newfs(const char *, int, const char *);
static int fsck_num(const char *);

static int fsck_with_error_menu(const char *);
static int target_mount_with_error_menu(const char *, char *, const char *);

#ifndef DISK_NAMES
#define DISK_NAMES "wd", "sd", "ld"
#endif

static char *disk_names[] = { DISK_NAMES, NULL };

static void
get_disks(void)
{
	char **xd;
	char d_name[SSTRSIZE];
	struct disklabel l;
	struct disk_desc *dd;
	int i;

	/* initialize */
	disknames[0] = 0;
	numdisks = 0;
	dd = disks;

	for (xd = disk_names; *xd != NULL; xd++) {
		for (i = 0; i < MAX_DISKS; i++) {
			snprintf(d_name, sizeof d_name, "%s%d", *xd, i);
			if (!get_geom(d_name, &l)) {
				if (errno == ENOENT)
					break;
				continue;
			}
			strncpy(dd->dd_name, d_name, sizeof dd->dd_name);
			strlcat(disknames, d_name, sizeof disknames);
			strlcat(disknames, " ", sizeof disknames);
			dd->dd_cyl = l.d_ncylinders;
			dd->dd_head = l.d_ntracks;
			dd->dd_sec = l.d_nsectors;
			dd->dd_secsize = l.d_secsize;
			dd->dd_totsec = l.d_secperunit;
			dd++;
			numdisks++;
			if (numdisks >= MAX_DISKS)
				return;
		}
	}
}


int
find_disks(void)
{
	char *tp;
	const char *prompt;
	char defname[STRSIZE];
	int  i;

	/* Find disks. */
	get_disks();

	/* need a redraw here, kernel messages hose everything */
	touchwin(stdscr);
	refresh();

	if (numdisks == 0) {
		/* No disks found! */
		msg_display(MSG_nodisk);
		process_menu(MENU_ok, NULL);
		/*endwin();*/
		return -1;
	}

	if (numdisks == 1) {
		/* One disk found! */
		/* Remove that space we added. */
		disknames[strlen(disknames) - 1] = 0;
		msg_display(MSG_onedisk, disknames, doingwhat);
		process_menu(MENU_ok, NULL);
		strlcpy(diskdev, disknames, sizeof diskdev);
	} else {
		/* Multiple disks found! */
		strcpy(defname, disknames);
		tp = defname;
		strsep(&tp, " ");
		prompt = MSG_askdisk;
		do {
			msg_prompt(prompt, defname,  diskdev, 10, disknames);
			prompt = MSG_badname;
			tp = diskdev;
			strsep(&tp, " ");
			diskdev[strlen(diskdev) + 1] = 0;
			diskdev[strlen(diskdev)] = ' ';
			tp = strstr(disknames, diskdev);
		} while (tp == NULL || (tp != disknames && tp[-1] != ' '));

		/* Remove that space we added. */
		diskdev[strlen(diskdev) - 1] = 0;
	}

	/* Set disk. */
	for (i = 0; i < numdisks; i++)
		if (strcmp(diskdev, disks[i].dd_name) == 0)
			disk = &disks[i];

	sectorsize = disk->dd_secsize;
	if (disk->dd_totsec == 0)
		disk->dd_totsec = disk->dd_cyl * disk->dd_head * disk->dd_sec;
	dlcyl = disk->dd_cyl;
	dlhead = disk->dd_head;
	dlsec = disk->dd_sec;
	dlsize = disk->dd_totsec;
	dlcylsize = dlhead * dlsec;

	return numdisks;
}

void
fmt_fspart(char *buf, size_t len, int ptn)
{
	int poffset, psize, pend;
	int l;
	const char *desc;

	poffset = bsdlabel[ptn].pi_offset / sizemult;
	psize = bsdlabel[ptn].pi_size / sizemult;
	if (psize == 0)
		pend = 0;
	else
		pend = (bsdlabel[ptn].pi_offset +
			bsdlabel[ptn].pi_size) / sizemult - 1;

	desc = fstypenames[bsdlabel[ptn].pi_fstype];
#ifdef PART_BOOT
	if (ptn == PART_BOOT)
		desc = msg_string(MSG_Boot_partition_cant_change);
#endif
	if (ptn == getrawpartition())
		desc = msg_string(MSG_Whole_disk_cant_change);
	else {
		if (ptn == C)
			desc = msg_string(MSG_NetBSD_partition_cant_change);
	}

	l = snprintf(buf, len, msg_string(MSG_fspart_row_start),
			poffset, pend, psize, desc);
	buf += l;
	len -= l;
	if (len <= 0)
		return;
	if (PI_ISBSDFS(&bsdlabel[ptn]))
		snprintf(buf, len, msg_string(MSG_fspart_row_end_bsd),
			    bsdlabel[ptn].pi_bsize,
			    bsdlabel[ptn].pi_fsize,
			    bsdlabel[ptn].pi_newfs ? "No" : "Yes",
			    bsdlabel[ptn].pi_mount);
	else if (bsdlabel[ptn].pi_fstype == FS_MSDOS)
		snprintf(buf, len, msg_string(MSG_fspart_row_end_msdos),
				bsdlabel[ptn].pi_mount);
	else
		snprintf(buf, len, msg_string(MSG_fspart_row_end_other));
}

void
disp_cur_fspart(int disp, int showall)
{
	int i;
	int start, stop;
	int poffset, psize, pend;

	if (disp < 0) {
		start = 0;
		stop = getmaxpartitions();
	} else {
		start = disp;
		stop = disp+1;
	}

	msg_table_add (MSG_fspart_header);
	for (i = start; i < stop; i++) {
		if (showall || bsdlabel[i].pi_size > 0) {
			poffset = bsdlabel[i].pi_offset / sizemult;
			psize = bsdlabel[i].pi_size / sizemult;
			if (psize == 0)
				pend = 0;
			else
				pend = (bsdlabel[i].pi_offset +
				bsdlabel[i].pi_size) / sizemult - 1;
			msg_table_add("%c: ", 'a' + i);
			msg_table_add(MSG_fspart_row_start,
					poffset, pend, psize,
					fstypenames[bsdlabel[i].pi_fstype]);
			if (PI_ISBSDFS(&bsdlabel[i]))
				msg_table_add(MSG_fspart_row_end_bsd,
					    bsdlabel[i].pi_bsize,
					    bsdlabel[i].pi_fsize,
					    bsdlabel[i].pi_newfs ? "No" : "Yes",
					    bsdlabel[i].pi_mount);
			else if (bsdlabel[i].pi_fstype == FS_MSDOS)
				msg_table_add(MSG_fspart_row_end_msdos,
						bsdlabel[i].pi_mount);
			else
				msg_table_add(MSG_fspart_row_end_other);
		}
	}
	msg_display_add(MSG_newline);
}

/*
 * Label a disk using an MD-specific string DISKLABEL_CMD for
 * to invoke  disklabel.
 * if MD code does not define DISKLABEL_CMD, this is a no-op.
 *
 * i386  port uses "/sbin/disklabel -w -r", just like i386
 * miniroot scripts, though this may leave a bogus incore label.
 *
 * Sun ports should use  DISKLABEL_CMD "/sbin/disklabel -w"
 * to get incore  to ondisk inode translation for the Sun proms.
 */
int
write_disklabel (void)
{

#ifdef DISKLABEL_CMD
	/* disklabel the disk */
	return run_prog(RUN_DISPLAY, MSG_cmdfail,
	    "%s %s %s", DISKLABEL_CMD, diskdev, bsddiskname);
#else
	return 0;
#endif
}

int
make_filesystems(void)
{
	int i;
	char partname[STRSIZE];
	int error;

	/* Making new file systems and mounting them*/
	for (i = 0; i < getmaxpartitions(); i++) {
		/*
		 * newfs and mount. For now, process only BSD filesystems.
		 * but if this is the mounted-on root, has no mount
		 * point defined, or is marked preserve, don't touch it!
		 */
	  	snprintf(partname, STRSIZE, "%s%c", diskdev, 'a' + i);
		if (PI_ISBSDFS(&bsdlabel[i]) && !is_active_rootpart(partname)) {
			error = do_flfs_newfs(partname, i, bsdlabel[i].pi_mount);
			if (error)
				return error;
		}
	}
	return 0;
}

/* newfs and mount an ffs filesystem. */
static int
do_flfs_newfs(const char *partname, int partno, const char *mountpoint)
{
	char dev_name[STRSIZE];
	int error;
	const char *newfs;

	if (!*mountpoint)
		return 0;

	if (bsdlabel[partno].pi_newfs) {
		switch (bsdlabel[partno].pi_fstype) {
		case FS_BSDFFS:
			newfs = "/sbin/newfs";
			break;
		case FS_BSDLFS:
			newfs = "/sbin/newfs_lfs";
			break;
		default:
			return 0;
		}
		error = run_prog(RUN_DISPLAY, MSG_cmdfail, "%s /dev/r%s",
		    newfs, partname);
	} else
		error = 0;

	if (error == 0) {
		snprintf(dev_name, sizeof(dev_name), "/dev/%s", partname);
		if (partno > 0)	/* XXX strcmp(mountpoint, "/") ? XXX */
			make_target_dir(mountpoint);
		error = target_mount(bsdlabel[partno].pi_fstype == FS_BSDFFS ?
		    "-v -o async" : "-v", dev_name, mountpoint);
		if (error) {
			msg_display(MSG_mountfail, dev_name, mountpoint);
			process_menu(MENU_ok, NULL);
		}
	}
	return error;
}

int
make_fstab(void)
{
	FILE *f;
	int i, swap_dev = -1;

	/* Create the fstab. */
	make_target_dir("/etc");
	f = target_fopen("/etc/fstab", "w");
	if (logging)
		(void)fprintf(logfp,
		    "Creating %s/etc/fstab.\n", target_prefix());
	scripting_fprintf(NULL, "cat <<EOF >%s/etc/fstab\n", target_prefix());

	if (f == NULL) {
#ifndef DEBUG
		msg_display(MSG_createfstab);
		if (logging)
			(void)fprintf(logfp, "Failed to make /etc/fstab!\n");
		process_menu(MENU_ok, NULL);
		return 1;
#else
		f = stdout;
#endif
	}

	for (i = 0; i < getmaxpartitions(); i++) {
		const char *s = "";
		const char *mp = bsdlabel[i].pi_mount;
		const char *fstype = "ffs";

		if (!*mp) {
			/*
			 * No mount point specified, comment out line and
			 * use /mnt as a placeholder for the mount point.
			 */
			s = "# ";
			mp = "/mnt";
		}

		switch (bsdlabel[i].pi_fstype) {
		case FS_BSDLFS:
			/* If there is no LFS, just comment it out. */
			if (check_lfs_progs())
				s = "# ";
			fstype = "lfs";
			/* FALLTHROUGH */
		case FS_BSDFFS:
			scripting_fprintf(f, "%s/dev/%s%c %s %s rw 1 %d\n",
			       s, diskdev, 'a' + i, mp, fstype, fsck_num(mp));
			break;
		case FS_MSDOS:
			scripting_fprintf(f, "%s/dev/%s%c %s msdos rw 0 0\n",
			       s, diskdev, 'a' + i, mp);
			break;
		case FS_SWAP:
			if (swap_dev == -1)
				swap_dev = i;
			scripting_fprintf(f, "/dev/%s%c none swap sw 0 0\n",
				diskdev, 'a' + i);
			break;
		}
	}

	if (tmp_mfs_size != 0) {
		if (swap_dev != -1)
			scripting_fprintf(f, "/dev/%s%c /tmp mfs rw,-s=%d\n",
				diskdev, 'a' + swap_dev, tmp_mfs_size);
		else
			scripting_fprintf(f, "swap /tmp mfs rw,-s=%d\n,
				tmp_mfs_size");
	}

	/* Add /kern to fstab and make mountpoint. */
	scripting_fprintf(script, "/kern /kern kernfs rw\n");
	make_target_dir("/kern");

	scripting_fprintf(NULL, "EOF\n");

#ifndef DEBUG
	fclose(f);
	fflush(NULL);
#endif
	return 0;
}

/* Return the appropriate fs_passno field, as specified by fstab(5) */
static int
fsck_num(const char *mp)
{
	return (strcmp(mp, "/") == 0) ? 1 : 2;
}


/* Get information on the file systems mounted from the root filesystem.
 * Offer to convert them into 4.4BSD inodes if they are not 4.4BSD
 * inodes.  Fsck them.  Mount them.
 */


static struct lookfor fstabbuf[] = {
	{"/dev/", "/dev/%s %s ffs %s", "c", NULL, 0, 0, foundffs},
	{"/dev/", "/dev/%s %s ufs %s", "c", NULL, 0, 0, foundffs},
};
static size_t numfstabbuf = sizeof(fstabbuf) / sizeof(struct lookfor);

#define MAXDEVS 40

static char dev[MAXDEVS][SSTRSIZE];
static char mnt[MAXDEVS][STRSIZE];
static int  devcnt = 0;

static void
/*ARGSUSED*/
foundffs(struct data *list, size_t num)
{
	if (strcmp(list[1].u.s_val, "/") != 0 &&
	    strstr(list[2].u.s_val, "noauto") == NULL) {
		strncpy(dev[devcnt], list[0].u.s_val, SSTRSIZE);
		strncpy(mnt[devcnt], list[1].u.s_val, STRSIZE);
		devcnt++;
	}
}

/*
 * Run a check on the specified filesystem.
 */
static int
do_fsck(const char *diskpart)
{
	char rraw[SSTRSIZE];
	char *prog = "/sbin/fsck";
	int err;

	/* cons up raw partition name. */
	snprintf (rraw, sizeof(rraw), "/dev/r%s", diskpart);

#ifndef	DEBUG_SETS
	err = run_prog(RUN_DISPLAY, NULL, "%s %s", prog, rraw);
#else
	err = run_prog(RUN_DISPLAY, NULL, "%s -f %s", prog, rraw);
#endif
	wrefresh(stdscr);
	return err;
}

/*
 * Do an fsck. On failure,  inform the user by showing a warning
 * message and doing menu_ok() before proceeding.
 * acknowledge the warning before continuing.
 * Returns 0 on success, or nonzero return code from do_fsck() on failure.
 */
int
fsck_with_error_menu(const char *diskpart)
{
	int error;

	if ((error = do_fsck(diskpart)) != 0) {
#ifdef DEBUG
		fprintf(stderr, "sysinst: do_fsck() returned err %d\n", error);
#endif
		msg_display(MSG_badfs, diskpart, "", error);
		process_menu(MENU_ok, NULL);
	}
	return error;
}


/*
 * Do target_mount, but print a message and do menu_ok() before
 * proceeding, to inform the user.
 * returns 0 if  the mount completed without indicating errors,
 *  and an nonzero error code from target_mount() otherwise.
 */
int target_mount_with_error_menu(const char *opt,
		 char *diskpart, const char *mntpoint)
{
	int error;
	char dev_name[STRSIZE];

	snprintf(dev_name, sizeof(dev_name), "/dev/%s", diskpart);
#ifdef DEBUG
	fprintf(stderr, "sysinst: mount_with_error_menu: %s %s %s\n",
		opt, dev_name, mntpoint);
#endif

	if ((error = target_mount(opt, dev_name, mntpoint)) != 0) {
		msg_display (MSG_badmount, dev_name, "");
		process_menu (MENU_ok, NULL);
		return error;
	} else {
#ifdef DEBUG
	  printf("mount %s %s %s OK\n", opt, diskpart, mntpoint);
#endif
	}

	return error;
}

/*
 * fsck and mount the root partition.
 */
int
fsck_root()
{
	int   error;
	char	rootdev[STRSIZE];

	/* cons up the root name:  partition 'a' on the target diskdev.*/
	snprintf(rootdev, STRSIZE, "%s%c", diskdev, 'a');
#ifdef DEBUG
	printf("fsck_root: rootdev is %s\n", rootdev);
#endif
	error = fsck_with_error_menu(rootdev);
	if (error != 0)
		return error;

	if (target_already_root()) {
		return (0);
	}

	/* Mount /dev/<diskdev>a on  target's "".
	 * If we pass "" as mount-on, Prefixing will DTRT.
	 * for now, use no options.
	 * XXX consider -o remount in case target root is
	 * current root, still  readonly from single-user?
	 */
	error = target_mount_with_error_menu("", rootdev, "");

#ifdef DEBUG
	printf("fsck_root: mount of %s returns %d\n", rootdev, error);
#endif
	return (error);
}

int
fsck_disks(void)
{	char *fstab;
	int   fstabsize;
	int   i;
	int   error;

	/* First the root device. */
	if (!target_already_root()) {
		error = fsck_root();
		if (error != 0 && error != EBUSY)
			return 0;
	}

	/* Check the target /etc/fstab exists before trying to parse it. */
	if (target_dir_exists_p("/etc") == 0 ||
	    target_file_exists_p("/etc/fstab") == 0) {
		msg_display(MSG_noetcfstab, diskdev);
		process_menu(MENU_ok, NULL);
		return 0;
	}


	/* Get fstab entries from the target-root /etc/fstab. */
	fstabsize = target_collect_file(T_FILE, &fstab, "/etc/fstab");
	if (fstabsize < 0) {
		/* error ! */
		msg_display(MSG_badetcfstab, diskdev);
		process_menu(MENU_ok, NULL);
		return 0;
	}
	walk(fstab, (size_t)fstabsize, fstabbuf, numfstabbuf);
	free(fstab);

	for (i = 0; i < devcnt; i++) {
	  	if (fsck_with_error_menu(dev[i]))
			return 0;

#ifdef DEBUG
		printf("sysinst: mount %s\n", dev[i]);
#endif
		if (target_mount_with_error_menu("", dev[i], mnt[i]) != 0)
			return 0;
	}

	return 1;
}

int
set_swap(dev, pp, enable)
	const char *dev;
	partinfo *pp;
	int enable;
{
	partinfo parts[16];
	int i, maxpart;

	if (pp == NULL) {
		emptylabel(parts);
		if (incorelabel(dev, parts) < 0)
			return -1;
		pp = parts;
	}

	maxpart = getmaxpartitions();

	for (i = 0; i < maxpart; i++) {
		if (pp[i].pi_fstype == FS_SWAP) {
			if (run_prog(0, NULL,
			    "/sbin/swapctl -%c /dev/%s%c",
			    enable ? 'a' : 'd', dev, 'a' + i) != 0)
				return -1;
			if (enable)
				strcpy(swapdev, dev);
			else
				swapdev[0] = '\0';
			break;
		}
	}

	return 0;
}