/*
 * udev_volume_id - udev callout to read filesystem label and uuid
 *
 * Copyright (C) 2004 Kay Sievers <kay.sievers@vrfy.org>
 *
 *	sample udev rule for creation of a symlink with the filsystem uuid:
 *	KERNEL="sd*", PROGRAM="/sbin/udev_volume_id -u", SYMLINK="%c"
 *
 *	This program is free software; you can redistribute it and/or modify it
 *	under the terms of the GNU General Public License as published by the
 *	Free Software Foundation version 2 of the License.
 * 
 *	This program 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
 *	General Public License for more details.
 * 
 *	You should have received a copy of the GNU General Public License along
 *	with this program; if not, write to the Free Software Foundation, Inc.,
 *	675 Mass Ave, Cambridge, MA 02139, USA.
 *
 */

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <ctype.h>
#include <sys/ioctl.h>

#include "../../libsysfs/sysfs/libsysfs.h"
#include "../../udev_lib.h"
#include "../../logging.h"
#include "volume_id.h"
#include "dasdlabel.h"

#define BLKGETSIZE64 _IOR(0x12,114,size_t)

#ifdef LOG
unsigned char logname[LOGNAME_SIZE];
void log_message(int level, const char *format, ...)
{
	va_list args;

	va_start(args, format);
	vsyslog(level, format, args);
	va_end(args);
}
#endif

static struct volume_id *open_classdev(struct sysfs_class_device *class_dev)
{
	struct volume_id *vid;
	struct sysfs_attribute *attr;
	int major, minor;

	attr = sysfs_get_classdev_attr(class_dev, "dev");

	if (attr == NULL) {
		printf("error reading 'dev' attribute\n");
		return NULL;
	}

	if (sscanf(attr->value, "%u:%u", &major, &minor) != 2) {
		printf("error getting major/minor number\n");
		return NULL;
	}

	vid = volume_id_open_dev_t(makedev(major, minor));
	if (vid == NULL) {
		printf("error open volume\n");
		return NULL;
	}

	return vid;
}

static char *usage_id_name(enum volume_id_usage usage)
{
	switch(usage) {
	case VOLUME_ID_UNUSED:
		return "unused";
	case VOLUME_ID_UNPROBED:
		return "unprobed";
	case VOLUME_ID_OTHER:
		return "other";
	case VOLUME_ID_PARTITIONTABLE:
		return "partitiontable";
	case VOLUME_ID_FILESYSTEM:
		return "filesystem";
	case VOLUME_ID_RAID:
		return "raid";
	default:
		return "unknown type_id";
	}
}

int main(int argc, char *argv[])
{
	const char help[] = "usage: udev_volume_id [-t|-l|-u|-d]\n"
			    "       -t filesystem type\n"
			    "       -l filesystem label\n"
			    "       -u filesystem uuid\n"
			    "       -d disk label from main device\n"
			    "\n";
	static const char short_options[] = "htlud";
	char sysfs_path[SYSFS_PATH_MAX];
	char dev_path[SYSFS_PATH_MAX];
	struct sysfs_class_device *class_dev = NULL;
	struct sysfs_class_device *class_dev_parent = NULL;
	struct volume_id *vid = NULL;
	char *devpath;
	char probe = 'p';
	char print = 'a';
	char dasd_label[7];
	static char name[VOLUME_ID_LABEL_SIZE];
	int len, i, j;
	unsigned long long size;
	int rc = 1;

	while (1) {
		int option;

		option = getopt(argc, argv, short_options);
		if (option == -1)
			break;

		switch (option) {
		case 't':
			print = 't';
			continue;
		case 'l':
			print = 'l';
			continue;
		case 'u':
			print = 'u';
			continue;
		case 'd':
			probe = 'd';
			continue;
		case 'h':
		case '?':
		default:
			printf(help);
			exit(1);
		}
	}

	devpath = getenv("DEVPATH");
	if (devpath == NULL) {
		printf("error DEVPATH empty\n");
		goto exit;
	}

	if (sysfs_get_mnt_path(sysfs_path, SYSFS_PATH_MAX) != 0) {
		printf("error getting sysfs mount path\n");
		goto exit;
	}

	strfieldcpy(dev_path, sysfs_path);
	strfieldcat(dev_path, devpath);

	class_dev = sysfs_open_class_device_path(dev_path);
	if (class_dev == NULL) {
		printf("error getting class device\n");
		goto exit;
	}

	switch(probe) {
	case 'p' :
		/* open block device */
		vid = open_classdev(class_dev);
		if (vid == NULL)
			goto exit;

		if (ioctl(vid->fd, BLKGETSIZE64, &size) != 0)
			size = 0;

		if (volume_id_probe(vid, VOLUME_ID_ALL, 0, size) == 0)
			goto print;
		break;
	case 'd' :
		/* if we are on a partition, open main block device instead */
		class_dev_parent = sysfs_get_classdev_parent(class_dev);
		if (class_dev_parent != NULL)
			vid = open_classdev(class_dev_parent);
		else
			vid = open_classdev(class_dev_parent);
		if (vid == NULL)
			goto exit;

		if (probe_ibm_partition(vid->fd, dasd_label) == 0) {
			vid->type = "dasd";
			strncpy(vid->label, dasd_label, 6);
			vid->label[6] = '\0';
			goto print;
		}
		break;
	}

	printf("unknown volume type\n");
	goto exit;


print:
	len = strnlen(vid->label, VOLUME_ID_LABEL_SIZE);

	/* remove trailing spaces */
	while (len > 0 && isspace(vid->label[len-1]))
		len--;
	name[len] = '\0';

	/* substitute chars */
	i = 0;
	j = 0;
	while (j < len) {
		switch(vid->label[j]) {
		case '/' :
			break;
		case ' ' :
			name[i++] = '_';
			break;
		default :
			name[i++] = vid->label[j];
		}
		j++;
	}
	name[i] = '\0';

	switch (print) {
	case 't':
		printf("%s\n", vid->type);
		break;
	case 'l':
		if (name[0] == '\0' || vid->usage_id != VOLUME_ID_FILESYSTEM) {
			rc = 2;
			goto exit;
		}
		printf("%s\n", name);
		break;
	case 'u':
		if (vid->uuid[0] == '\0' || vid->usage_id != VOLUME_ID_FILESYSTEM) {
			rc = 2;
			goto exit;
		}
		printf("%s\n", vid->uuid);
		break;
	case 'a':
		printf("F:%s\n", usage_id_name(vid->usage_id));
		printf("T:%s\n", vid->type);
		printf("V:%s\n", vid->type_version);
		printf("L:%s\n", vid->label);
		printf("N:%s\n", name);
		printf("U:%s\n", vid->uuid);
	}
	rc = 0;

exit:
	if (class_dev != NULL)
		sysfs_close_class_device(class_dev);
	if (vid != NULL)
		volume_id_close(vid);

	exit(rc);
}