/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */

/*
 * Copyright (c) 2010, Oracle and/or its affiliates. All rights reserved.
 */

#include <stdio.h>
#include <door.h>
#include <errno.h>
#include <strings.h>
#include <sys/mman.h>
#include <libdladm.h>
#include <libdlib.h>
#include <libdllink.h>

extern dladm_status_t	dladm_door_fd(dladm_handle_t, int *);

static dladm_status_t
ibd_dladm_door_call(dladm_handle_t handle, void *arg, size_t asize, void *rbuf,
    size_t rsize)
{
	door_arg_t	darg;
	int		door_fd;
	dladm_status_t	status = DLADM_STATUS_OK;

	darg.data_ptr	= arg;
	darg.data_size	= asize;
	darg.desc_ptr	= NULL;
	darg.desc_num	= 0;
	darg.rbuf	= rbuf;
	darg.rsize	= rsize;

	/* The door descriptor is opened if it isn't already */
	if ((status = dladm_door_fd(handle, &door_fd)) != DLADM_STATUS_OK)
		return (status);

	if (door_call(door_fd, &darg) == -1)
		return (DLADM_STATUS_FAILED);

	if (darg.rbuf != rbuf) {
		/*
		 * The size of the input rbuf is not big enough so that
		 * the door allocate the rbuf itself. In this case, simply
		 * think something wrong with the door call.
		 */
		(void) munmap(darg.rbuf, darg.rsize);
		return (DLADM_STATUS_TOOSMALL);
	}

	if (darg.rsize != rsize)
		return (DLADM_STATUS_FAILED);

	if ((((dlmgmt_retval_t *)rbuf)->lr_err) == 0)
		return (DLADM_STATUS_OK);
	else
		return (DLADM_STATUS_FAILED);
}

static int
ibd_delete_link(dladm_handle_t dlh, char *link)
{
	dlmgmt_door_getlinkid_t		getlinkid;
	dlmgmt_getlinkid_retval_t	retval;
	datalink_id_t			linkid;
	dladm_status_t			status;
	char				errmsg[DLADM_STRSIZE];

	getlinkid.ld_cmd = DLMGMT_CMD_GETLINKID;
	(void) strlcpy(getlinkid.ld_link, link, MAXLINKNAMELEN);

	if ((status = ibd_dladm_door_call(dlh, &getlinkid, sizeof (getlinkid),
	    &retval, sizeof (retval))) != DLADM_STATUS_OK) {
		(void) fprintf(stderr,
		    "dladm_door_call failed: %s; linkname = %s\n",
		    dladm_status2str(status, errmsg), link);
		return (status);
	}

	if (retval.lr_class != DATALINK_CLASS_PHYS) {
		(void) fprintf(stderr,
		    "Not a physical link: linkname = %s, class = 0x%x\n",
		    link, (uint_t)retval.lr_class);
		return (status);
	}

	linkid = retval.lr_linkid;

	if ((status = dladm_remove_conf(dlh, linkid)) != DLADM_STATUS_OK) {
		(void) fprintf(stderr, "dladm_remove_conf failed: %s\n",
		    dladm_status2str(status, errmsg));
		return (status);
	}

	if ((status = dladm_destroy_datalink_id(dlh, linkid,
	    DLADM_OPT_ACTIVE | DLADM_OPT_PERSIST)) != DLADM_STATUS_OK) {
		(void) fprintf(stderr, "dladm_destroy_datalink_id failed: %s\n",
		    dladm_status2str(status, errmsg));
	}

	return (status);
}

int
main(int argc, char *argv[])
{
	dladm_handle_t	dlh;
	int		i;
	dladm_status_t	status;
	char		errmsg[DLADM_STRSIZE];

	if (argc < 2) {
		(void) fprintf(stderr,
		    "Usage: ibd_delete_link linkname ...\n");
		return (2);
	}

	if ((status = dladm_open(&dlh)) != DLADM_STATUS_OK) {
		(void) fprintf(stderr, "Failed to open dladm handle: %s\n",
		    dladm_status2str(status, errmsg));
		return (1);
	}

	for (i = 1; i < argc; i++) {
		if (ibd_delete_link(dlh, argv[i]) != DLADM_STATUS_OK) {
			dladm_close(dlh);
			return (1);
		}
	}

	dladm_close(dlh);
	return (0);
}