ctladm.c revision 276138
1/*-
2 * Copyright (c) 2003, 2004 Silicon Graphics International Corp.
3 * Copyright (c) 1997-2007 Kenneth D. Merry
4 * Copyright (c) 2012 The FreeBSD Foundation
5 * All rights reserved.
6 *
7 * Portions of this software were developed by Edward Tomasz Napierala
8 * under sponsorship from the FreeBSD Foundation.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 *    notice, this list of conditions, and the following disclaimer,
15 *    without modification.
16 * 2. Redistributions in binary form must reproduce at minimum a disclaimer
17 *    substantially similar to the "NO WARRANTY" disclaimer below
18 *    ("Disclaimer") and any redistribution must be conditioned upon
19 *    including a substantially similar Disclaimer requirement for further
20 *    binary redistribution.
21 *
22 * NO WARRANTY
23 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
24 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
25 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR
26 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
27 * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
31 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
32 * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
33 * POSSIBILITY OF SUCH DAMAGES.
34 *
35 * $Id: //depot/users/kenm/FreeBSD-test2/usr.sbin/ctladm/ctladm.c#4 $
36 */
37/*
38 * CAM Target Layer exercise program.
39 *
40 * Author: Ken Merry <ken@FreeBSD.org>
41 */
42
43#include <sys/cdefs.h>
44__FBSDID("$FreeBSD: stable/10/usr.sbin/ctladm/ctladm.c 276138 2014-12-23 12:44:16Z mav $");
45
46#include <sys/ioctl.h>
47#include <sys/types.h>
48#include <sys/stat.h>
49#include <sys/param.h>
50#include <sys/linker.h>
51#include <sys/queue.h>
52#include <sys/callout.h>
53#include <sys/sbuf.h>
54#include <stdint.h>
55#include <stdio.h>
56#include <stdlib.h>
57#include <unistd.h>
58#include <fcntl.h>
59#include <getopt.h>
60#include <string.h>
61#include <errno.h>
62#include <err.h>
63#include <ctype.h>
64#include <bsdxml.h>
65#include <cam/scsi/scsi_all.h>
66#include <cam/scsi/scsi_message.h>
67#include <cam/ctl/ctl.h>
68#include <cam/ctl/ctl_io.h>
69#include <cam/ctl/ctl_frontend_internal.h>
70#include <cam/ctl/ctl_backend.h>
71#include <cam/ctl/ctl_ioctl.h>
72#include <cam/ctl/ctl_backend_block.h>
73#include <cam/ctl/ctl_util.h>
74#include <cam/ctl/ctl_scsi_all.h>
75#include <camlib.h>
76#include <libutil.h>
77#include "ctladm.h"
78
79#ifdef min
80#undef min
81#endif
82#define min(x,y) (x < y) ? x : y
83
84typedef enum {
85	CTLADM_CMD_TUR,
86	CTLADM_CMD_INQUIRY,
87	CTLADM_CMD_REQ_SENSE,
88	CTLADM_CMD_ARRAYLIST,
89	CTLADM_CMD_REPORT_LUNS,
90	CTLADM_CMD_HELP,
91	CTLADM_CMD_DEVLIST,
92	CTLADM_CMD_ADDDEV,
93	CTLADM_CMD_RM,
94	CTLADM_CMD_CREATE,
95	CTLADM_CMD_READ,
96	CTLADM_CMD_WRITE,
97	CTLADM_CMD_PORT,
98	CTLADM_CMD_PORTLIST,
99	CTLADM_CMD_READCAPACITY,
100	CTLADM_CMD_MODESENSE,
101	CTLADM_CMD_DUMPOOA,
102	CTLADM_CMD_DUMPSTRUCTS,
103	CTLADM_CMD_START,
104	CTLADM_CMD_STOP,
105	CTLADM_CMD_SYNC_CACHE,
106	CTLADM_CMD_SHUTDOWN,
107	CTLADM_CMD_STARTUP,
108	CTLADM_CMD_LUNLIST,
109	CTLADM_CMD_HARDSTOP,
110	CTLADM_CMD_HARDSTART,
111	CTLADM_CMD_DELAY,
112	CTLADM_CMD_REALSYNC,
113	CTLADM_CMD_SETSYNC,
114	CTLADM_CMD_GETSYNC,
115	CTLADM_CMD_ERR_INJECT,
116	CTLADM_CMD_BBRREAD,
117	CTLADM_CMD_PRES_IN,
118	CTLADM_CMD_PRES_OUT,
119	CTLADM_CMD_INQ_VPD_DEVID,
120	CTLADM_CMD_RTPG,
121	CTLADM_CMD_MODIFY,
122	CTLADM_CMD_ISLIST,
123	CTLADM_CMD_ISLOGOUT,
124	CTLADM_CMD_ISTERMINATE
125} ctladm_cmdfunction;
126
127typedef enum {
128	CTLADM_ARG_NONE		= 0x0000000,
129	CTLADM_ARG_AUTOSENSE	= 0x0000001,
130	CTLADM_ARG_DEVICE	= 0x0000002,
131	CTLADM_ARG_ARRAYSIZE	= 0x0000004,
132	CTLADM_ARG_BACKEND	= 0x0000008,
133	CTLADM_ARG_CDBSIZE	= 0x0000010,
134	CTLADM_ARG_DATALEN	= 0x0000020,
135	CTLADM_ARG_FILENAME	= 0x0000040,
136	CTLADM_ARG_LBA		= 0x0000080,
137	CTLADM_ARG_PC		= 0x0000100,
138	CTLADM_ARG_PAGE_CODE	= 0x0000200,
139	CTLADM_ARG_PAGE_LIST	= 0x0000400,
140	CTLADM_ARG_SUBPAGE	= 0x0000800,
141	CTLADM_ARG_PAGELIST	= 0x0001000,
142	CTLADM_ARG_DBD		= 0x0002000,
143	CTLADM_ARG_TARG_LUN	= 0x0004000,
144	CTLADM_ARG_BLOCKSIZE	= 0x0008000,
145	CTLADM_ARG_IMMED	= 0x0010000,
146	CTLADM_ARG_RELADR	= 0x0020000,
147	CTLADM_ARG_RETRIES	= 0x0040000,
148	CTLADM_ARG_ONOFFLINE	= 0x0080000,
149	CTLADM_ARG_ONESHOT	= 0x0100000,
150	CTLADM_ARG_TIMEOUT	= 0x0200000,
151	CTLADM_ARG_INITIATOR	= 0x0400000,
152	CTLADM_ARG_NOCOPY	= 0x0800000,
153	CTLADM_ARG_NEED_TL	= 0x1000000
154} ctladm_cmdargs;
155
156struct ctladm_opts {
157	const char	*optname;
158	uint32_t	cmdnum;
159	ctladm_cmdargs	argnum;
160	const char	*subopt;
161};
162
163typedef enum {
164	CC_OR_NOT_FOUND,
165	CC_OR_AMBIGUOUS,
166	CC_OR_FOUND
167} ctladm_optret;
168
169static const char rw_opts[] = "Nb:c:d:f:l:";
170static const char startstop_opts[] = "io";
171
172static struct ctladm_opts option_table[] = {
173	{"adddev", CTLADM_CMD_ADDDEV, CTLADM_ARG_NONE, NULL},
174	{"bbrread", CTLADM_CMD_BBRREAD, CTLADM_ARG_NEED_TL, "d:l:"},
175	{"create", CTLADM_CMD_CREATE, CTLADM_ARG_NONE, "b:B:d:l:o:s:S:t:"},
176	{"delay", CTLADM_CMD_DELAY, CTLADM_ARG_NEED_TL, "T:l:t:"},
177	{"devid", CTLADM_CMD_INQ_VPD_DEVID, CTLADM_ARG_NEED_TL, NULL},
178	{"devlist", CTLADM_CMD_DEVLIST, CTLADM_ARG_NONE, "b:vx"},
179	{"dumpooa", CTLADM_CMD_DUMPOOA, CTLADM_ARG_NONE, NULL},
180	{"dumpstructs", CTLADM_CMD_DUMPSTRUCTS, CTLADM_ARG_NONE, NULL},
181	{"getsync", CTLADM_CMD_GETSYNC, CTLADM_ARG_NEED_TL, NULL},
182	{"hardstart", CTLADM_CMD_HARDSTART, CTLADM_ARG_NONE, NULL},
183	{"hardstop", CTLADM_CMD_HARDSTOP, CTLADM_ARG_NONE, NULL},
184	{"help", CTLADM_CMD_HELP, CTLADM_ARG_NONE, NULL},
185	{"inject", CTLADM_CMD_ERR_INJECT, CTLADM_ARG_NEED_TL, "cd:i:p:r:s:"},
186	{"inquiry", CTLADM_CMD_INQUIRY, CTLADM_ARG_NEED_TL, NULL},
187	{"islist", CTLADM_CMD_ISLIST, CTLADM_ARG_NONE, "vx"},
188	{"islogout", CTLADM_CMD_ISLOGOUT, CTLADM_ARG_NONE, "ac:i:p:"},
189	{"isterminate", CTLADM_CMD_ISTERMINATE, CTLADM_ARG_NONE, "ac:i:p:"},
190	{"lunlist", CTLADM_CMD_LUNLIST, CTLADM_ARG_NONE, NULL},
191	{"modesense", CTLADM_CMD_MODESENSE, CTLADM_ARG_NEED_TL, "P:S:dlm:c:"},
192	{"modify", CTLADM_CMD_MODIFY, CTLADM_ARG_NONE, "b:l:s:"},
193	{"port", CTLADM_CMD_PORT, CTLADM_ARG_NONE, "lo:p:qt:w:W:x"},
194	{"portlist", CTLADM_CMD_PORTLIST, CTLADM_ARG_NONE, "f:ip:qvx"},
195	{"prin", CTLADM_CMD_PRES_IN, CTLADM_ARG_NEED_TL, "a:"},
196	{"prout", CTLADM_CMD_PRES_OUT, CTLADM_ARG_NEED_TL, "a:k:r:s:"},
197	{"read", CTLADM_CMD_READ, CTLADM_ARG_NEED_TL, rw_opts},
198	{"readcapacity", CTLADM_CMD_READCAPACITY, CTLADM_ARG_NEED_TL, "c:"},
199	{"realsync", CTLADM_CMD_REALSYNC, CTLADM_ARG_NONE, NULL},
200	{"remove", CTLADM_CMD_RM, CTLADM_ARG_NONE, "b:l:o:"},
201	{"reportluns", CTLADM_CMD_REPORT_LUNS, CTLADM_ARG_NEED_TL, NULL},
202	{"reqsense", CTLADM_CMD_REQ_SENSE, CTLADM_ARG_NEED_TL, NULL},
203	{"rtpg", CTLADM_CMD_RTPG, CTLADM_ARG_NEED_TL, NULL},
204	{"setsync", CTLADM_CMD_SETSYNC, CTLADM_ARG_NEED_TL, "i:"},
205	{"shutdown", CTLADM_CMD_SHUTDOWN, CTLADM_ARG_NONE, NULL},
206	{"start", CTLADM_CMD_START, CTLADM_ARG_NEED_TL, startstop_opts},
207	{"startup", CTLADM_CMD_STARTUP, CTLADM_ARG_NONE, NULL},
208	{"stop", CTLADM_CMD_STOP, CTLADM_ARG_NEED_TL, startstop_opts},
209	{"synccache", CTLADM_CMD_SYNC_CACHE, CTLADM_ARG_NEED_TL, "b:c:il:r"},
210	{"tur", CTLADM_CMD_TUR, CTLADM_ARG_NEED_TL, NULL},
211	{"write", CTLADM_CMD_WRITE, CTLADM_ARG_NEED_TL, rw_opts},
212	{"-?", CTLADM_CMD_HELP, CTLADM_ARG_NONE, NULL},
213	{"-h", CTLADM_CMD_HELP, CTLADM_ARG_NONE, NULL},
214	{NULL, 0, 0, NULL}
215};
216
217
218ctladm_optret getoption(struct ctladm_opts *table, char *arg, uint32_t *cmdnum,
219			ctladm_cmdargs *argnum, const char **subopt);
220static int cctl_parse_tl(char *str, int *target, int *lun);
221static int cctl_dump_ooa(int fd, int argc, char **argv);
222static int cctl_port_dump(int fd, int quiet, int xml, int32_t fe_num,
223			  ctl_port_type port_type);
224static int cctl_port(int fd, int argc, char **argv, char *combinedopt);
225static int cctl_do_io(int fd, int retries, union ctl_io *io, const char *func);
226static int cctl_delay(int fd, int target, int lun, int argc, char **argv,
227		      char *combinedopt);
228static int cctl_lunlist(int fd);
229static void cctl_cfi_mt_statusstr(cfi_mt_status status, char *str, int str_len);
230static void cctl_cfi_bbr_statusstr(cfi_bbrread_status, char *str, int str_len);
231static int cctl_hardstopstart(int fd, ctladm_cmdfunction command);
232static int cctl_bbrread(int fd, int target, int lun, int iid, int argc,
233			char **argv, char *combinedopt);
234static int cctl_startup_shutdown(int fd, int target, int lun, int iid,
235				 ctladm_cmdfunction command);
236static int cctl_sync_cache(int fd, int target, int lun, int iid, int retries,
237			   int argc, char **argv, char *combinedopt);
238static int cctl_start_stop(int fd, int target, int lun, int iid, int retries,
239			   int start, int argc, char **argv, char *combinedopt);
240static int cctl_mode_sense(int fd, int target, int lun, int iid, int retries,
241			   int argc, char **argv, char *combinedopt);
242static int cctl_read_capacity(int fd, int target, int lun, int iid,
243			      int retries, int argc, char **argv,
244			      char *combinedopt);
245static int cctl_read_write(int fd, int target, int lun, int iid, int retries,
246			   int argc, char **argv, char *combinedopt,
247			   ctladm_cmdfunction command);
248static int cctl_get_luns(int fd, int target, int lun, int iid, int retries,
249			 struct scsi_report_luns_data **lun_data,
250			 uint32_t *num_luns);
251static int cctl_report_luns(int fd, int target, int lun, int iid, int retries);
252static int cctl_tur(int fd, int target, int lun, int iid, int retries);
253static int cctl_get_inquiry(int fd, int target, int lun, int iid, int retries,
254			    char *path_str, int path_len,
255			    struct scsi_inquiry_data *inq_data);
256static int cctl_inquiry(int fd, int target, int lun, int iid, int retries);
257static int cctl_req_sense(int fd, int target, int lun, int iid, int retries);
258static int cctl_persistent_reserve_in(int fd, int target, int lun,
259				      int initiator, int argc, char **argv,
260				      char *combinedopt, int retry_count);
261static int cctl_persistent_reserve_out(int fd, int target, int lun,
262				       int initiator, int argc, char **argv,
263				       char *combinedopt, int retry_count);
264static int cctl_create_lun(int fd, int argc, char **argv, char *combinedopt);
265static int cctl_inquiry_vpd_devid(int fd, int target, int lun, int initiator);
266static int cctl_report_target_port_group(int fd, int target, int lun,
267					 int initiator);
268static int cctl_modify_lun(int fd, int argc, char **argv, char *combinedopt);
269
270ctladm_optret
271getoption(struct ctladm_opts *table, char *arg, uint32_t *cmdnum,
272	  ctladm_cmdargs *argnum, const char **subopt)
273{
274	struct ctladm_opts *opts;
275	int num_matches = 0;
276
277	for (opts = table; (opts != NULL) && (opts->optname != NULL);
278	     opts++) {
279		if (strncmp(opts->optname, arg, strlen(arg)) == 0) {
280			*cmdnum = opts->cmdnum;
281			*argnum = opts->argnum;
282			*subopt = opts->subopt;
283
284			if (strcmp(opts->optname, arg) == 0)
285				return (CC_OR_FOUND);
286
287			if (++num_matches > 1)
288				return(CC_OR_AMBIGUOUS);
289		}
290	}
291
292	if (num_matches > 0)
293		return(CC_OR_FOUND);
294	else
295		return(CC_OR_NOT_FOUND);
296}
297
298
299static int
300cctl_parse_tl(char *str, int *target, int *lun)
301{
302	char *tmpstr;
303	int retval;
304
305	retval = 0;
306
307	while (isspace(*str) && (*str != '\0'))
308		str++;
309
310	tmpstr = (char *)strtok(str, ":");
311	if ((tmpstr != NULL) && (*tmpstr != '\0')) {
312		*target = strtol(tmpstr, NULL, 0);
313		tmpstr = (char *)strtok(NULL, ":");
314		if ((tmpstr != NULL) && (*tmpstr != '\0')) {
315			*lun = strtol(tmpstr, NULL, 0);
316		} else
317			retval = -1;
318	} else
319		retval = -1;
320
321	return (retval);
322}
323
324static int
325cctl_dump_ooa(int fd, int argc, char **argv)
326{
327	struct ctl_ooa ooa;
328	long double cmd_latency;
329	int num_entries, len;
330	int target = -1, lun = -1;
331	int retval;
332	unsigned int i;
333
334	num_entries = 104;
335
336	if ((argc > 2)
337	 && (isdigit(argv[2][0]))) {
338		retval = cctl_parse_tl(argv[2], &target, &lun);
339		if (retval != 0)
340			warnx("invalid target:lun argument %s", argv[2]);
341	}
342retry:
343
344	len = num_entries * sizeof(struct ctl_ooa_entry);
345
346	bzero(&ooa, sizeof(ooa));
347
348	ooa.entries = malloc(len);
349
350	if (ooa.entries == NULL) {
351		warn("%s: error mallocing %d bytes", __func__, len);
352		return (1);
353	}
354
355	if (argc > 2) {
356		ooa.lun_num = lun;
357	} else
358		ooa.flags |= CTL_OOA_FLAG_ALL_LUNS;
359
360	ooa.alloc_len = len;
361	ooa.alloc_num = num_entries;
362	if (ioctl(fd, CTL_GET_OOA, &ooa) == -1) {
363		warn("%s: CTL_GET_OOA ioctl failed", __func__);
364		retval = 1;
365		goto bailout;
366	}
367
368	if (ooa.status == CTL_OOA_NEED_MORE_SPACE) {
369		num_entries = num_entries * 2;
370		free(ooa.entries);
371		ooa.entries = NULL;
372		goto retry;
373	}
374
375	if (ooa.status != CTL_OOA_OK) {
376		warnx("%s: CTL_GET_OOA ioctl returned error %d", __func__,
377		      ooa.status);
378		retval = 1;
379		goto bailout;
380	}
381
382	fprintf(stdout, "Dumping OOA queues\n");
383	for (i = 0; i < ooa.fill_num; i++) {
384		struct ctl_ooa_entry *entry;
385		char cdb_str[(SCSI_MAX_CDBLEN * 3) +1];
386		struct bintime delta_bt;
387		struct timespec ts;
388
389		entry = &ooa.entries[i];
390
391		delta_bt = ooa.cur_bt;
392		bintime_sub(&delta_bt, &entry->start_bt);
393		bintime2timespec(&delta_bt, &ts);
394		cmd_latency = ts.tv_sec * 1000;
395		if (ts.tv_nsec > 0)
396			cmd_latency += ts.tv_nsec / 1000000;
397
398		fprintf(stdout, "LUN %jd tag 0x%04x%s%s%s%s%s: %s. CDB: %s "
399			"(%0.0Lf ms)\n",
400			(intmax_t)entry->lun_num, entry->tag_num,
401			(entry->cmd_flags & CTL_OOACMD_FLAG_BLOCKED) ?
402			 " BLOCKED" : "",
403			(entry->cmd_flags & CTL_OOACMD_FLAG_DMA) ? " DMA" : "",
404			(entry->cmd_flags & CTL_OOACMD_FLAG_DMA_QUEUED) ?
405			 " DMAQUEUED" : "",
406			(entry->cmd_flags & CTL_OOACMD_FLAG_ABORT) ?
407			 " ABORT" : "",
408			(entry->cmd_flags & CTL_OOACMD_FLAG_RTR) ? " RTR" :"",
409			scsi_op_desc(entry->cdb[0], NULL),
410			scsi_cdb_string(entry->cdb, cdb_str, sizeof(cdb_str)),
411			cmd_latency);
412	}
413	fprintf(stdout, "OOA queues dump done\n");
414#if 0
415	if (ioctl(fd, CTL_DUMP_OOA) == -1) {
416		warn("%s: CTL_DUMP_OOA ioctl failed", __func__);
417		return (1);
418	}
419#endif
420
421bailout:
422	free(ooa.entries);
423
424	return (0);
425}
426
427static int
428cctl_dump_structs(int fd, ctladm_cmdargs cmdargs __unused)
429{
430	if (ioctl(fd, CTL_DUMP_STRUCTS) == -1) {
431		warn(__func__);
432		return (1);
433	}
434	return (0);
435}
436
437static int
438cctl_port_dump(int fd, int quiet, int xml, int32_t targ_port,
439	       ctl_port_type port_type)
440{
441	struct ctl_port_list port_list;
442	struct ctl_port_entry *entries;
443	struct sbuf *sb = NULL;
444	int num_entries;
445	int did_print = 0;
446	unsigned int i;
447
448	num_entries = 16;
449
450retry:
451
452	entries = malloc(sizeof(*entries) * num_entries);
453	bzero(&port_list, sizeof(port_list));
454	port_list.entries = entries;
455	port_list.alloc_num = num_entries;
456	port_list.alloc_len = num_entries * sizeof(*entries);
457	if (ioctl(fd, CTL_GET_PORT_LIST, &port_list) != 0) {
458		warn("%s: CTL_GET_PORT_LIST ioctl failed", __func__);
459		return (1);
460	}
461	if (port_list.status == CTL_PORT_LIST_NEED_MORE_SPACE) {
462		printf("%s: allocated %d, need %d, retrying\n", __func__,
463		       num_entries, port_list.fill_num + port_list.dropped_num);
464		free(entries);
465		num_entries = port_list.fill_num + port_list.dropped_num;
466		goto retry;
467	}
468
469	if ((quiet == 0)
470	 && (xml == 0))
471		printf("Port Online Type     Name         pp vp %-18s %-18s\n",
472		       "WWNN", "WWPN");
473
474	if (xml != 0) {
475		sb = sbuf_new_auto();
476		sbuf_printf(sb, "<ctlfelist>\n");
477	}
478	for (i = 0; i < port_list.fill_num; i++) {
479		struct ctl_port_entry *entry;
480		const char *type;
481
482		entry = &entries[i];
483
484		switch (entry->port_type) {
485		case CTL_PORT_FC:
486			type = "FC";
487			break;
488		case CTL_PORT_SCSI:
489			type = "SCSI";
490			break;
491		case CTL_PORT_IOCTL:
492			type = "IOCTL";
493			break;
494		case CTL_PORT_INTERNAL:
495			type = "INTERNAL";
496			break;
497		case CTL_PORT_ISC:
498			type = "ISC";
499			break;
500		case CTL_PORT_ISCSI:
501			type = "ISCSI";
502			break;
503		case CTL_PORT_SAS:
504			type = "SAS";
505			break;
506		default:
507			type = "UNKNOWN";
508			break;
509		}
510
511		/*
512		 * If the user specified a frontend number or a particular
513		 * frontend type, only print out that particular frontend
514		 * or frontend type.
515		 */
516		if ((targ_port != -1)
517		 && (targ_port != entry->targ_port))
518			continue;
519		else if ((port_type != CTL_PORT_NONE)
520		      && ((port_type & entry->port_type) == 0))
521			continue;
522
523		did_print = 1;
524
525#if 0
526		printf("Num: %ju Type: %s (%#x) Name: %s Physical Port: %d "
527		       "Virtual Port: %d\n", (uintmax_t)entry->fe_num, type,
528		       entry->port_type, entry->fe_name, entry->physical_port,
529		       entry->virtual_port);
530		printf("WWNN %#jx WWPN %#jx Online: %s\n",
531		       (uintmax_t)entry->wwnn, (uintmax_t)entry->wwpn,
532		       (entry->online) ? "YES" : "NO" );
533#endif
534		if (xml == 0) {
535			printf("%-4d %-6s %-8s %-12s %-2d %-2d %#-18jx "
536			       "%#-18jx\n",
537			       entry->targ_port, (entry->online) ? "YES" : "NO",
538			       type, entry->port_name, entry->physical_port,
539			       entry->virtual_port, (uintmax_t)entry->wwnn,
540			       (uintmax_t)entry->wwpn);
541		} else {
542			sbuf_printf(sb, "<targ_port id=\"%d\">\n",
543				    entry->targ_port);
544			sbuf_printf(sb, "<online>%s</online>\n",
545				    (entry->online) ? "YES" : "NO");
546			sbuf_printf(sb, "<port_type>%s</port_type>\n", type);
547			sbuf_printf(sb, "<port_name>%s</port_name>\n",
548				    entry->port_name);
549			sbuf_printf(sb, "<physical_port>%d</physical_port>\n",
550				    entry->physical_port);
551			sbuf_printf(sb, "<virtual_port>%d</virtual_port>\n",
552				    entry->virtual_port);
553			sbuf_printf(sb, "<wwnn>%#jx</wwnn>\n",
554				    (uintmax_t)entry->wwnn);
555			sbuf_printf(sb, "<wwpn>%#jx</wwpn>\n",
556				    (uintmax_t)entry->wwpn);
557			sbuf_printf(sb, "</targ_port>\n");
558		}
559
560	}
561	if (xml != 0) {
562		sbuf_printf(sb, "</ctlfelist>\n");
563		if (sbuf_finish(sb) != 0)
564			err(1, "%s: sbuf_finish", __func__);
565		printf("%s", sbuf_data(sb));
566		sbuf_delete(sb);
567	}
568
569	/*
570	 * Give some indication that we didn't find the frontend or
571	 * frontend type requested by the user.  We could print something
572	 * out, but it would probably be better to hide that behind a
573	 * verbose flag.
574	 */
575	if ((did_print == 0)
576	 && ((targ_port != -1)
577	  || (port_type != CTL_PORT_NONE)))
578		return (1);
579	else
580		return (0);
581}
582
583typedef enum {
584	CCTL_PORT_MODE_NONE,
585	CCTL_PORT_MODE_LIST,
586	CCTL_PORT_MODE_SET,
587	CCTL_PORT_MODE_ON,
588	CCTL_PORT_MODE_OFF
589} cctl_port_mode;
590
591static struct ctladm_opts cctl_fe_table[] = {
592	{"fc", CTL_PORT_FC, CTLADM_ARG_NONE, NULL},
593	{"scsi", CTL_PORT_SCSI, CTLADM_ARG_NONE, NULL},
594	{"internal", CTL_PORT_INTERNAL, CTLADM_ARG_NONE, NULL},
595	{"iscsi", CTL_PORT_ISCSI, CTLADM_ARG_NONE, NULL},
596	{"sas", CTL_PORT_SAS, CTLADM_ARG_NONE, NULL},
597	{"all", CTL_PORT_ALL, CTLADM_ARG_NONE, NULL},
598	{NULL, 0, 0, NULL}
599};
600
601static int
602cctl_port(int fd, int argc, char **argv, char *combinedopt)
603{
604	int c;
605	int32_t targ_port = -1;
606	int retval = 0;
607	int wwnn_set = 0, wwpn_set = 0;
608	uint64_t wwnn = 0, wwpn = 0;
609	cctl_port_mode port_mode = CCTL_PORT_MODE_NONE;
610	struct ctl_port_entry entry;
611	ctl_port_type port_type = CTL_PORT_NONE;
612	int quiet = 0, xml = 0;
613
614	while ((c = getopt(argc, argv, combinedopt)) != -1) {
615		switch (c) {
616		case 'l':
617			if (port_mode != CCTL_PORT_MODE_NONE)
618				goto bailout_badarg;
619
620			port_mode = CCTL_PORT_MODE_LIST;
621			break;
622		case 'o':
623			if (port_mode != CCTL_PORT_MODE_NONE)
624				goto bailout_badarg;
625
626			if (strcasecmp(optarg, "on") == 0)
627				port_mode = CCTL_PORT_MODE_ON;
628			else if (strcasecmp(optarg, "off") == 0)
629				port_mode = CCTL_PORT_MODE_OFF;
630			else {
631				warnx("Invalid -o argument %s, \"on\" or "
632				      "\"off\" are the only valid args",
633				      optarg);
634				retval = 1;
635				goto bailout;
636			}
637			break;
638		case 'p':
639			targ_port = strtol(optarg, NULL, 0);
640			break;
641		case 'q':
642			quiet = 1;
643			break;
644		case 't': {
645			ctladm_optret optret;
646			ctladm_cmdargs argnum;
647			const char *subopt;
648			ctl_port_type tmp_port_type;
649
650			optret = getoption(cctl_fe_table, optarg, &tmp_port_type,
651					   &argnum, &subopt);
652			if (optret == CC_OR_AMBIGUOUS) {
653				warnx("%s: ambiguous frontend type %s",
654				      __func__, optarg);
655				retval = 1;
656				goto bailout;
657			} else if (optret == CC_OR_NOT_FOUND) {
658				warnx("%s: invalid frontend type %s",
659				      __func__, optarg);
660				retval = 1;
661				goto bailout;
662			}
663
664			port_type |= tmp_port_type;
665			break;
666		}
667		case 'w':
668			if ((port_mode != CCTL_PORT_MODE_NONE)
669			 && (port_mode != CCTL_PORT_MODE_SET))
670				goto bailout_badarg;
671
672			port_mode = CCTL_PORT_MODE_SET;
673
674			wwnn = strtoull(optarg, NULL, 0);
675			wwnn_set = 1;
676			break;
677		case 'W':
678			if ((port_mode != CCTL_PORT_MODE_NONE)
679			 && (port_mode != CCTL_PORT_MODE_SET))
680				goto bailout_badarg;
681
682			port_mode = CCTL_PORT_MODE_SET;
683
684			wwpn = strtoull(optarg, NULL, 0);
685			wwpn_set = 1;
686			break;
687		case 'x':
688			xml = 1;
689			break;
690		}
691	}
692
693	/*
694	 * The user can specify either one or more frontend types (-t), or
695	 * a specific frontend, but not both.
696	 *
697	 * If the user didn't specify a frontend type or number, set it to
698	 * all.  This is primarily needed for the enable/disable ioctls.
699	 * This will be a no-op for the listing code.  For the set ioctl,
700	 * we'll throw an error, since that only works on one port at a time.
701	 */
702	if ((port_type != CTL_PORT_NONE) && (targ_port != -1)) {
703		warnx("%s: can only specify one of -t or -n", __func__);
704		retval = 1;
705		goto bailout;
706	} else if ((targ_port == -1) && (port_type == CTL_PORT_NONE))
707		port_type = CTL_PORT_ALL;
708
709	bzero(&entry, sizeof(entry));
710
711	/*
712	 * These are needed for all but list/dump mode.
713	 */
714	entry.port_type = port_type;
715	entry.targ_port = targ_port;
716
717	switch (port_mode) {
718	case CCTL_PORT_MODE_LIST:
719		cctl_port_dump(fd, quiet, xml, targ_port, port_type);
720		break;
721	case CCTL_PORT_MODE_SET:
722		if (targ_port == -1) {
723			warnx("%s: -w and -W require -n", __func__);
724			retval = 1;
725			goto bailout;
726		}
727
728		if (wwnn_set) {
729			entry.flags |= CTL_PORT_WWNN_VALID;
730			entry.wwnn = wwnn;
731		}
732		if (wwpn_set) {
733			entry.flags |= CTL_PORT_WWPN_VALID;
734			entry.wwpn = wwpn;
735		}
736
737		if (ioctl(fd, CTL_SET_PORT_WWNS, &entry) == -1) {
738			warn("%s: CTL_SET_PORT_WWNS ioctl failed", __func__);
739			retval = 1;
740			goto bailout;
741		}
742		break;
743	case CCTL_PORT_MODE_ON:
744		if (ioctl(fd, CTL_ENABLE_PORT, &entry) == -1) {
745			warn("%s: CTL_ENABLE_PORT ioctl failed", __func__);
746			retval = 1;
747			goto bailout;
748		}
749		fprintf(stdout, "Front End Ports enabled\n");
750		break;
751	case CCTL_PORT_MODE_OFF:
752		if (ioctl(fd, CTL_DISABLE_PORT, &entry) == -1) {
753			warn("%s: CTL_DISABLE_PORT ioctl failed", __func__);
754			retval = 1;
755			goto bailout;
756		}
757		fprintf(stdout, "Front End Ports disabled\n");
758		break;
759	default:
760		warnx("%s: one of -l, -o or -w/-W must be specified", __func__);
761		retval = 1;
762		goto bailout;
763		break;
764	}
765
766bailout:
767
768	return (retval);
769
770bailout_badarg:
771	warnx("%s: only one of -l, -o or -w/-W may be specified", __func__);
772	return (1);
773}
774
775static int
776cctl_do_io(int fd, int retries, union ctl_io *io, const char *func)
777{
778	do {
779		if (ioctl(fd, CTL_IO, io) == -1) {
780			warn("%s: error sending CTL_IO ioctl", func);
781			return (-1);
782		}
783	} while (((io->io_hdr.status & CTL_STATUS_MASK) != CTL_SUCCESS)
784	      && (retries-- > 0));
785
786	return (0);
787}
788
789static int
790cctl_delay(int fd, int target, int lun, int argc, char **argv,
791	   char *combinedopt)
792{
793	struct ctl_io_delay_info delay_info;
794	char *delayloc = NULL;
795	char *delaytype = NULL;
796	int delaytime = -1;
797	int retval;
798	int c;
799
800	retval = 0;
801
802	memset(&delay_info, 0, sizeof(delay_info));
803
804	while ((c = getopt(argc, argv, combinedopt)) != -1) {
805		switch (c) {
806		case 'T':
807			delaytype = strdup(optarg);
808			break;
809		case 'l':
810			delayloc = strdup(optarg);
811			break;
812		case 't':
813			delaytime = strtoul(optarg, NULL, 0);
814			break;
815		}
816	}
817
818	if (delaytime == -1) {
819		warnx("%s: you must specify the delaytime with -t", __func__);
820		retval = 1;
821		goto bailout;
822	}
823
824	if (strcasecmp(delayloc, "datamove") == 0)
825		delay_info.delay_loc = CTL_DELAY_LOC_DATAMOVE;
826	else if (strcasecmp(delayloc, "done") == 0)
827		delay_info.delay_loc = CTL_DELAY_LOC_DONE;
828	else {
829		warnx("%s: invalid delay location %s", __func__, delayloc);
830		retval = 1;
831		goto bailout;
832	}
833
834	if ((delaytype == NULL)
835	 || (strcmp(delaytype, "oneshot") == 0))
836		delay_info.delay_type = CTL_DELAY_TYPE_ONESHOT;
837	else if (strcmp(delaytype, "cont") == 0)
838		delay_info.delay_type = CTL_DELAY_TYPE_CONT;
839	else {
840		warnx("%s: invalid delay type %s", __func__, delaytype);
841		retval = 1;
842		goto bailout;
843	}
844
845	delay_info.target_id = target;
846	delay_info.lun_id = lun;
847	delay_info.delay_secs = delaytime;
848
849	if (ioctl(fd, CTL_DELAY_IO, &delay_info) == -1) {
850		warn("%s: CTL_DELAY_IO ioctl failed", __func__);
851		retval = 1;
852		goto bailout;
853	}
854	switch (delay_info.status) {
855	case CTL_DELAY_STATUS_NONE:
856		warnx("%s: no delay status??", __func__);
857		retval = 1;
858		break;
859	case CTL_DELAY_STATUS_OK:
860		break;
861	case CTL_DELAY_STATUS_INVALID_LUN:
862		warnx("%s: invalid lun %d", __func__, lun);
863		retval = 1;
864		break;
865	case CTL_DELAY_STATUS_INVALID_TYPE:
866		warnx("%s: invalid delay type %d", __func__,
867		      delay_info.delay_type);
868		retval = 1;
869		break;
870	case CTL_DELAY_STATUS_INVALID_LOC:
871		warnx("%s: delay location %s not implemented?", __func__,
872		      delayloc);
873		retval = 1;
874		break;
875	case CTL_DELAY_STATUS_NOT_IMPLEMENTED:
876		warnx("%s: delay not implemented in the kernel", __func__);
877		warnx("%s: recompile with the CTL_IO_DELAY flag set", __func__);
878		retval = 1;
879		break;
880	default:
881		warnx("%s: unknown delay return status %d", __func__,
882		      delay_info.status);
883		retval = 1;
884		break;
885	}
886bailout:
887
888	/* delayloc should never be NULL, but just in case...*/
889	if (delayloc != NULL)
890		free(delayloc);
891
892	return (retval);
893}
894
895static int
896cctl_realsync(int fd, int argc, char **argv)
897{
898	int syncstate;
899	int retval;
900	char *syncarg;
901
902	retval = 0;
903
904	if (argc != 3) {
905		warnx("%s %s takes exactly one argument", argv[0], argv[1]);
906		retval = 1;
907		goto bailout;
908	}
909
910	syncarg = argv[2];
911
912	if (strncasecmp(syncarg, "query", min(strlen(syncarg),
913			strlen("query"))) == 0) {
914		if (ioctl(fd, CTL_REALSYNC_GET, &syncstate) == -1) {
915			warn("%s: CTL_REALSYNC_GET ioctl failed", __func__);
916			retval = 1;
917			goto bailout;
918		}
919		fprintf(stdout, "SYNCHRONIZE CACHE support is: ");
920		switch (syncstate) {
921		case 0:
922			fprintf(stdout, "OFF\n");
923			break;
924		case 1:
925			fprintf(stdout, "ON\n");
926			break;
927		default:
928			fprintf(stdout, "unknown (%d)\n", syncstate);
929			break;
930		}
931		goto bailout;
932	} else if (strcasecmp(syncarg, "on") == 0) {
933		syncstate = 1;
934	} else if (strcasecmp(syncarg, "off") == 0) {
935		syncstate = 0;
936	} else {
937		warnx("%s: invalid realsync argument %s", __func__, syncarg);
938		retval = 1;
939		goto bailout;
940	}
941
942	if (ioctl(fd, CTL_REALSYNC_SET, &syncstate) == -1) {
943		warn("%s: CTL_REALSYNC_SET ioctl failed", __func__);
944		retval = 1;
945		goto bailout;
946	}
947bailout:
948	return (retval);
949}
950
951static int
952cctl_getsetsync(int fd, int target, int lun, ctladm_cmdfunction command,
953		int argc, char **argv, char *combinedopt)
954{
955	struct ctl_sync_info sync_info;
956	uint32_t ioctl_cmd;
957	int sync_interval = -1;
958	int retval;
959	int c;
960
961	retval = 0;
962
963	memset(&sync_info, 0, sizeof(sync_info));
964	sync_info.target_id = target;
965	sync_info.lun_id = lun;
966
967	while ((c = getopt(argc, argv, combinedopt)) != -1) {
968		switch (c) {
969		case 'i':
970			sync_interval = strtoul(optarg, NULL, 0);
971			break;
972		default:
973			break;
974		}
975	}
976
977	if (command == CTLADM_CMD_SETSYNC) {
978		if (sync_interval == -1) {
979			warnx("%s: you must specify the sync interval with -i",
980			      __func__);
981			retval = 1;
982			goto bailout;
983		}
984		sync_info.sync_interval = sync_interval;
985		ioctl_cmd = CTL_SETSYNC;
986	} else {
987		ioctl_cmd = CTL_GETSYNC;
988	}
989
990	if (ioctl(fd, ioctl_cmd, &sync_info) == -1) {
991		warn("%s: CTL_%sSYNC ioctl failed", __func__,
992		     (command == CTLADM_CMD_SETSYNC) ? "SET" : "GET");
993		retval = 1;
994		goto bailout;
995	}
996
997	switch (sync_info.status) {
998	case CTL_GS_SYNC_OK:
999		if (command == CTLADM_CMD_GETSYNC) {
1000			fprintf(stdout, "%d:%d: sync interval: %d\n",
1001				target, lun, sync_info.sync_interval);
1002		}
1003		break;
1004	case CTL_GS_SYNC_NO_LUN:
1005		warnx("%s: unknown target:LUN %d:%d", __func__, target, lun);
1006		retval = 1;
1007		break;
1008	case CTL_GS_SYNC_NONE:
1009	default:
1010		warnx("%s: unknown CTL_%sSYNC status %d", __func__,
1011		      (command == CTLADM_CMD_SETSYNC) ? "SET" : "GET",
1012		      sync_info.status);
1013		retval = 1;
1014		break;
1015	}
1016bailout:
1017	return (retval);
1018}
1019
1020static struct ctladm_opts cctl_err_types[] = {
1021	{"aborted", CTL_LUN_INJ_ABORTED, CTLADM_ARG_NONE, NULL},
1022	{"mediumerr", CTL_LUN_INJ_MEDIUM_ERR, CTLADM_ARG_NONE, NULL},
1023	{"ua", CTL_LUN_INJ_UA, CTLADM_ARG_NONE, NULL},
1024	{"custom", CTL_LUN_INJ_CUSTOM, CTLADM_ARG_NONE, NULL},
1025	{NULL, 0, 0, NULL}
1026
1027};
1028
1029static struct ctladm_opts cctl_err_patterns[] = {
1030	{"read", CTL_LUN_PAT_READ, CTLADM_ARG_NONE, NULL},
1031	{"write", CTL_LUN_PAT_WRITE, CTLADM_ARG_NONE, NULL},
1032	{"rw", CTL_LUN_PAT_READWRITE, CTLADM_ARG_NONE, NULL},
1033	{"readwrite", CTL_LUN_PAT_READWRITE, CTLADM_ARG_NONE, NULL},
1034	{"readcap", CTL_LUN_PAT_READCAP, CTLADM_ARG_NONE, NULL},
1035	{"tur", CTL_LUN_PAT_TUR, CTLADM_ARG_NONE, NULL},
1036	{"any", CTL_LUN_PAT_ANY, CTLADM_ARG_NONE, NULL},
1037#if 0
1038	{"cmd", CTL_LUN_PAT_CMD,  CTLADM_ARG_NONE, NULL},
1039#endif
1040	{NULL, 0, 0, NULL}
1041};
1042
1043static int
1044cctl_error_inject(int fd, uint32_t target, uint32_t lun, int argc, char **argv,
1045		  char *combinedopt)
1046{
1047	int retval = 0;
1048	struct ctl_error_desc err_desc;
1049	uint64_t lba = 0;
1050	uint32_t len = 0;
1051	uint64_t delete_id = 0;
1052	int delete_id_set = 0;
1053	int continuous = 0;
1054	int sense_len = 0;
1055	int fd_sense = 0;
1056	int c;
1057
1058	bzero(&err_desc, sizeof(err_desc));
1059	err_desc.target_id = target;
1060	err_desc.lun_id = lun;
1061
1062	while ((c = getopt(argc, argv, combinedopt)) != -1) {
1063		switch (c) {
1064		case 'c':
1065			continuous = 1;
1066			break;
1067		case 'd':
1068			delete_id = strtoull(optarg, NULL, 0);
1069			delete_id_set = 1;
1070			break;
1071		case 'i':
1072		case 'p': {
1073			ctladm_optret optret;
1074			ctladm_cmdargs argnum;
1075			const char *subopt;
1076
1077			if (c == 'i') {
1078				ctl_lun_error err_type;
1079
1080				if (err_desc.lun_error != CTL_LUN_INJ_NONE) {
1081					warnx("%s: can't specify multiple -i "
1082					      "arguments", __func__);
1083					retval = 1;
1084					goto bailout;
1085				}
1086				optret = getoption(cctl_err_types, optarg,
1087						   &err_type, &argnum, &subopt);
1088				err_desc.lun_error = err_type;
1089			} else {
1090				ctl_lun_error_pattern pattern;
1091
1092				optret = getoption(cctl_err_patterns, optarg,
1093						   &pattern, &argnum, &subopt);
1094				err_desc.error_pattern |= pattern;
1095			}
1096
1097			if (optret == CC_OR_AMBIGUOUS) {
1098				warnx("%s: ambiguous argument %s", __func__,
1099				      optarg);
1100				retval = 1;
1101				goto bailout;
1102			} else if (optret == CC_OR_NOT_FOUND) {
1103				warnx("%s: argument %s not found", __func__,
1104				      optarg);
1105				retval = 1;
1106				goto bailout;
1107			}
1108			break;
1109		}
1110		case 'r': {
1111			char *tmpstr, *tmpstr2;
1112
1113			tmpstr = strdup(optarg);
1114			if (tmpstr == NULL) {
1115				warn("%s: error duplicating string %s",
1116				     __func__, optarg);
1117				retval = 1;
1118				goto bailout;
1119			}
1120
1121			tmpstr2 = strsep(&tmpstr, ",");
1122			if (tmpstr2 == NULL) {
1123				warnx("%s: invalid -r argument %s", __func__,
1124				      optarg);
1125				retval = 1;
1126				free(tmpstr);
1127				goto bailout;
1128			}
1129			lba = strtoull(tmpstr2, NULL, 0);
1130			tmpstr2 = strsep(&tmpstr, ",");
1131			if (tmpstr2 == NULL) {
1132				warnx("%s: no len argument for -r lba,len, got"
1133				      " %s", __func__, optarg);
1134				retval = 1;
1135				free(tmpstr);
1136				goto bailout;
1137			}
1138			len = strtoul(tmpstr2, NULL, 0);
1139			free(tmpstr);
1140			break;
1141		}
1142		case 's': {
1143			struct get_hook hook;
1144			char *sensestr;
1145
1146			sense_len = strtol(optarg, NULL, 0);
1147			if (sense_len <= 0) {
1148				warnx("invalid number of sense bytes %d",
1149				      sense_len);
1150				retval = 1;
1151				goto bailout;
1152			}
1153
1154			sense_len = MIN(sense_len, SSD_FULL_SIZE);
1155
1156			hook.argc = argc - optind;
1157			hook.argv = argv + optind;
1158			hook.got = 0;
1159
1160			sensestr = cget(&hook, NULL);
1161			if ((sensestr != NULL)
1162			 && (sensestr[0] == '-')) {
1163				fd_sense = 1;
1164			} else {
1165				buff_encode_visit(
1166				    (uint8_t *)&err_desc.custom_sense,
1167				    sense_len, sensestr, iget, &hook);
1168			}
1169			optind += hook.got;
1170			break;
1171		}
1172		default:
1173			break;
1174		}
1175	}
1176
1177	if (delete_id_set != 0) {
1178		err_desc.serial = delete_id;
1179		if (ioctl(fd, CTL_ERROR_INJECT_DELETE, &err_desc) == -1) {
1180			warn("%s: error issuing CTL_ERROR_INJECT_DELETE ioctl",
1181			     __func__);
1182			retval = 1;
1183		}
1184		goto bailout;
1185	}
1186
1187	if (err_desc.lun_error == CTL_LUN_INJ_NONE) {
1188		warnx("%s: error injection command (-i) needed",
1189		      __func__);
1190		retval = 1;
1191		goto bailout;
1192	} else if ((err_desc.lun_error == CTL_LUN_INJ_CUSTOM)
1193		&& (sense_len == 0)) {
1194		warnx("%s: custom error requires -s", __func__);
1195		retval = 1;
1196		goto bailout;
1197	}
1198
1199	if (continuous != 0)
1200		err_desc.lun_error |= CTL_LUN_INJ_CONTINUOUS;
1201
1202	/*
1203	 * If fd_sense is set, we need to read the sense data the user
1204	 * wants returned from stdin.
1205	 */
1206        if (fd_sense == 1) {
1207		ssize_t amt_read;
1208		int amt_to_read = sense_len;
1209		u_int8_t *buf_ptr = (uint8_t *)&err_desc.custom_sense;
1210
1211		for (amt_read = 0; amt_to_read > 0;
1212		     amt_read = read(STDIN_FILENO, buf_ptr, amt_to_read)) {
1213			if (amt_read == -1) {
1214				warn("error reading sense data from stdin");
1215				retval = 1;
1216				goto bailout;
1217			}
1218			amt_to_read -= amt_read;
1219			buf_ptr += amt_read;
1220		}
1221	}
1222
1223	if (err_desc.error_pattern == CTL_LUN_PAT_NONE) {
1224		warnx("%s: command pattern (-p) needed", __func__);
1225		retval = 1;
1226		goto bailout;
1227	}
1228
1229	if (len != 0) {
1230		err_desc.error_pattern |= CTL_LUN_PAT_RANGE;
1231		/*
1232		 * We could check here to see whether it's a read/write
1233		 * command, but that will be pointless once we allow
1234		 * custom patterns.  At that point, the user could specify
1235		 * a READ(6) CDB type, and we wouldn't have an easy way here
1236		 * to verify whether range checking is possible there.  The
1237		 * user will just figure it out when his error never gets
1238		 * executed.
1239		 */
1240#if 0
1241		if ((err_desc.pattern & CTL_LUN_PAT_READWRITE) == 0) {
1242			warnx("%s: need read and/or write pattern if range "
1243			      "is specified", __func__);
1244			retval = 1;
1245			goto bailout;
1246		}
1247#endif
1248		err_desc.lba_range.lba = lba;
1249		err_desc.lba_range.len = len;
1250	}
1251
1252	if (ioctl(fd, CTL_ERROR_INJECT, &err_desc) == -1) {
1253		warn("%s: error issuing CTL_ERROR_INJECT ioctl", __func__);
1254		retval = 1;
1255	} else {
1256		printf("Error injection succeeded, serial number is %ju\n",
1257		       (uintmax_t)err_desc.serial);
1258	}
1259bailout:
1260
1261	return (retval);
1262}
1263
1264static int
1265cctl_lunlist(int fd)
1266{
1267	struct scsi_report_luns_data *lun_data;
1268	struct scsi_inquiry_data *inq_data;
1269	uint32_t num_luns;
1270	int target;
1271	int initid;
1272	unsigned int i;
1273	int retval;
1274
1275	retval = 0;
1276	inq_data = NULL;
1277
1278	target = 6;
1279	initid = 7;
1280
1281	/*
1282	 * XXX KDM assuming LUN 0 is fine, but we may need to change this
1283	 * if we ever acquire the ability to have multiple targets.
1284	 */
1285	if ((retval = cctl_get_luns(fd, target, /*lun*/ 0, initid,
1286				    /*retries*/ 2, &lun_data, &num_luns)) != 0)
1287		goto bailout;
1288
1289	inq_data = malloc(sizeof(*inq_data));
1290	if (inq_data == NULL) {
1291		warn("%s: couldn't allocate memory for inquiry data\n",
1292		     __func__);
1293		retval = 1;
1294		goto bailout;
1295	}
1296	for (i = 0; i < num_luns; i++) {
1297		char scsi_path[40];
1298		int lun_val;
1299
1300		switch (lun_data->luns[i].lundata[0] & RPL_LUNDATA_ATYP_MASK) {
1301		case RPL_LUNDATA_ATYP_PERIPH:
1302			lun_val = lun_data->luns[i].lundata[1];
1303			break;
1304		case RPL_LUNDATA_ATYP_FLAT:
1305			lun_val = (lun_data->luns[i].lundata[0] &
1306				RPL_LUNDATA_FLAT_LUN_MASK) |
1307				(lun_data->luns[i].lundata[1] <<
1308				RPL_LUNDATA_FLAT_LUN_BITS);
1309			break;
1310		case RPL_LUNDATA_ATYP_LUN:
1311		case RPL_LUNDATA_ATYP_EXTLUN:
1312		default:
1313			fprintf(stdout, "Unsupported LUN format %d\n",
1314				lun_data->luns[i].lundata[0] &
1315				RPL_LUNDATA_ATYP_MASK);
1316			lun_val = -1;
1317			break;
1318		}
1319		if (lun_val == -1)
1320			continue;
1321
1322		if ((retval = cctl_get_inquiry(fd, target, lun_val, initid,
1323					       /*retries*/ 2, scsi_path,
1324					       sizeof(scsi_path),
1325					       inq_data)) != 0) {
1326			goto bailout;
1327		}
1328		printf("%s", scsi_path);
1329		scsi_print_inquiry(inq_data);
1330	}
1331bailout:
1332
1333	if (lun_data != NULL)
1334		free(lun_data);
1335
1336	if (inq_data != NULL)
1337		free(inq_data);
1338
1339	return (retval);
1340}
1341
1342static void
1343cctl_cfi_mt_statusstr(cfi_mt_status status, char *str, int str_len)
1344{
1345	switch (status) {
1346	case CFI_MT_PORT_OFFLINE:
1347		snprintf(str, str_len, "Port Offline");
1348		break;
1349	case CFI_MT_ERROR:
1350		snprintf(str, str_len, "Error");
1351		break;
1352	case CFI_MT_SUCCESS:
1353		snprintf(str, str_len, "Success");
1354		break;
1355	case CFI_MT_NONE:
1356		snprintf(str, str_len, "None??");
1357		break;
1358	default:
1359		snprintf(str, str_len, "Unknown status: %d", status);
1360		break;
1361	}
1362}
1363
1364static void
1365cctl_cfi_bbr_statusstr(cfi_bbrread_status status, char *str, int str_len)
1366{
1367	switch (status) {
1368	case CFI_BBR_SUCCESS:
1369		snprintf(str, str_len, "Success");
1370		break;
1371	case CFI_BBR_LUN_UNCONFIG:
1372		snprintf(str, str_len, "LUN not configured");
1373		break;
1374	case CFI_BBR_NO_LUN:
1375		snprintf(str, str_len, "LUN does not exist");
1376		break;
1377	case CFI_BBR_NO_MEM:
1378		snprintf(str, str_len, "Memory allocation error");
1379		break;
1380	case CFI_BBR_BAD_LEN:
1381		snprintf(str, str_len, "Length is not a multiple of blocksize");
1382		break;
1383	case CFI_BBR_RESERV_CONFLICT:
1384		snprintf(str, str_len, "Reservation conflict");
1385		break;
1386	case CFI_BBR_LUN_STOPPED:
1387		snprintf(str, str_len, "LUN is powered off");
1388		break;
1389	case CFI_BBR_LUN_OFFLINE_CTL:
1390		snprintf(str, str_len, "LUN is offline");
1391		break;
1392	case CFI_BBR_LUN_OFFLINE_RC:
1393		snprintf(str, str_len, "RAIDCore array is offline (double "
1394			 "failure?)");
1395		break;
1396	case CFI_BBR_SCSI_ERROR:
1397		snprintf(str, str_len, "SCSI Error");
1398		break;
1399	case CFI_BBR_ERROR:
1400		snprintf(str, str_len, "Error");
1401		break;
1402	default:
1403		snprintf(str, str_len, "Unknown status: %d", status);
1404		break;
1405	}
1406}
1407
1408static int
1409cctl_hardstopstart(int fd, ctladm_cmdfunction command)
1410{
1411	struct ctl_hard_startstop_info hs_info;
1412	char error_str[256];
1413	int do_start;
1414	int retval;
1415
1416	retval = 0;
1417
1418	if (command == CTLADM_CMD_HARDSTART)
1419		do_start = 1;
1420	else
1421		do_start = 0;
1422
1423	if (ioctl(fd, (do_start == 1) ? CTL_HARD_START : CTL_HARD_STOP,
1424		  &hs_info) == -1) {
1425		warn("%s: CTL_HARD_%s ioctl failed", __func__,
1426		     (do_start == 1) ? "START" : "STOP");
1427		retval = 1;
1428		goto bailout;
1429	}
1430
1431	fprintf(stdout, "Hard %s Status: ", (command == CTLADM_CMD_HARDSTOP) ?
1432		"Stop" : "Start");
1433	cctl_cfi_mt_statusstr(hs_info.status, error_str, sizeof(error_str));
1434	fprintf(stdout, "%s\n", error_str);
1435	fprintf(stdout, "Total LUNs: %d\n", hs_info.total_luns);
1436	fprintf(stdout, "LUNs complete: %d\n", hs_info.luns_complete);
1437	fprintf(stdout, "LUNs failed: %d\n", hs_info.luns_failed);
1438
1439bailout:
1440	return (retval);
1441}
1442
1443static int
1444cctl_bbrread(int fd, int target __unused, int lun, int iid __unused,
1445	     int argc, char **argv, char *combinedopt)
1446{
1447	struct ctl_bbrread_info bbr_info;
1448	char error_str[256];
1449	int datalen = -1;
1450	uint64_t lba = 0;
1451	int lba_set = 0;
1452	int retval;
1453	int c;
1454
1455	retval = 0;
1456
1457	while ((c = getopt(argc, argv, combinedopt)) != -1) {
1458		switch (c) {
1459		case 'd':
1460			datalen = strtoul(optarg, NULL, 0);
1461			break;
1462		case 'l':
1463			lba = strtoull(optarg, NULL, 0);
1464			lba_set = 1;
1465			break;
1466		default:
1467			break;
1468		}
1469	}
1470
1471	if (lba_set == 0) {
1472		warnx("%s: you must specify an LBA with -l", __func__);
1473		retval = 1;
1474		goto bailout;
1475	}
1476
1477	if (datalen == -1) {
1478		warnx("%s: you must specify a length with -d", __func__);
1479		retval = 1;
1480		goto bailout;
1481	}
1482
1483	bbr_info.lun_num = lun;
1484	bbr_info.lba = lba;
1485	/*
1486	 * XXX KDM get the blocksize first??
1487	 */
1488	if ((datalen % 512) != 0) {
1489		warnx("%s: data length %d is not a multiple of 512 bytes",
1490		     __func__, datalen);
1491		retval = 1;
1492		goto bailout;
1493	}
1494	bbr_info.len = datalen;
1495
1496	if (ioctl(fd, CTL_BBRREAD, &bbr_info) == -1) {
1497		warn("%s: CTL_BBRREAD ioctl failed", __func__);
1498		retval = 1;
1499		goto bailout;
1500	}
1501	cctl_cfi_mt_statusstr(bbr_info.status, error_str, sizeof(error_str));
1502	fprintf(stdout, "BBR Read Overall Status: %s\n", error_str);
1503	cctl_cfi_bbr_statusstr(bbr_info.bbr_status, error_str,
1504			       sizeof(error_str));
1505	fprintf(stdout, "BBR Read Status: %s\n", error_str);
1506	/*
1507	 * XXX KDM should we bother printing out SCSI status if we get
1508	 * CFI_BBR_SCSI_ERROR back?
1509	 *
1510	 * Return non-zero if this fails?
1511	 */
1512bailout:
1513	return (retval);
1514}
1515
1516static int
1517cctl_startup_shutdown(int fd, int target, int lun, int iid,
1518		      ctladm_cmdfunction command)
1519{
1520	union ctl_io *io;
1521	struct ctl_id id;
1522	struct scsi_report_luns_data *lun_data;
1523	struct scsi_inquiry_data *inq_data;
1524	uint32_t num_luns;
1525	unsigned int i;
1526	int retval;
1527
1528	retval = 0;
1529	inq_data = NULL;
1530
1531	/*
1532	 * - report luns
1533	 * - step through each lun, do an inquiry
1534	 * - check OOA queue on direct access luns
1535	 * - send stop with offline bit to each direct access device with a
1536	 *   clear OOA queue
1537	 *   - if we get a reservation conflict, reset the LUN to clear it
1538	 *     and reissue the stop with the offline bit set
1539	 */
1540
1541	id.id = iid;
1542
1543	io = ctl_scsi_alloc_io(id);
1544	if (io == NULL) {
1545		warnx("%s: can't allocate memory", __func__);
1546		return (1);
1547	}
1548
1549	if ((retval = cctl_get_luns(fd, target, lun, iid, /*retries*/ 2,
1550				    &lun_data, &num_luns)) != 0)
1551		goto bailout;
1552
1553	inq_data = malloc(sizeof(*inq_data));
1554	if (inq_data == NULL) {
1555		warn("%s: couldn't allocate memory for inquiry data\n",
1556		     __func__);
1557		retval = 1;
1558		goto bailout;
1559	}
1560	for (i = 0; i < num_luns; i++) {
1561		char scsi_path[40];
1562		int lun_val;
1563
1564		/*
1565		 * XXX KDM figure out a way to share this code with
1566		 * cctl_lunlist()?
1567		 */
1568		switch (lun_data->luns[i].lundata[0] & RPL_LUNDATA_ATYP_MASK) {
1569		case RPL_LUNDATA_ATYP_PERIPH:
1570			lun_val = lun_data->luns[i].lundata[1];
1571			break;
1572		case RPL_LUNDATA_ATYP_FLAT:
1573			lun_val = (lun_data->luns[i].lundata[0] &
1574				RPL_LUNDATA_FLAT_LUN_MASK) |
1575				(lun_data->luns[i].lundata[1] <<
1576				RPL_LUNDATA_FLAT_LUN_BITS);
1577			break;
1578		case RPL_LUNDATA_ATYP_LUN:
1579		case RPL_LUNDATA_ATYP_EXTLUN:
1580		default:
1581			fprintf(stdout, "Unsupported LUN format %d\n",
1582				lun_data->luns[i].lundata[0] &
1583				RPL_LUNDATA_ATYP_MASK);
1584			lun_val = -1;
1585			break;
1586		}
1587		if (lun_val == -1)
1588			continue;
1589
1590		if ((retval = cctl_get_inquiry(fd, target, lun_val, iid,
1591					       /*retries*/ 2, scsi_path,
1592					       sizeof(scsi_path),
1593					       inq_data)) != 0) {
1594			goto bailout;
1595		}
1596		printf("%s", scsi_path);
1597		scsi_print_inquiry(inq_data);
1598		/*
1599		 * We only want to shutdown direct access devices.
1600		 */
1601		if (SID_TYPE(inq_data) != T_DIRECT) {
1602			printf("%s LUN is not direct access, skipped\n",
1603			       scsi_path);
1604			continue;
1605		}
1606
1607		if (command == CTLADM_CMD_SHUTDOWN) {
1608			struct ctl_ooa_info ooa_info;
1609
1610			ooa_info.target_id = target;
1611			ooa_info.lun_id = lun_val;
1612
1613			if (ioctl(fd, CTL_CHECK_OOA, &ooa_info) == -1) {
1614				printf("%s CTL_CHECK_OOA ioctl failed\n",
1615				       scsi_path);
1616				continue;
1617			}
1618
1619			if (ooa_info.status != CTL_OOA_SUCCESS) {
1620				printf("%s CTL_CHECK_OOA returned status %d\n",
1621				       scsi_path, ooa_info.status);
1622				continue;
1623			}
1624			if (ooa_info.num_entries != 0) {
1625				printf("%s %d entr%s in the OOA queue, "
1626				       "skipping shutdown\n", scsi_path,
1627				       ooa_info.num_entries,
1628				       (ooa_info.num_entries > 1)?"ies" : "y" );
1629				continue;
1630			}
1631		}
1632
1633		ctl_scsi_start_stop(/*io*/ io,
1634				    /*start*/(command == CTLADM_CMD_STARTUP) ?
1635					      1 : 0,
1636				    /*load_eject*/ 0,
1637				    /*immediate*/ 0,
1638				    /*power_conditions*/ SSS_PC_START_VALID,
1639				    /*onoffline*/ 1,
1640				    /*ctl_tag_type*/
1641				    (command == CTLADM_CMD_STARTUP) ?
1642				    CTL_TAG_SIMPLE :CTL_TAG_ORDERED,
1643				    /*control*/ 0);
1644
1645		io->io_hdr.nexus.targ_target.id = target;
1646		io->io_hdr.nexus.targ_lun = lun_val;
1647		io->io_hdr.nexus.initid = id;
1648
1649		if (cctl_do_io(fd, /*retries*/ 3, io, __func__) != 0) {
1650			retval = 1;
1651			goto bailout;
1652		}
1653
1654		if ((io->io_hdr.status & CTL_STATUS_MASK) != CTL_SUCCESS)
1655			ctl_io_error_print(io, inq_data, stderr);
1656		else {
1657			printf("%s LUN is now %s\n", scsi_path,
1658			       (command == CTLADM_CMD_STARTUP) ? "online" :
1659			       "offline");
1660		}
1661	}
1662bailout:
1663	if (lun_data != NULL)
1664		free(lun_data);
1665
1666	if (inq_data != NULL)
1667		free(inq_data);
1668
1669	if (io != NULL)
1670		ctl_scsi_free_io(io);
1671
1672	return (retval);
1673}
1674
1675static int
1676cctl_sync_cache(int fd, int target, int lun, int iid, int retries,
1677		int argc, char **argv, char *combinedopt)
1678{
1679	union ctl_io *io;
1680	struct ctl_id id;
1681	int cdb_size = -1;
1682	int retval;
1683	uint64_t our_lba = 0;
1684	uint32_t our_block_count = 0;
1685	int reladr = 0, immed = 0;
1686	int c;
1687
1688	id.id = iid;
1689	retval = 0;
1690
1691	io = ctl_scsi_alloc_io(id);
1692	if (io == NULL) {
1693		warnx("%s: can't allocate memory", __func__);
1694		return (1);
1695	}
1696
1697	while ((c = getopt(argc, argv, combinedopt)) != -1) {
1698		switch (c) {
1699		case 'b':
1700			our_block_count = strtoul(optarg, NULL, 0);
1701			break;
1702		case 'c':
1703			cdb_size = strtol(optarg, NULL, 0);
1704			break;
1705		case 'i':
1706			immed = 1;
1707			break;
1708		case 'l':
1709			our_lba = strtoull(optarg, NULL, 0);
1710			break;
1711		case 'r':
1712			reladr = 1;
1713			break;
1714		default:
1715			break;
1716		}
1717	}
1718
1719	if (cdb_size != -1) {
1720		switch (cdb_size) {
1721		case 10:
1722		case 16:
1723			break;
1724		default:
1725			warnx("%s: invalid cdbsize %d, valid sizes are 10 "
1726			      "and 16", __func__, cdb_size);
1727			retval = 1;
1728			goto bailout;
1729			break; /* NOTREACHED */
1730		}
1731	} else
1732		cdb_size = 10;
1733
1734	ctl_scsi_sync_cache(/*io*/ io,
1735			    /*immed*/ immed,
1736			    /*reladr*/ reladr,
1737			    /*minimum_cdb_size*/ cdb_size,
1738			    /*starting_lba*/ our_lba,
1739			    /*block_count*/ our_block_count,
1740			    /*tag_type*/ CTL_TAG_SIMPLE,
1741			    /*control*/ 0);
1742
1743	io->io_hdr.nexus.targ_target.id = target;
1744	io->io_hdr.nexus.targ_lun = lun;
1745	io->io_hdr.nexus.initid = id;
1746
1747	if (cctl_do_io(fd, retries, io, __func__) != 0) {
1748		retval = 1;
1749		goto bailout;
1750	}
1751
1752	if ((io->io_hdr.status & CTL_STATUS_MASK) == CTL_SUCCESS) {
1753		fprintf(stdout, "Cache synchronized successfully\n");
1754	} else
1755		ctl_io_error_print(io, NULL, stderr);
1756bailout:
1757	ctl_scsi_free_io(io);
1758
1759	return (retval);
1760}
1761
1762static int
1763cctl_start_stop(int fd, int target, int lun, int iid, int retries, int start,
1764		int argc, char **argv, char *combinedopt)
1765{
1766	union ctl_io *io;
1767	struct ctl_id id;
1768	char scsi_path[40];
1769	int immed = 0, onoffline = 0;
1770	int retval, c;
1771
1772	id.id = iid;
1773	retval = 0;
1774
1775	io = ctl_scsi_alloc_io(id);
1776	if (io == NULL) {
1777		warnx("%s: can't allocate memory", __func__);
1778		return (1);
1779	}
1780
1781	while ((c = getopt(argc, argv, combinedopt)) != -1) {
1782		switch (c) {
1783		case 'i':
1784			immed = 1;
1785			break;
1786		case 'o':
1787			onoffline = 1;
1788			break;
1789		default:
1790			break;
1791		}
1792	}
1793	/*
1794	 * Use an ordered tag for the stop command, to guarantee that any
1795	 * pending I/O will finish before the stop command executes.  This
1796	 * would normally be the case anyway, since CTL will basically
1797	 * treat the start/stop command as an ordered command with respect
1798	 * to any other command except an INQUIRY.  (See ctl_ser_table.c.)
1799	 */
1800	ctl_scsi_start_stop(/*io*/ io,
1801			    /*start*/ start,
1802			    /*load_eject*/ 0,
1803			    /*immediate*/ immed,
1804			    /*power_conditions*/ SSS_PC_START_VALID,
1805			    /*onoffline*/ onoffline,
1806			    /*ctl_tag_type*/ start ? CTL_TAG_SIMPLE :
1807						     CTL_TAG_ORDERED,
1808			    /*control*/ 0);
1809
1810	io->io_hdr.nexus.targ_target.id = target;
1811	io->io_hdr.nexus.targ_lun = lun;
1812	io->io_hdr.nexus.initid = id;
1813
1814	if (cctl_do_io(fd, retries, io, __func__) != 0) {
1815		retval = 1;
1816		goto bailout;
1817	}
1818
1819	ctl_scsi_path_string(io, scsi_path, sizeof(scsi_path));
1820	if ((io->io_hdr.status & CTL_STATUS_MASK) == CTL_SUCCESS) {
1821		fprintf(stdout, "%s LUN %s successfully\n", scsi_path,
1822			(start) ?  "started" : "stopped");
1823	} else
1824		ctl_io_error_print(io, NULL, stderr);
1825
1826bailout:
1827	ctl_scsi_free_io(io);
1828
1829	return (retval);
1830}
1831
1832static int
1833cctl_mode_sense(int fd, int target, int lun, int iid, int retries,
1834		int argc, char **argv, char *combinedopt)
1835{
1836	union ctl_io *io;
1837	struct ctl_id id;
1838	uint32_t datalen;
1839	uint8_t *dataptr;
1840	int pc = -1, cdbsize, retval, dbd = 0, subpage = -1;
1841	int list = 0;
1842	int page_code = -1;
1843	int c;
1844
1845	id.id = iid;
1846	cdbsize = 0;
1847	retval = 0;
1848	dataptr = NULL;
1849
1850	io = ctl_scsi_alloc_io(id);
1851	if (io == NULL) {
1852		warn("%s: can't allocate memory", __func__);
1853		return (1);
1854	}
1855
1856	while ((c = getopt(argc, argv, combinedopt)) != -1) {
1857		switch (c) {
1858		case 'P':
1859			pc = strtoul(optarg, NULL, 0);
1860			break;
1861		case 'S':
1862			subpage = strtoul(optarg, NULL, 0);
1863			break;
1864		case 'd':
1865			dbd = 1;
1866			break;
1867		case 'l':
1868			list = 1;
1869			break;
1870		case 'm':
1871			page_code = strtoul(optarg, NULL, 0);
1872			break;
1873		case 'c':
1874			cdbsize = strtol(optarg, NULL, 0);
1875			break;
1876		default:
1877			break;
1878		}
1879	}
1880
1881	if (((list == 0) && (page_code == -1))
1882	 || ((list != 0) && (page_code != -1))) {
1883		warnx("%s: you must specify either a page code (-m) or -l",
1884		      __func__);
1885		retval = 1;
1886		goto bailout;
1887	}
1888
1889	if ((page_code != -1)
1890	 && ((page_code > SMS_ALL_PAGES_PAGE)
1891	  || (page_code < 0))) {
1892		warnx("%s: page code %d is out of range", __func__,
1893		      page_code);
1894		retval = 1;
1895		goto bailout;
1896	}
1897
1898	if (list == 1) {
1899		page_code = SMS_ALL_PAGES_PAGE;
1900		if (pc != -1) {
1901			warnx("%s: arg -P makes no sense with -l",
1902			      __func__);
1903			retval = 1;
1904			goto bailout;
1905		}
1906		if (subpage != -1) {
1907			warnx("%s: arg -S makes no sense with -l", __func__);
1908			retval = 1;
1909			goto bailout;
1910		}
1911	}
1912
1913	if (pc == -1)
1914		pc = SMS_PAGE_CTRL_CURRENT;
1915	else {
1916		if ((pc > 3)
1917		 || (pc < 0)) {
1918			warnx("%s: page control value %d is out of range: 0-3",
1919			      __func__, pc);
1920			retval = 1;
1921			goto bailout;
1922		}
1923	}
1924
1925
1926	if ((subpage != -1)
1927	 && ((subpage > 255)
1928	  || (subpage < 0))) {
1929		warnx("%s: subpage code %d is out of range: 0-255", __func__,
1930		      subpage);
1931		retval = 1;
1932		goto bailout;
1933	}
1934	if (cdbsize != 0) {
1935		switch (cdbsize) {
1936		case 6:
1937		case 10:
1938			break;
1939		default:
1940			warnx("%s: invalid cdbsize %d, valid sizes are 6 "
1941			      "and 10", __func__, cdbsize);
1942			retval = 1;
1943			goto bailout;
1944			break;
1945		}
1946	} else
1947		cdbsize = 6;
1948
1949	if (subpage == -1)
1950		subpage = 0;
1951
1952	if (cdbsize == 6)
1953		datalen = 255;
1954	else
1955		datalen = 65535;
1956
1957	dataptr = (uint8_t *)malloc(datalen);
1958	if (dataptr == NULL) {
1959		warn("%s: can't allocate %d bytes", __func__, datalen);
1960		retval = 1;
1961		goto bailout;
1962	}
1963
1964	memset(dataptr, 0, datalen);
1965
1966	ctl_scsi_mode_sense(io,
1967			    /*data_ptr*/ dataptr,
1968			    /*data_len*/ datalen,
1969			    /*dbd*/ dbd,
1970			    /*llbaa*/ 0,
1971			    /*page_code*/ page_code,
1972			    /*pc*/ pc << 6,
1973			    /*subpage*/ subpage,
1974			    /*minimum_cdb_size*/ cdbsize,
1975			    /*tag_type*/ CTL_TAG_SIMPLE,
1976			    /*control*/ 0);
1977
1978	io->io_hdr.nexus.targ_target.id = target;
1979	io->io_hdr.nexus.targ_lun = lun;
1980	io->io_hdr.nexus.initid = id;
1981
1982	if (cctl_do_io(fd, retries, io, __func__) != 0) {
1983		retval = 1;
1984		goto bailout;
1985	}
1986
1987	if ((io->io_hdr.status & CTL_STATUS_MASK) == CTL_SUCCESS) {
1988		int pages_len, used_len;
1989		uint32_t returned_len;
1990		uint8_t *ndataptr;
1991
1992		if (io->scsiio.cdb[0] == MODE_SENSE_6) {
1993			struct scsi_mode_hdr_6 *hdr6;
1994			int bdlen;
1995
1996			hdr6 = (struct scsi_mode_hdr_6 *)dataptr;
1997
1998			returned_len = hdr6->datalen + 1;
1999			bdlen = hdr6->block_descr_len;
2000
2001			ndataptr = (uint8_t *)((uint8_t *)&hdr6[1] + bdlen);
2002		} else {
2003			struct scsi_mode_hdr_10 *hdr10;
2004			int bdlen;
2005
2006			hdr10 = (struct scsi_mode_hdr_10 *)dataptr;
2007
2008			returned_len = scsi_2btoul(hdr10->datalen) + 2;
2009			bdlen = scsi_2btoul(hdr10->block_descr_len);
2010
2011			ndataptr = (uint8_t *)((uint8_t *)&hdr10[1] + bdlen);
2012		}
2013		/* just in case they can give us more than we allocated for */
2014		returned_len = min(returned_len, datalen);
2015		pages_len = returned_len - (ndataptr - dataptr);
2016#if 0
2017		fprintf(stdout, "returned_len = %d, pages_len = %d\n",
2018			returned_len, pages_len);
2019#endif
2020		if (list == 1) {
2021			fprintf(stdout, "Supported mode pages:\n");
2022			for (used_len = 0; used_len < pages_len;) {
2023				struct scsi_mode_page_header *header;
2024
2025				header = (struct scsi_mode_page_header *)
2026					&ndataptr[used_len];
2027				fprintf(stdout, "%d\n", header->page_code);
2028				used_len += header->page_length + 2;
2029			}
2030		} else {
2031			for (used_len = 0; used_len < pages_len; used_len++) {
2032				fprintf(stdout, "0x%x ", ndataptr[used_len]);
2033				if (((used_len+1) % 16) == 0)
2034					fprintf(stdout, "\n");
2035			}
2036			fprintf(stdout, "\n");
2037		}
2038	} else
2039		ctl_io_error_print(io, NULL, stderr);
2040bailout:
2041
2042	ctl_scsi_free_io(io);
2043
2044	if (dataptr != NULL)
2045		free(dataptr);
2046
2047	return (retval);
2048}
2049
2050static int
2051cctl_read_capacity(int fd, int target, int lun, int iid, int retries,
2052		   int argc, char **argv, char *combinedopt)
2053{
2054	union ctl_io *io;
2055	struct ctl_id id;
2056	struct scsi_read_capacity_data *data;
2057	struct scsi_read_capacity_data_long *longdata;
2058	int cdbsize = -1, retval;
2059	uint8_t *dataptr;
2060	int c;
2061
2062	cdbsize = 10;
2063	dataptr = NULL;
2064	retval = 0;
2065	id.id = iid;
2066
2067	io = ctl_scsi_alloc_io(id);
2068	if (io == NULL) {
2069		warn("%s: can't allocate memory\n", __func__);
2070		return (1);
2071	}
2072
2073	while ((c = getopt(argc, argv, combinedopt)) != -1) {
2074		switch (c) {
2075		case 'c':
2076			cdbsize = strtol(optarg, NULL, 0);
2077			break;
2078		default:
2079			break;
2080		}
2081	}
2082	if (cdbsize != -1) {
2083		switch (cdbsize) {
2084		case 10:
2085		case 16:
2086			break;
2087		default:
2088			warnx("%s: invalid cdbsize %d, valid sizes are 10 "
2089			      "and 16", __func__, cdbsize);
2090			retval = 1;
2091			goto bailout;
2092			break; /* NOTREACHED */
2093		}
2094	} else
2095		cdbsize = 10;
2096
2097	dataptr = (uint8_t *)malloc(sizeof(*longdata));
2098	if (dataptr == NULL) {
2099		warn("%s: can't allocate %zd bytes\n", __func__,
2100		     sizeof(*longdata));
2101		retval = 1;
2102		goto bailout;
2103	}
2104	memset(dataptr, 0, sizeof(*longdata));
2105
2106retry:
2107
2108	switch (cdbsize) {
2109	case 10:
2110		ctl_scsi_read_capacity(io,
2111				       /*data_ptr*/ dataptr,
2112				       /*data_len*/ sizeof(*longdata),
2113				       /*addr*/ 0,
2114				       /*reladr*/ 0,
2115				       /*pmi*/ 0,
2116				       /*tag_type*/ CTL_TAG_SIMPLE,
2117				       /*control*/ 0);
2118		break;
2119	case 16:
2120		ctl_scsi_read_capacity_16(io,
2121					  /*data_ptr*/ dataptr,
2122					  /*data_len*/ sizeof(*longdata),
2123					  /*addr*/ 0,
2124					  /*reladr*/ 0,
2125					  /*pmi*/ 0,
2126					  /*tag_type*/ CTL_TAG_SIMPLE,
2127					  /*control*/ 0);
2128		break;
2129	}
2130
2131	io->io_hdr.nexus.initid = id;
2132	io->io_hdr.nexus.targ_target.id = target;
2133	io->io_hdr.nexus.targ_lun = lun;
2134
2135	if (cctl_do_io(fd, retries, io, __func__) != 0) {
2136		retval = 1;
2137		goto bailout;
2138	}
2139
2140	if ((io->io_hdr.status & CTL_STATUS_MASK) == CTL_SUCCESS) {
2141		uint64_t maxlba;
2142		uint32_t blocksize;
2143
2144		if (cdbsize == 10) {
2145
2146			data = (struct scsi_read_capacity_data *)dataptr;
2147
2148			maxlba = scsi_4btoul(data->addr);
2149			blocksize = scsi_4btoul(data->length);
2150
2151			if (maxlba == 0xffffffff) {
2152				cdbsize = 16;
2153				goto retry;
2154			}
2155		} else {
2156			longdata=(struct scsi_read_capacity_data_long *)dataptr;
2157
2158			maxlba = scsi_8btou64(longdata->addr);
2159			blocksize = scsi_4btoul(longdata->length);
2160		}
2161
2162		fprintf(stdout, "Disk Capacity: %ju, Blocksize: %d\n",
2163			(uintmax_t)maxlba, blocksize);
2164	} else {
2165		ctl_io_error_print(io, NULL, stderr);
2166	}
2167bailout:
2168	ctl_scsi_free_io(io);
2169
2170	if (dataptr != NULL)
2171		free(dataptr);
2172
2173	return (retval);
2174}
2175
2176static int
2177cctl_read_write(int fd, int target, int lun, int iid, int retries,
2178		int argc, char **argv, char *combinedopt,
2179		ctladm_cmdfunction command)
2180{
2181	union ctl_io *io;
2182	struct ctl_id id;
2183	int file_fd, do_stdio;
2184	int cdbsize = -1, databytes;
2185	uint8_t *dataptr;
2186	char *filename = NULL;
2187	int datalen = -1, blocksize = -1;
2188	uint64_t lba = 0;
2189	int lba_set = 0;
2190	int retval;
2191	int c;
2192
2193	retval = 0;
2194	do_stdio = 0;
2195	dataptr = NULL;
2196	file_fd = -1;
2197	id.id = iid;
2198
2199	io = ctl_scsi_alloc_io(id);
2200	if (io == NULL) {
2201		warn("%s: can't allocate memory\n", __func__);
2202		return (1);
2203	}
2204
2205	while ((c = getopt(argc, argv, combinedopt)) != -1) {
2206		switch (c) {
2207		case 'N':
2208			io->io_hdr.flags |= CTL_FLAG_NO_DATAMOVE;
2209			break;
2210		case 'b':
2211			blocksize = strtoul(optarg, NULL, 0);
2212			break;
2213		case 'c':
2214			cdbsize = strtoul(optarg, NULL, 0);
2215			break;
2216		case 'd':
2217			datalen = strtoul(optarg, NULL, 0);
2218			break;
2219		case 'f':
2220			filename = strdup(optarg);
2221			break;
2222		case 'l':
2223			lba = strtoull(optarg, NULL, 0);
2224			lba_set = 1;
2225			break;
2226		default:
2227			break;
2228		}
2229	}
2230	if (filename == NULL) {
2231		warnx("%s: you must supply a filename using -f", __func__);
2232		retval = 1;
2233		goto bailout;
2234	}
2235
2236	if (datalen == -1) {
2237		warnx("%s: you must specify the data length with -d", __func__);
2238		retval = 1;
2239		goto bailout;
2240	}
2241
2242	if (lba_set == 0) {
2243		warnx("%s: you must specify the LBA with -l", __func__);
2244		retval = 1;
2245		goto bailout;
2246	}
2247
2248	if (blocksize == -1) {
2249		warnx("%s: you must specify the blocksize with -b", __func__);
2250		retval = 1;
2251		goto bailout;
2252	}
2253
2254	if (cdbsize != -1) {
2255		switch (cdbsize) {
2256		case 6:
2257		case 10:
2258		case 12:
2259		case 16:
2260			break;
2261		default:
2262			warnx("%s: invalid cdbsize %d, valid sizes are 6, "
2263			      "10, 12 or 16", __func__, cdbsize);
2264			retval = 1;
2265			goto bailout;
2266			break; /* NOTREACHED */
2267		}
2268	} else
2269		cdbsize = 6;
2270
2271	databytes = datalen * blocksize;
2272	dataptr = (uint8_t *)malloc(databytes);
2273
2274	if (dataptr == NULL) {
2275		warn("%s: can't allocate %d bytes\n", __func__, databytes);
2276		retval = 1;
2277		goto bailout;
2278	}
2279	if (strcmp(filename, "-") == 0) {
2280		if (command == CTLADM_CMD_READ)
2281			file_fd = STDOUT_FILENO;
2282		else
2283			file_fd = STDIN_FILENO;
2284		do_stdio = 1;
2285	} else {
2286		file_fd = open(filename, O_RDWR | O_CREAT, S_IRUSR | S_IWUSR);
2287		if (file_fd == -1) {
2288			warn("%s: can't open file %s", __func__, filename);
2289			retval = 1;
2290			goto bailout;
2291		}
2292	}
2293
2294	memset(dataptr, 0, databytes);
2295
2296	if (command == CTLADM_CMD_WRITE) {
2297		int bytes_read;
2298
2299		bytes_read = read(file_fd, dataptr, databytes);
2300		if (bytes_read == -1) {
2301			warn("%s: error reading file %s", __func__, filename);
2302			retval = 1;
2303			goto bailout;
2304		}
2305		if (bytes_read != databytes) {
2306			warnx("%s: only read %d bytes from file %s",
2307			      __func__, bytes_read, filename);
2308			retval = 1;
2309			goto bailout;
2310		}
2311	}
2312	ctl_scsi_read_write(io,
2313			    /*data_ptr*/ dataptr,
2314			    /*data_len*/ databytes,
2315			    /*read_op*/ (command == CTLADM_CMD_READ) ? 1 : 0,
2316			    /*byte2*/ 0,
2317			    /*minimum_cdb_size*/ cdbsize,
2318			    /*lba*/ lba,
2319			    /*num_blocks*/ datalen,
2320			    /*tag_type*/ CTL_TAG_SIMPLE,
2321			    /*control*/ 0);
2322
2323	io->io_hdr.nexus.targ_target.id = target;
2324	io->io_hdr.nexus.targ_lun = lun;
2325	io->io_hdr.nexus.initid = id;
2326
2327	if (cctl_do_io(fd, retries, io, __func__) != 0) {
2328		retval = 1;
2329		goto bailout;
2330	}
2331
2332	if (((io->io_hdr.status & CTL_STATUS_MASK) == CTL_SUCCESS)
2333	 && (command == CTLADM_CMD_READ)) {
2334		int bytes_written;
2335
2336		bytes_written = write(file_fd, dataptr, databytes);
2337		if (bytes_written == -1) {
2338			warn("%s: can't write to %s", __func__, filename);
2339			goto bailout;
2340		}
2341	} else if ((io->io_hdr.status & CTL_STATUS_MASK) != CTL_SUCCESS)
2342		ctl_io_error_print(io, NULL, stderr);
2343
2344
2345bailout:
2346
2347	ctl_scsi_free_io(io);
2348
2349	if (dataptr != NULL)
2350		free(dataptr);
2351
2352	if ((do_stdio == 0)
2353	 && (file_fd != -1))
2354		close(file_fd);
2355
2356	return (retval);
2357}
2358
2359static int
2360cctl_get_luns(int fd, int target, int lun, int iid, int retries, struct
2361	      scsi_report_luns_data **lun_data, uint32_t *num_luns)
2362{
2363	union ctl_io *io;
2364	struct ctl_id id;
2365	uint32_t nluns;
2366	int lun_datalen;
2367	int retval;
2368
2369	retval = 0;
2370	id.id = iid;
2371
2372	io = ctl_scsi_alloc_io(id);
2373	if (io == NULL) {
2374		warnx("%s: can't allocate memory", __func__);
2375		return (1);
2376	}
2377
2378	/*
2379	 * lun_data includes space for 1 lun, allocate space for 4 initially.
2380	 * If that isn't enough, we'll allocate more.
2381	 */
2382	nluns = 4;
2383retry:
2384	lun_datalen = sizeof(*lun_data) +
2385		(nluns * sizeof(struct scsi_report_luns_lundata));
2386	*lun_data = malloc(lun_datalen);
2387
2388	if (*lun_data == NULL) {
2389		warnx("%s: can't allocate memory", __func__);
2390		ctl_scsi_free_io(io);
2391		return (1);
2392	}
2393
2394	ctl_scsi_report_luns(io,
2395			     /*data_ptr*/ (uint8_t *)*lun_data,
2396			     /*data_len*/ lun_datalen,
2397			     /*select_report*/ RPL_REPORT_ALL,
2398			     /*tag_type*/ CTL_TAG_SIMPLE,
2399			     /*control*/ 0);
2400
2401	io->io_hdr.nexus.initid = id;
2402	io->io_hdr.nexus.targ_target.id = target;
2403	io->io_hdr.nexus.targ_lun = lun;
2404
2405	if (cctl_do_io(fd, retries, io, __func__) != 0) {
2406		retval = 1;
2407		goto bailout;
2408	}
2409
2410	if ((io->io_hdr.status & CTL_STATUS_MASK) == CTL_SUCCESS) {
2411		uint32_t returned_len, returned_luns;
2412
2413		returned_len = scsi_4btoul((*lun_data)->length);
2414		returned_luns = returned_len / 8;
2415		if (returned_luns > nluns) {
2416			nluns = returned_luns;
2417			free(*lun_data);
2418			goto retry;
2419		}
2420		/* These should be the same */
2421		*num_luns = MIN(returned_luns, nluns);
2422	} else {
2423		ctl_io_error_print(io, NULL, stderr);
2424		retval = 1;
2425	}
2426bailout:
2427	ctl_scsi_free_io(io);
2428
2429	return (retval);
2430}
2431
2432static int
2433cctl_report_luns(int fd, int target, int lun, int iid, int retries)
2434{
2435	struct scsi_report_luns_data *lun_data;
2436	uint32_t num_luns, i;
2437	int retval;
2438
2439	lun_data = NULL;
2440
2441	if ((retval = cctl_get_luns(fd, target, lun, iid, retries, &lun_data,
2442				   &num_luns)) != 0)
2443		goto bailout;
2444
2445	fprintf(stdout, "%u LUNs returned\n", num_luns);
2446	for (i = 0; i < num_luns; i++) {
2447		int lun_val;
2448
2449		/*
2450		 * XXX KDM figure out a way to share this code with
2451		 * cctl_lunlist()?
2452		 */
2453		switch (lun_data->luns[i].lundata[0] & RPL_LUNDATA_ATYP_MASK) {
2454		case RPL_LUNDATA_ATYP_PERIPH:
2455			lun_val = lun_data->luns[i].lundata[1];
2456			break;
2457		case RPL_LUNDATA_ATYP_FLAT:
2458			lun_val = (lun_data->luns[i].lundata[0] &
2459				RPL_LUNDATA_FLAT_LUN_MASK) |
2460				(lun_data->luns[i].lundata[1] <<
2461				RPL_LUNDATA_FLAT_LUN_BITS);
2462			break;
2463		case RPL_LUNDATA_ATYP_LUN:
2464		case RPL_LUNDATA_ATYP_EXTLUN:
2465		default:
2466			fprintf(stdout, "Unsupported LUN format %d\n",
2467				lun_data->luns[i].lundata[0] &
2468				RPL_LUNDATA_ATYP_MASK);
2469			lun_val = -1;
2470			break;
2471		}
2472		if (lun_val == -1)
2473			continue;
2474
2475		fprintf(stdout, "%d\n", lun_val);
2476	}
2477
2478bailout:
2479	if (lun_data != NULL)
2480		free(lun_data);
2481
2482	return (retval);
2483}
2484
2485static int
2486cctl_tur(int fd, int target, int lun, int iid, int retries)
2487{
2488	union ctl_io *io;
2489	struct ctl_id id;
2490
2491	id.id = iid;
2492
2493	io = ctl_scsi_alloc_io(id);
2494	if (io == NULL) {
2495		fprintf(stderr, "can't allocate memory\n");
2496		return (1);
2497	}
2498
2499	ctl_scsi_tur(io,
2500		     /* tag_type */ CTL_TAG_SIMPLE,
2501		     /* control */ 0);
2502
2503	io->io_hdr.nexus.targ_target.id = target;
2504	io->io_hdr.nexus.targ_lun = lun;
2505	io->io_hdr.nexus.initid = id;
2506
2507	if (cctl_do_io(fd, retries, io, __func__) != 0) {
2508		ctl_scsi_free_io(io);
2509		return (1);
2510	}
2511
2512	if ((io->io_hdr.status & CTL_STATUS_MASK) == CTL_SUCCESS)
2513		fprintf(stdout, "Unit is ready\n");
2514	else
2515		ctl_io_error_print(io, NULL, stderr);
2516
2517	return (0);
2518}
2519
2520static int
2521cctl_get_inquiry(int fd, int target, int lun, int iid, int retries,
2522		 char *path_str, int path_len,
2523		 struct scsi_inquiry_data *inq_data)
2524{
2525	union ctl_io *io;
2526	struct ctl_id id;
2527	int retval;
2528
2529	retval = 0;
2530
2531	id.id = iid;
2532
2533	io = ctl_scsi_alloc_io(id);
2534	if (io == NULL) {
2535		warnx("cctl_inquiry: can't allocate memory\n");
2536		return (1);
2537	}
2538
2539	ctl_scsi_inquiry(/*io*/ io,
2540			 /*data_ptr*/ (uint8_t *)inq_data,
2541			 /*data_len*/ sizeof(*inq_data),
2542			 /*byte2*/ 0,
2543			 /*page_code*/ 0,
2544			 /*tag_type*/ CTL_TAG_SIMPLE,
2545			 /*control*/ 0);
2546
2547	io->io_hdr.nexus.targ_target.id = target;
2548	io->io_hdr.nexus.targ_lun = lun;
2549	io->io_hdr.nexus.initid = id;
2550
2551	if (cctl_do_io(fd, retries, io, __func__) != 0) {
2552		retval = 1;
2553		goto bailout;
2554	}
2555
2556	if ((io->io_hdr.status & CTL_STATUS_MASK) != CTL_SUCCESS) {
2557		retval = 1;
2558		ctl_io_error_print(io, NULL, stderr);
2559	} else if (path_str != NULL)
2560		ctl_scsi_path_string(io, path_str, path_len);
2561
2562bailout:
2563	ctl_scsi_free_io(io);
2564
2565	return (retval);
2566}
2567
2568static int
2569cctl_inquiry(int fd, int target, int lun, int iid, int retries)
2570{
2571	struct scsi_inquiry_data *inq_data;
2572	char scsi_path[40];
2573	int retval;
2574
2575	retval = 0;
2576
2577	inq_data = malloc(sizeof(*inq_data));
2578	if (inq_data == NULL) {
2579		warnx("%s: can't allocate inquiry data", __func__);
2580		retval = 1;
2581		goto bailout;
2582	}
2583
2584	if ((retval = cctl_get_inquiry(fd, target, lun, iid, retries, scsi_path,
2585				       sizeof(scsi_path), inq_data)) != 0)
2586		goto bailout;
2587
2588	printf("%s", scsi_path);
2589	scsi_print_inquiry(inq_data);
2590
2591bailout:
2592	if (inq_data != NULL)
2593		free(inq_data);
2594
2595	return (retval);
2596}
2597
2598static int
2599cctl_req_sense(int fd, int target, int lun, int iid, int retries)
2600{
2601	union ctl_io *io;
2602	struct scsi_sense_data *sense_data;
2603	struct ctl_id id;
2604	int retval;
2605
2606	retval = 0;
2607
2608	id.id = iid;
2609
2610	io = ctl_scsi_alloc_io(id);
2611	if (io == NULL) {
2612		warnx("cctl_req_sense: can't allocate memory\n");
2613		return (1);
2614	}
2615	sense_data = malloc(sizeof(*sense_data));
2616	memset(sense_data, 0, sizeof(*sense_data));
2617
2618	ctl_scsi_request_sense(/*io*/ io,
2619			       /*data_ptr*/ (uint8_t *)sense_data,
2620			       /*data_len*/ sizeof(*sense_data),
2621			       /*byte2*/ 0,
2622			       /*tag_type*/ CTL_TAG_SIMPLE,
2623			       /*control*/ 0);
2624
2625	io->io_hdr.nexus.targ_target.id = target;
2626	io->io_hdr.nexus.targ_lun = lun;
2627	io->io_hdr.nexus.initid = id;
2628
2629	if (cctl_do_io(fd, retries, io, __func__) != 0) {
2630		retval = 1;
2631		goto bailout;
2632	}
2633
2634	if ((io->io_hdr.status & CTL_STATUS_MASK) == CTL_SUCCESS) {
2635		bcopy(sense_data, &io->scsiio.sense_data, sizeof(*sense_data));
2636		io->scsiio.sense_len = sizeof(*sense_data);
2637		ctl_scsi_sense_print(&io->scsiio, NULL, stdout);
2638	} else
2639		ctl_io_error_print(io, NULL, stderr);
2640
2641bailout:
2642
2643	ctl_scsi_free_io(io);
2644	free(sense_data);
2645
2646	return (retval);
2647}
2648
2649static int
2650cctl_report_target_port_group(int fd, int target, int lun, int initiator)
2651{
2652	union ctl_io *io;
2653	struct ctl_id id;
2654	uint32_t datalen;
2655	uint8_t *dataptr;
2656	int retval;
2657
2658	id.id = initiator;
2659	dataptr = NULL;
2660	retval = 0;
2661
2662	io = ctl_scsi_alloc_io(id);
2663	if (io == NULL) {
2664		warn("%s: can't allocate memory", __func__);
2665		return (1);
2666	}
2667
2668	datalen = 64;
2669	dataptr = (uint8_t *)malloc(datalen);
2670	if (dataptr == NULL) {
2671		warn("%s: can't allocate %d bytes", __func__, datalen);
2672		retval = 1;
2673		goto bailout;
2674	}
2675
2676	memset(dataptr, 0, datalen);
2677
2678	ctl_scsi_maintenance_in(/*io*/ io,
2679				/*data_ptr*/ dataptr,
2680				/*data_len*/ datalen,
2681				/*action*/ SA_RPRT_TRGT_GRP,
2682				/*tag_type*/ CTL_TAG_SIMPLE,
2683				/*control*/ 0);
2684
2685	io->io_hdr.nexus.targ_target.id = target;
2686	io->io_hdr.nexus.targ_lun = lun;
2687	io->io_hdr.nexus.initid = id;
2688
2689	if (cctl_do_io(fd, 0, io, __func__) != 0) {
2690		retval = 1;
2691		goto bailout;
2692	}
2693
2694	if ((io->io_hdr.status & CTL_STATUS_MASK) == CTL_SUCCESS) {
2695		int returned_len, used_len;
2696
2697		returned_len = scsi_4btoul(&dataptr[0]) + 4;
2698
2699		for (used_len = 0; used_len < returned_len; used_len++) {
2700			fprintf(stdout, "0x%02x ", dataptr[used_len]);
2701			if (((used_len+1) % 8) == 0)
2702				fprintf(stdout, "\n");
2703		}
2704		fprintf(stdout, "\n");
2705	} else
2706		ctl_io_error_print(io, NULL, stderr);
2707
2708bailout:
2709	ctl_scsi_free_io(io);
2710
2711	if (dataptr != NULL)
2712		free(dataptr);
2713
2714	return (retval);
2715}
2716
2717static int
2718cctl_inquiry_vpd_devid(int fd, int target, int lun, int initiator)
2719{
2720	union ctl_io *io;
2721	struct ctl_id id;
2722	uint32_t datalen;
2723	uint8_t *dataptr;
2724	int retval;
2725
2726	id.id = initiator;
2727	retval = 0;
2728	dataptr = NULL;
2729
2730	io = ctl_scsi_alloc_io(id);
2731	if (io == NULL) {
2732		warn("%s: can't allocate memory", __func__);
2733		return (1);
2734	}
2735
2736	datalen = 256;
2737	dataptr = (uint8_t *)malloc(datalen);
2738	if (dataptr == NULL) {
2739		warn("%s: can't allocate %d bytes", __func__, datalen);
2740		retval = 1;
2741		goto bailout;
2742	}
2743
2744	memset(dataptr, 0, datalen);
2745
2746	ctl_scsi_inquiry(/*io*/        io,
2747			 /*data_ptr*/  dataptr,
2748			 /*data_len*/  datalen,
2749			 /*byte2*/     SI_EVPD,
2750			 /*page_code*/ SVPD_DEVICE_ID,
2751			 /*tag_type*/  CTL_TAG_SIMPLE,
2752			 /*control*/   0);
2753
2754	io->io_hdr.nexus.targ_target.id = target;
2755	io->io_hdr.nexus.targ_lun = lun;
2756	io->io_hdr.nexus.initid = id;
2757
2758	if (cctl_do_io(fd, 0, io, __func__) != 0) {
2759		retval = 1;
2760		goto bailout;
2761	}
2762
2763	if ((io->io_hdr.status & CTL_STATUS_MASK) == CTL_SUCCESS) {
2764		int returned_len, used_len;
2765
2766		returned_len = scsi_2btoul(&dataptr[2]) + 4;
2767
2768		for (used_len = 0; used_len < returned_len; used_len++) {
2769			fprintf(stdout, "0x%02x ", dataptr[used_len]);
2770			if (((used_len+1) % 8) == 0)
2771				fprintf(stdout, "\n");
2772		}
2773		fprintf(stdout, "\n");
2774	} else
2775		ctl_io_error_print(io, NULL, stderr);
2776
2777bailout:
2778	ctl_scsi_free_io(io);
2779
2780	if (dataptr != NULL)
2781		free(dataptr);
2782
2783	return (retval);
2784}
2785
2786static int
2787cctl_persistent_reserve_in(int fd, int target, int lun, int initiator,
2788                           int argc, char **argv, char *combinedopt,
2789			   int retry_count)
2790{
2791	union ctl_io *io;
2792	struct ctl_id id;
2793	uint32_t datalen;
2794	uint8_t *dataptr;
2795	int action = -1;
2796	int retval;
2797	int c;
2798
2799	id.id = initiator;
2800	retval = 0;
2801	dataptr = NULL;
2802
2803	io = ctl_scsi_alloc_io(id);
2804	if (io == NULL) {
2805		warn("%s: can't allocate memory", __func__);
2806		return (1);
2807	}
2808
2809	while ((c = getopt(argc, argv, combinedopt)) != -1) {
2810		switch (c) {
2811		case 'a':
2812			action = strtol(optarg, NULL, 0);
2813			break;
2814		default:
2815			break;
2816		}
2817	}
2818
2819	if (action < 0 || action > 2) {
2820		warn("action must be specified and in the range: 0-2");
2821		retval = 1;
2822		goto bailout;
2823	}
2824
2825
2826	datalen = 256;
2827	dataptr = (uint8_t *)malloc(datalen);
2828	if (dataptr == NULL) {
2829		warn("%s: can't allocate %d bytes", __func__, datalen);
2830		retval = 1;
2831		goto bailout;
2832	}
2833
2834	memset(dataptr, 0, datalen);
2835
2836	ctl_scsi_persistent_res_in(io,
2837				   /*data_ptr*/ dataptr,
2838				   /*data_len*/ datalen,
2839				   /*action*/   action,
2840				   /*tag_type*/ CTL_TAG_SIMPLE,
2841				   /*control*/  0);
2842
2843	io->io_hdr.nexus.targ_target.id = target;
2844	io->io_hdr.nexus.targ_lun = lun;
2845	io->io_hdr.nexus.initid = id;
2846
2847	if (cctl_do_io(fd, retry_count, io, __func__) != 0) {
2848		retval = 1;
2849		goto bailout;
2850	}
2851
2852	if ((io->io_hdr.status & CTL_STATUS_MASK) == CTL_SUCCESS) {
2853		int returned_len, used_len;
2854
2855		returned_len = 0;
2856
2857		switch (action) {
2858		case 0:
2859			returned_len = scsi_4btoul(&dataptr[4]) + 8;
2860			returned_len = min(returned_len, 256);
2861			break;
2862		case 1:
2863			returned_len = scsi_4btoul(&dataptr[4]) + 8;
2864			break;
2865		case 2:
2866			returned_len = 8;
2867			break;
2868		default:
2869			warnx("%s: invalid action %d", __func__, action);
2870			goto bailout;
2871			break; /* NOTREACHED */
2872		}
2873
2874		for (used_len = 0; used_len < returned_len; used_len++) {
2875			fprintf(stdout, "0x%02x ", dataptr[used_len]);
2876			if (((used_len+1) % 8) == 0)
2877				fprintf(stdout, "\n");
2878		}
2879		fprintf(stdout, "\n");
2880	} else
2881		ctl_io_error_print(io, NULL, stderr);
2882
2883bailout:
2884	ctl_scsi_free_io(io);
2885
2886	if (dataptr != NULL)
2887		free(dataptr);
2888
2889	return (retval);
2890}
2891
2892static int
2893cctl_persistent_reserve_out(int fd, int target, int lun, int initiator,
2894			    int argc, char **argv, char *combinedopt,
2895			    int retry_count)
2896{
2897	union ctl_io *io;
2898	struct ctl_id id;
2899	uint32_t datalen;
2900	uint64_t key = 0, sa_key = 0;
2901	int action = -1, restype = -1;
2902	uint8_t *dataptr;
2903	int retval;
2904	int c;
2905
2906	id.id = initiator;
2907	retval = 0;
2908	dataptr = NULL;
2909
2910	io = ctl_scsi_alloc_io(id);
2911	if (io == NULL) {
2912		warn("%s: can't allocate memory", __func__);
2913		return (1);
2914	}
2915
2916	while ((c = getopt(argc, argv, combinedopt)) != -1) {
2917		switch (c) {
2918		case 'a':
2919			action = strtol(optarg, NULL, 0);
2920			break;
2921		case 'k':
2922			key = strtoull(optarg, NULL, 0);
2923			break;
2924		case 'r':
2925			restype = strtol(optarg, NULL, 0);
2926			break;
2927		case 's':
2928			sa_key = strtoull(optarg, NULL, 0);
2929			break;
2930		default:
2931			break;
2932		}
2933	}
2934	if (action < 0 || action > 5) {
2935		warn("action must be specified and in the range: 0-5");
2936		retval = 1;
2937		goto bailout;
2938	}
2939
2940	if (restype < 0 || restype > 5) {
2941		if (action != 0 && action != 5 && action != 3) {
2942			warn("'restype' must specified and in the range: 0-5");
2943			retval = 1;
2944			goto bailout;
2945		}
2946	}
2947
2948	datalen = 24;
2949	dataptr = (uint8_t *)malloc(datalen);
2950	if (dataptr == NULL) {
2951		warn("%s: can't allocate %d bytes", __func__, datalen);
2952		retval = 1;
2953		goto bailout;
2954	}
2955
2956	memset(dataptr, 0, datalen);
2957
2958	ctl_scsi_persistent_res_out(io,
2959				    /*data_ptr*/ dataptr,
2960				    /*data_len*/ datalen,
2961				    /*action*/   action,
2962				    /*type*/     restype,
2963				    /*key*/      key,
2964				    /*sa key*/   sa_key,
2965				    /*tag_type*/ CTL_TAG_SIMPLE,
2966				    /*control*/  0);
2967
2968	io->io_hdr.nexus.targ_target.id = target;
2969	io->io_hdr.nexus.targ_lun = lun;
2970	io->io_hdr.nexus.initid = id;
2971
2972	if (cctl_do_io(fd, retry_count, io, __func__) != 0) {
2973		retval = 1;
2974		goto bailout;
2975	}
2976	if ((io->io_hdr.status & CTL_STATUS_MASK) == CTL_SUCCESS) {
2977		char scsi_path[40];
2978		ctl_scsi_path_string(io, scsi_path, sizeof(scsi_path));
2979		fprintf( stdout, "%sPERSISTENT RESERVE OUT executed "
2980			"successfully\n", scsi_path);
2981	} else
2982		ctl_io_error_print(io, NULL, stderr);
2983
2984bailout:
2985	ctl_scsi_free_io(io);
2986
2987	if (dataptr != NULL)
2988		free(dataptr);
2989
2990	return (retval);
2991}
2992
2993struct cctl_req_option {
2994	char			     *name;
2995	int			      namelen;
2996	char			     *value;
2997	int			      vallen;
2998	STAILQ_ENTRY(cctl_req_option) links;
2999};
3000
3001static int
3002cctl_create_lun(int fd, int argc, char **argv, char *combinedopt)
3003{
3004	struct ctl_lun_req req;
3005	int device_type = -1;
3006	uint64_t lun_size = 0;
3007	uint32_t blocksize = 0, req_lun_id = 0;
3008	char *serial_num = NULL;
3009	char *device_id = NULL;
3010	int lun_size_set = 0, blocksize_set = 0, lun_id_set = 0;
3011	char *backend_name = NULL;
3012	STAILQ_HEAD(, cctl_req_option) option_list;
3013	int num_options = 0;
3014	int retval = 0, c;
3015
3016	STAILQ_INIT(&option_list);
3017
3018	while ((c = getopt(argc, argv, combinedopt)) != -1) {
3019		switch (c) {
3020		case 'b':
3021			backend_name = strdup(optarg);
3022			break;
3023		case 'B':
3024			blocksize = strtoul(optarg, NULL, 0);
3025			blocksize_set = 1;
3026			break;
3027		case 'd':
3028			device_id = strdup(optarg);
3029			break;
3030		case 'l':
3031			req_lun_id = strtoul(optarg, NULL, 0);
3032			lun_id_set = 1;
3033			break;
3034		case 'o': {
3035			struct cctl_req_option *option;
3036			char *tmpstr;
3037			char *name, *value;
3038
3039			tmpstr = strdup(optarg);
3040			name = strsep(&tmpstr, "=");
3041			if (name == NULL) {
3042				warnx("%s: option -o takes \"name=value\""
3043				      "argument", __func__);
3044				retval = 1;
3045				goto bailout;
3046			}
3047			value = strsep(&tmpstr, "=");
3048			if (value == NULL) {
3049				warnx("%s: option -o takes \"name=value\""
3050				      "argument", __func__);
3051				retval = 1;
3052				goto bailout;
3053			}
3054			option = malloc(sizeof(*option));
3055			if (option == NULL) {
3056				warn("%s: error allocating %zd bytes",
3057				     __func__, sizeof(*option));
3058				retval = 1;
3059				goto bailout;
3060			}
3061			option->name = strdup(name);
3062			option->namelen = strlen(name) + 1;
3063			option->value = strdup(value);
3064			option->vallen = strlen(value) + 1;
3065			free(tmpstr);
3066
3067			STAILQ_INSERT_TAIL(&option_list, option, links);
3068			num_options++;
3069			break;
3070		}
3071		case 's':
3072			if (strcasecmp(optarg, "auto") != 0) {
3073				retval = expand_number(optarg, &lun_size);
3074				if (retval != 0) {
3075					warn("%s: invalid -s argument",
3076					    __func__);
3077					retval = 1;
3078					goto bailout;
3079				}
3080			}
3081			lun_size_set = 1;
3082			break;
3083		case 'S':
3084			serial_num = strdup(optarg);
3085			break;
3086		case 't':
3087			device_type = strtoul(optarg, NULL, 0);
3088			break;
3089		default:
3090			break;
3091		}
3092	}
3093
3094	if (backend_name == NULL) {
3095		warnx("%s: backend name (-b) must be specified", __func__);
3096		retval = 1;
3097		goto bailout;
3098	}
3099
3100	bzero(&req, sizeof(req));
3101
3102	strlcpy(req.backend, backend_name, sizeof(req.backend));
3103	req.reqtype = CTL_LUNREQ_CREATE;
3104
3105	if (blocksize_set != 0)
3106		req.reqdata.create.blocksize_bytes = blocksize;
3107
3108	if (lun_size_set != 0)
3109		req.reqdata.create.lun_size_bytes = lun_size;
3110
3111	if (lun_id_set != 0) {
3112		req.reqdata.create.flags |= CTL_LUN_FLAG_ID_REQ;
3113		req.reqdata.create.req_lun_id = req_lun_id;
3114	}
3115
3116	req.reqdata.create.flags |= CTL_LUN_FLAG_DEV_TYPE;
3117
3118	if (device_type != -1)
3119		req.reqdata.create.device_type = device_type;
3120	else
3121		req.reqdata.create.device_type = T_DIRECT;
3122
3123	if (serial_num != NULL) {
3124		strlcpy(req.reqdata.create.serial_num, serial_num,
3125			sizeof(req.reqdata.create.serial_num));
3126		req.reqdata.create.flags |= CTL_LUN_FLAG_SERIAL_NUM;
3127	}
3128
3129	if (device_id != NULL) {
3130		strlcpy(req.reqdata.create.device_id, device_id,
3131			sizeof(req.reqdata.create.device_id));
3132		req.reqdata.create.flags |= CTL_LUN_FLAG_DEVID;
3133	}
3134
3135	req.num_be_args = num_options;
3136	if (num_options > 0) {
3137		struct cctl_req_option *option, *next_option;
3138		int i;
3139
3140		req.be_args = malloc(num_options * sizeof(*req.be_args));
3141		if (req.be_args == NULL) {
3142			warn("%s: error allocating %zd bytes", __func__,
3143			     num_options * sizeof(*req.be_args));
3144			retval = 1;
3145			goto bailout;
3146		}
3147
3148		for (i = 0, option = STAILQ_FIRST(&option_list);
3149		     i < num_options; i++, option = next_option) {
3150			next_option = STAILQ_NEXT(option, links);
3151
3152			req.be_args[i].namelen = option->namelen;
3153			req.be_args[i].name = strdup(option->name);
3154			req.be_args[i].vallen = option->vallen;
3155			req.be_args[i].value = strdup(option->value);
3156			/*
3157			 * XXX KDM do we want a way to specify a writeable
3158			 * flag of some sort?  Do we want a way to specify
3159			 * binary data?
3160			 */
3161			req.be_args[i].flags = CTL_BEARG_ASCII | CTL_BEARG_RD;
3162
3163			STAILQ_REMOVE(&option_list, option, cctl_req_option,
3164				      links);
3165			free(option->name);
3166			free(option->value);
3167			free(option);
3168		}
3169	}
3170
3171	if (ioctl(fd, CTL_LUN_REQ, &req) == -1) {
3172		warn("%s: error issuing CTL_LUN_REQ ioctl", __func__);
3173		retval = 1;
3174		goto bailout;
3175	}
3176
3177	switch (req.status) {
3178	case CTL_LUN_ERROR:
3179		warnx("LUN creation error: %s", req.error_str);
3180		retval = 1;
3181		goto bailout;
3182	case CTL_LUN_WARNING:
3183		warnx("LUN creation warning: %s", req.error_str);
3184		break;
3185	case CTL_LUN_OK:
3186		break;
3187	default:
3188		warnx("unknown LUN creation status: %d", req.status);
3189		retval = 1;
3190		goto bailout;
3191	}
3192
3193	fprintf(stdout, "LUN created successfully\n");
3194	fprintf(stdout, "backend:       %s\n", req.backend);
3195	fprintf(stdout, "device type:   %d\n",req.reqdata.create.device_type);
3196	fprintf(stdout, "LUN size:      %ju bytes\n",
3197		(uintmax_t)req.reqdata.create.lun_size_bytes);
3198	fprintf(stdout, "blocksize      %u bytes\n",
3199		req.reqdata.create.blocksize_bytes);
3200	fprintf(stdout, "LUN ID:        %d\n", req.reqdata.create.req_lun_id);
3201	fprintf(stdout, "Serial Number: %s\n", req.reqdata.create.serial_num);
3202	fprintf(stdout, "Device ID;     %s\n", req.reqdata.create.device_id);
3203
3204bailout:
3205	return (retval);
3206}
3207
3208static int
3209cctl_rm_lun(int fd, int argc, char **argv, char *combinedopt)
3210{
3211	struct ctl_lun_req req;
3212	uint32_t lun_id = 0;
3213	int lun_id_set = 0;
3214	char *backend_name = NULL;
3215	STAILQ_HEAD(, cctl_req_option) option_list;
3216	int num_options = 0;
3217	int retval = 0, c;
3218
3219	STAILQ_INIT(&option_list);
3220
3221	while ((c = getopt(argc, argv, combinedopt)) != -1) {
3222		switch (c) {
3223		case 'b':
3224			backend_name = strdup(optarg);
3225			break;
3226		case 'l':
3227			lun_id = strtoul(optarg, NULL, 0);
3228			lun_id_set = 1;
3229			break;
3230		case 'o': {
3231			struct cctl_req_option *option;
3232			char *tmpstr;
3233			char *name, *value;
3234
3235			tmpstr = strdup(optarg);
3236			name = strsep(&tmpstr, "=");
3237			if (name == NULL) {
3238				warnx("%s: option -o takes \"name=value\""
3239				      "argument", __func__);
3240				retval = 1;
3241				goto bailout;
3242			}
3243			value = strsep(&tmpstr, "=");
3244			if (value == NULL) {
3245				warnx("%s: option -o takes \"name=value\""
3246				      "argument", __func__);
3247				retval = 1;
3248				goto bailout;
3249			}
3250			option = malloc(sizeof(*option));
3251			if (option == NULL) {
3252				warn("%s: error allocating %zd bytes",
3253				     __func__, sizeof(*option));
3254				retval = 1;
3255				goto bailout;
3256			}
3257			option->name = strdup(name);
3258			option->namelen = strlen(name) + 1;
3259			option->value = strdup(value);
3260			option->vallen = strlen(value) + 1;
3261			free(tmpstr);
3262
3263			STAILQ_INSERT_TAIL(&option_list, option, links);
3264			num_options++;
3265			break;
3266		}
3267		default:
3268			break;
3269		}
3270	}
3271
3272	if (backend_name == NULL)
3273		errx(1, "%s: backend name (-b) must be specified", __func__);
3274
3275	if (lun_id_set == 0)
3276		errx(1, "%s: LUN id (-l) must be specified", __func__);
3277
3278	bzero(&req, sizeof(req));
3279
3280	strlcpy(req.backend, backend_name, sizeof(req.backend));
3281	req.reqtype = CTL_LUNREQ_RM;
3282
3283	req.reqdata.rm.lun_id = lun_id;
3284
3285	req.num_be_args = num_options;
3286	if (num_options > 0) {
3287		struct cctl_req_option *option, *next_option;
3288		int i;
3289
3290		req.be_args = malloc(num_options * sizeof(*req.be_args));
3291		if (req.be_args == NULL) {
3292			warn("%s: error allocating %zd bytes", __func__,
3293			     num_options * sizeof(*req.be_args));
3294			retval = 1;
3295			goto bailout;
3296		}
3297
3298		for (i = 0, option = STAILQ_FIRST(&option_list);
3299		     i < num_options; i++, option = next_option) {
3300			next_option = STAILQ_NEXT(option, links);
3301
3302			req.be_args[i].namelen = option->namelen;
3303			req.be_args[i].name = strdup(option->name);
3304			req.be_args[i].vallen = option->vallen;
3305			req.be_args[i].value = strdup(option->value);
3306			/*
3307			 * XXX KDM do we want a way to specify a writeable
3308			 * flag of some sort?  Do we want a way to specify
3309			 * binary data?
3310			 */
3311			req.be_args[i].flags = CTL_BEARG_ASCII | CTL_BEARG_RD;
3312
3313			STAILQ_REMOVE(&option_list, option, cctl_req_option,
3314				      links);
3315			free(option->name);
3316			free(option->value);
3317			free(option);
3318		}
3319	}
3320
3321	if (ioctl(fd, CTL_LUN_REQ, &req) == -1) {
3322		warn("%s: error issuing CTL_LUN_REQ ioctl", __func__);
3323		retval = 1;
3324		goto bailout;
3325	}
3326
3327	switch (req.status) {
3328	case CTL_LUN_ERROR:
3329		warnx("LUN removal error: %s", req.error_str);
3330		retval = 1;
3331		goto bailout;
3332	case CTL_LUN_WARNING:
3333		warnx("LUN removal warning: %s", req.error_str);
3334		break;
3335	case CTL_LUN_OK:
3336		break;
3337	default:
3338		warnx("unknown LUN removal status: %d", req.status);
3339		retval = 1;
3340		goto bailout;
3341	}
3342
3343	printf("LUN %d removed successfully\n", lun_id);
3344
3345bailout:
3346	return (retval);
3347}
3348
3349static int
3350cctl_modify_lun(int fd, int argc, char **argv, char *combinedopt)
3351{
3352	struct ctl_lun_req req;
3353	uint64_t lun_size = 0;
3354	uint32_t lun_id = 0;
3355	int lun_id_set = 0, lun_size_set = 0;
3356	char *backend_name = NULL;
3357	int retval = 0, c;
3358
3359	while ((c = getopt(argc, argv, combinedopt)) != -1) {
3360		switch (c) {
3361		case 'b':
3362			backend_name = strdup(optarg);
3363			break;
3364		case 'l':
3365			lun_id = strtoul(optarg, NULL, 0);
3366			lun_id_set = 1;
3367			break;
3368		case 's':
3369			if (strcasecmp(optarg, "auto") != 0) {
3370				retval = expand_number(optarg, &lun_size);
3371				if (retval != 0) {
3372					warn("%s: invalid -s argument",
3373					    __func__);
3374					retval = 1;
3375					goto bailout;
3376				}
3377			}
3378			lun_size_set = 1;
3379			break;
3380		default:
3381			break;
3382		}
3383	}
3384
3385	if (backend_name == NULL)
3386		errx(1, "%s: backend name (-b) must be specified", __func__);
3387
3388	if (lun_id_set == 0)
3389		errx(1, "%s: LUN id (-l) must be specified", __func__);
3390
3391	if (lun_size_set == 0)
3392		errx(1, "%s: size (-s) must be specified", __func__);
3393
3394	bzero(&req, sizeof(req));
3395
3396	strlcpy(req.backend, backend_name, sizeof(req.backend));
3397	req.reqtype = CTL_LUNREQ_MODIFY;
3398
3399	req.reqdata.modify.lun_id = lun_id;
3400	req.reqdata.modify.lun_size_bytes = lun_size;
3401
3402	if (ioctl(fd, CTL_LUN_REQ, &req) == -1) {
3403		warn("%s: error issuing CTL_LUN_REQ ioctl", __func__);
3404		retval = 1;
3405		goto bailout;
3406	}
3407
3408	switch (req.status) {
3409	case CTL_LUN_ERROR:
3410		warnx("LUN modification error: %s", req.error_str);
3411		retval = 1;
3412		goto bailout;
3413	case CTL_LUN_WARNING:
3414		warnx("LUN modification warning: %s", req.error_str);
3415		break;
3416	case CTL_LUN_OK:
3417		break;
3418	default:
3419		warnx("unknown LUN modification status: %d", req.status);
3420		retval = 1;
3421		goto bailout;
3422	}
3423
3424	printf("LUN %d modified successfully\n", lun_id);
3425
3426bailout:
3427	return (retval);
3428}
3429
3430struct cctl_islist_conn {
3431	int connection_id;
3432	char *initiator;
3433	char *initiator_addr;
3434	char *initiator_alias;
3435	char *target;
3436	char *target_alias;
3437	char *header_digest;
3438	char *data_digest;
3439	char *max_data_segment_length;;
3440	int immediate_data;
3441	int iser;
3442	STAILQ_ENTRY(cctl_islist_conn) links;
3443};
3444
3445struct cctl_islist_data {
3446	int num_conns;
3447	STAILQ_HEAD(,cctl_islist_conn) conn_list;
3448	struct cctl_islist_conn *cur_conn;
3449	int level;
3450	struct sbuf *cur_sb[32];
3451};
3452
3453static void
3454cctl_islist_start_element(void *user_data, const char *name, const char **attr)
3455{
3456	int i;
3457	struct cctl_islist_data *islist;
3458	struct cctl_islist_conn *cur_conn;
3459
3460	islist = (struct cctl_islist_data *)user_data;
3461	cur_conn = islist->cur_conn;
3462	islist->level++;
3463	if ((u_int)islist->level >= (sizeof(islist->cur_sb) /
3464	    sizeof(islist->cur_sb[0])))
3465		errx(1, "%s: too many nesting levels, %zd max", __func__,
3466		     sizeof(islist->cur_sb) / sizeof(islist->cur_sb[0]));
3467
3468	islist->cur_sb[islist->level] = sbuf_new_auto();
3469	if (islist->cur_sb[islist->level] == NULL)
3470		err(1, "%s: Unable to allocate sbuf", __func__);
3471
3472	if (strcmp(name, "connection") == 0) {
3473		if (cur_conn != NULL)
3474			errx(1, "%s: improper connection element nesting",
3475			    __func__);
3476
3477		cur_conn = calloc(1, sizeof(*cur_conn));
3478		if (cur_conn == NULL)
3479			err(1, "%s: cannot allocate %zd bytes", __func__,
3480			    sizeof(*cur_conn));
3481
3482		islist->num_conns++;
3483		islist->cur_conn = cur_conn;
3484
3485		STAILQ_INSERT_TAIL(&islist->conn_list, cur_conn, links);
3486
3487		for (i = 0; attr[i] != NULL; i += 2) {
3488			if (strcmp(attr[i], "id") == 0) {
3489				cur_conn->connection_id =
3490				    strtoull(attr[i+1], NULL, 0);
3491			} else {
3492				errx(1,
3493				    "%s: invalid connection attribute %s = %s",
3494				     __func__, attr[i], attr[i+1]);
3495			}
3496		}
3497	}
3498}
3499
3500static void
3501cctl_islist_end_element(void *user_data, const char *name)
3502{
3503	struct cctl_islist_data *islist;
3504	struct cctl_islist_conn *cur_conn;
3505	char *str;
3506
3507	islist = (struct cctl_islist_data *)user_data;
3508	cur_conn = islist->cur_conn;
3509
3510	if ((cur_conn == NULL)
3511	 && (strcmp(name, "ctlislist") != 0))
3512		errx(1, "%s: cur_conn == NULL! (name = %s)", __func__, name);
3513
3514	if (islist->cur_sb[islist->level] == NULL)
3515		errx(1, "%s: no valid sbuf at level %d (name %s)", __func__,
3516		     islist->level, name);
3517
3518	sbuf_finish(islist->cur_sb[islist->level]);
3519	str = strdup(sbuf_data(islist->cur_sb[islist->level]));
3520	if (str == NULL)
3521		err(1, "%s can't allocate %zd bytes for string", __func__,
3522		    sbuf_len(islist->cur_sb[islist->level]));
3523
3524	sbuf_delete(islist->cur_sb[islist->level]);
3525	islist->cur_sb[islist->level] = NULL;
3526	islist->level--;
3527
3528	if (strcmp(name, "initiator") == 0) {
3529		cur_conn->initiator = str;
3530		str = NULL;
3531	} else if (strcmp(name, "initiator_addr") == 0) {
3532		cur_conn->initiator_addr = str;
3533		str = NULL;
3534	} else if (strcmp(name, "initiator_alias") == 0) {
3535		cur_conn->initiator_alias = str;
3536		str = NULL;
3537	} else if (strcmp(name, "target") == 0) {
3538		cur_conn->target = str;
3539		str = NULL;
3540	} else if (strcmp(name, "target_alias") == 0) {
3541		cur_conn->target_alias = str;
3542		str = NULL;
3543	} else if (strcmp(name, "header_digest") == 0) {
3544		cur_conn->header_digest = str;
3545		str = NULL;
3546	} else if (strcmp(name, "data_digest") == 0) {
3547		cur_conn->data_digest = str;
3548		str = NULL;
3549	} else if (strcmp(name, "max_data_segment_length") == 0) {
3550		cur_conn->max_data_segment_length = str;
3551		str = NULL;
3552	} else if (strcmp(name, "immediate_data") == 0) {
3553		cur_conn->immediate_data = atoi(str);
3554	} else if (strcmp(name, "iser") == 0) {
3555		cur_conn->iser = atoi(str);
3556	} else if (strcmp(name, "connection") == 0) {
3557		islist->cur_conn = NULL;
3558	} else if (strcmp(name, "ctlislist") == 0) {
3559	} else
3560		errx(1, "unknown element %s", name);
3561
3562	free(str);
3563}
3564
3565static void
3566cctl_islist_char_handler(void *user_data, const XML_Char *str, int len)
3567{
3568	struct cctl_islist_data *islist;
3569
3570	islist = (struct cctl_islist_data *)user_data;
3571
3572	sbuf_bcat(islist->cur_sb[islist->level], str, len);
3573}
3574
3575static int
3576cctl_islist(int fd, int argc, char **argv, char *combinedopt)
3577{
3578	struct ctl_iscsi req;
3579	struct cctl_islist_data islist;
3580	struct cctl_islist_conn *conn;
3581	XML_Parser parser;
3582	char *conn_str;
3583	int conn_len;
3584	int dump_xml = 0;
3585	int c, retval, verbose = 0;
3586
3587	retval = 0;
3588	conn_len = 4096;
3589
3590	bzero(&islist, sizeof(islist));
3591	STAILQ_INIT(&islist.conn_list);
3592
3593	while ((c = getopt(argc, argv, combinedopt)) != -1) {
3594		switch (c) {
3595		case 'v':
3596			verbose = 1;
3597			break;
3598		case 'x':
3599			dump_xml = 1;
3600			break;
3601		default:
3602			break;
3603		}
3604	}
3605
3606retry:
3607	conn_str = malloc(conn_len);
3608
3609	bzero(&req, sizeof(req));
3610	req.type = CTL_ISCSI_LIST;
3611	req.data.list.alloc_len = conn_len;
3612	req.data.list.conn_xml = conn_str;
3613
3614	if (ioctl(fd, CTL_ISCSI, &req) == -1) {
3615		warn("%s: error issuing CTL_ISCSI ioctl", __func__);
3616		retval = 1;
3617		goto bailout;
3618	}
3619
3620	if (req.status == CTL_ISCSI_ERROR) {
3621		warnx("%s: error returned from CTL_ISCSI ioctl:\n%s",
3622		      __func__, req.error_str);
3623	} else if (req.status == CTL_ISCSI_LIST_NEED_MORE_SPACE) {
3624		conn_len = conn_len << 1;
3625		goto retry;
3626	}
3627
3628	if (dump_xml != 0) {
3629		printf("%s", conn_str);
3630		goto bailout;
3631	}
3632
3633	parser = XML_ParserCreate(NULL);
3634	if (parser == NULL) {
3635		warn("%s: Unable to create XML parser", __func__);
3636		retval = 1;
3637		goto bailout;
3638	}
3639
3640	XML_SetUserData(parser, &islist);
3641	XML_SetElementHandler(parser, cctl_islist_start_element,
3642	    cctl_islist_end_element);
3643	XML_SetCharacterDataHandler(parser, cctl_islist_char_handler);
3644
3645	retval = XML_Parse(parser, conn_str, strlen(conn_str), 1);
3646	if (retval != 1) {
3647		warnx("%s: Unable to parse XML: Error %d", __func__,
3648		    XML_GetErrorCode(parser));
3649		XML_ParserFree(parser);
3650		retval = 1;
3651		goto bailout;
3652	}
3653	XML_ParserFree(parser);
3654
3655	if (verbose != 0) {
3656		STAILQ_FOREACH(conn, &islist.conn_list, links) {
3657			printf("Session ID:       %d\n", conn->connection_id);
3658			printf("Initiator name:   %s\n", conn->initiator);
3659			printf("Initiator portal: %s\n", conn->initiator_addr);
3660			printf("Initiator alias:  %s\n", conn->initiator_alias);
3661			printf("Target name:      %s\n", conn->target);
3662			printf("Target alias:     %s\n", conn->target_alias);
3663			printf("Header digest:    %s\n", conn->header_digest);
3664			printf("Data digest:      %s\n", conn->data_digest);
3665			printf("DataSegmentLen:   %s\n", conn->max_data_segment_length);
3666			printf("ImmediateData:    %s\n", conn->immediate_data ? "Yes" : "No");
3667			printf("iSER (RDMA):      %s\n", conn->iser ? "Yes" : "No");
3668			printf("\n");
3669		}
3670	} else {
3671		printf("%4s %-16s %-36s %-36s\n", "ID", "Portal", "Initiator name",
3672		    "Target name");
3673		STAILQ_FOREACH(conn, &islist.conn_list, links) {
3674			printf("%4u %-16s %-36s %-36s\n",
3675			    conn->connection_id, conn->initiator_addr, conn->initiator,
3676			    conn->target);
3677		}
3678	}
3679bailout:
3680	free(conn_str);
3681
3682	return (retval);
3683}
3684
3685static int
3686cctl_islogout(int fd, int argc, char **argv, char *combinedopt)
3687{
3688	struct ctl_iscsi req;
3689	int retval = 0, c;
3690	int all = 0, connection_id = -1, nargs = 0;
3691	char *initiator_name = NULL, *initiator_addr = NULL;
3692
3693	while ((c = getopt(argc, argv, combinedopt)) != -1) {
3694		switch (c) {
3695		case 'a':
3696			all = 1;
3697			nargs++;
3698			break;
3699		case 'c':
3700			connection_id = strtoul(optarg, NULL, 0);
3701			nargs++;
3702			break;
3703		case 'i':
3704			initiator_name = strdup(optarg);
3705			if (initiator_name == NULL)
3706				err(1, "%s: strdup", __func__);
3707			nargs++;
3708			break;
3709		case 'p':
3710			initiator_addr = strdup(optarg);
3711			if (initiator_addr == NULL)
3712				err(1, "%s: strdup", __func__);
3713			nargs++;
3714			break;
3715		default:
3716			break;
3717		}
3718	}
3719
3720	if (nargs == 0)
3721		errx(1, "%s: either -a, -c, -i, or -p must be specified",
3722		    __func__);
3723	if (nargs > 1)
3724		errx(1, "%s: only one of -a, -c, -i, or -p may be specified",
3725		    __func__);
3726
3727	bzero(&req, sizeof(req));
3728	req.type = CTL_ISCSI_LOGOUT;
3729	req.data.logout.connection_id = connection_id;
3730	if (initiator_addr != NULL)
3731		strlcpy(req.data.logout.initiator_addr,
3732		    initiator_addr, sizeof(req.data.logout.initiator_addr));
3733	if (initiator_name != NULL)
3734		strlcpy(req.data.logout.initiator_name,
3735		    initiator_name, sizeof(req.data.logout.initiator_name));
3736	if (all != 0)
3737		req.data.logout.all = 1;
3738
3739	if (ioctl(fd, CTL_ISCSI, &req) == -1) {
3740		warn("%s: error issuing CTL_ISCSI ioctl", __func__);
3741		retval = 1;
3742		goto bailout;
3743	}
3744
3745	if (req.status != CTL_ISCSI_OK) {
3746		warnx("%s: error returned from CTL iSCSI logout request:\n%s",
3747		      __func__, req.error_str);
3748		retval = 1;
3749		goto bailout;
3750	}
3751
3752	printf("iSCSI logout requests submitted\n");
3753
3754bailout:
3755	return (retval);
3756}
3757
3758static int
3759cctl_isterminate(int fd, int argc, char **argv, char *combinedopt)
3760{
3761	struct ctl_iscsi req;
3762	int retval = 0, c;
3763	int all = 0, connection_id = -1, nargs = 0;
3764	char *initiator_name = NULL, *initiator_addr = NULL;
3765
3766	while ((c = getopt(argc, argv, combinedopt)) != -1) {
3767		switch (c) {
3768		case 'a':
3769			all = 1;
3770			nargs++;
3771			break;
3772		case 'c':
3773			connection_id = strtoul(optarg, NULL, 0);
3774			nargs++;
3775			break;
3776		case 'i':
3777			initiator_name = strdup(optarg);
3778			if (initiator_name == NULL)
3779				err(1, "%s: strdup", __func__);
3780			nargs++;
3781			break;
3782		case 'p':
3783			initiator_addr = strdup(optarg);
3784			if (initiator_addr == NULL)
3785				err(1, "%s: strdup", __func__);
3786			nargs++;
3787			break;
3788		default:
3789			break;
3790		}
3791	}
3792
3793	if (nargs == 0)
3794		errx(1, "%s: either -a, -c, -i, or -p must be specified",
3795		    __func__);
3796	if (nargs > 1)
3797		errx(1, "%s: only one of -a, -c, -i, or -p may be specified",
3798		    __func__);
3799
3800	bzero(&req, sizeof(req));
3801	req.type = CTL_ISCSI_TERMINATE;
3802	req.data.terminate.connection_id = connection_id;
3803	if (initiator_addr != NULL)
3804		strlcpy(req.data.terminate.initiator_addr,
3805		    initiator_addr, sizeof(req.data.terminate.initiator_addr));
3806	if (initiator_name != NULL)
3807		strlcpy(req.data.terminate.initiator_name,
3808		    initiator_name, sizeof(req.data.terminate.initiator_name));
3809	if (all != 0)
3810		req.data.terminate.all = 1;
3811
3812	if (ioctl(fd, CTL_ISCSI, &req) == -1) {
3813		warn("%s: error issuing CTL_ISCSI ioctl", __func__);
3814		retval = 1;
3815		goto bailout;
3816	}
3817
3818	if (req.status != CTL_ISCSI_OK) {
3819		warnx("%s: error returned from CTL iSCSI connection "
3820		    "termination request:\n%s", __func__, req.error_str);
3821		retval = 1;
3822		goto bailout;
3823	}
3824
3825	printf("iSCSI connections terminated\n");
3826
3827bailout:
3828	return (retval);
3829}
3830
3831/*
3832 * Name/value pair used for per-LUN attributes.
3833 */
3834struct cctl_lun_nv {
3835	char *name;
3836	char *value;
3837	STAILQ_ENTRY(cctl_lun_nv) links;
3838};
3839
3840/*
3841 * Backend LUN information.
3842 */
3843struct cctl_lun {
3844	uint64_t lun_id;
3845	char *backend_type;
3846	uint64_t size_blocks;
3847	uint32_t blocksize;
3848	char *serial_number;
3849	char *device_id;
3850	STAILQ_HEAD(,cctl_lun_nv) attr_list;
3851	STAILQ_ENTRY(cctl_lun) links;
3852};
3853
3854struct cctl_devlist_data {
3855	int num_luns;
3856	STAILQ_HEAD(,cctl_lun) lun_list;
3857	struct cctl_lun *cur_lun;
3858	int level;
3859	struct sbuf *cur_sb[32];
3860};
3861
3862static void
3863cctl_start_element(void *user_data, const char *name, const char **attr)
3864{
3865	int i;
3866	struct cctl_devlist_data *devlist;
3867	struct cctl_lun *cur_lun;
3868
3869	devlist = (struct cctl_devlist_data *)user_data;
3870	cur_lun = devlist->cur_lun;
3871	devlist->level++;
3872	if ((u_int)devlist->level >= (sizeof(devlist->cur_sb) /
3873	    sizeof(devlist->cur_sb[0])))
3874		errx(1, "%s: too many nesting levels, %zd max", __func__,
3875		     sizeof(devlist->cur_sb) / sizeof(devlist->cur_sb[0]));
3876
3877	devlist->cur_sb[devlist->level] = sbuf_new_auto();
3878	if (devlist->cur_sb[devlist->level] == NULL)
3879		err(1, "%s: Unable to allocate sbuf", __func__);
3880
3881	if (strcmp(name, "lun") == 0) {
3882		if (cur_lun != NULL)
3883			errx(1, "%s: improper lun element nesting", __func__);
3884
3885		cur_lun = calloc(1, sizeof(*cur_lun));
3886		if (cur_lun == NULL)
3887			err(1, "%s: cannot allocate %zd bytes", __func__,
3888			    sizeof(*cur_lun));
3889
3890		devlist->num_luns++;
3891		devlist->cur_lun = cur_lun;
3892
3893		STAILQ_INIT(&cur_lun->attr_list);
3894		STAILQ_INSERT_TAIL(&devlist->lun_list, cur_lun, links);
3895
3896		for (i = 0; attr[i] != NULL; i += 2) {
3897			if (strcmp(attr[i], "id") == 0) {
3898				cur_lun->lun_id = strtoull(attr[i+1], NULL, 0);
3899			} else {
3900				errx(1, "%s: invalid LUN attribute %s = %s",
3901				     __func__, attr[i], attr[i+1]);
3902			}
3903		}
3904	}
3905}
3906
3907static void
3908cctl_end_element(void *user_data, const char *name)
3909{
3910	struct cctl_devlist_data *devlist;
3911	struct cctl_lun *cur_lun;
3912	char *str;
3913
3914	devlist = (struct cctl_devlist_data *)user_data;
3915	cur_lun = devlist->cur_lun;
3916
3917	if ((cur_lun == NULL)
3918	 && (strcmp(name, "ctllunlist") != 0))
3919		errx(1, "%s: cur_lun == NULL! (name = %s)", __func__, name);
3920
3921	if (devlist->cur_sb[devlist->level] == NULL)
3922		errx(1, "%s: no valid sbuf at level %d (name %s)", __func__,
3923		     devlist->level, name);
3924
3925	if (sbuf_finish(devlist->cur_sb[devlist->level]) != 0)
3926		err(1, "%s: sbuf_finish", __func__);
3927	str = strdup(sbuf_data(devlist->cur_sb[devlist->level]));
3928	if (str == NULL)
3929		err(1, "%s can't allocate %zd bytes for string", __func__,
3930		    sbuf_len(devlist->cur_sb[devlist->level]));
3931
3932	if (strlen(str) == 0) {
3933		free(str);
3934		str = NULL;
3935	}
3936
3937	sbuf_delete(devlist->cur_sb[devlist->level]);
3938	devlist->cur_sb[devlist->level] = NULL;
3939	devlist->level--;
3940
3941	if (strcmp(name, "backend_type") == 0) {
3942		cur_lun->backend_type = str;
3943		str = NULL;
3944	} else if (strcmp(name, "size") == 0) {
3945		cur_lun->size_blocks = strtoull(str, NULL, 0);
3946	} else if (strcmp(name, "blocksize") == 0) {
3947		cur_lun->blocksize = strtoul(str, NULL, 0);
3948	} else if (strcmp(name, "serial_number") == 0) {
3949		cur_lun->serial_number = str;
3950		str = NULL;
3951	} else if (strcmp(name, "device_id") == 0) {
3952		cur_lun->device_id = str;
3953		str = NULL;
3954	} else if (strcmp(name, "lun") == 0) {
3955		devlist->cur_lun = NULL;
3956	} else if (strcmp(name, "ctllunlist") == 0) {
3957		/* Nothing. */
3958	} else {
3959		struct cctl_lun_nv *nv;
3960
3961		nv = calloc(1, sizeof(*nv));
3962		if (nv == NULL)
3963			err(1, "%s: can't allocate %zd bytes for nv pair",
3964			    __func__, sizeof(*nv));
3965
3966		nv->name = strdup(name);
3967		if (nv->name == NULL)
3968			err(1, "%s: can't allocated %zd bytes for string",
3969			    __func__, strlen(name));
3970
3971		nv->value = str;
3972		str = NULL;
3973		STAILQ_INSERT_TAIL(&cur_lun->attr_list, nv, links);
3974	}
3975
3976	free(str);
3977}
3978
3979static void
3980cctl_char_handler(void *user_data, const XML_Char *str, int len)
3981{
3982	struct cctl_devlist_data *devlist;
3983
3984	devlist = (struct cctl_devlist_data *)user_data;
3985
3986	sbuf_bcat(devlist->cur_sb[devlist->level], str, len);
3987}
3988
3989static int
3990cctl_devlist(int fd, int argc, char **argv, char *combinedopt)
3991{
3992	struct ctl_lun_list list;
3993	struct cctl_devlist_data devlist;
3994	struct cctl_lun *lun;
3995	XML_Parser parser;
3996	char *lun_str;
3997	int lun_len;
3998	int dump_xml = 0;
3999	int retval, c;
4000	char *backend = NULL;
4001	int verbose = 0;
4002
4003	retval = 0;
4004	lun_len = 4096;
4005
4006	bzero(&devlist, sizeof(devlist));
4007	STAILQ_INIT(&devlist.lun_list);
4008
4009	while ((c = getopt(argc, argv, combinedopt)) != -1) {
4010		switch (c) {
4011		case 'b':
4012			backend = strdup(optarg);
4013			break;
4014		case 'v':
4015			verbose++;
4016			break;
4017		case 'x':
4018			dump_xml = 1;
4019			break;
4020		default:
4021			break;
4022		}
4023	}
4024
4025retry:
4026	lun_str = malloc(lun_len);
4027
4028	bzero(&list, sizeof(list));
4029	list.alloc_len = lun_len;
4030	list.status = CTL_LUN_LIST_NONE;
4031	list.lun_xml = lun_str;
4032
4033	if (ioctl(fd, CTL_LUN_LIST, &list) == -1) {
4034		warn("%s: error issuing CTL_LUN_LIST ioctl", __func__);
4035		retval = 1;
4036		goto bailout;
4037	}
4038
4039	if (list.status == CTL_LUN_LIST_ERROR) {
4040		warnx("%s: error returned from CTL_LUN_LIST ioctl:\n%s",
4041		      __func__, list.error_str);
4042	} else if (list.status == CTL_LUN_LIST_NEED_MORE_SPACE) {
4043		lun_len = lun_len << 1;
4044		goto retry;
4045	}
4046
4047	if (dump_xml != 0) {
4048		printf("%s", lun_str);
4049		goto bailout;
4050	}
4051
4052	parser = XML_ParserCreate(NULL);
4053	if (parser == NULL) {
4054		warn("%s: Unable to create XML parser", __func__);
4055		retval = 1;
4056		goto bailout;
4057	}
4058
4059	XML_SetUserData(parser, &devlist);
4060	XML_SetElementHandler(parser, cctl_start_element, cctl_end_element);
4061	XML_SetCharacterDataHandler(parser, cctl_char_handler);
4062
4063	retval = XML_Parse(parser, lun_str, strlen(lun_str), 1);
4064	if (retval != 1) {
4065		warnx("%s: Unable to parse XML: Error %d", __func__,
4066		    XML_GetErrorCode(parser));
4067		XML_ParserFree(parser);
4068		retval = 1;
4069		goto bailout;
4070	}
4071	XML_ParserFree(parser);
4072
4073	printf("LUN Backend  %18s %4s %-16s %-16s\n", "Size (Blocks)", "BS",
4074	       "Serial Number", "Device ID");
4075	STAILQ_FOREACH(lun, &devlist.lun_list, links) {
4076		struct cctl_lun_nv *nv;
4077
4078		if ((backend != NULL)
4079		 && (strcmp(lun->backend_type, backend) != 0))
4080			continue;
4081
4082		printf("%3ju %-8s %18ju %4u %-16s %-16s\n",
4083		       (uintmax_t)lun->lun_id,
4084		       lun->backend_type, (uintmax_t)lun->size_blocks,
4085		       lun->blocksize, lun->serial_number, lun->device_id);
4086
4087		if (verbose == 0)
4088			continue;
4089
4090		STAILQ_FOREACH(nv, &lun->attr_list, links) {
4091			printf("      %s=%s\n", nv->name, nv->value);
4092		}
4093	}
4094bailout:
4095	free(lun_str);
4096
4097	return (retval);
4098}
4099
4100/*
4101 * Port information.
4102 */
4103struct cctl_port {
4104	uint64_t port_id;
4105	char *online;
4106	char *frontend_type;
4107	char *name;
4108	int pp, vp;
4109	char *target, *port;
4110	STAILQ_HEAD(,cctl_lun_nv) init_list;
4111	STAILQ_HEAD(,cctl_lun_nv) attr_list;
4112	STAILQ_ENTRY(cctl_port) links;
4113};
4114
4115struct cctl_portlist_data {
4116	int num_ports;
4117	STAILQ_HEAD(,cctl_port) port_list;
4118	struct cctl_port *cur_port;
4119	int level;
4120	struct sbuf *cur_sb[32];
4121};
4122
4123static void
4124cctl_start_pelement(void *user_data, const char *name, const char **attr)
4125{
4126	int i;
4127	struct cctl_portlist_data *portlist;
4128	struct cctl_port *cur_port;
4129
4130	portlist = (struct cctl_portlist_data *)user_data;
4131	cur_port = portlist->cur_port;
4132	portlist->level++;
4133	if ((u_int)portlist->level >= (sizeof(portlist->cur_sb) /
4134	    sizeof(portlist->cur_sb[0])))
4135		errx(1, "%s: too many nesting levels, %zd max", __func__,
4136		     sizeof(portlist->cur_sb) / sizeof(portlist->cur_sb[0]));
4137
4138	portlist->cur_sb[portlist->level] = sbuf_new_auto();
4139	if (portlist->cur_sb[portlist->level] == NULL)
4140		err(1, "%s: Unable to allocate sbuf", __func__);
4141
4142	if (strcmp(name, "targ_port") == 0) {
4143		if (cur_port != NULL)
4144			errx(1, "%s: improper port element nesting", __func__);
4145
4146		cur_port = calloc(1, sizeof(*cur_port));
4147		if (cur_port == NULL)
4148			err(1, "%s: cannot allocate %zd bytes", __func__,
4149			    sizeof(*cur_port));
4150
4151		portlist->num_ports++;
4152		portlist->cur_port = cur_port;
4153
4154		STAILQ_INIT(&cur_port->init_list);
4155		STAILQ_INIT(&cur_port->attr_list);
4156		STAILQ_INSERT_TAIL(&portlist->port_list, cur_port, links);
4157
4158		for (i = 0; attr[i] != NULL; i += 2) {
4159			if (strcmp(attr[i], "id") == 0) {
4160				cur_port->port_id = strtoull(attr[i+1], NULL, 0);
4161			} else {
4162				errx(1, "%s: invalid LUN attribute %s = %s",
4163				     __func__, attr[i], attr[i+1]);
4164			}
4165		}
4166	}
4167}
4168
4169static void
4170cctl_end_pelement(void *user_data, const char *name)
4171{
4172	struct cctl_portlist_data *portlist;
4173	struct cctl_port *cur_port;
4174	char *str;
4175
4176	portlist = (struct cctl_portlist_data *)user_data;
4177	cur_port = portlist->cur_port;
4178
4179	if ((cur_port == NULL)
4180	 && (strcmp(name, "ctlportlist") != 0))
4181		errx(1, "%s: cur_port == NULL! (name = %s)", __func__, name);
4182
4183	if (portlist->cur_sb[portlist->level] == NULL)
4184		errx(1, "%s: no valid sbuf at level %d (name %s)", __func__,
4185		     portlist->level, name);
4186
4187	if (sbuf_finish(portlist->cur_sb[portlist->level]) != 0)
4188		err(1, "%s: sbuf_finish", __func__);
4189	str = strdup(sbuf_data(portlist->cur_sb[portlist->level]));
4190	if (str == NULL)
4191		err(1, "%s can't allocate %zd bytes for string", __func__,
4192		    sbuf_len(portlist->cur_sb[portlist->level]));
4193
4194	if (strlen(str) == 0) {
4195		free(str);
4196		str = NULL;
4197	}
4198
4199	sbuf_delete(portlist->cur_sb[portlist->level]);
4200	portlist->cur_sb[portlist->level] = NULL;
4201	portlist->level--;
4202
4203	if (strcmp(name, "frontend_type") == 0) {
4204		cur_port->frontend_type = str;
4205		str = NULL;
4206	} else if (strcmp(name, "port_name") == 0) {
4207		cur_port->name = str;
4208		str = NULL;
4209	} else if (strcmp(name, "online") == 0) {
4210		cur_port->online = str;
4211		str = NULL;
4212	} else if (strcmp(name, "physical_port") == 0) {
4213		cur_port->pp = strtoull(str, NULL, 0);
4214	} else if (strcmp(name, "virtual_port") == 0) {
4215		cur_port->vp = strtoull(str, NULL, 0);
4216	} else if (strcmp(name, "target") == 0) {
4217		cur_port->target = str;
4218		str = NULL;
4219	} else if (strcmp(name, "port") == 0) {
4220		cur_port->port = str;
4221		str = NULL;
4222	} else if (strcmp(name, "targ_port") == 0) {
4223		portlist->cur_port = NULL;
4224	} else if (strcmp(name, "ctlportlist") == 0) {
4225		/* Nothing. */
4226	} else {
4227		struct cctl_lun_nv *nv;
4228
4229		nv = calloc(1, sizeof(*nv));
4230		if (nv == NULL)
4231			err(1, "%s: can't allocate %zd bytes for nv pair",
4232			    __func__, sizeof(*nv));
4233
4234		nv->name = strdup(name);
4235		if (nv->name == NULL)
4236			err(1, "%s: can't allocated %zd bytes for string",
4237			    __func__, strlen(name));
4238
4239		nv->value = str;
4240		str = NULL;
4241		if (strcmp(name, "initiator") == 0)
4242			STAILQ_INSERT_TAIL(&cur_port->init_list, nv, links);
4243		else
4244			STAILQ_INSERT_TAIL(&cur_port->attr_list, nv, links);
4245	}
4246
4247	free(str);
4248}
4249
4250static void
4251cctl_char_phandler(void *user_data, const XML_Char *str, int len)
4252{
4253	struct cctl_portlist_data *portlist;
4254
4255	portlist = (struct cctl_portlist_data *)user_data;
4256
4257	sbuf_bcat(portlist->cur_sb[portlist->level], str, len);
4258}
4259
4260static int
4261cctl_portlist(int fd, int argc, char **argv, char *combinedopt)
4262{
4263	struct ctl_lun_list list;
4264	struct cctl_portlist_data portlist;
4265	struct cctl_port *port;
4266	XML_Parser parser;
4267	char *port_str;
4268	int port_len;
4269	int dump_xml = 0;
4270	int retval, c;
4271	char *frontend = NULL;
4272	uint64_t portarg = UINT64_MAX;
4273	int verbose = 0, init = 0, quiet = 0;
4274
4275	retval = 0;
4276	port_len = 4096;
4277
4278	bzero(&portlist, sizeof(portlist));
4279	STAILQ_INIT(&portlist.port_list);
4280
4281	while ((c = getopt(argc, argv, combinedopt)) != -1) {
4282		switch (c) {
4283		case 'f':
4284			frontend = strdup(optarg);
4285			break;
4286		case 'i':
4287			init++;
4288			break;
4289		case 'p':
4290			portarg = strtoll(optarg, NULL, 0);
4291			break;
4292		case 'q':
4293			quiet++;
4294			break;
4295		case 'v':
4296			verbose++;
4297			break;
4298		case 'x':
4299			dump_xml = 1;
4300			break;
4301		default:
4302			break;
4303		}
4304	}
4305
4306retry:
4307	port_str = malloc(port_len);
4308
4309	bzero(&list, sizeof(list));
4310	list.alloc_len = port_len;
4311	list.status = CTL_LUN_LIST_NONE;
4312	list.lun_xml = port_str;
4313
4314	if (ioctl(fd, CTL_PORT_LIST, &list) == -1) {
4315		warn("%s: error issuing CTL_PORT_LIST ioctl", __func__);
4316		retval = 1;
4317		goto bailout;
4318	}
4319
4320	if (list.status == CTL_LUN_LIST_ERROR) {
4321		warnx("%s: error returned from CTL_PORT_LIST ioctl:\n%s",
4322		      __func__, list.error_str);
4323	} else if (list.status == CTL_LUN_LIST_NEED_MORE_SPACE) {
4324		port_len = port_len << 1;
4325		goto retry;
4326	}
4327
4328	if (dump_xml != 0) {
4329		printf("%s", port_str);
4330		goto bailout;
4331	}
4332
4333	parser = XML_ParserCreate(NULL);
4334	if (parser == NULL) {
4335		warn("%s: Unable to create XML parser", __func__);
4336		retval = 1;
4337		goto bailout;
4338	}
4339
4340	XML_SetUserData(parser, &portlist);
4341	XML_SetElementHandler(parser, cctl_start_pelement, cctl_end_pelement);
4342	XML_SetCharacterDataHandler(parser, cctl_char_phandler);
4343
4344	retval = XML_Parse(parser, port_str, strlen(port_str), 1);
4345	if (retval != 1) {
4346		warnx("%s: Unable to parse XML: Error %d", __func__,
4347		    XML_GetErrorCode(parser));
4348		XML_ParserFree(parser);
4349		retval = 1;
4350		goto bailout;
4351	}
4352	XML_ParserFree(parser);
4353
4354	if (quiet == 0)
4355		printf("Port Online Frontend Name     pp vp\n");
4356	STAILQ_FOREACH(port, &portlist.port_list, links) {
4357		struct cctl_lun_nv *nv;
4358
4359		if ((frontend != NULL)
4360		 && (strcmp(port->frontend_type, frontend) != 0))
4361			continue;
4362
4363		if ((portarg != UINT64_MAX) && (portarg != port->port_id))
4364			continue;
4365
4366		printf("%-4ju %-6s %-8s %-8s %-2d %-2d %s\n",
4367		    (uintmax_t)port->port_id, port->online,
4368		    port->frontend_type, port->name, port->pp, port->vp,
4369		    port->port ? port->port : "");
4370
4371		if (init || verbose) {
4372			if (port->target)
4373				printf("  Target: %s\n", port->target);
4374			STAILQ_FOREACH(nv, &port->init_list, links) {
4375				printf("  Initiator: %s\n", nv->value);
4376			}
4377		}
4378
4379		if (verbose) {
4380			STAILQ_FOREACH(nv, &port->attr_list, links) {
4381				printf("      %s=%s\n", nv->name, nv->value);
4382			}
4383		}
4384	}
4385bailout:
4386	free(port_str);
4387
4388	return (retval);
4389}
4390
4391void
4392usage(int error)
4393{
4394	fprintf(error ? stderr : stdout,
4395"Usage:\n"
4396"Primary commands:\n"
4397"         ctladm tur         [dev_id][general options]\n"
4398"         ctladm inquiry     [dev_id][general options]\n"
4399"         ctladm devid       [dev_id][general options]\n"
4400"         ctladm reqsense    [dev_id][general options]\n"
4401"         ctladm reportluns  [dev_id][general options]\n"
4402"         ctladm read        [dev_id][general options] <-l lba> <-d len>\n"
4403"                            <-f file|-> <-b blocksize> [-c cdbsize][-N]\n"
4404"         ctladm write       [dev_id][general options] <-l lba> <-d len>\n"
4405"                            <-f file|-> <-b blocksize> [-c cdbsize][-N]\n"
4406"         ctladm readcap     [dev_id][general options] [-c cdbsize]\n"
4407"         ctladm modesense   [dev_id][general options] <-m page|-l> [-P pc]\n"
4408"                            [-d] [-S subpage] [-c cdbsize]\n"
4409"         ctladm prin        [dev_id][general options] <-a action>\n"
4410"         ctladm prout       [dev_id][general options] <-a action>\n"
4411"                            <-r restype] [-k key] [-s sa_key]\n"
4412"         ctladm rtpg        [dev_id][general options]\n"
4413"         ctladm start       [dev_id][general options] [-i] [-o]\n"
4414"         ctladm stop        [dev_id][general options] [-i] [-o]\n"
4415"         ctladm synccache   [dev_id][general options] [-l lba]\n"
4416"                            [-b blockcount] [-r] [-i] [-c cdbsize]\n"
4417"         ctladm create      <-b backend> [-B blocksize] [-d device_id]\n"
4418"                            [-l lun_id] [-o name=value] [-s size_bytes]\n"
4419"                            [-S serial_num] [-t dev_type]\n"
4420"         ctladm remove      <-b backend> <-l lun_id> [-o name=value]\n"
4421"         ctladm modify      <-b backend> <-l lun_id> <-s size_bytes>\n"
4422"         ctladm devlist     [-b backend] [-v] [-x]\n"
4423"         ctladm shutdown\n"
4424"         ctladm startup\n"
4425"         ctladm hardstop\n"
4426"         ctladm hardstart\n"
4427"         ctladm lunlist\n"
4428"         ctladm bbrread     [dev_id] <-l lba> <-d datalen>\n"
4429"         ctladm delay       [dev_id] <-l datamove|done> [-T oneshot|cont]\n"
4430"                            [-t secs]\n"
4431"         ctladm realsync    <on|off|query>\n"
4432"         ctladm setsync     [dev_id] <-i interval>\n"
4433"         ctladm getsync     [dev_id]\n"
4434"         ctladm inject      [dev_id] <-i action> <-p pattern> [-r lba,len]\n"
4435"                            [-s len fmt [args]] [-c] [-d delete_id]\n"
4436"         ctladm port        <-l | -o <on|off> | [-w wwnn][-W wwpn]>\n"
4437"                            [-p targ_port] [-t port_type] [-q] [-x]\n"
4438"         ctladm portlist    [-f frontend] [-i] [-p targ_port] [-q] [-v] [-x]\n"
4439"         ctladm islist      [-v | -x]\n"
4440"         ctladm islogout    <-a | -c connection-id | -i name | -p portal>\n"
4441"         ctladm isterminate <-a | -c connection-id | -i name | -p portal>\n"
4442"         ctladm dumpooa\n"
4443"         ctladm dumpstructs\n"
4444"         ctladm help\n"
4445"General Options:\n"
4446"-I intiator_id           : defaults to 7, used to change the initiator id\n"
4447"-C retries               : specify the number of times to retry this command\n"
4448"-D devicename            : specify the device to operate on\n"
4449"                         : (default is %s)\n"
4450"read/write options:\n"
4451"-l lba                   : logical block address\n"
4452"-d len                   : read/write length, in blocks\n"
4453"-f file|-                : write/read data to/from file or stdout/stdin\n"
4454"-b blocksize             : block size, in bytes\n"
4455"-c cdbsize               : specify minimum cdb size: 6, 10, 12 or 16\n"
4456"-N                       : do not copy data to/from userland\n"
4457"readcapacity options:\n"
4458"-c cdbsize               : specify minimum cdb size: 10 or 16\n"
4459"modesense options:\n"
4460"-m page                  : specify the mode page to view\n"
4461"-l                       : request a list of supported pages\n"
4462"-P pc                    : specify the page control value: 0-3 (current,\n"
4463"                           changeable, default, saved, respectively)\n"
4464"-d                       : disable block descriptors for mode sense\n"
4465"-S subpage               : specify a subpage\n"
4466"-c cdbsize               : specify minimum cdb size: 6 or 10\n"
4467"persistent reserve in options:\n"
4468"-a action                : specify the action value: 0-2 (read key, read\n"
4469"                           reservation, read capabilities, respectively)\n"
4470"persistent reserve out options:\n"
4471"-a action                : specify the action value: 0-5 (register, reserve,\n"
4472"                           release, clear, preempt, register and ignore)\n"
4473"-k key                   : key value\n"
4474"-s sa_key                : service action value\n"
4475"-r restype               : specify the reservation type: 0-5(wr ex, ex ac,\n"
4476"                           wr ex ro, ex ac ro, wr ex ar, ex ac ar)\n"
4477"start/stop options:\n"
4478"-i                       : set the immediate bit (CTL does not support this)\n"
4479"-o                       : set the on/offline bit\n"
4480"synccache options:\n"
4481"-l lba                   : set the starting LBA\n"
4482"-b blockcount            : set the length to sync in blocks\n"
4483"-r                       : set the relative addressing bit\n"
4484"-i                       : set the immediate bit\n"
4485"-c cdbsize               : specify minimum cdb size: 10 or 16\n"
4486"create options:\n"
4487"-b backend               : backend name (\"block\", \"ramdisk\", etc.)\n"
4488"-B blocksize             : LUN blocksize in bytes (some backends)\n"
4489"-d device_id             : SCSI VPD page 0x83 ID\n"
4490"-l lun_id                : requested LUN number\n"
4491"-o name=value            : backend-specific options, multiple allowed\n"
4492"-s size_bytes            : LUN size in bytes (some backends)\n"
4493"-S serial_num            : SCSI VPD page 0x80 serial number\n"
4494"-t dev_type              : SCSI device type (0=disk, 3=processor)\n"
4495"remove options:\n"
4496"-b backend               : backend name (\"block\", \"ramdisk\", etc.)\n"
4497"-l lun_id                : LUN number to delete\n"
4498"-o name=value            : backend-specific options, multiple allowed\n"
4499"devlist options:\n"
4500"-b backend               : list devices from specified backend only\n"
4501"-v                       : be verbose, show backend attributes\n"
4502"-x                       : dump raw XML\n"
4503"delay options:\n"
4504"-l datamove|done         : delay command at datamove or done phase\n"
4505"-T oneshot               : delay one command, then resume normal completion\n"
4506"-T cont                  : delay all commands\n"
4507"-t secs                  : number of seconds to delay\n"
4508"inject options:\n"
4509"-i error_action          : action to perform\n"
4510"-p pattern               : command pattern to look for\n"
4511"-r lba,len               : LBA range for pattern\n"
4512"-s len fmt [args]        : sense data for custom sense action\n"
4513"-c                       : continuous operation\n"
4514"-d delete_id             : error id to delete\n"
4515"port options:\n"
4516"-l                       : list frontend ports\n"
4517"-o on|off                : turn frontend ports on or off\n"
4518"-w wwnn                  : set WWNN for one frontend\n"
4519"-W wwpn                  : set WWPN for one frontend\n"
4520"-t port_type             : specify fc, scsi, ioctl, internal frontend type\n"
4521"-p targ_port             : specify target port number\n"
4522"-q                       : omit header in list output\n"
4523"-x                       : output port list in XML format\n"
4524"portlist options:\n"
4525"-f fronetnd              : specify frontend type\n"
4526"-i                       : report target and initiators addresses\n"
4527"-p targ_port             : specify target port number\n"
4528"-q                       : omit header in list output\n"
4529"-v                       : verbose output (report all port options)\n"
4530"-x                       : output port list in XML format\n"
4531"bbrread options:\n"
4532"-l lba                   : starting LBA\n"
4533"-d datalen               : length, in bytes, to read\n",
4534CTL_DEFAULT_DEV);
4535}
4536
4537int
4538main(int argc, char **argv)
4539{
4540	int c;
4541	ctladm_cmdfunction command;
4542	ctladm_cmdargs cmdargs;
4543	ctladm_optret optreturn;
4544	char *device;
4545	const char *mainopt = "C:D:I:";
4546	const char *subopt = NULL;
4547	char combinedopt[256];
4548	int target, lun;
4549	int optstart = 2;
4550	int retval, fd;
4551	int retries;
4552	int initid;
4553	int saved_errno;
4554
4555	retval = 0;
4556	cmdargs = CTLADM_ARG_NONE;
4557	command = CTLADM_CMD_HELP;
4558	device = NULL;
4559	fd = -1;
4560	retries = 0;
4561	target = 0;
4562	lun = 0;
4563	initid = 7;
4564
4565	if (argc < 2) {
4566		usage(1);
4567		retval = 1;
4568		goto bailout;
4569	}
4570
4571	/*
4572	 * Get the base option.
4573	 */
4574	optreturn = getoption(option_table,argv[1], &command, &cmdargs,&subopt);
4575
4576	if (optreturn == CC_OR_AMBIGUOUS) {
4577		warnx("ambiguous option %s", argv[1]);
4578		usage(0);
4579		exit(1);
4580	} else if (optreturn == CC_OR_NOT_FOUND) {
4581		warnx("option %s not found", argv[1]);
4582		usage(0);
4583		exit(1);
4584	}
4585
4586	if (cmdargs & CTLADM_ARG_NEED_TL) {
4587		if ((argc < 3)
4588		 || (!isdigit(argv[2][0]))) {
4589			warnx("option %s requires a target:lun argument",
4590			      argv[1]);
4591			usage(0);
4592			exit(1);
4593		}
4594		retval = cctl_parse_tl(argv[2], &target, &lun);
4595		if (retval != 0)
4596			errx(1, "invalid target:lun argument %s", argv[2]);
4597
4598		cmdargs |= CTLADM_ARG_TARG_LUN;
4599		optstart++;
4600	}
4601
4602	/*
4603	 * Ahh, getopt(3) is a pain.
4604	 *
4605	 * This is a gross hack.  There really aren't many other good
4606	 * options (excuse the pun) for parsing options in a situation like
4607	 * this.  getopt is kinda braindead, so you end up having to run
4608	 * through the options twice, and give each invocation of getopt
4609	 * the option string for the other invocation.
4610	 *
4611	 * You would think that you could just have two groups of options.
4612	 * The first group would get parsed by the first invocation of
4613	 * getopt, and the second group would get parsed by the second
4614	 * invocation of getopt.  It doesn't quite work out that way.  When
4615	 * the first invocation of getopt finishes, it leaves optind pointing
4616	 * to the argument _after_ the first argument in the second group.
4617	 * So when the second invocation of getopt comes around, it doesn't
4618	 * recognize the first argument it gets and then bails out.
4619	 *
4620	 * A nice alternative would be to have a flag for getopt that says
4621	 * "just keep parsing arguments even when you encounter an unknown
4622	 * argument", but there isn't one.  So there's no real clean way to
4623	 * easily parse two sets of arguments without having one invocation
4624	 * of getopt know about the other.
4625	 *
4626	 * Without this hack, the first invocation of getopt would work as
4627	 * long as the generic arguments are first, but the second invocation
4628	 * (in the subfunction) would fail in one of two ways.  In the case
4629	 * where you don't set optreset, it would fail because optind may be
4630	 * pointing to the argument after the one it should be pointing at.
4631	 * In the case where you do set optreset, and reset optind, it would
4632	 * fail because getopt would run into the first set of options, which
4633	 * it doesn't understand.
4634	 *
4635	 * All of this would "sort of" work if you could somehow figure out
4636	 * whether optind had been incremented one option too far.  The
4637	 * mechanics of that, however, are more daunting than just giving
4638	 * both invocations all of the expect options for either invocation.
4639	 *
4640	 * Needless to say, I wouldn't mind if someone invented a better
4641	 * (non-GPL!) command line parsing interface than getopt.  I
4642	 * wouldn't mind if someone added more knobs to getopt to make it
4643	 * work better.  Who knows, I may talk myself into doing it someday,
4644	 * if the standards weenies let me.  As it is, it just leads to
4645	 * hackery like this and causes people to avoid it in some cases.
4646	 *
4647	 * KDM, September 8th, 1998
4648	 */
4649	if (subopt != NULL)
4650		sprintf(combinedopt, "%s%s", mainopt, subopt);
4651	else
4652		sprintf(combinedopt, "%s", mainopt);
4653
4654	/*
4655	 * Start getopt processing at argv[2/3], since we've already
4656	 * accepted argv[1..2] as the command name, and as a possible
4657	 * device name.
4658	 */
4659	optind = optstart;
4660
4661	/*
4662	 * Now we run through the argument list looking for generic
4663	 * options, and ignoring options that possibly belong to
4664	 * subfunctions.
4665	 */
4666	while ((c = getopt(argc, argv, combinedopt))!= -1){
4667		switch (c) {
4668		case 'C':
4669			cmdargs |= CTLADM_ARG_RETRIES;
4670			retries = strtol(optarg, NULL, 0);
4671			break;
4672		case 'D':
4673			device = strdup(optarg);
4674			cmdargs |= CTLADM_ARG_DEVICE;
4675			break;
4676		case 'I':
4677			cmdargs |= CTLADM_ARG_INITIATOR;
4678			initid = strtol(optarg, NULL, 0);
4679			break;
4680		default:
4681			break;
4682		}
4683	}
4684
4685	if ((cmdargs & CTLADM_ARG_INITIATOR) == 0)
4686		initid = 7;
4687
4688	optind = optstart;
4689	optreset = 1;
4690
4691	/*
4692	 * Default to opening the CTL device for now.
4693	 */
4694	if (((cmdargs & CTLADM_ARG_DEVICE) == 0)
4695	 && (command != CTLADM_CMD_HELP)) {
4696		device = strdup(CTL_DEFAULT_DEV);
4697		cmdargs |= CTLADM_ARG_DEVICE;
4698	}
4699
4700	if ((cmdargs & CTLADM_ARG_DEVICE)
4701	 && (command != CTLADM_CMD_HELP)) {
4702		fd = open(device, O_RDWR);
4703		if (fd == -1 && errno == ENOENT) {
4704			saved_errno = errno;
4705			retval = kldload("ctl");
4706			if (retval != -1)
4707				fd = open(device, O_RDWR);
4708			else
4709				errno = saved_errno;
4710		}
4711		if (fd == -1) {
4712			fprintf(stderr, "%s: error opening %s: %s\n",
4713				argv[0], device, strerror(errno));
4714			retval = 1;
4715			goto bailout;
4716		}
4717	} else if ((command != CTLADM_CMD_HELP)
4718		&& ((cmdargs & CTLADM_ARG_DEVICE) == 0)) {
4719		fprintf(stderr, "%s: you must specify a device with the "
4720			"--device argument for this command\n", argv[0]);
4721		command = CTLADM_CMD_HELP;
4722		retval = 1;
4723	}
4724
4725	switch (command) {
4726	case CTLADM_CMD_TUR:
4727		retval = cctl_tur(fd, target, lun, initid, retries);
4728		break;
4729	case CTLADM_CMD_INQUIRY:
4730		retval = cctl_inquiry(fd, target, lun, initid, retries);
4731		break;
4732	case CTLADM_CMD_REQ_SENSE:
4733		retval = cctl_req_sense(fd, target, lun, initid, retries);
4734		break;
4735	case CTLADM_CMD_REPORT_LUNS:
4736		retval = cctl_report_luns(fd, target, lun, initid, retries);
4737		break;
4738	case CTLADM_CMD_CREATE:
4739		retval = cctl_create_lun(fd, argc, argv, combinedopt);
4740		break;
4741	case CTLADM_CMD_RM:
4742		retval = cctl_rm_lun(fd, argc, argv, combinedopt);
4743		break;
4744	case CTLADM_CMD_DEVLIST:
4745		retval = cctl_devlist(fd, argc, argv, combinedopt);
4746		break;
4747	case CTLADM_CMD_READ:
4748	case CTLADM_CMD_WRITE:
4749		retval = cctl_read_write(fd, target, lun, initid, retries,
4750					 argc, argv, combinedopt, command);
4751		break;
4752	case CTLADM_CMD_PORT:
4753		retval = cctl_port(fd, argc, argv, combinedopt);
4754		break;
4755	case CTLADM_CMD_PORTLIST:
4756		retval = cctl_portlist(fd, argc, argv, combinedopt);
4757		break;
4758	case CTLADM_CMD_READCAPACITY:
4759		retval = cctl_read_capacity(fd, target, lun, initid, retries,
4760					    argc, argv, combinedopt);
4761		break;
4762	case CTLADM_CMD_MODESENSE:
4763		retval = cctl_mode_sense(fd, target, lun, initid, retries,
4764					 argc, argv, combinedopt);
4765		break;
4766	case CTLADM_CMD_START:
4767	case CTLADM_CMD_STOP:
4768		retval = cctl_start_stop(fd, target, lun, initid, retries,
4769					 (command == CTLADM_CMD_START) ? 1 : 0,
4770					 argc, argv, combinedopt);
4771		break;
4772	case CTLADM_CMD_SYNC_CACHE:
4773		retval = cctl_sync_cache(fd, target, lun, initid, retries,
4774					 argc, argv, combinedopt);
4775		break;
4776	case CTLADM_CMD_SHUTDOWN:
4777	case CTLADM_CMD_STARTUP:
4778		retval = cctl_startup_shutdown(fd, target, lun, initid,
4779					       command);
4780		break;
4781	case CTLADM_CMD_HARDSTOP:
4782	case CTLADM_CMD_HARDSTART:
4783		retval = cctl_hardstopstart(fd, command);
4784		break;
4785	case CTLADM_CMD_BBRREAD:
4786		retval = cctl_bbrread(fd, target, lun, initid, argc, argv,
4787				      combinedopt);
4788		break;
4789	case CTLADM_CMD_LUNLIST:
4790		retval = cctl_lunlist(fd);
4791		break;
4792	case CTLADM_CMD_DELAY:
4793		retval = cctl_delay(fd, target, lun, argc, argv, combinedopt);
4794		break;
4795	case CTLADM_CMD_REALSYNC:
4796		retval = cctl_realsync(fd, argc, argv);
4797		break;
4798	case CTLADM_CMD_SETSYNC:
4799	case CTLADM_CMD_GETSYNC:
4800		retval = cctl_getsetsync(fd, target, lun, command,
4801					 argc, argv, combinedopt);
4802		break;
4803	case CTLADM_CMD_ERR_INJECT:
4804		retval = cctl_error_inject(fd, target, lun, argc, argv,
4805					   combinedopt);
4806		break;
4807	case CTLADM_CMD_DUMPOOA:
4808		retval = cctl_dump_ooa(fd, argc, argv);
4809		break;
4810	case CTLADM_CMD_DUMPSTRUCTS:
4811		retval = cctl_dump_structs(fd, cmdargs);
4812		break;
4813	case CTLADM_CMD_PRES_IN:
4814		retval = cctl_persistent_reserve_in(fd, target, lun, initid,
4815		                                    argc, argv, combinedopt,
4816						    retries);
4817		break;
4818	case CTLADM_CMD_PRES_OUT:
4819		retval = cctl_persistent_reserve_out(fd, target, lun, initid,
4820						     argc, argv, combinedopt,
4821						     retries);
4822		break;
4823	case CTLADM_CMD_INQ_VPD_DEVID:
4824	        retval = cctl_inquiry_vpd_devid(fd, target, lun, initid);
4825		break;
4826	case CTLADM_CMD_RTPG:
4827	        retval = cctl_report_target_port_group(fd, target, lun, initid);
4828		break;
4829	case CTLADM_CMD_MODIFY:
4830	        retval = cctl_modify_lun(fd, argc, argv, combinedopt);
4831		break;
4832	case CTLADM_CMD_ISLIST:
4833	        retval = cctl_islist(fd, argc, argv, combinedopt);
4834		break;
4835	case CTLADM_CMD_ISLOGOUT:
4836	        retval = cctl_islogout(fd, argc, argv, combinedopt);
4837		break;
4838	case CTLADM_CMD_ISTERMINATE:
4839	        retval = cctl_isterminate(fd, argc, argv, combinedopt);
4840		break;
4841	case CTLADM_CMD_HELP:
4842	default:
4843		usage(retval);
4844		break;
4845	}
4846bailout:
4847
4848	if (fd != -1)
4849		close(fd);
4850
4851	exit (retval);
4852}
4853
4854/*
4855 * vim: ts=8
4856 */
4857