/* Kernel module to match various things tied to sockets associated with
   locally generated outgoing packets.

   Copyright (C) 2000 Marc Boucher

   03/26/2003 Patrick McHardy <kaber@trash.net>: LOCAL_IN support
 */
#include <linux/module.h>
#include <linux/skbuff.h>
#include <linux/file.h>
#include <linux/ip.h>
#include <linux/tcp.h>
#include <linux/udp.h>
#include <net/sock.h>
#include <net/tcp.h>
#include <net/udp.h>
#include <net/route.h>

#include <linux/netfilter_ipv4/ipt_owner.h>
#include <linux/netfilter_ipv4/ip_tables.h>

static int
match_comm(const struct sock *sk, const char *comm)
{
	struct task_struct *p;
	struct files_struct *files;
	int i;

	read_lock(&tasklist_lock);
	for_each_task(p) {
		if(strncmp(p->comm, comm, sizeof(p->comm)))
			continue;

		task_lock(p);
		files = p->files;
		if(files) {
			read_lock(&files->file_lock);
			for (i=0; i < files->max_fds; i++) {
				if (fcheck_files(files, i) == sk->socket->file) {
					read_unlock(&files->file_lock);
					task_unlock(p);
					read_unlock(&tasklist_lock);
					return 1;
				}
			}
			read_unlock(&files->file_lock);
		}
		task_unlock(p);
	}
	read_unlock(&tasklist_lock);
	return 0;
}

static int
match_pid(const struct sock *sk, pid_t pid)
{
	struct task_struct *p;
	struct files_struct *files;
	int i;

	read_lock(&tasklist_lock);
	p = find_task_by_pid(pid);
	if (!p)
		goto out;
	task_lock(p);
	files = p->files;
	if(files) {
		read_lock(&files->file_lock);
		for (i=0; i < files->max_fds; i++) {
			if (fcheck_files(files, i) == sk->socket->file) {
				read_unlock(&files->file_lock);
				task_unlock(p);
				read_unlock(&tasklist_lock);
				return 1;
			}
		}
		read_unlock(&files->file_lock);
	}
	task_unlock(p);
out:
	read_unlock(&tasklist_lock);
	return 0;
}

static int
match_sid(const struct sock *sk, pid_t sid)
{
	struct task_struct *p;
	struct file *file = sk->socket->file;
	int i, found=0;

	read_lock(&tasklist_lock);
	for_each_task(p) {
		struct files_struct *files;
		if (p->session != sid)
			continue;

		task_lock(p);
		files = p->files;
		if (files) {
			read_lock(&files->file_lock);
			for (i=0; i < files->max_fds; i++) {
				if (fcheck_files(files, i) == file) {
					found = 1;
					break;
				}
			}
			read_unlock(&files->file_lock);
		}
		task_unlock(p);
		if(found)
			break;
	}
	read_unlock(&tasklist_lock);

	return found;
}

static int
match(const struct sk_buff *skb,
      const struct net_device *in,
      const struct net_device *out,
      const void *matchinfo,
      int offset,
      const void *hdr,
      u_int16_t datalen,
      int *hotdrop)
{
	const struct ipt_owner_info *info = matchinfo;
	struct iphdr *iph = skb->nh.iph;
	struct sock *sk = NULL;
	int ret = 0;

	if (out) {
		sk = skb->sk;
	} else {
		if (iph->protocol == IPPROTO_TCP) {
			struct tcphdr *tcph =
			        (struct tcphdr*)((u_int32_t*)iph + iph->ihl);
			sk = tcp_v4_lookup(iph->saddr, tcph->source,
			                   iph->daddr, tcph->dest,
			                   ((struct rtable*)skb->dst)->rt_iif);
			if (sk && sk->state == TCP_TIME_WAIT) {
				tcp_tw_put((struct tcp_tw_bucket *)sk);
				return ret;
			}
		} else if (iph->protocol == IPPROTO_UDP) {
			struct udphdr *udph =
			        (struct udphdr*)((u_int32_t*)iph + iph->ihl);
			sk = udp_v4_lookup(iph->saddr, udph->source, iph->daddr,
			                   udph->dest, skb->dev->ifindex);
		}
	} 
					
	if (!sk || !sk->socket || !sk->socket->file)
		goto out;

	if(info->match & IPT_OWNER_UID) {
		if((sk->socket->file->f_uid != info->uid) ^
		    !!(info->invert & IPT_OWNER_UID))
			goto out;
	}

	if(info->match & IPT_OWNER_GID) {
		if((sk->socket->file->f_gid != info->gid) ^
		    !!(info->invert & IPT_OWNER_GID))
			goto out;
	}

	if(info->match & IPT_OWNER_PID) {
		if (!match_pid(sk, info->pid) ^
		    !!(info->invert & IPT_OWNER_PID))
			goto out;
	}

	if(info->match & IPT_OWNER_SID) {
		if (!match_sid(sk, info->sid) ^
		    !!(info->invert & IPT_OWNER_SID))
			goto out;
	}

	if(info->match & IPT_OWNER_COMM) {
		if (!match_comm(sk, info->comm) ^
		    !!(info->invert & IPT_OWNER_COMM))
			goto out;
	}

	ret = 1;

out:
	if (in && sk)
		sock_put(sk);

	return ret;
}

static int
checkentry(const char *tablename,
           const struct ipt_ip *ip,
           void *matchinfo,
           unsigned int matchsize,
           unsigned int hook_mask)
{
        if (hook_mask
            & ~((1 << NF_IP_LOCAL_OUT) | (1 << NF_IP_POST_ROUTING) |
		(1 << NF_IP_LOCAL_IN))) {
        	printk("ipt_owner: only valid for LOCAL_IN, LOCAL_OUT "
		       "or POST_ROUTING.\n");
                return 0;
        }

	if ((hook_mask & (1 << NF_IP_LOCAL_IN))
	    && ip->proto != IPPROTO_TCP && ip->proto != IPPROTO_UDP) {
		printk("ipt_owner: only TCP or UDP can be used in LOCAL_IN\n");
		return 0;
	}

	if (matchsize != IPT_ALIGN(sizeof(struct ipt_owner_info)))
		return 0;
#ifdef CONFIG_SMP
	/* files->file_lock can not be used in a BH */
	if (((struct ipt_owner_info *)matchinfo)->match
	    & (IPT_OWNER_PID|IPT_OWNER_SID|IPT_OWNER_COMM)) {
		printk("ipt_owner: pid, sid and command matching is broken "
		       "on SMP.\n");
		return 0;
	}
#endif
	return 1;
}

static struct ipt_match owner_match
= { { NULL, NULL }, "owner", &match, &checkentry, NULL, THIS_MODULE };

static int __init init(void)
{
	return ipt_register_match(&owner_match);
}

static void __exit fini(void)
{
	ipt_unregister_match(&owner_match);
}

module_init(init);
module_exit(fini);
MODULE_LICENSE("GPL");
