[linux-2.6-block.git] / drivers / isdn / divert / divert_procfs.c

/* $Id: divert_procfs.c,v 1.11.6.2 2001/09/23 22:24:36 kai Exp $
 *
 * Filesystem handling for the diversion supplementary services.
 *
 * Copyright 1998       by Werner Cornelius (werner@isdn4linux.de)
 *
 * This software may be used and distributed according to the terms
 * of the GNU General Public License, incorporated herein by reference.
 *
 */

#include <linux/module.h>
#include <linux/poll.h>
#include <linux/slab.h>
#ifdef CONFIG_PROC_FS
#include <linux/proc_fs.h>
#else
#include <linux/fs.h>
#endif
#include <linux/sched.h>
#include <linux/isdnif.h>
#include <net/net_namespace.h>
#include <linux/mutex.h>
#include "isdn_divert.h"


/*********************************/
/* Variables for interface queue */
/*********************************/
ulong if_used = 0;		/* number of interface users */
static DEFINE_MUTEX(isdn_divert_mutex);
static struct divert_info *divert_info_head = NULL;	/* head of queue */
static struct divert_info *divert_info_tail = NULL;	/* pointer to last entry */
static DEFINE_SPINLOCK(divert_info_lock);/* lock for queue */
static wait_queue_head_t rd_queue;

/*********************************/
/* put an info buffer into queue */
/*********************************/
void
put_info_buffer(char *cp)
{
	struct divert_info *ib;
	unsigned long flags;

	if (if_used <= 0)
		return;
	if (!cp)
		return;
	if (!*cp)
		return;
	if (!(ib = kmalloc(sizeof(struct divert_info) + strlen(cp), GFP_ATOMIC)))
		return;	/* no memory */
	strcpy(ib->info_start, cp);	/* set output string */
	ib->next = NULL;
	spin_lock_irqsave(&divert_info_lock, flags);
	ib->usage_cnt = if_used;
	if (!divert_info_head)
		divert_info_head = ib;	/* new head */
	else
		divert_info_tail->next = ib;	/* follows existing messages */
	divert_info_tail = ib;	/* new tail */

	/* delete old entrys */
	while (divert_info_head->next) {
		if ((divert_info_head->usage_cnt <= 0) &&
		    (divert_info_head->next->usage_cnt <= 0)) {
			ib = divert_info_head;
			divert_info_head = divert_info_head->next;
			kfree(ib);
		} else
			break;
	}			/* divert_info_head->next */
	spin_unlock_irqrestore(&divert_info_lock, flags);
	wake_up_interruptible(&(rd_queue));
}				/* put_info_buffer */

#ifdef CONFIG_PROC_FS

/**********************************/
/* deflection device read routine */
/**********************************/
static ssize_t
isdn_divert_read(struct file *file, char __user *buf, size_t count, loff_t *off)
{
	struct divert_info *inf;
	int len;

	if (!(inf = *((struct divert_info **) file->private_data))) {
		if (file->f_flags & O_NONBLOCK)
			return -EAGAIN;
		wait_event_interruptible(rd_queue, (inf =
			*((struct divert_info **) file->private_data)));
	}
	if (!inf)
		return (0);

	inf->usage_cnt--;	/* new usage count */
	file->private_data = &inf->next;	/* next structure */
	if ((len = strlen(inf->info_start)) <= count) {
		if (copy_to_user(buf, inf->info_start, len))
			return -EFAULT;
		*off += len;
		return (len);
	}
	return (0);
}				/* isdn_divert_read */

/**********************************/
/* deflection device write routine */
/**********************************/
static ssize_t
isdn_divert_write(struct file *file, const char __user *buf, size_t count, loff_t *off)
{
	return (-ENODEV);
}				/* isdn_divert_write */


/***************************************/
/* select routines for various kernels */
/***************************************/
static __poll_t
isdn_divert_poll(struct file *file, poll_table *wait)
{
	__poll_t mask = 0;

	poll_wait(file, &(rd_queue), wait);
	/* mask = EPOLLOUT | EPOLLWRNORM; */
	if (*((struct divert_info **) file->private_data)) {
		mask |= EPOLLIN | EPOLLRDNORM;
	}
	return mask;
}				/* isdn_divert_poll */

/****************/
/* Open routine */
/****************/
static int
isdn_divert_open(struct inode *ino, struct file *filep)
{
	unsigned long flags;

	spin_lock_irqsave(&divert_info_lock, flags);
	if_used++;
	if (divert_info_head)
		filep->private_data = &(divert_info_tail->next);
	else
		filep->private_data = &divert_info_head;
	spin_unlock_irqrestore(&divert_info_lock, flags);
	/*  start_divert(); */
	return nonseekable_open(ino, filep);
}				/* isdn_divert_open */

/*******************/
/* close routine   */
/*******************/
static int
isdn_divert_close(struct inode *ino, struct file *filep)
{
	struct divert_info *inf;
	unsigned long flags;

	spin_lock_irqsave(&divert_info_lock, flags);
	if_used--;
	inf = *((struct divert_info **) filep->private_data);
	while (inf) {
		inf->usage_cnt--;
		inf = inf->next;
	}
	if (if_used <= 0)
		while (divert_info_head) {
			inf = divert_info_head;
			divert_info_head = divert_info_head->next;
			kfree(inf);
		}
	spin_unlock_irqrestore(&divert_info_lock, flags);
	return (0);
}				/* isdn_divert_close */

/*********/
/* IOCTL */
/*********/
static int isdn_divert_ioctl_unlocked(struct file *file, uint cmd, ulong arg)
{
	divert_ioctl dioctl;
	int i;
	unsigned long flags;
	divert_rule *rulep;
	char *cp;

	if (copy_from_user(&dioctl, (void __user *) arg, sizeof(dioctl)))
		return -EFAULT;

	switch (cmd) {
	case IIOCGETVER:
		dioctl.drv_version = DIVERT_IIOC_VERSION;	/* set version */
		break;

	case IIOCGETDRV:
		if ((dioctl.getid.drvid = divert_if.name_to_drv(dioctl.getid.drvnam)) < 0)
			return (-EINVAL);
		break;

	case IIOCGETNAM:
		cp = divert_if.drv_to_name(dioctl.getid.drvid);
		if (!cp)
			return (-EINVAL);
		if (!*cp)
			return (-EINVAL);
		strcpy(dioctl.getid.drvnam, cp);
		break;

	case IIOCGETRULE:
		if (!(rulep = getruleptr(dioctl.getsetrule.ruleidx)))
			return (-EINVAL);
		dioctl.getsetrule.rule = *rulep;	/* copy data */
		break;

	case IIOCMODRULE:
		if (!(rulep = getruleptr(dioctl.getsetrule.ruleidx)))
			return (-EINVAL);
		spin_lock_irqsave(&divert_lock, flags);
		*rulep = dioctl.getsetrule.rule;	/* copy data */
		spin_unlock_irqrestore(&divert_lock, flags);
		return (0);	/* no copy required */
		break;

	case IIOCINSRULE:
		return (insertrule(dioctl.getsetrule.ruleidx, &dioctl.getsetrule.rule));
		break;

	case IIOCDELRULE:
		return (deleterule(dioctl.getsetrule.ruleidx));
		break;

	case IIOCDODFACT:
		return (deflect_extern_action(dioctl.fwd_ctrl.subcmd,
					      dioctl.fwd_ctrl.callid,
					      dioctl.fwd_ctrl.to_nr));

	case IIOCDOCFACT:
	case IIOCDOCFDIS:
	case IIOCDOCFINT:
		if (!divert_if.drv_to_name(dioctl.cf_ctrl.drvid))
			return (-EINVAL);	/* invalid driver */
		if (strnlen(dioctl.cf_ctrl.msn, sizeof(dioctl.cf_ctrl.msn)) ==
		    sizeof(dioctl.cf_ctrl.msn))
			return -EINVAL;
		if (strnlen(dioctl.cf_ctrl.fwd_nr, sizeof(dioctl.cf_ctrl.fwd_nr)) ==
		    sizeof(dioctl.cf_ctrl.fwd_nr))
			return -EINVAL;
		if ((i = cf_command(dioctl.cf_ctrl.drvid,
				    (cmd == IIOCDOCFACT) ? 1 : (cmd == IIOCDOCFDIS) ? 0 : 2,
				    dioctl.cf_ctrl.cfproc,
				    dioctl.cf_ctrl.msn,
				    dioctl.cf_ctrl.service,
				    dioctl.cf_ctrl.fwd_nr,
				    &dioctl.cf_ctrl.procid)))
			return (i);
		break;

	default:
		return (-EINVAL);
	}			/* switch cmd */
	return copy_to_user((void __user *)arg, &dioctl, sizeof(dioctl)) ? -EFAULT : 0;
}				/* isdn_divert_ioctl */

static long isdn_divert_ioctl(struct file *file, uint cmd, ulong arg)
{
	long ret;

	mutex_lock(&isdn_divert_mutex);
	ret = isdn_divert_ioctl_unlocked(file, cmd, arg);
	mutex_unlock(&isdn_divert_mutex);

	return ret;
}

static const struct file_operations isdn_fops =
{
	.owner          = THIS_MODULE,
	.llseek         = no_llseek,
	.read           = isdn_divert_read,
	.write          = isdn_divert_write,
	.poll           = isdn_divert_poll,
	.unlocked_ioctl = isdn_divert_ioctl,
	.open           = isdn_divert_open,
	.release        = isdn_divert_close,
};

/****************************/
/* isdn subdir in /proc/net */
/****************************/
static struct proc_dir_entry *isdn_proc_entry = NULL;
static struct proc_dir_entry *isdn_divert_entry = NULL;
#endif	/* CONFIG_PROC_FS */

/***************************************************************************/
/* divert_dev_init must be called before the proc filesystem may be used   */
/***************************************************************************/
int
divert_dev_init(void)
{

	init_waitqueue_head(&rd_queue);

#ifdef CONFIG_PROC_FS
	isdn_proc_entry = proc_mkdir("isdn", init_net.proc_net);
	if (!isdn_proc_entry)
		return (-1);
	isdn_divert_entry = proc_create("divert", S_IFREG | S_IRUGO,
					isdn_proc_entry, &isdn_fops);
	if (!isdn_divert_entry) {
		remove_proc_entry("isdn", init_net.proc_net);
		return (-1);
	}
#endif	/* CONFIG_PROC_FS */

	return (0);
}				/* divert_dev_init */

/***************************************************************************/
/* divert_dev_deinit must be called before leaving isdn when included as   */
/* a module.                                                               */
/***************************************************************************/
int
divert_dev_deinit(void)
{

#ifdef CONFIG_PROC_FS
	remove_proc_entry("divert", isdn_proc_entry);
	remove_proc_entry("isdn", init_net.proc_net);
#endif	/* CONFIG_PROC_FS */

	return (0);
}				/* divert_dev_deinit */
Commit	Line	Data
1da177e4 LT	1	/* $Id: divert_procfs.c,v 1.11.6.2 2001/09/23 22:24:36 kai Exp $
	2	*
	3	* Filesystem handling for the diversion supplementary services.
	4	*
	5	* Copyright 1998 by Werner Cornelius (werner@isdn4linux.de)
	6	*
	7	* This software may be used and distributed according to the terms
	8	* of the GNU General Public License, incorporated herein by reference.
	9	*
	10	*/
	11
1da177e4	12	#include <linux/module.h>
1da177e4	13	#include <linux/poll.h>
5a0e3ad6	14	#include <linux/slab.h>
1da177e4 LT	15	#ifdef CONFIG_PROC_FS
	16	#include <linux/proc_fs.h>
	17	#else
	18	#include <linux/fs.h>
	19	#endif
a99bbaf5	20	#include <linux/sched.h>
1da177e4	21	#include <linux/isdnif.h>
457c4cbc	22	#include <net/net_namespace.h>
76a64921	23	#include <linux/mutex.h>
1da177e4 LT	24	#include "isdn_divert.h"
	25
	26
	27	/*********************************/
	28	/* Variables for interface queue */
	29	/*********************************/
	30	ulong if_used = 0; /* number of interface users */
76a64921	31	static DEFINE_MUTEX(isdn_divert_mutex);
1da177e4 LT	32	static struct divert_info divert_info_head = NULL; / head of queue */
	33	static struct divert_info divert_info_tail = NULL; / pointer to last entry */
	34	static DEFINE_SPINLOCK(divert_info_lock);/* lock for queue */
	35	static wait_queue_head_t rd_queue;
	36
	37	/*********************************/
	38	/* put an info buffer into queue */
	39	/*********************************/
	40	void
	41	put_info_buffer(char *cp)
	42	{
	43	struct divert_info *ib;
	44	unsigned long flags;
	45
	46	if (if_used <= 0)
	47	return;
	48	if (!cp)
	49	return;
	50	if (!*cp)
	51	return;
5cbded58	52	if (!(ib = kmalloc(sizeof(struct divert_info) + strlen(cp), GFP_ATOMIC)))
475be4d8	53	return; /* no memory */
1da177e4 LT	54	strcpy(ib->info_start, cp); /* set output string */
1da177e4 LT	55	ib->next = NULL;
475be4d8	56	spin_lock_irqsave(&divert_info_lock, flags);
1da177e4 LT	57	ib->usage_cnt = if_used;
	58	if (!divert_info_head)
	59	divert_info_head = ib; /* new head */
	60	else
	61	divert_info_tail->next = ib; /* follows existing messages */
	62	divert_info_tail = ib; /* new tail */
	63
	64	/* delete old entrys */
	65	while (divert_info_head->next) {
	66	if ((divert_info_head->usage_cnt <= 0) &&
	67	(divert_info_head->next->usage_cnt <= 0)) {
	68	ib = divert_info_head;
	69	divert_info_head = divert_info_head->next;
	70	kfree(ib);
	71	} else
	72	break;
	73	} /* divert_info_head->next */
475be4d8	74	spin_unlock_irqrestore(&divert_info_lock, flags);
1da177e4 LT	75	wake_up_interruptible(&(rd_queue));
	76	} /* put_info_buffer */
	77
732781da CS	78	#ifdef CONFIG_PROC_FS
732781da CS	79
1da177e4 LT	80	/**********************************/
	81	/* deflection device read routine */
	82	/**********************************/
	83	static ssize_t
475be4d8	84	isdn_divert_read(struct file file, char __user buf, size_t count, loff_t *off)
1da177e4 LT	85	{
	86	struct divert_info *inf;
	87	int len;
	88
c11da83b	89	if (!(inf = ((struct divert_info *) file->private_data))) {
1da177e4 LT	90	if (file->f_flags & O_NONBLOCK)
1da177e4 LT	91	return -EAGAIN;
c11da83b AB	92	wait_event_interruptible(rd_queue, (inf =
c11da83b AB	93	((struct divert_info *) file->private_data)));
1da177e4	94	}
c11da83b	95	if (!inf)
1da177e4 LT	96	return (0);
	97
	98	inf->usage_cnt--; /* new usage count */
	99	file->private_data = &inf->next; /* next structure */
	100	if ((len = strlen(inf->info_start)) <= count) {
	101	if (copy_to_user(buf, inf->info_start, len))
	102	return -EFAULT;
	103	*off += len;
	104	return (len);
	105	}
	106	return (0);
	107	} /* isdn_divert_read */
	108
	109	/**********************************/
	110	/* deflection device write routine */
	111	/**********************************/
	112	static ssize_t
475be4d8	113	isdn_divert_write(struct file file, const char __user buf, size_t count, loff_t *off)
1da177e4 LT	114	{
	115	return (-ENODEV);
	116	} /* isdn_divert_write */
	117
	118
	119	/***************************************/
	120	/* select routines for various kernels */
	121	/***************************************/
afc9a42b	122	static __poll_t
475be4d8	123	isdn_divert_poll(struct file file, poll_table wait)
1da177e4	124	{
afc9a42b	125	__poll_t mask = 0;
1da177e4 LT	126
1da177e4 LT	127	poll_wait(file, &(rd_queue), wait);
a9a08845	128	/* mask = EPOLLOUT \| EPOLLWRNORM; */
1da177e4	129	if (((struct divert_info *) file->private_data)) {
a9a08845	130	mask \|= EPOLLIN \| EPOLLRDNORM;
1da177e4 LT	131	}
	132	return mask;
	133	} /* isdn_divert_poll */
	134
	135	/****************/
	136	/* Open routine */
	137	/****************/
	138	static int
	139	isdn_divert_open(struct inode ino, struct file filep)
	140	{
	141	unsigned long flags;
	142
475be4d8 JP	143	spin_lock_irqsave(&divert_info_lock, flags);
475be4d8 JP	144	if_used++;
1da177e4 LT	145	if (divert_info_head)
	146	filep->private_data = &(divert_info_tail->next);
	147	else
	148	filep->private_data = &divert_info_head;
475be4d8	149	spin_unlock_irqrestore(&divert_info_lock, flags);
1da177e4 LT	150	/* start_divert(); */
	151	return nonseekable_open(ino, filep);
	152	} /* isdn_divert_open */
	153
	154	/*******************/
	155	/* close routine */
	156	/*******************/
	157	static int
	158	isdn_divert_close(struct inode ino, struct file filep)
	159	{
	160	struct divert_info *inf;
	161	unsigned long flags;
	162
475be4d8	163	spin_lock_irqsave(&divert_info_lock, flags);
1da177e4 LT	164	if_used--;
	165	inf = ((struct divert_info *) filep->private_data);
	166	while (inf) {
	167	inf->usage_cnt--;
	168	inf = inf->next;
	169	}
	170	if (if_used <= 0)
	171	while (divert_info_head) {
	172	inf = divert_info_head;
	173	divert_info_head = divert_info_head->next;
	174	kfree(inf);
	175	}
475be4d8	176	spin_unlock_irqrestore(&divert_info_lock, flags);
1da177e4 LT	177	return (0);
	178	} /* isdn_divert_close */
	179
	180	/*********/
	181	/* IOCTL */
	182	/*********/
d79b6f4d	183	static int isdn_divert_ioctl_unlocked(struct file *file, uint cmd, ulong arg)
1da177e4 LT	184	{
	185	divert_ioctl dioctl;
	186	int i;
	187	unsigned long flags;
	188	divert_rule *rulep;
	189	char *cp;
	190
	191	if (copy_from_user(&dioctl, (void __user *) arg, sizeof(dioctl)))
	192	return -EFAULT;
	193
	194	switch (cmd) {
475be4d8 JP	195	case IIOCGETVER:
	196	dioctl.drv_version = DIVERT_IIOC_VERSION; /* set version */
	197	break;
1da177e4	198
475be4d8 JP	199	case IIOCGETDRV:
	200	if ((dioctl.getid.drvid = divert_if.name_to_drv(dioctl.getid.drvnam)) < 0)
	201	return (-EINVAL);
	202	break;
1da177e4	203
475be4d8 JP	204	case IIOCGETNAM:
	205	cp = divert_if.drv_to_name(dioctl.getid.drvid);
	206	if (!cp)
	207	return (-EINVAL);
	208	if (!*cp)
	209	return (-EINVAL);
	210	strcpy(dioctl.getid.drvnam, cp);
	211	break;
1da177e4	212
475be4d8 JP	213	case IIOCGETRULE:
	214	if (!(rulep = getruleptr(dioctl.getsetrule.ruleidx)))
	215	return (-EINVAL);
	216	dioctl.getsetrule.rule = rulep; / copy data */
	217	break;
1da177e4	218
475be4d8 JP	219	case IIOCMODRULE:
475be4d8 JP	220	if (!(rulep = getruleptr(dioctl.getsetrule.ruleidx)))
1da177e4	221	return (-EINVAL);
475be4d8 JP	222	spin_lock_irqsave(&divert_lock, flags);
	223	rulep = dioctl.getsetrule.rule; / copy data */
	224	spin_unlock_irqrestore(&divert_lock, flags);
	225	return (0); /* no copy required */
	226	break;
	227
	228	case IIOCINSRULE:
	229	return (insertrule(dioctl.getsetrule.ruleidx, &dioctl.getsetrule.rule));
	230	break;
	231
	232	case IIOCDELRULE:
	233	return (deleterule(dioctl.getsetrule.ruleidx));
	234	break;
	235
	236	case IIOCDODFACT:
	237	return (deflect_extern_action(dioctl.fwd_ctrl.subcmd,
	238	dioctl.fwd_ctrl.callid,
	239	dioctl.fwd_ctrl.to_nr));
	240
	241	case IIOCDOCFACT:
	242	case IIOCDOCFDIS:
	243	case IIOCDOCFINT:
	244	if (!divert_if.drv_to_name(dioctl.cf_ctrl.drvid))
	245	return (-EINVAL); /* invalid driver */
	246	if (strnlen(dioctl.cf_ctrl.msn, sizeof(dioctl.cf_ctrl.msn)) ==
	247	sizeof(dioctl.cf_ctrl.msn))
	248	return -EINVAL;
	249	if (strnlen(dioctl.cf_ctrl.fwd_nr, sizeof(dioctl.cf_ctrl.fwd_nr)) ==
	250	sizeof(dioctl.cf_ctrl.fwd_nr))
	251	return -EINVAL;
	252	if ((i = cf_command(dioctl.cf_ctrl.drvid,
	253	(cmd == IIOCDOCFACT) ? 1 : (cmd == IIOCDOCFDIS) ? 0 : 2,
	254	dioctl.cf_ctrl.cfproc,
	255	dioctl.cf_ctrl.msn,
	256	dioctl.cf_ctrl.service,
	257	dioctl.cf_ctrl.fwd_nr,
	258	&dioctl.cf_ctrl.procid)))
	259	return (i);
	260	break;
	261
	262	default:
	263	return (-EINVAL);
1da177e4 LT	264	} /* switch cmd */
	265	return copy_to_user((void __user *)arg, &dioctl, sizeof(dioctl)) ? -EFAULT : 0;
	266	} /* isdn_divert_ioctl */
	267
d79b6f4d FW	268	static long isdn_divert_ioctl(struct file *file, uint cmd, ulong arg)
	269	{
	270	long ret;
	271
76a64921	272	mutex_lock(&isdn_divert_mutex);
d79b6f4d	273	ret = isdn_divert_ioctl_unlocked(file, cmd, arg);
76a64921	274	mutex_unlock(&isdn_divert_mutex);
d79b6f4d FW	275
	276	return ret;
	277	}
	278
2b8693c0	279	static const struct file_operations isdn_fops =
1da177e4 LT	280	{
	281	.owner = THIS_MODULE,
	282	.llseek = no_llseek,
	283	.read = isdn_divert_read,
	284	.write = isdn_divert_write,
	285	.poll = isdn_divert_poll,
d79b6f4d	286	.unlocked_ioctl = isdn_divert_ioctl,
1da177e4	287	.open = isdn_divert_open,
475be4d8	288	.release = isdn_divert_close,
1da177e4 LT	289	};
	290
	291	/****************************/
	292	/* isdn subdir in /proc/net */
	293	/****************************/
	294	static struct proc_dir_entry *isdn_proc_entry = NULL;
	295	static struct proc_dir_entry *isdn_divert_entry = NULL;
	296	#endif /* CONFIG_PROC_FS */
	297
	298	/***************************************************************************/
	299	/* divert_dev_init must be called before the proc filesystem may be used */
	300	/***************************************************************************/
	301	int
	302	divert_dev_init(void)
	303	{
	304
	305	init_waitqueue_head(&rd_queue);
	306
	307	#ifdef CONFIG_PROC_FS
457c4cbc	308	isdn_proc_entry = proc_mkdir("isdn", init_net.proc_net);
1da177e4 LT	309	if (!isdn_proc_entry)
1da177e4 LT	310	return (-1);
ac41cfd1 DL	311	isdn_divert_entry = proc_create("divert", S_IFREG \| S_IRUGO,
ac41cfd1 DL	312	isdn_proc_entry, &isdn_fops);
1da177e4	313	if (!isdn_divert_entry) {
457c4cbc	314	remove_proc_entry("isdn", init_net.proc_net);
1da177e4 LT	315	return (-1);
1da177e4 LT	316	}
1da177e4 LT	317	#endif /* CONFIG_PROC_FS */
	318
	319	return (0);
	320	} /* divert_dev_init */
	321
	322	/***************************************************************************/
	323	/* divert_dev_deinit must be called before leaving isdn when included as */
	324	/* a module. */
	325	/***************************************************************************/
	326	int
	327	divert_dev_deinit(void)
	328	{
	329
	330	#ifdef CONFIG_PROC_FS
	331	remove_proc_entry("divert", isdn_proc_entry);
457c4cbc	332	remove_proc_entry("isdn", init_net.proc_net);
1da177e4 LT	333	#endif /* CONFIG_PROC_FS */
	334
	335	return (0);
	336	} /* divert_dev_deinit */