462 lines
11 KiB
C
462 lines
11 KiB
C
/* $NetBSD: eject.c,v 1.28 2016/09/05 00:40:28 sevan Exp $ */
|
|
|
|
/*-
|
|
* Copyright (c) 1999 The NetBSD Foundation, Inc.
|
|
* All rights reserved.
|
|
*
|
|
* This code is derived from software contributed to The NetBSD Foundation
|
|
* by Chris Jones.
|
|
*
|
|
* 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.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
|
|
* ``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 THE FOUNDATION OR CONTRIBUTORS
|
|
* 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.
|
|
*/
|
|
|
|
#include <sys/cdefs.h>
|
|
#ifndef lint
|
|
__COPYRIGHT("@(#) Copyright (c) 1999\
|
|
The NetBSD Foundation, Inc. All rights reserved.");
|
|
#endif /* not lint */
|
|
|
|
#ifndef lint
|
|
__RCSID("$NetBSD: eject.c,v 1.28 2016/09/05 00:40:28 sevan Exp $");
|
|
#endif /* not lint */
|
|
|
|
#include <sys/types.h>
|
|
#include <sys/cdio.h>
|
|
#include <sys/disklabel.h>
|
|
#include <sys/ioctl.h>
|
|
#include <sys/param.h>
|
|
#include <sys/ucred.h>
|
|
#include <sys/mount.h>
|
|
#include <sys/mtio.h>
|
|
|
|
#include <ctype.h>
|
|
#include <err.h>
|
|
#include <fcntl.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <unistd.h>
|
|
#include <util.h>
|
|
|
|
#ifdef AMD_SUPPORT
|
|
# include "am_glue.h"
|
|
#endif
|
|
|
|
struct nicknames_s {
|
|
const char *name; /* The name given on the command line. */
|
|
const char *devname; /* The base name of the device */
|
|
int type; /* The type of device, for determining what
|
|
* ioctl to use. */
|
|
# define TAPE 0x10
|
|
# define DISK 0x20
|
|
/* OR one of the above with one of the below: */
|
|
# define NOTLOADABLE 0x00
|
|
# define LOADABLE 0x01
|
|
# define FLOPPY 0x2
|
|
# define TYPEMASK ((int)~0x01)
|
|
} nicknames[] = {
|
|
{ "diskette", "fd", DISK | FLOPPY | NOTLOADABLE },
|
|
{ "floppy", "fd", DISK | FLOPPY | NOTLOADABLE },
|
|
{ "fd", "fd", DISK | FLOPPY | NOTLOADABLE },
|
|
{ "sd", "sd", DISK | NOTLOADABLE },
|
|
{ "cdrom", "cd", DISK | LOADABLE },
|
|
{ "cd", "cd", DISK | LOADABLE },
|
|
{ "racd", "racd", DISK | LOADABLE },
|
|
{ "cdr", "cd", DISK | LOADABLE },
|
|
{ "cdrw", "cd", DISK | LOADABLE },
|
|
{ "dvdrom", "cd", DISK | LOADABLE },
|
|
{ "dvd", "cd", DISK | LOADABLE },
|
|
{ "dvdr", "cd", DISK | LOADABLE },
|
|
{ "dvdrw", "cd", DISK | LOADABLE },
|
|
{ "mcd", "mcd", DISK | LOADABLE }, /* XXX Is this true? */
|
|
{ "tape", "st", TAPE | NOTLOADABLE },
|
|
{ "st", "st", TAPE | NOTLOADABLE },
|
|
{ "dat", "st", TAPE | NOTLOADABLE },
|
|
{ "exabyte", "st", TAPE | NOTLOADABLE }
|
|
};
|
|
#define MAXNICKLEN 12 /* at least enough room for the longest
|
|
* nickname */
|
|
#define MAXDEVLEN (MAXNICKLEN + 7) /* "/dev/r" ... "a" */
|
|
|
|
struct devtypes_s {
|
|
const char *name;
|
|
int type;
|
|
} devtypes[] = {
|
|
{ "diskette", DISK | NOTLOADABLE },
|
|
{ "floppy", DISK | NOTLOADABLE },
|
|
{ "cdrom", DISK | LOADABLE },
|
|
{ "disk", DISK | NOTLOADABLE },
|
|
{ "tape", TAPE | NOTLOADABLE }
|
|
};
|
|
|
|
enum eject_op {
|
|
OP_EJECT, OP_LOAD, OP_LOCK, OP_UNLOCK
|
|
};
|
|
|
|
int verbose_f = 0;
|
|
int umount_f = 1;
|
|
|
|
__dead static void usage(void);
|
|
static char *nick2dev(const char *);
|
|
static char *nick2rdev(const char *);
|
|
static int guess_devtype(const char *);
|
|
static void eject_disk(const char *, enum eject_op);
|
|
static void eject_tape(const char *, enum eject_op);
|
|
static void unmount_dev(const char *);
|
|
|
|
int
|
|
main(int argc, char *argv[])
|
|
{
|
|
int ch;
|
|
int devtype;
|
|
size_t n;
|
|
char *dev_name; /* XXX - devname is declared in stdlib.h */
|
|
enum eject_op op;
|
|
|
|
devtype = -1;
|
|
dev_name = NULL;
|
|
op = OP_EJECT;
|
|
|
|
while ((ch = getopt(argc, argv, "d:flLnt:Uv")) != -1) {
|
|
switch (ch) {
|
|
case 'd':
|
|
dev_name = optarg;
|
|
break;
|
|
case 'f':
|
|
umount_f = 0;
|
|
break;
|
|
case 'l':
|
|
if (op != OP_EJECT)
|
|
usage();
|
|
op = OP_LOAD;
|
|
break;
|
|
case 'L':
|
|
if (op != OP_EJECT)
|
|
usage();
|
|
op = OP_LOCK;
|
|
break;
|
|
case 'n':
|
|
for (n = 0; n < __arraycount(nicknames); n++) {
|
|
struct nicknames_s *np = &nicknames[n];
|
|
|
|
(void)printf("%s -> %s\n",
|
|
np->name, nick2dev(np->name));
|
|
}
|
|
return 0;
|
|
case 't':
|
|
for (n = 0; n < __arraycount(devtypes); n++) {
|
|
if (strcasecmp(devtypes[n].name, optarg)
|
|
== 0) {
|
|
devtype = devtypes[n].type;
|
|
break;
|
|
}
|
|
}
|
|
if (devtype == -1)
|
|
errx(1, "%s: unknown device type", optarg);
|
|
break;
|
|
case 'U':
|
|
if (op != OP_EJECT)
|
|
usage();
|
|
op = OP_UNLOCK;
|
|
break;
|
|
case 'v':
|
|
verbose_f = 1;
|
|
break;
|
|
default:
|
|
usage();
|
|
/* NOTREACHED */
|
|
}
|
|
}
|
|
argc -= optind;
|
|
argv += optind;
|
|
|
|
if (dev_name == NULL) {
|
|
if (argc == 0)
|
|
usage();
|
|
else
|
|
dev_name = argv[0];
|
|
}
|
|
if (devtype == -1)
|
|
devtype = guess_devtype(dev_name);
|
|
if (devtype == -1)
|
|
errx(1, "%s: unable to determine type of device", dev_name);
|
|
if (verbose_f) {
|
|
(void)printf("device type == ");
|
|
if ((devtype & TYPEMASK) == TAPE)
|
|
(void)printf("tape\n");
|
|
else
|
|
(void)printf("disk, floppy, or cdrom\n");
|
|
}
|
|
if (umount_f)
|
|
unmount_dev(dev_name);
|
|
|
|
/* XXX Tapes and disks have different ioctl's: */
|
|
if ((devtype & TYPEMASK) == TAPE)
|
|
eject_tape(dev_name, op);
|
|
else
|
|
eject_disk(dev_name, op);
|
|
|
|
if (verbose_f)
|
|
(void)printf("done.\n");
|
|
|
|
return 0;
|
|
}
|
|
|
|
__dead
|
|
static void
|
|
usage(void)
|
|
{
|
|
|
|
(void)fprintf(stderr, "usage: eject [-fv] [-l | -L | -U] "
|
|
"[-t device-type] [-d] device\n");
|
|
(void)fprintf(stderr, " eject -n\n");
|
|
exit(1);
|
|
}
|
|
|
|
static int
|
|
guess_devtype(const char *dev_name)
|
|
{
|
|
size_t n;
|
|
|
|
/* Nickname match: */
|
|
for (n = 0; n < __arraycount(nicknames); n++) {
|
|
if (strncasecmp(nicknames[n].name, dev_name,
|
|
strlen(nicknames[n].name)) == 0)
|
|
return nicknames[n].type;
|
|
}
|
|
|
|
/*
|
|
* If we still don't know it, then try to compare vs. dev and
|
|
* rdev names that we know.
|
|
*/
|
|
/* dev first: */
|
|
for (n = 0; n < __arraycount(nicknames); n++) {
|
|
char *name;
|
|
name = nick2dev(nicknames[n].name);
|
|
/*
|
|
* Assume that the part of the name that distinguishes
|
|
* the instance of this device begins with a 0.
|
|
*/
|
|
*(strchr(name, '0')) = '\0';
|
|
if (strncmp(name, dev_name, strlen(name)) == 0)
|
|
return nicknames[n].type;
|
|
}
|
|
|
|
/* Now rdev: */
|
|
for (n = 0; n < __arraycount(nicknames); n++) {
|
|
char *name = nick2rdev(nicknames[n].name);
|
|
*(strchr(name, '0')) = '\0';
|
|
if (strncmp(name, dev_name, strlen(name)) == 0)
|
|
return nicknames[n].type;
|
|
}
|
|
|
|
/* Not found. */
|
|
return -1;
|
|
}
|
|
|
|
/* "floppy5" -> "/dev/fd5a". Yep, this uses a static buffer. */
|
|
static char *
|
|
nick2dev(const char *nn)
|
|
{
|
|
static char dev_name[MAXDEVLEN];
|
|
size_t n;
|
|
int devnum;
|
|
|
|
devnum = 0;
|
|
for (n = 0; n < __arraycount(nicknames); n++) {
|
|
if (strncasecmp(nicknames[n].name, nn,
|
|
strlen(nicknames[n].name)) == 0) {
|
|
(void)sscanf(nn, "%*[^0-9]%d", &devnum);
|
|
(void)sprintf(dev_name, "/dev/%s%d",
|
|
nicknames[n].devname, devnum);
|
|
if ((nicknames[n].type & TYPEMASK) != TAPE)
|
|
(void)strcat(dev_name, "a");
|
|
return dev_name;
|
|
}
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
/* "floppy5" -> "/dev/rfd5c". Static buffer. */
|
|
static char *
|
|
nick2rdev(const char *nn)
|
|
{
|
|
static char dev_name[MAXDEVLEN];
|
|
size_t n;
|
|
int devnum;
|
|
|
|
devnum = 0;
|
|
for (n = 0; n < __arraycount(nicknames); n++) {
|
|
if (strncasecmp(nicknames[n].name, nn,
|
|
strlen(nicknames[n].name)) == 0) {
|
|
(void)sscanf(nn, "%*[^0-9]%d", &devnum);
|
|
(void)sprintf(dev_name, "/dev/r%s%d",
|
|
nicknames[n].devname, devnum);
|
|
if ((nicknames[n].type & TYPEMASK) != TAPE) {
|
|
(void)strcat(dev_name, "a");
|
|
if ((nicknames[n].type & FLOPPY) != FLOPPY)
|
|
dev_name[strlen(dev_name) - 1]
|
|
+= getrawpartition();
|
|
}
|
|
return dev_name;
|
|
}
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
/* Unmount all filesystems attached to dev. */
|
|
static void
|
|
unmount_dev(const char *name)
|
|
{
|
|
struct statvfs *mounts;
|
|
size_t len;
|
|
int i, nmnts;
|
|
const char *dn;
|
|
|
|
nmnts = getmntinfo(&mounts, MNT_NOWAIT);
|
|
if (nmnts == 0)
|
|
err(1, "getmntinfo");
|
|
|
|
/* Make sure we have a device name: */
|
|
dn = nick2dev(name);
|
|
if (dn == NULL)
|
|
dn = name;
|
|
|
|
/* Set len to strip off the partition name: */
|
|
len = strlen(dn);
|
|
if (!isdigit((unsigned char)dn[len - 1]))
|
|
len--;
|
|
if (!isdigit((unsigned char)dn[len - 1]))
|
|
errx(1, "Can't figure out base name for dev name %s", dn);
|
|
|
|
for (i = 0; i < nmnts; i++) {
|
|
if (strncmp(mounts[i].f_mntfromname, dn, len) == 0) {
|
|
if (verbose_f)
|
|
(void)printf("Unmounting %s from %s...\n",
|
|
mounts[i].f_mntfromname,
|
|
mounts[i].f_mntonname);
|
|
|
|
if (
|
|
#ifdef AMD_SUPPORT
|
|
am_unmount(mounts[i].f_mntonname) != 0 &&
|
|
#endif
|
|
unmount(mounts[i].f_mntonname, 0) == -1)
|
|
err(1, "unmount: %s", mounts[i].f_mntonname);
|
|
}
|
|
}
|
|
return;
|
|
}
|
|
|
|
static void
|
|
eject_tape(const char *name, enum eject_op op)
|
|
{
|
|
struct mtop m;
|
|
int fd;
|
|
const char *dn;
|
|
|
|
dn = nick2rdev(name);
|
|
if (dn == NULL)
|
|
dn = name; /* Hope for the best. */
|
|
fd = open(dn, O_RDONLY);
|
|
if (fd == -1)
|
|
err(1, "open: %s", dn);
|
|
switch (op) {
|
|
case OP_EJECT:
|
|
if (verbose_f)
|
|
(void)printf("Ejecting %s...\n", dn);
|
|
|
|
m.mt_op = MTOFFL;
|
|
m.mt_count = 0;
|
|
if (ioctl(fd, MTIOCTOP, &m) == -1)
|
|
err(1, "ioctl: MTIOCTOP: %s", dn);
|
|
break;
|
|
case OP_LOAD:
|
|
errx(1, "cannot load tapes");
|
|
/* NOTREACHED */
|
|
case OP_LOCK:
|
|
errx(1, "cannot lock tapes");
|
|
/* NOTREACHED */
|
|
case OP_UNLOCK:
|
|
errx(1, "cannot unlock tapes");
|
|
/* NOTREACHED */
|
|
}
|
|
(void)close(fd);
|
|
return;
|
|
}
|
|
|
|
static void
|
|
eject_disk(const char *name, enum eject_op op)
|
|
{
|
|
int fd;
|
|
const char *dn;
|
|
int arg;
|
|
|
|
dn = nick2rdev(name);
|
|
if (dn == NULL)
|
|
dn = name; /* Hope for the best. */
|
|
fd = open(dn, O_RDONLY);
|
|
if (fd == -1)
|
|
err(1, "open: %s", dn);
|
|
switch (op) {
|
|
case OP_LOAD:
|
|
if (verbose_f)
|
|
(void)printf("Closing %s...\n", dn);
|
|
|
|
if (ioctl(fd, CDIOCCLOSE, NULL) == -1)
|
|
err(1, "ioctl: CDIOCCLOSE: %s", dn);
|
|
break;
|
|
case OP_EJECT:
|
|
if (verbose_f)
|
|
(void)printf("Ejecting %s...\n", dn);
|
|
|
|
arg = 0;
|
|
if (umount_f == 0) {
|
|
/* force eject, unlock the device first */
|
|
if (ioctl(fd, DIOCLOCK, &arg) == -1)
|
|
err(1, "ioctl: DIOCLOCK: %s", dn);
|
|
arg = 1;
|
|
}
|
|
if (ioctl(fd, DIOCEJECT, &arg) == -1)
|
|
err(1, "ioctl: DIOCEJECT: %s", dn);
|
|
break;
|
|
case OP_LOCK:
|
|
if (verbose_f)
|
|
(void)printf("Locking %s...\n", dn);
|
|
|
|
arg = 1;
|
|
if (ioctl(fd, DIOCLOCK, &arg) == -1)
|
|
err(1, "ioctl: DIOCLOCK: %s", dn);
|
|
break;
|
|
case OP_UNLOCK:
|
|
if (verbose_f)
|
|
(void)printf("Unlocking %s...\n", dn);
|
|
|
|
arg = 0;
|
|
if (ioctl(fd, DIOCLOCK, &arg) == -1)
|
|
err(1, "ioctl: DIOCLOCK: %s", dn);
|
|
break;
|
|
}
|
|
|
|
(void)close(fd);
|
|
return;
|
|
}
|