ctladm.c revision 273320
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 273320 2014-10-20 08:03:23Z 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	XML_ParserFree(parser);
3647	if (retval != 1) {
3648		retval = 1;
3649		goto bailout;
3650	}
3651
3652	if (verbose != 0) {
3653		STAILQ_FOREACH(conn, &islist.conn_list, links) {
3654			printf("Session ID:       %d\n", conn->connection_id);
3655			printf("Initiator name:   %s\n", conn->initiator);
3656			printf("Initiator portal: %s\n", conn->initiator_addr);
3657			printf("Initiator alias:  %s\n", conn->initiator_alias);
3658			printf("Target name:      %s\n", conn->target);
3659			printf("Target alias:     %s\n", conn->target_alias);
3660			printf("Header digest:    %s\n", conn->header_digest);
3661			printf("Data digest:      %s\n", conn->data_digest);
3662			printf("DataSegmentLen:   %s\n", conn->max_data_segment_length);
3663			printf("ImmediateData:    %s\n", conn->immediate_data ? "Yes" : "No");
3664			printf("iSER (RDMA):      %s\n", conn->iser ? "Yes" : "No");
3665			printf("\n");
3666		}
3667	} else {
3668		printf("%4s %-16s %-36s %-36s\n", "ID", "Portal", "Initiator name",
3669		    "Target name");
3670		STAILQ_FOREACH(conn, &islist.conn_list, links) {
3671			printf("%4u %-16s %-36s %-36s\n",
3672			    conn->connection_id, conn->initiator_addr, conn->initiator,
3673			    conn->target);
3674		}
3675	}
3676bailout:
3677	free(conn_str);
3678
3679	return (retval);
3680}
3681
3682static int
3683cctl_islogout(int fd, int argc, char **argv, char *combinedopt)
3684{
3685	struct ctl_iscsi req;
3686	int retval = 0, c;
3687	int all = 0, connection_id = -1, nargs = 0;
3688	char *initiator_name = NULL, *initiator_addr = NULL;
3689
3690	while ((c = getopt(argc, argv, combinedopt)) != -1) {
3691		switch (c) {
3692		case 'a':
3693			all = 1;
3694			nargs++;
3695			break;
3696		case 'c':
3697			connection_id = strtoul(optarg, NULL, 0);
3698			nargs++;
3699			break;
3700		case 'i':
3701			initiator_name = strdup(optarg);
3702			if (initiator_name == NULL)
3703				err(1, "%s: strdup", __func__);
3704			nargs++;
3705			break;
3706		case 'p':
3707			initiator_addr = strdup(optarg);
3708			if (initiator_addr == NULL)
3709				err(1, "%s: strdup", __func__);
3710			nargs++;
3711			break;
3712		default:
3713			break;
3714		}
3715	}
3716
3717	if (nargs == 0)
3718		errx(1, "%s: either -a, -c, -i, or -p must be specified",
3719		    __func__);
3720	if (nargs > 1)
3721		errx(1, "%s: only one of -a, -c, -i, or -p may be specified",
3722		    __func__);
3723
3724	bzero(&req, sizeof(req));
3725	req.type = CTL_ISCSI_LOGOUT;
3726	req.data.logout.connection_id = connection_id;
3727	if (initiator_addr != NULL)
3728		strlcpy(req.data.logout.initiator_addr,
3729		    initiator_addr, sizeof(req.data.logout.initiator_addr));
3730	if (initiator_name != NULL)
3731		strlcpy(req.data.logout.initiator_name,
3732		    initiator_name, sizeof(req.data.logout.initiator_name));
3733	if (all != 0)
3734		req.data.logout.all = 1;
3735
3736	if (ioctl(fd, CTL_ISCSI, &req) == -1) {
3737		warn("%s: error issuing CTL_ISCSI ioctl", __func__);
3738		retval = 1;
3739		goto bailout;
3740	}
3741
3742	if (req.status != CTL_ISCSI_OK) {
3743		warnx("%s: error returned from CTL iSCSI logout request:\n%s",
3744		      __func__, req.error_str);
3745		retval = 1;
3746		goto bailout;
3747	}
3748
3749	printf("iSCSI logout requests submitted\n");
3750
3751bailout:
3752	return (retval);
3753}
3754
3755static int
3756cctl_isterminate(int fd, int argc, char **argv, char *combinedopt)
3757{
3758	struct ctl_iscsi req;
3759	int retval = 0, c;
3760	int all = 0, connection_id = -1, nargs = 0;
3761	char *initiator_name = NULL, *initiator_addr = NULL;
3762
3763	while ((c = getopt(argc, argv, combinedopt)) != -1) {
3764		switch (c) {
3765		case 'a':
3766			all = 1;
3767			nargs++;
3768			break;
3769		case 'c':
3770			connection_id = strtoul(optarg, NULL, 0);
3771			nargs++;
3772			break;
3773		case 'i':
3774			initiator_name = strdup(optarg);
3775			if (initiator_name == NULL)
3776				err(1, "%s: strdup", __func__);
3777			nargs++;
3778			break;
3779		case 'p':
3780			initiator_addr = strdup(optarg);
3781			if (initiator_addr == NULL)
3782				err(1, "%s: strdup", __func__);
3783			nargs++;
3784			break;
3785		default:
3786			break;
3787		}
3788	}
3789
3790	if (nargs == 0)
3791		errx(1, "%s: either -a, -c, -i, or -p must be specified",
3792		    __func__);
3793	if (nargs > 1)
3794		errx(1, "%s: only one of -a, -c, -i, or -p may be specified",
3795		    __func__);
3796
3797	bzero(&req, sizeof(req));
3798	req.type = CTL_ISCSI_TERMINATE;
3799	req.data.terminate.connection_id = connection_id;
3800	if (initiator_addr != NULL)
3801		strlcpy(req.data.terminate.initiator_addr,
3802		    initiator_addr, sizeof(req.data.terminate.initiator_addr));
3803	if (initiator_name != NULL)
3804		strlcpy(req.data.terminate.initiator_name,
3805		    initiator_name, sizeof(req.data.terminate.initiator_name));
3806	if (all != 0)
3807		req.data.terminate.all = 1;
3808
3809	if (ioctl(fd, CTL_ISCSI, &req) == -1) {
3810		warn("%s: error issuing CTL_ISCSI ioctl", __func__);
3811		retval = 1;
3812		goto bailout;
3813	}
3814
3815	if (req.status != CTL_ISCSI_OK) {
3816		warnx("%s: error returned from CTL iSCSI connection "
3817		    "termination request:\n%s", __func__, req.error_str);
3818		retval = 1;
3819		goto bailout;
3820	}
3821
3822	printf("iSCSI connections terminated\n");
3823
3824bailout:
3825	return (retval);
3826}
3827
3828/*
3829 * Name/value pair used for per-LUN attributes.
3830 */
3831struct cctl_lun_nv {
3832	char *name;
3833	char *value;
3834	STAILQ_ENTRY(cctl_lun_nv) links;
3835};
3836
3837/*
3838 * Backend LUN information.
3839 */
3840struct cctl_lun {
3841	uint64_t lun_id;
3842	char *backend_type;
3843	uint64_t size_blocks;
3844	uint32_t blocksize;
3845	char *serial_number;
3846	char *device_id;
3847	STAILQ_HEAD(,cctl_lun_nv) attr_list;
3848	STAILQ_ENTRY(cctl_lun) links;
3849};
3850
3851struct cctl_devlist_data {
3852	int num_luns;
3853	STAILQ_HEAD(,cctl_lun) lun_list;
3854	struct cctl_lun *cur_lun;
3855	int level;
3856	struct sbuf *cur_sb[32];
3857};
3858
3859static void
3860cctl_start_element(void *user_data, const char *name, const char **attr)
3861{
3862	int i;
3863	struct cctl_devlist_data *devlist;
3864	struct cctl_lun *cur_lun;
3865
3866	devlist = (struct cctl_devlist_data *)user_data;
3867	cur_lun = devlist->cur_lun;
3868	devlist->level++;
3869	if ((u_int)devlist->level >= (sizeof(devlist->cur_sb) /
3870	    sizeof(devlist->cur_sb[0])))
3871		errx(1, "%s: too many nesting levels, %zd max", __func__,
3872		     sizeof(devlist->cur_sb) / sizeof(devlist->cur_sb[0]));
3873
3874	devlist->cur_sb[devlist->level] = sbuf_new_auto();
3875	if (devlist->cur_sb[devlist->level] == NULL)
3876		err(1, "%s: Unable to allocate sbuf", __func__);
3877
3878	if (strcmp(name, "lun") == 0) {
3879		if (cur_lun != NULL)
3880			errx(1, "%s: improper lun element nesting", __func__);
3881
3882		cur_lun = calloc(1, sizeof(*cur_lun));
3883		if (cur_lun == NULL)
3884			err(1, "%s: cannot allocate %zd bytes", __func__,
3885			    sizeof(*cur_lun));
3886
3887		devlist->num_luns++;
3888		devlist->cur_lun = cur_lun;
3889
3890		STAILQ_INIT(&cur_lun->attr_list);
3891		STAILQ_INSERT_TAIL(&devlist->lun_list, cur_lun, links);
3892
3893		for (i = 0; attr[i] != NULL; i += 2) {
3894			if (strcmp(attr[i], "id") == 0) {
3895				cur_lun->lun_id = strtoull(attr[i+1], NULL, 0);
3896			} else {
3897				errx(1, "%s: invalid LUN attribute %s = %s",
3898				     __func__, attr[i], attr[i+1]);
3899			}
3900		}
3901	}
3902}
3903
3904static void
3905cctl_end_element(void *user_data, const char *name)
3906{
3907	struct cctl_devlist_data *devlist;
3908	struct cctl_lun *cur_lun;
3909	char *str;
3910
3911	devlist = (struct cctl_devlist_data *)user_data;
3912	cur_lun = devlist->cur_lun;
3913
3914	if ((cur_lun == NULL)
3915	 && (strcmp(name, "ctllunlist") != 0))
3916		errx(1, "%s: cur_lun == NULL! (name = %s)", __func__, name);
3917
3918	if (devlist->cur_sb[devlist->level] == NULL)
3919		errx(1, "%s: no valid sbuf at level %d (name %s)", __func__,
3920		     devlist->level, name);
3921
3922	if (sbuf_finish(devlist->cur_sb[devlist->level]) != 0)
3923		err(1, "%s: sbuf_finish", __func__);
3924	str = strdup(sbuf_data(devlist->cur_sb[devlist->level]));
3925	if (str == NULL)
3926		err(1, "%s can't allocate %zd bytes for string", __func__,
3927		    sbuf_len(devlist->cur_sb[devlist->level]));
3928
3929	if (strlen(str) == 0) {
3930		free(str);
3931		str = NULL;
3932	}
3933
3934	sbuf_delete(devlist->cur_sb[devlist->level]);
3935	devlist->cur_sb[devlist->level] = NULL;
3936	devlist->level--;
3937
3938	if (strcmp(name, "backend_type") == 0) {
3939		cur_lun->backend_type = str;
3940		str = NULL;
3941	} else if (strcmp(name, "size") == 0) {
3942		cur_lun->size_blocks = strtoull(str, NULL, 0);
3943	} else if (strcmp(name, "blocksize") == 0) {
3944		cur_lun->blocksize = strtoul(str, NULL, 0);
3945	} else if (strcmp(name, "serial_number") == 0) {
3946		cur_lun->serial_number = str;
3947		str = NULL;
3948	} else if (strcmp(name, "device_id") == 0) {
3949		cur_lun->device_id = str;
3950		str = NULL;
3951	} else if (strcmp(name, "lun") == 0) {
3952		devlist->cur_lun = NULL;
3953	} else if (strcmp(name, "ctllunlist") == 0) {
3954
3955	} else {
3956		struct cctl_lun_nv *nv;
3957
3958		nv = calloc(1, sizeof(*nv));
3959		if (nv == NULL)
3960			err(1, "%s: can't allocate %zd bytes for nv pair",
3961			    __func__, sizeof(*nv));
3962
3963		nv->name = strdup(name);
3964		if (nv->name == NULL)
3965			err(1, "%s: can't allocated %zd bytes for string",
3966			    __func__, strlen(name));
3967
3968		nv->value = str;
3969		str = NULL;
3970		STAILQ_INSERT_TAIL(&cur_lun->attr_list, nv, links);
3971	}
3972
3973	free(str);
3974}
3975
3976static void
3977cctl_char_handler(void *user_data, const XML_Char *str, int len)
3978{
3979	struct cctl_devlist_data *devlist;
3980
3981	devlist = (struct cctl_devlist_data *)user_data;
3982
3983	sbuf_bcat(devlist->cur_sb[devlist->level], str, len);
3984}
3985
3986static int
3987cctl_devlist(int fd, int argc, char **argv, char *combinedopt)
3988{
3989	struct ctl_lun_list list;
3990	struct cctl_devlist_data devlist;
3991	struct cctl_lun *lun;
3992	XML_Parser parser;
3993	char *lun_str;
3994	int lun_len;
3995	int dump_xml = 0;
3996	int retval, c;
3997	char *backend = NULL;
3998	int verbose = 0;
3999
4000	retval = 0;
4001	lun_len = 4096;
4002
4003	bzero(&devlist, sizeof(devlist));
4004	STAILQ_INIT(&devlist.lun_list);
4005
4006	while ((c = getopt(argc, argv, combinedopt)) != -1) {
4007		switch (c) {
4008		case 'b':
4009			backend = strdup(optarg);
4010			break;
4011		case 'v':
4012			verbose++;
4013			break;
4014		case 'x':
4015			dump_xml = 1;
4016			break;
4017		default:
4018			break;
4019		}
4020	}
4021
4022retry:
4023	lun_str = malloc(lun_len);
4024
4025	bzero(&list, sizeof(list));
4026	list.alloc_len = lun_len;
4027	list.status = CTL_LUN_LIST_NONE;
4028	list.lun_xml = lun_str;
4029
4030	if (ioctl(fd, CTL_LUN_LIST, &list) == -1) {
4031		warn("%s: error issuing CTL_LUN_LIST ioctl", __func__);
4032		retval = 1;
4033		goto bailout;
4034	}
4035
4036	if (list.status == CTL_LUN_LIST_ERROR) {
4037		warnx("%s: error returned from CTL_LUN_LIST ioctl:\n%s",
4038		      __func__, list.error_str);
4039	} else if (list.status == CTL_LUN_LIST_NEED_MORE_SPACE) {
4040		lun_len = lun_len << 1;
4041		goto retry;
4042	}
4043
4044	if (dump_xml != 0) {
4045		printf("%s", lun_str);
4046		goto bailout;
4047	}
4048
4049	parser = XML_ParserCreate(NULL);
4050	if (parser == NULL) {
4051		warn("%s: Unable to create XML parser", __func__);
4052		retval = 1;
4053		goto bailout;
4054	}
4055
4056	XML_SetUserData(parser, &devlist);
4057	XML_SetElementHandler(parser, cctl_start_element, cctl_end_element);
4058	XML_SetCharacterDataHandler(parser, cctl_char_handler);
4059
4060	retval = XML_Parse(parser, lun_str, strlen(lun_str), 1);
4061	XML_ParserFree(parser);
4062	if (retval != 1) {
4063		retval = 1;
4064		goto bailout;
4065	}
4066
4067	printf("LUN Backend  %18s %4s %-16s %-16s\n", "Size (Blocks)", "BS",
4068	       "Serial Number", "Device ID");
4069	STAILQ_FOREACH(lun, &devlist.lun_list, links) {
4070		struct cctl_lun_nv *nv;
4071
4072		if ((backend != NULL)
4073		 && (strcmp(lun->backend_type, backend) != 0))
4074			continue;
4075
4076		printf("%3ju %-8s %18ju %4u %-16s %-16s\n",
4077		       (uintmax_t)lun->lun_id,
4078		       lun->backend_type, (uintmax_t)lun->size_blocks,
4079		       lun->blocksize, lun->serial_number, lun->device_id);
4080
4081		if (verbose == 0)
4082			continue;
4083
4084		STAILQ_FOREACH(nv, &lun->attr_list, links) {
4085			printf("      %s=%s\n", nv->name, nv->value);
4086		}
4087	}
4088bailout:
4089	free(lun_str);
4090
4091	return (retval);
4092}
4093
4094/*
4095 * Port information.
4096 */
4097struct cctl_port {
4098	uint64_t port_id;
4099	char *online;
4100	char *frontend_type;
4101	char *name;
4102	int pp, vp;
4103	char *target, *port;
4104	STAILQ_HEAD(,cctl_lun_nv) init_list;
4105	STAILQ_HEAD(,cctl_lun_nv) attr_list;
4106	STAILQ_ENTRY(cctl_port) links;
4107};
4108
4109struct cctl_portlist_data {
4110	int num_ports;
4111	STAILQ_HEAD(,cctl_port) port_list;
4112	struct cctl_port *cur_port;
4113	int level;
4114	struct sbuf *cur_sb[32];
4115};
4116
4117static void
4118cctl_start_pelement(void *user_data, const char *name, const char **attr)
4119{
4120	int i;
4121	struct cctl_portlist_data *portlist;
4122	struct cctl_port *cur_port;
4123
4124	portlist = (struct cctl_portlist_data *)user_data;
4125	cur_port = portlist->cur_port;
4126	portlist->level++;
4127	if ((u_int)portlist->level >= (sizeof(portlist->cur_sb) /
4128	    sizeof(portlist->cur_sb[0])))
4129		errx(1, "%s: too many nesting levels, %zd max", __func__,
4130		     sizeof(portlist->cur_sb) / sizeof(portlist->cur_sb[0]));
4131
4132	portlist->cur_sb[portlist->level] = sbuf_new_auto();
4133	if (portlist->cur_sb[portlist->level] == NULL)
4134		err(1, "%s: Unable to allocate sbuf", __func__);
4135
4136	if (strcmp(name, "targ_port") == 0) {
4137		if (cur_port != NULL)
4138			errx(1, "%s: improper port element nesting", __func__);
4139
4140		cur_port = calloc(1, sizeof(*cur_port));
4141		if (cur_port == NULL)
4142			err(1, "%s: cannot allocate %zd bytes", __func__,
4143			    sizeof(*cur_port));
4144
4145		portlist->num_ports++;
4146		portlist->cur_port = cur_port;
4147
4148		STAILQ_INIT(&cur_port->init_list);
4149		STAILQ_INIT(&cur_port->attr_list);
4150		STAILQ_INSERT_TAIL(&portlist->port_list, cur_port, links);
4151
4152		for (i = 0; attr[i] != NULL; i += 2) {
4153			if (strcmp(attr[i], "id") == 0) {
4154				cur_port->port_id = strtoull(attr[i+1], NULL, 0);
4155			} else {
4156				errx(1, "%s: invalid LUN attribute %s = %s",
4157				     __func__, attr[i], attr[i+1]);
4158			}
4159		}
4160	}
4161}
4162
4163static void
4164cctl_end_pelement(void *user_data, const char *name)
4165{
4166	struct cctl_portlist_data *portlist;
4167	struct cctl_port *cur_port;
4168	char *str;
4169
4170	portlist = (struct cctl_portlist_data *)user_data;
4171	cur_port = portlist->cur_port;
4172
4173	if ((cur_port == NULL)
4174	 && (strcmp(name, "ctlportlist") != 0))
4175		errx(1, "%s: cur_port == NULL! (name = %s)", __func__, name);
4176
4177	if (portlist->cur_sb[portlist->level] == NULL)
4178		errx(1, "%s: no valid sbuf at level %d (name %s)", __func__,
4179		     portlist->level, name);
4180
4181	if (sbuf_finish(portlist->cur_sb[portlist->level]) != 0)
4182		err(1, "%s: sbuf_finish", __func__);
4183	str = strdup(sbuf_data(portlist->cur_sb[portlist->level]));
4184	if (str == NULL)
4185		err(1, "%s can't allocate %zd bytes for string", __func__,
4186		    sbuf_len(portlist->cur_sb[portlist->level]));
4187
4188	if (strlen(str) == 0) {
4189		free(str);
4190		str = NULL;
4191	}
4192
4193	sbuf_delete(portlist->cur_sb[portlist->level]);
4194	portlist->cur_sb[portlist->level] = NULL;
4195	portlist->level--;
4196
4197	if (strcmp(name, "frontend_type") == 0) {
4198		cur_port->frontend_type = str;
4199		str = NULL;
4200	} else if (strcmp(name, "port_name") == 0) {
4201		cur_port->name = str;
4202		str = NULL;
4203	} else if (strcmp(name, "online") == 0) {
4204		cur_port->online = str;
4205		str = NULL;
4206	} else if (strcmp(name, "physical_port") == 0) {
4207		cur_port->pp = strtoull(str, NULL, 0);
4208	} else if (strcmp(name, "virtual_port") == 0) {
4209		cur_port->vp = strtoull(str, NULL, 0);
4210	} else if (strcmp(name, "target") == 0) {
4211		cur_port->target = str;
4212		str = NULL;
4213	} else if (strcmp(name, "port") == 0) {
4214		cur_port->port = str;
4215		str = NULL;
4216	} else if (strcmp(name, "targ_port") == 0) {
4217		portlist->cur_port = NULL;
4218	} else if (strcmp(name, "ctlportlist") == 0) {
4219
4220	} else {
4221		struct cctl_lun_nv *nv;
4222
4223		nv = calloc(1, sizeof(*nv));
4224		if (nv == NULL)
4225			err(1, "%s: can't allocate %zd bytes for nv pair",
4226			    __func__, sizeof(*nv));
4227
4228		nv->name = strdup(name);
4229		if (nv->name == NULL)
4230			err(1, "%s: can't allocated %zd bytes for string",
4231			    __func__, strlen(name));
4232
4233		nv->value = str;
4234		str = NULL;
4235		if (strcmp(name, "initiator") == 0)
4236			STAILQ_INSERT_TAIL(&cur_port->init_list, nv, links);
4237		else
4238			STAILQ_INSERT_TAIL(&cur_port->attr_list, nv, links);
4239	}
4240
4241	free(str);
4242}
4243
4244static void
4245cctl_char_phandler(void *user_data, const XML_Char *str, int len)
4246{
4247	struct cctl_portlist_data *portlist;
4248
4249	portlist = (struct cctl_portlist_data *)user_data;
4250
4251	sbuf_bcat(portlist->cur_sb[portlist->level], str, len);
4252}
4253
4254static int
4255cctl_portlist(int fd, int argc, char **argv, char *combinedopt)
4256{
4257	struct ctl_lun_list list;
4258	struct cctl_portlist_data portlist;
4259	struct cctl_port *port;
4260	XML_Parser parser;
4261	char *port_str;
4262	int port_len;
4263	int dump_xml = 0;
4264	int retval, c;
4265	char *frontend = NULL;
4266	uint64_t portarg = UINT64_MAX;
4267	int verbose = 0, init = 0, quiet = 0;
4268
4269	retval = 0;
4270	port_len = 4096;
4271
4272	bzero(&portlist, sizeof(portlist));
4273	STAILQ_INIT(&portlist.port_list);
4274
4275	while ((c = getopt(argc, argv, combinedopt)) != -1) {
4276		switch (c) {
4277		case 'f':
4278			frontend = strdup(optarg);
4279			break;
4280		case 'i':
4281			init++;
4282			break;
4283		case 'p':
4284			portarg = strtoll(optarg, NULL, 0);
4285			break;
4286		case 'q':
4287			quiet++;
4288			break;
4289		case 'v':
4290			verbose++;
4291			break;
4292		case 'x':
4293			dump_xml = 1;
4294			break;
4295		default:
4296			break;
4297		}
4298	}
4299
4300retry:
4301	port_str = malloc(port_len);
4302
4303	bzero(&list, sizeof(list));
4304	list.alloc_len = port_len;
4305	list.status = CTL_LUN_LIST_NONE;
4306	list.lun_xml = port_str;
4307
4308	if (ioctl(fd, CTL_PORT_LIST, &list) == -1) {
4309		warn("%s: error issuing CTL_PORT_LIST ioctl", __func__);
4310		retval = 1;
4311		goto bailout;
4312	}
4313
4314	if (list.status == CTL_LUN_LIST_ERROR) {
4315		warnx("%s: error returned from CTL_PORT_LIST ioctl:\n%s",
4316		      __func__, list.error_str);
4317	} else if (list.status == CTL_LUN_LIST_NEED_MORE_SPACE) {
4318		port_len = port_len << 1;
4319		goto retry;
4320	}
4321
4322	if (dump_xml != 0) {
4323		printf("%s", port_str);
4324		goto bailout;
4325	}
4326
4327	parser = XML_ParserCreate(NULL);
4328	if (parser == NULL) {
4329		warn("%s: Unable to create XML parser", __func__);
4330		retval = 1;
4331		goto bailout;
4332	}
4333
4334	XML_SetUserData(parser, &portlist);
4335	XML_SetElementHandler(parser, cctl_start_pelement, cctl_end_pelement);
4336	XML_SetCharacterDataHandler(parser, cctl_char_phandler);
4337
4338	retval = XML_Parse(parser, port_str, strlen(port_str), 1);
4339	XML_ParserFree(parser);
4340	if (retval != 1) {
4341		retval = 1;
4342		goto bailout;
4343	}
4344
4345	if (quiet == 0)
4346		printf("Port Online Frontend Name     pp vp\n");
4347	STAILQ_FOREACH(port, &portlist.port_list, links) {
4348		struct cctl_lun_nv *nv;
4349
4350		if ((frontend != NULL)
4351		 && (strcmp(port->frontend_type, frontend) != 0))
4352			continue;
4353
4354		if ((portarg != UINT64_MAX) && (portarg != port->port_id))
4355			continue;
4356
4357		printf("%-4ju %-6s %-8s %-8s %-2d %-2d %s\n",
4358		    (uintmax_t)port->port_id, port->online,
4359		    port->frontend_type, port->name, port->pp, port->vp,
4360		    port->port ? port->port : "");
4361
4362		if (init || verbose) {
4363			if (port->target)
4364				printf("  Target: %s\n", port->target);
4365			STAILQ_FOREACH(nv, &port->init_list, links) {
4366				printf("  Initiator: %s\n", nv->value);
4367			}
4368		}
4369
4370		if (verbose) {
4371			STAILQ_FOREACH(nv, &port->attr_list, links) {
4372				printf("      %s=%s\n", nv->name, nv->value);
4373			}
4374		}
4375	}
4376bailout:
4377	free(port_str);
4378
4379	return (retval);
4380}
4381
4382void
4383usage(int error)
4384{
4385	fprintf(error ? stderr : stdout,
4386"Usage:\n"
4387"Primary commands:\n"
4388"         ctladm tur         [dev_id][general options]\n"
4389"         ctladm inquiry     [dev_id][general options]\n"
4390"         ctladm devid       [dev_id][general options]\n"
4391"         ctladm reqsense    [dev_id][general options]\n"
4392"         ctladm reportluns  [dev_id][general options]\n"
4393"         ctladm read        [dev_id][general options] <-l lba> <-d len>\n"
4394"                            <-f file|-> <-b blocksize> [-c cdbsize][-N]\n"
4395"         ctladm write       [dev_id][general options] <-l lba> <-d len>\n"
4396"                            <-f file|-> <-b blocksize> [-c cdbsize][-N]\n"
4397"         ctladm readcap     [dev_id][general options] [-c cdbsize]\n"
4398"         ctladm modesense   [dev_id][general options] <-m page|-l> [-P pc]\n"
4399"                            [-d] [-S subpage] [-c cdbsize]\n"
4400"         ctladm prin        [dev_id][general options] <-a action>\n"
4401"         ctladm prout       [dev_id][general options] <-a action>\n"
4402"                            <-r restype] [-k key] [-s sa_key]\n"
4403"         ctladm rtpg        [dev_id][general options]\n"
4404"         ctladm start       [dev_id][general options] [-i] [-o]\n"
4405"         ctladm stop        [dev_id][general options] [-i] [-o]\n"
4406"         ctladm synccache   [dev_id][general options] [-l lba]\n"
4407"                            [-b blockcount] [-r] [-i] [-c cdbsize]\n"
4408"         ctladm create      <-b backend> [-B blocksize] [-d device_id]\n"
4409"                            [-l lun_id] [-o name=value] [-s size_bytes]\n"
4410"                            [-S serial_num] [-t dev_type]\n"
4411"         ctladm remove      <-b backend> <-l lun_id> [-o name=value]\n"
4412"         ctladm modify      <-b backend> <-l lun_id> <-s size_bytes>\n"
4413"         ctladm devlist     [-b backend] [-v] [-x]\n"
4414"         ctladm shutdown\n"
4415"         ctladm startup\n"
4416"         ctladm hardstop\n"
4417"         ctladm hardstart\n"
4418"         ctladm lunlist\n"
4419"         ctladm bbrread     [dev_id] <-l lba> <-d datalen>\n"
4420"         ctladm delay       [dev_id] <-l datamove|done> [-T oneshot|cont]\n"
4421"                            [-t secs]\n"
4422"         ctladm realsync    <on|off|query>\n"
4423"         ctladm setsync     [dev_id] <-i interval>\n"
4424"         ctladm getsync     [dev_id]\n"
4425"         ctladm inject      [dev_id] <-i action> <-p pattern> [-r lba,len]\n"
4426"                            [-s len fmt [args]] [-c] [-d delete_id]\n"
4427"         ctladm port        <-l | -o <on|off> | [-w wwnn][-W wwpn]>\n"
4428"                            [-p targ_port] [-t port_type] [-q] [-x]\n"
4429"         ctladm portlist    [-f frontend] [-i] [-p targ_port] [-q] [-v] [-x]\n"
4430"         ctladm islist      [-v | -x]\n"
4431"         ctladm islogout    <-a | -c connection-id | -i name | -p portal>\n"
4432"         ctladm isterminate <-a | -c connection-id | -i name | -p portal>\n"
4433"         ctladm dumpooa\n"
4434"         ctladm dumpstructs\n"
4435"         ctladm help\n"
4436"General Options:\n"
4437"-I intiator_id           : defaults to 7, used to change the initiator id\n"
4438"-C retries               : specify the number of times to retry this command\n"
4439"-D devicename            : specify the device to operate on\n"
4440"                         : (default is %s)\n"
4441"read/write options:\n"
4442"-l lba                   : logical block address\n"
4443"-d len                   : read/write length, in blocks\n"
4444"-f file|-                : write/read data to/from file or stdout/stdin\n"
4445"-b blocksize             : block size, in bytes\n"
4446"-c cdbsize               : specify minimum cdb size: 6, 10, 12 or 16\n"
4447"-N                       : do not copy data to/from userland\n"
4448"readcapacity options:\n"
4449"-c cdbsize               : specify minimum cdb size: 10 or 16\n"
4450"modesense options:\n"
4451"-m page                  : specify the mode page to view\n"
4452"-l                       : request a list of supported pages\n"
4453"-P pc                    : specify the page control value: 0-3 (current,\n"
4454"                           changeable, default, saved, respectively)\n"
4455"-d                       : disable block descriptors for mode sense\n"
4456"-S subpage               : specify a subpage\n"
4457"-c cdbsize               : specify minimum cdb size: 6 or 10\n"
4458"persistent reserve in options:\n"
4459"-a action                : specify the action value: 0-2 (read key, read\n"
4460"                           reservation, read capabilities, respectively)\n"
4461"persistent reserve out options:\n"
4462"-a action                : specify the action value: 0-5 (register, reserve,\n"
4463"                           release, clear, preempt, register and ignore)\n"
4464"-k key                   : key value\n"
4465"-s sa_key                : service action value\n"
4466"-r restype               : specify the reservation type: 0-5(wr ex, ex ac,\n"
4467"                           wr ex ro, ex ac ro, wr ex ar, ex ac ar)\n"
4468"start/stop options:\n"
4469"-i                       : set the immediate bit (CTL does not support this)\n"
4470"-o                       : set the on/offline bit\n"
4471"synccache options:\n"
4472"-l lba                   : set the starting LBA\n"
4473"-b blockcount            : set the length to sync in blocks\n"
4474"-r                       : set the relative addressing bit\n"
4475"-i                       : set the immediate bit\n"
4476"-c cdbsize               : specify minimum cdb size: 10 or 16\n"
4477"create options:\n"
4478"-b backend               : backend name (\"block\", \"ramdisk\", etc.)\n"
4479"-B blocksize             : LUN blocksize in bytes (some backends)\n"
4480"-d device_id             : SCSI VPD page 0x83 ID\n"
4481"-l lun_id                : requested LUN number\n"
4482"-o name=value            : backend-specific options, multiple allowed\n"
4483"-s size_bytes            : LUN size in bytes (some backends)\n"
4484"-S serial_num            : SCSI VPD page 0x80 serial number\n"
4485"-t dev_type              : SCSI device type (0=disk, 3=processor)\n"
4486"remove options:\n"
4487"-b backend               : backend name (\"block\", \"ramdisk\", etc.)\n"
4488"-l lun_id                : LUN number to delete\n"
4489"-o name=value            : backend-specific options, multiple allowed\n"
4490"devlist options:\n"
4491"-b backend               : list devices from specified backend only\n"
4492"-v                       : be verbose, show backend attributes\n"
4493"-x                       : dump raw XML\n"
4494"delay options:\n"
4495"-l datamove|done         : delay command at datamove or done phase\n"
4496"-T oneshot               : delay one command, then resume normal completion\n"
4497"-T cont                  : delay all commands\n"
4498"-t secs                  : number of seconds to delay\n"
4499"inject options:\n"
4500"-i error_action          : action to perform\n"
4501"-p pattern               : command pattern to look for\n"
4502"-r lba,len               : LBA range for pattern\n"
4503"-s len fmt [args]        : sense data for custom sense action\n"
4504"-c                       : continuous operation\n"
4505"-d delete_id             : error id to delete\n"
4506"port options:\n"
4507"-l                       : list frontend ports\n"
4508"-o on|off                : turn frontend ports on or off\n"
4509"-w wwnn                  : set WWNN for one frontend\n"
4510"-W wwpn                  : set WWPN for one frontend\n"
4511"-t port_type             : specify fc, scsi, ioctl, internal frontend type\n"
4512"-p targ_port             : specify target port number\n"
4513"-q                       : omit header in list output\n"
4514"-x                       : output port list in XML format\n"
4515"portlist options:\n"
4516"-f fronetnd              : specify frontend type\n"
4517"-i                       : report target and initiators addresses\n"
4518"-p targ_port             : specify target port number\n"
4519"-q                       : omit header in list output\n"
4520"-v                       : verbose output (report all port options)\n"
4521"-x                       : output port list in XML format\n"
4522"bbrread options:\n"
4523"-l lba                   : starting LBA\n"
4524"-d datalen               : length, in bytes, to read\n",
4525CTL_DEFAULT_DEV);
4526}
4527
4528int
4529main(int argc, char **argv)
4530{
4531	int c;
4532	ctladm_cmdfunction command;
4533	ctladm_cmdargs cmdargs;
4534	ctladm_optret optreturn;
4535	char *device;
4536	const char *mainopt = "C:D:I:";
4537	const char *subopt = NULL;
4538	char combinedopt[256];
4539	int target, lun;
4540	int optstart = 2;
4541	int retval, fd;
4542	int retries;
4543	int initid;
4544	int saved_errno;
4545
4546	retval = 0;
4547	cmdargs = CTLADM_ARG_NONE;
4548	command = CTLADM_CMD_HELP;
4549	device = NULL;
4550	fd = -1;
4551	retries = 0;
4552	target = 0;
4553	lun = 0;
4554	initid = 7;
4555
4556	if (argc < 2) {
4557		usage(1);
4558		retval = 1;
4559		goto bailout;
4560	}
4561
4562	/*
4563	 * Get the base option.
4564	 */
4565	optreturn = getoption(option_table,argv[1], &command, &cmdargs,&subopt);
4566
4567	if (optreturn == CC_OR_AMBIGUOUS) {
4568		warnx("ambiguous option %s", argv[1]);
4569		usage(0);
4570		exit(1);
4571	} else if (optreturn == CC_OR_NOT_FOUND) {
4572		warnx("option %s not found", argv[1]);
4573		usage(0);
4574		exit(1);
4575	}
4576
4577	if (cmdargs & CTLADM_ARG_NEED_TL) {
4578	 	if ((argc < 3)
4579		 || (!isdigit(argv[2][0]))) {
4580			warnx("option %s requires a target:lun argument",
4581			      argv[1]);
4582			usage(0);
4583			exit(1);
4584		}
4585		retval = cctl_parse_tl(argv[2], &target, &lun);
4586		if (retval != 0)
4587			errx(1, "invalid target:lun argument %s", argv[2]);
4588
4589		cmdargs |= CTLADM_ARG_TARG_LUN;
4590		optstart++;
4591	}
4592
4593	/*
4594	 * Ahh, getopt(3) is a pain.
4595	 *
4596	 * This is a gross hack.  There really aren't many other good
4597	 * options (excuse the pun) for parsing options in a situation like
4598	 * this.  getopt is kinda braindead, so you end up having to run
4599	 * through the options twice, and give each invocation of getopt
4600	 * the option string for the other invocation.
4601	 *
4602	 * You would think that you could just have two groups of options.
4603	 * The first group would get parsed by the first invocation of
4604	 * getopt, and the second group would get parsed by the second
4605	 * invocation of getopt.  It doesn't quite work out that way.  When
4606	 * the first invocation of getopt finishes, it leaves optind pointing
4607	 * to the argument _after_ the first argument in the second group.
4608	 * So when the second invocation of getopt comes around, it doesn't
4609	 * recognize the first argument it gets and then bails out.
4610	 *
4611	 * A nice alternative would be to have a flag for getopt that says
4612	 * "just keep parsing arguments even when you encounter an unknown
4613	 * argument", but there isn't one.  So there's no real clean way to
4614	 * easily parse two sets of arguments without having one invocation
4615	 * of getopt know about the other.
4616	 *
4617	 * Without this hack, the first invocation of getopt would work as
4618	 * long as the generic arguments are first, but the second invocation
4619	 * (in the subfunction) would fail in one of two ways.  In the case
4620	 * where you don't set optreset, it would fail because optind may be
4621	 * pointing to the argument after the one it should be pointing at.
4622	 * In the case where you do set optreset, and reset optind, it would
4623	 * fail because getopt would run into the first set of options, which
4624	 * it doesn't understand.
4625	 *
4626	 * All of this would "sort of" work if you could somehow figure out
4627	 * whether optind had been incremented one option too far.  The
4628	 * mechanics of that, however, are more daunting than just giving
4629	 * both invocations all of the expect options for either invocation.
4630	 *
4631	 * Needless to say, I wouldn't mind if someone invented a better
4632	 * (non-GPL!) command line parsing interface than getopt.  I
4633	 * wouldn't mind if someone added more knobs to getopt to make it
4634	 * work better.  Who knows, I may talk myself into doing it someday,
4635	 * if the standards weenies let me.  As it is, it just leads to
4636	 * hackery like this and causes people to avoid it in some cases.
4637	 *
4638	 * KDM, September 8th, 1998
4639	 */
4640	if (subopt != NULL)
4641		sprintf(combinedopt, "%s%s", mainopt, subopt);
4642	else
4643		sprintf(combinedopt, "%s", mainopt);
4644
4645	/*
4646	 * Start getopt processing at argv[2/3], since we've already
4647	 * accepted argv[1..2] as the command name, and as a possible
4648	 * device name.
4649	 */
4650	optind = optstart;
4651
4652	/*
4653	 * Now we run through the argument list looking for generic
4654	 * options, and ignoring options that possibly belong to
4655	 * subfunctions.
4656	 */
4657	while ((c = getopt(argc, argv, combinedopt))!= -1){
4658		switch (c) {
4659		case 'C':
4660			cmdargs |= CTLADM_ARG_RETRIES;
4661			retries = strtol(optarg, NULL, 0);
4662			break;
4663		case 'D':
4664			device = strdup(optarg);
4665			cmdargs |= CTLADM_ARG_DEVICE;
4666			break;
4667		case 'I':
4668			cmdargs |= CTLADM_ARG_INITIATOR;
4669			initid = strtol(optarg, NULL, 0);
4670			break;
4671		default:
4672			break;
4673		}
4674	}
4675
4676	if ((cmdargs & CTLADM_ARG_INITIATOR) == 0)
4677		initid = 7;
4678
4679	optind = optstart;
4680	optreset = 1;
4681
4682	/*
4683	 * Default to opening the CTL device for now.
4684	 */
4685	if (((cmdargs & CTLADM_ARG_DEVICE) == 0)
4686	 && (command != CTLADM_CMD_HELP)) {
4687		device = strdup(CTL_DEFAULT_DEV);
4688		cmdargs |= CTLADM_ARG_DEVICE;
4689	}
4690
4691	if ((cmdargs & CTLADM_ARG_DEVICE)
4692	 && (command != CTLADM_CMD_HELP)) {
4693		fd = open(device, O_RDWR);
4694		if (fd == -1 && errno == ENOENT) {
4695			saved_errno = errno;
4696			retval = kldload("ctl");
4697			if (retval != -1)
4698				fd = open(device, O_RDWR);
4699			else
4700				errno = saved_errno;
4701		}
4702		if (fd == -1) {
4703			fprintf(stderr, "%s: error opening %s: %s\n",
4704				argv[0], device, strerror(errno));
4705			retval = 1;
4706			goto bailout;
4707		}
4708	} else if ((command != CTLADM_CMD_HELP)
4709		&& ((cmdargs & CTLADM_ARG_DEVICE) == 0)) {
4710		fprintf(stderr, "%s: you must specify a device with the "
4711			"--device argument for this command\n", argv[0]);
4712		command = CTLADM_CMD_HELP;
4713		retval = 1;
4714	}
4715
4716	switch (command) {
4717	case CTLADM_CMD_TUR:
4718		retval = cctl_tur(fd, target, lun, initid, retries);
4719		break;
4720	case CTLADM_CMD_INQUIRY:
4721		retval = cctl_inquiry(fd, target, lun, initid, retries);
4722		break;
4723	case CTLADM_CMD_REQ_SENSE:
4724		retval = cctl_req_sense(fd, target, lun, initid, retries);
4725		break;
4726	case CTLADM_CMD_REPORT_LUNS:
4727		retval = cctl_report_luns(fd, target, lun, initid, retries);
4728		break;
4729	case CTLADM_CMD_CREATE:
4730		retval = cctl_create_lun(fd, argc, argv, combinedopt);
4731		break;
4732	case CTLADM_CMD_RM:
4733		retval = cctl_rm_lun(fd, argc, argv, combinedopt);
4734		break;
4735	case CTLADM_CMD_DEVLIST:
4736		retval = cctl_devlist(fd, argc, argv, combinedopt);
4737		break;
4738	case CTLADM_CMD_READ:
4739	case CTLADM_CMD_WRITE:
4740		retval = cctl_read_write(fd, target, lun, initid, retries,
4741					 argc, argv, combinedopt, command);
4742		break;
4743	case CTLADM_CMD_PORT:
4744		retval = cctl_port(fd, argc, argv, combinedopt);
4745		break;
4746	case CTLADM_CMD_PORTLIST:
4747		retval = cctl_portlist(fd, argc, argv, combinedopt);
4748		break;
4749	case CTLADM_CMD_READCAPACITY:
4750		retval = cctl_read_capacity(fd, target, lun, initid, retries,
4751					    argc, argv, combinedopt);
4752		break;
4753	case CTLADM_CMD_MODESENSE:
4754		retval = cctl_mode_sense(fd, target, lun, initid, retries,
4755					 argc, argv, combinedopt);
4756		break;
4757	case CTLADM_CMD_START:
4758	case CTLADM_CMD_STOP:
4759		retval = cctl_start_stop(fd, target, lun, initid, retries,
4760					 (command == CTLADM_CMD_START) ? 1 : 0,
4761					 argc, argv, combinedopt);
4762		break;
4763	case CTLADM_CMD_SYNC_CACHE:
4764		retval = cctl_sync_cache(fd, target, lun, initid, retries,
4765					 argc, argv, combinedopt);
4766		break;
4767	case CTLADM_CMD_SHUTDOWN:
4768	case CTLADM_CMD_STARTUP:
4769		retval = cctl_startup_shutdown(fd, target, lun, initid,
4770					       command);
4771		break;
4772	case CTLADM_CMD_HARDSTOP:
4773	case CTLADM_CMD_HARDSTART:
4774		retval = cctl_hardstopstart(fd, command);
4775		break;
4776	case CTLADM_CMD_BBRREAD:
4777		retval = cctl_bbrread(fd, target, lun, initid, argc, argv,
4778				      combinedopt);
4779		break;
4780	case CTLADM_CMD_LUNLIST:
4781		retval = cctl_lunlist(fd);
4782		break;
4783	case CTLADM_CMD_DELAY:
4784		retval = cctl_delay(fd, target, lun, argc, argv, combinedopt);
4785		break;
4786	case CTLADM_CMD_REALSYNC:
4787		retval = cctl_realsync(fd, argc, argv);
4788		break;
4789	case CTLADM_CMD_SETSYNC:
4790	case CTLADM_CMD_GETSYNC:
4791		retval = cctl_getsetsync(fd, target, lun, command,
4792					 argc, argv, combinedopt);
4793		break;
4794	case CTLADM_CMD_ERR_INJECT:
4795		retval = cctl_error_inject(fd, target, lun, argc, argv,
4796					   combinedopt);
4797		break;
4798	case CTLADM_CMD_DUMPOOA:
4799		retval = cctl_dump_ooa(fd, argc, argv);
4800		break;
4801	case CTLADM_CMD_DUMPSTRUCTS:
4802		retval = cctl_dump_structs(fd, cmdargs);
4803		break;
4804	case CTLADM_CMD_PRES_IN:
4805		retval = cctl_persistent_reserve_in(fd, target, lun, initid,
4806		                                    argc, argv, combinedopt,
4807						    retries);
4808		break;
4809	case CTLADM_CMD_PRES_OUT:
4810		retval = cctl_persistent_reserve_out(fd, target, lun, initid,
4811						     argc, argv, combinedopt,
4812						     retries);
4813		break;
4814	case CTLADM_CMD_INQ_VPD_DEVID:
4815	        retval = cctl_inquiry_vpd_devid(fd, target, lun, initid);
4816		break;
4817	case CTLADM_CMD_RTPG:
4818	        retval = cctl_report_target_port_group(fd, target, lun, initid);
4819		break;
4820	case CTLADM_CMD_MODIFY:
4821	        retval = cctl_modify_lun(fd, argc, argv, combinedopt);
4822		break;
4823	case CTLADM_CMD_ISLIST:
4824	        retval = cctl_islist(fd, argc, argv, combinedopt);
4825		break;
4826	case CTLADM_CMD_ISLOGOUT:
4827	        retval = cctl_islogout(fd, argc, argv, combinedopt);
4828		break;
4829	case CTLADM_CMD_ISTERMINATE:
4830	        retval = cctl_isterminate(fd, argc, argv, combinedopt);
4831		break;
4832	case CTLADM_CMD_HELP:
4833	default:
4834		usage(retval);
4835		break;
4836	}
4837bailout:
4838
4839	if (fd != -1)
4840		close(fd);
4841
4842	exit (retval);
4843}
4844
4845/*
4846 * vim: ts=8
4847 */
4848