/*
    Activate the smartcard interface on the kobil midentity usb device
    Copyright (C) 2006  Norbert Federa <norbert.federa@neoware.com>

    This program is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 of the License, or (at your option) any later version.

    This library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Lesser General Public License for more details.

	You should have received a copy of the GNU Lesser General Public License
	along with this library; if not, write to the Free Software Foundation,
	Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301 USA

Author:	Norbert Federa <norbert.federa@neoware.com>
Date:   2006-04-06


Description:

This tool is needed to activate the smartcard interface on the kobil midentity
usb device (vendor 0x04D6 id 0x4081)

Kobil's own implementation was a kernel usb driver which did just send a
libusb_control_transfer in the probe routine.

We do the same via libusb and call this program from our /sbin/hotblug script
if the mIDentity gets added.

The kobil switcher driver was found inside this zip ...
http://www.kobil.com/download/partner/KOBIL_mIDentity_SDK_Build_20060320_RELEASE.zip
... under Interfaces/Linux/module_with_binary_final.tar.gz.

Here the interesting part of the kernel driver inside the probe function:

        if (dev->descriptor.idVendor == KOBIL_VENDOR_ID){
                printk("!!!!! DEVICE FOUND !!! !\n");
		ret = libusb_control_transfer(dev,
		send_pipe,
		0x09,
		0x22,
		0x0200,
		0x0001,
		switchCmd,
		sizeof(switchCmd),
		5000);
	}

Initally the it did not work with libusb because the ioctl gets ignored with
the used RequestType of 0x22 in combination with index 0x0001, but index 0x0002
worked.  See usb/devio.c functions  proc_control() ->  check_ctrlrecip() ->
findintfep() in order to understand why.
*/

#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <stdlib.h>
#include <libusb.h>
#include <errno.h>

#include "config.h"

#define KOBIL_VENDOR_ID		0x0D46
#define MID_DEVICE_ID		0x4081
#define KOBIL_TIMEOUT		5000
#define VAL_STARTUP_4080        1
#define VAL_STARTUP_4000        2
#define VAL_STARTUP_4020        3
#define VAL_STARTUP_40A0        4
#define HIDCMD_SWITCH_DEVICE    0x0004

#define bmRequestType           0x22
#define bRequest                0x09
#define wValue                  0x0200
#define wIndex                  0x0002  /* this was originally 0x0001 */


static int kobil_midentity_control_msg(libusb_device_handle *usb)
{
	int ret;

	unsigned char switchCmd[10];

	unsigned char Sleep = 1;
	unsigned char hardDisk = 1;

	unsigned char param = ((hardDisk) << 4) | (Sleep);

	memset(switchCmd, 0x0, sizeof(switchCmd));
	switchCmd[0] = HIDCMD_SWITCH_DEVICE >> 8;
	switchCmd[1] = HIDCMD_SWITCH_DEVICE;
	switchCmd[5] = VAL_STARTUP_4000;
	switchCmd[9] = param;

	ret = libusb_control_transfer(usb, bmRequestType, bRequest, wValue, wIndex,
			switchCmd, sizeof(switchCmd), KOBIL_TIMEOUT);

	return(!(ret==sizeof(switchCmd)));
}


static int kobil_midentity_claim_interface(libusb_device_handle *usb, int ifnum)
{
	int rv;

	printf("claiming interface #%d ... ", ifnum);
	rv = libusb_claim_interface(usb, ifnum);
	if (rv == 0)
	{
		printf("success\n");
		return rv;
	}
	else
		printf("failed\n");

	printf("failed with error %d, trying to detach kernel driver ....\n", rv);
	rv = libusb_detach_kernel_driver(usb, ifnum);
	if (rv == 0)
	{
		printf("success, claiming interface again ...");
		rv = libusb_claim_interface(usb, ifnum);
		if (rv == 0)
		{
			printf("success\n");
			return rv;
		}
		else
			printf("failed\n");
	}

	printf("failed with error %d, giving up.\n", rv);
	return rv;
}


int main(int argc, char *argv[])
{
	libusb_device **devs, *dev;
	libusb_device *found_dev = NULL;
	struct libusb_device_handle *usb = NULL;
	int rv, i;
	ssize_t cnt;

	(void)argc;
	(void)argv;

	rv = libusb_init(NULL);
	if (rv < 0)
	{
		(void)printf("libusb_init() failed\n");
		return rv;
	}

	cnt = libusb_get_device_list(NULL, &devs);
	if (cnt < 0)
	{
		(void)printf("libusb_get_device_list() failed\n");
		return (int)cnt;
	}

	/* for every device */
	i = 0;
	while ((dev = devs[i++]) != NULL)
	{
		struct libusb_device_descriptor desc;

		rv = libusb_get_device_descriptor(dev, &desc);
		if (rv < 0) {
			(void)printf("failed to get device descriptor\n");
			continue;
		}

		printf("vendor/product: %04X %04X\n", desc.idVendor, desc.idProduct);
		if (desc.idVendor == KOBIL_VENDOR_ID && desc.idProduct == MID_DEVICE_ID)
			found_dev = dev;
	}

	if (found_dev == NULL)
	{
		printf("device not found. aborting.\n");
		if (0 != geteuid())
			printf("Try to rerun this program as root.\n");
		exit(1);
	}

	printf("Device found, opening ... ");
	rv = libusb_open(found_dev, &usb);
	if (rv < 0)
	{
		printf("failed, aborting.\n");
		exit(2);
	}
	printf("success\n");

	rv = kobil_midentity_claim_interface(usb, 0);
	if (rv < 0)
	{
		libusb_close(usb);
		exit(3);
	}

	rv = kobil_midentity_claim_interface(usb, 1);
	if (rv < 0)
	{
		libusb_close(usb);
		exit(3);
	}

	printf("Activating the CCID configuration .... ");
	rv = kobil_midentity_control_msg(usb);
	if (rv == 0)
		printf("success\n");
	else
		printf("failed with error %d, giving up.\n", rv);

	libusb_close(usb);

	return 0;
}