[net-next-2.6.git] / net / sched / cls_flow.c

/*
 * net/sched/cls_flow.c		Generic flow classifier
 *
 * Copyright (c) 2007, 2008 Patrick McHardy <kaber@trash.net>
 *
 * 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; either version 2
 * of the License, or (at your option) any later version.
 */

#include <linux/kernel.h>
#include <linux/init.h>
#include <linux/list.h>
#include <linux/jhash.h>
#include <linux/random.h>
#include <linux/pkt_cls.h>
#include <linux/skbuff.h>
#include <linux/in.h>
#include <linux/ip.h>
#include <linux/ipv6.h>
#include <linux/if_vlan.h>
#include <linux/slab.h>

#include <net/pkt_cls.h>
#include <net/ip.h>
#include <net/route.h>
#if defined(CONFIG_NF_CONNTRACK) || defined(CONFIG_NF_CONNTRACK_MODULE)
#include <net/netfilter/nf_conntrack.h>
#endif

struct flow_head {
	struct list_head	filters;
};

struct flow_filter {
	struct list_head	list;
	struct tcf_exts		exts;
	struct tcf_ematch_tree	ematches;
	struct timer_list	perturb_timer;
	u32			perturb_period;
	u32			handle;

	u32			nkeys;
	u32			keymask;
	u32			mode;
	u32			mask;
	u32			xor;
	u32			rshift;
	u32			addend;
	u32			divisor;
	u32			baseclass;
	u32			hashrnd;
};

static const struct tcf_ext_map flow_ext_map = {
	.action	= TCA_FLOW_ACT,
	.police	= TCA_FLOW_POLICE,
};

static inline u32 addr_fold(void *addr)
{
	unsigned long a = (unsigned long)addr;

	return (a & 0xFFFFFFFF) ^ (BITS_PER_LONG > 32 ? a >> 32 : 0);
}

static u32 flow_get_src(struct sk_buff *skb)
{
	switch (skb->protocol) {
	case htons(ETH_P_IP):
		if (pskb_network_may_pull(skb, sizeof(struct iphdr)))
			return ntohl(ip_hdr(skb)->saddr);
		break;
	case htons(ETH_P_IPV6):
		if (pskb_network_may_pull(skb, sizeof(struct ipv6hdr)))
			return ntohl(ipv6_hdr(skb)->saddr.s6_addr32[3]);
		break;
	}

	return addr_fold(skb->sk);
}

static u32 flow_get_dst(struct sk_buff *skb)
{
	switch (skb->protocol) {
	case htons(ETH_P_IP):
		if (pskb_network_may_pull(skb, sizeof(struct iphdr)))
			return ntohl(ip_hdr(skb)->daddr);
		break;
	case htons(ETH_P_IPV6):
		if (pskb_network_may_pull(skb, sizeof(struct ipv6hdr)))
			return ntohl(ipv6_hdr(skb)->daddr.s6_addr32[3]);
		break;
	}

	return addr_fold(skb_dst(skb)) ^ (__force u16)skb->protocol;
}

static u32 flow_get_proto(struct sk_buff *skb)
{
	switch (skb->protocol) {
	case htons(ETH_P_IP):
		return pskb_network_may_pull(skb, sizeof(struct iphdr)) ?
		       ip_hdr(skb)->protocol : 0;
	case htons(ETH_P_IPV6):
		return pskb_network_may_pull(skb, sizeof(struct ipv6hdr)) ?
		       ipv6_hdr(skb)->nexthdr : 0;
	default:
		return 0;
	}
}

static u32 flow_get_proto_src(struct sk_buff *skb)
{
	switch (skb->protocol) {
	case htons(ETH_P_IP): {
		struct iphdr *iph;
		int poff;

		if (!pskb_network_may_pull(skb, sizeof(*iph)))
			break;
		iph = ip_hdr(skb);
		if (iph->frag_off & htons(IP_MF|IP_OFFSET))
			break;
		poff = proto_ports_offset(iph->protocol);
		if (poff >= 0 &&
		    pskb_network_may_pull(skb, iph->ihl * 4 + 2 + poff)) {
			iph = ip_hdr(skb);
			return ntohs(*(__be16 *)((void *)iph + iph->ihl * 4 +
						 poff));
		}
		break;
	}
	case htons(ETH_P_IPV6): {
		struct ipv6hdr *iph;
		int poff;

		if (!pskb_network_may_pull(skb, sizeof(*iph)))
			break;
		iph = ipv6_hdr(skb);
		poff = proto_ports_offset(iph->nexthdr);
		if (poff >= 0 &&
		    pskb_network_may_pull(skb, sizeof(*iph) + poff + 2)) {
			iph = ipv6_hdr(skb);
			return ntohs(*(__be16 *)((void *)iph + sizeof(*iph) +
						 poff));
		}
		break;
	}
	}

	return addr_fold(skb->sk);
}

static u32 flow_get_proto_dst(struct sk_buff *skb)
{
	switch (skb->protocol) {
	case htons(ETH_P_IP): {
		struct iphdr *iph;
		int poff;

		if (!pskb_network_may_pull(skb, sizeof(*iph)))
			break;
		iph = ip_hdr(skb);
		if (iph->frag_off & htons(IP_MF|IP_OFFSET))
			break;
		poff = proto_ports_offset(iph->protocol);
		if (poff >= 0 &&
		    pskb_network_may_pull(skb, iph->ihl * 4 + 4 + poff)) {
			iph = ip_hdr(skb);
			return ntohs(*(__be16 *)((void *)iph + iph->ihl * 4 +
						 2 + poff));
		}
		break;
	}
	case htons(ETH_P_IPV6): {
		struct ipv6hdr *iph;
		int poff;

		if (!pskb_network_may_pull(skb, sizeof(*iph)))
			break;
		iph = ipv6_hdr(skb);
		poff = proto_ports_offset(iph->nexthdr);
		if (poff >= 0 &&
		    pskb_network_may_pull(skb, sizeof(*iph) + poff + 4)) {
			iph = ipv6_hdr(skb);
			return ntohs(*(__be16 *)((void *)iph + sizeof(*iph) +
						 poff + 2));
		}
		break;
	}
	}

	return addr_fold(skb_dst(skb)) ^ (__force u16)skb->protocol;
}

static u32 flow_get_iif(const struct sk_buff *skb)
{
	return skb->skb_iif;
}

static u32 flow_get_priority(const struct sk_buff *skb)
{
	return skb->priority;
}

static u32 flow_get_mark(const struct sk_buff *skb)
{
	return skb->mark;
}

static u32 flow_get_nfct(const struct sk_buff *skb)
{
#if defined(CONFIG_NF_CONNTRACK) || defined(CONFIG_NF_CONNTRACK_MODULE)
	return addr_fold(skb->nfct);
#else
	return 0;
#endif
}

#if defined(CONFIG_NF_CONNTRACK) || defined(CONFIG_NF_CONNTRACK_MODULE)
#define CTTUPLE(skb, member)						\
({									\
	enum ip_conntrack_info ctinfo;					\
	struct nf_conn *ct = nf_ct_get(skb, &ctinfo);			\
	if (ct == NULL)							\
		goto fallback;						\
	ct->tuplehash[CTINFO2DIR(ctinfo)].tuple.member;			\
})
#else
#define CTTUPLE(skb, member)						\
({									\
	goto fallback;							\
	0;								\
})
#endif

static u32 flow_get_nfct_src(struct sk_buff *skb)
{
	switch (skb->protocol) {
	case htons(ETH_P_IP):
		return ntohl(CTTUPLE(skb, src.u3.ip));
	case htons(ETH_P_IPV6):
		return ntohl(CTTUPLE(skb, src.u3.ip6[3]));
	}
fallback:
	return flow_get_src(skb);
}

static u32 flow_get_nfct_dst(struct sk_buff *skb)
{
	switch (skb->protocol) {
	case htons(ETH_P_IP):
		return ntohl(CTTUPLE(skb, dst.u3.ip));
	case htons(ETH_P_IPV6):
		return ntohl(CTTUPLE(skb, dst.u3.ip6[3]));
	}
fallback:
	return flow_get_dst(skb);
}

static u32 flow_get_nfct_proto_src(struct sk_buff *skb)
{
	return ntohs(CTTUPLE(skb, src.u.all));
fallback:
	return flow_get_proto_src(skb);
}

static u32 flow_get_nfct_proto_dst(struct sk_buff *skb)
{
	return ntohs(CTTUPLE(skb, dst.u.all));
fallback:
	return flow_get_proto_dst(skb);
}

static u32 flow_get_rtclassid(const struct sk_buff *skb)
{
#ifdef CONFIG_NET_CLS_ROUTE
	if (skb_dst(skb))
		return skb_dst(skb)->tclassid;
#endif
	return 0;
}

static u32 flow_get_skuid(const struct sk_buff *skb)
{
	if (skb->sk && skb->sk->sk_socket && skb->sk->sk_socket->file)
		return skb->sk->sk_socket->file->f_cred->fsuid;
	return 0;
}

static u32 flow_get_skgid(const struct sk_buff *skb)
{
	if (skb->sk && skb->sk->sk_socket && skb->sk->sk_socket->file)
		return skb->sk->sk_socket->file->f_cred->fsgid;
	return 0;
}

static u32 flow_get_vlan_tag(const struct sk_buff *skb)
{
	u16 uninitialized_var(tag);

	if (vlan_get_tag(skb, &tag) < 0)
		return 0;
	return tag & VLAN_VID_MASK;
}

static u32 flow_key_get(struct sk_buff *skb, int key)
{
	switch (key) {
	case FLOW_KEY_SRC:
		return flow_get_src(skb);
	case FLOW_KEY_DST:
		return flow_get_dst(skb);
	case FLOW_KEY_PROTO:
		return flow_get_proto(skb);
	case FLOW_KEY_PROTO_SRC:
		return flow_get_proto_src(skb);
	case FLOW_KEY_PROTO_DST:
		return flow_get_proto_dst(skb);
	case FLOW_KEY_IIF:
		return flow_get_iif(skb);
	case FLOW_KEY_PRIORITY:
		return flow_get_priority(skb);
	case FLOW_KEY_MARK:
		return flow_get_mark(skb);
	case FLOW_KEY_NFCT:
		return flow_get_nfct(skb);
	case FLOW_KEY_NFCT_SRC:
		return flow_get_nfct_src(skb);
	case FLOW_KEY_NFCT_DST:
		return flow_get_nfct_dst(skb);
	case FLOW_KEY_NFCT_PROTO_SRC:
		return flow_get_nfct_proto_src(skb);
	case FLOW_KEY_NFCT_PROTO_DST:
		return flow_get_nfct_proto_dst(skb);
	case FLOW_KEY_RTCLASSID:
		return flow_get_rtclassid(skb);
	case FLOW_KEY_SKUID:
		return flow_get_skuid(skb);
	case FLOW_KEY_SKGID:
		return flow_get_skgid(skb);
	case FLOW_KEY_VLAN_TAG:
		return flow_get_vlan_tag(skb);
	default:
		WARN_ON(1);
		return 0;
	}
}

static int flow_classify(struct sk_buff *skb, struct tcf_proto *tp,
			 struct tcf_result *res)
{
	struct flow_head *head = tp->root;
	struct flow_filter *f;
	u32 keymask;
	u32 classid;
	unsigned int n, key;
	int r;

	list_for_each_entry(f, &head->filters, list) {
		u32 keys[f->nkeys];

		if (!tcf_em_tree_match(skb, &f->ematches, NULL))
			continue;

		keymask = f->keymask;

		for (n = 0; n < f->nkeys; n++) {
			key = ffs(keymask) - 1;
			keymask &= ~(1 << key);
			keys[n] = flow_key_get(skb, key);
		}

		if (f->mode == FLOW_MODE_HASH)
			classid = jhash2(keys, f->nkeys, f->hashrnd);
		else {
			classid = keys[0];
			classid = (classid & f->mask) ^ f->xor;
			classid = (classid >> f->rshift) + f->addend;
		}

		if (f->divisor)
			classid %= f->divisor;

		res->class   = 0;
		res->classid = TC_H_MAKE(f->baseclass, f->baseclass + classid);

		r = tcf_exts_exec(skb, &f->exts, res);
		if (r < 0)
			continue;
		return r;
	}
	return -1;
}

static void flow_perturbation(unsigned long arg)
{
	struct flow_filter *f = (struct flow_filter *)arg;

	get_random_bytes(&f->hashrnd, 4);
	if (f->perturb_period)
		mod_timer(&f->perturb_timer, jiffies + f->perturb_period);
}

static const struct nla_policy flow_policy[TCA_FLOW_MAX + 1] = {
	[TCA_FLOW_KEYS]		= { .type = NLA_U32 },
	[TCA_FLOW_MODE]		= { .type = NLA_U32 },
	[TCA_FLOW_BASECLASS]	= { .type = NLA_U32 },
	[TCA_FLOW_RSHIFT]	= { .type = NLA_U32 },
	[TCA_FLOW_ADDEND]	= { .type = NLA_U32 },
	[TCA_FLOW_MASK]		= { .type = NLA_U32 },
	[TCA_FLOW_XOR]		= { .type = NLA_U32 },
	[TCA_FLOW_DIVISOR]	= { .type = NLA_U32 },
	[TCA_FLOW_ACT]		= { .type = NLA_NESTED },
	[TCA_FLOW_POLICE]	= { .type = NLA_NESTED },
	[TCA_FLOW_EMATCHES]	= { .type = NLA_NESTED },
	[TCA_FLOW_PERTURB]	= { .type = NLA_U32 },
};

static int flow_change(struct tcf_proto *tp, unsigned long base,
		       u32 handle, struct nlattr **tca,
		       unsigned long *arg)
{
	struct flow_head *head = tp->root;
	struct flow_filter *f;
	struct nlattr *opt = tca[TCA_OPTIONS];
	struct nlattr *tb[TCA_FLOW_MAX + 1];
	struct tcf_exts e;
	struct tcf_ematch_tree t;
	unsigned int nkeys = 0;
	unsigned int perturb_period = 0;
	u32 baseclass = 0;
	u32 keymask = 0;
	u32 mode;
	int err;

	if (opt == NULL)
		return -EINVAL;

	err = nla_parse_nested(tb, TCA_FLOW_MAX, opt, flow_policy);
	if (err < 0)
		return err;

	if (tb[TCA_FLOW_BASECLASS]) {
		baseclass = nla_get_u32(tb[TCA_FLOW_BASECLASS]);
		if (TC_H_MIN(baseclass) == 0)
			return -EINVAL;
	}

	if (tb[TCA_FLOW_KEYS]) {
		keymask = nla_get_u32(tb[TCA_FLOW_KEYS]);

		nkeys = hweight32(keymask);
		if (nkeys == 0)
			return -EINVAL;

		if (fls(keymask) - 1 > FLOW_KEY_MAX)
			return -EOPNOTSUPP;
	}

	err = tcf_exts_validate(tp, tb, tca[TCA_RATE], &e, &flow_ext_map);
	if (err < 0)
		return err;

	err = tcf_em_tree_validate(tp, tb[TCA_FLOW_EMATCHES], &t);
	if (err < 0)
		goto err1;

	f = (struct flow_filter *)*arg;
	if (f != NULL) {
		err = -EINVAL;
		if (f->handle != handle && handle)
			goto err2;

		mode = f->mode;
		if (tb[TCA_FLOW_MODE])
			mode = nla_get_u32(tb[TCA_FLOW_MODE]);
		if (mode != FLOW_MODE_HASH && nkeys > 1)
			goto err2;

		if (mode == FLOW_MODE_HASH)
			perturb_period = f->perturb_period;
		if (tb[TCA_FLOW_PERTURB]) {
			if (mode != FLOW_MODE_HASH)
				goto err2;
			perturb_period = nla_get_u32(tb[TCA_FLOW_PERTURB]) * HZ;
		}
	} else {
		err = -EINVAL;
		if (!handle)
			goto err2;
		if (!tb[TCA_FLOW_KEYS])
			goto err2;

		mode = FLOW_MODE_MAP;
		if (tb[TCA_FLOW_MODE])
			mode = nla_get_u32(tb[TCA_FLOW_MODE]);
		if (mode != FLOW_MODE_HASH && nkeys > 1)
			goto err2;

		if (tb[TCA_FLOW_PERTURB]) {
			if (mode != FLOW_MODE_HASH)
				goto err2;
			perturb_period = nla_get_u32(tb[TCA_FLOW_PERTURB]) * HZ;
		}

		if (TC_H_MAJ(baseclass) == 0)
			baseclass = TC_H_MAKE(tp->q->handle, baseclass);
		if (TC_H_MIN(baseclass) == 0)
			baseclass = TC_H_MAKE(baseclass, 1);

		err = -ENOBUFS;
		f = kzalloc(sizeof(*f), GFP_KERNEL);
		if (f == NULL)
			goto err2;

		f->handle = handle;
		f->mask	  = ~0U;

		get_random_bytes(&f->hashrnd, 4);
		f->perturb_timer.function = flow_perturbation;
		f->perturb_timer.data = (unsigned long)f;
		init_timer_deferrable(&f->perturb_timer);
	}

	tcf_exts_change(tp, &f->exts, &e);
	tcf_em_tree_change(tp, &f->ematches, &t);

	tcf_tree_lock(tp);

	if (tb[TCA_FLOW_KEYS]) {
		f->keymask = keymask;
		f->nkeys   = nkeys;
	}

	f->mode = mode;

	if (tb[TCA_FLOW_MASK])
		f->mask = nla_get_u32(tb[TCA_FLOW_MASK]);
	if (tb[TCA_FLOW_XOR])
		f->xor = nla_get_u32(tb[TCA_FLOW_XOR]);
	if (tb[TCA_FLOW_RSHIFT])
		f->rshift = nla_get_u32(tb[TCA_FLOW_RSHIFT]);
	if (tb[TCA_FLOW_ADDEND])
		f->addend = nla_get_u32(tb[TCA_FLOW_ADDEND]);

	if (tb[TCA_FLOW_DIVISOR])
		f->divisor = nla_get_u32(tb[TCA_FLOW_DIVISOR]);
	if (baseclass)
		f->baseclass = baseclass;

	f->perturb_period = perturb_period;
	del_timer(&f->perturb_timer);
	if (perturb_period)
		mod_timer(&f->perturb_timer, jiffies + perturb_period);

	if (*arg == 0)
		list_add_tail(&f->list, &head->filters);

	tcf_tree_unlock(tp);

	*arg = (unsigned long)f;
	return 0;

err2:
	tcf_em_tree_destroy(tp, &t);
err1:
	tcf_exts_destroy(tp, &e);
	return err;
}

static void flow_destroy_filter(struct tcf_proto *tp, struct flow_filter *f)
{
	del_timer_sync(&f->perturb_timer);
	tcf_exts_destroy(tp, &f->exts);
	tcf_em_tree_destroy(tp, &f->ematches);
	kfree(f);
}

static int flow_delete(struct tcf_proto *tp, unsigned long arg)
{
	struct flow_filter *f = (struct flow_filter *)arg;

	tcf_tree_lock(tp);
	list_del(&f->list);
	tcf_tree_unlock(tp);
	flow_destroy_filter(tp, f);
	return 0;
}

static int flow_init(struct tcf_proto *tp)
{
	struct flow_head *head;

	head = kzalloc(sizeof(*head), GFP_KERNEL);
	if (head == NULL)
		return -ENOBUFS;
	INIT_LIST_HEAD(&head->filters);
	tp->root = head;
	return 0;
}

static void flow_destroy(struct tcf_proto *tp)
{
	struct flow_head *head = tp->root;
	struct flow_filter *f, *next;

	list_for_each_entry_safe(f, next, &head->filters, list) {
		list_del(&f->list);
		flow_destroy_filter(tp, f);
	}
	kfree(head);
}

static unsigned long flow_get(struct tcf_proto *tp, u32 handle)
{
	struct flow_head *head = tp->root;
	struct flow_filter *f;

	list_for_each_entry(f, &head->filters, list)
		if (f->handle == handle)
			return (unsigned long)f;
	return 0;
}

static void flow_put(struct tcf_proto *tp, unsigned long f)
{
}

static int flow_dump(struct tcf_proto *tp, unsigned long fh,
		     struct sk_buff *skb, struct tcmsg *t)
{
	struct flow_filter *f = (struct flow_filter *)fh;
	struct nlattr *nest;

	if (f == NULL)
		return skb->len;

	t->tcm_handle = f->handle;

	nest = nla_nest_start(skb, TCA_OPTIONS);
	if (nest == NULL)
		goto nla_put_failure;

	NLA_PUT_U32(skb, TCA_FLOW_KEYS, f->keymask);
	NLA_PUT_U32(skb, TCA_FLOW_MODE, f->mode);

	if (f->mask != ~0 || f->xor != 0) {
		NLA_PUT_U32(skb, TCA_FLOW_MASK, f->mask);
		NLA_PUT_U32(skb, TCA_FLOW_XOR, f->xor);
	}
	if (f->rshift)
		NLA_PUT_U32(skb, TCA_FLOW_RSHIFT, f->rshift);
	if (f->addend)
		NLA_PUT_U32(skb, TCA_FLOW_ADDEND, f->addend);

	if (f->divisor)
		NLA_PUT_U32(skb, TCA_FLOW_DIVISOR, f->divisor);
	if (f->baseclass)
		NLA_PUT_U32(skb, TCA_FLOW_BASECLASS, f->baseclass);

	if (f->perturb_period)
		NLA_PUT_U32(skb, TCA_FLOW_PERTURB, f->perturb_period / HZ);

	if (tcf_exts_dump(skb, &f->exts, &flow_ext_map) < 0)
		goto nla_put_failure;
#ifdef CONFIG_NET_EMATCH
	if (f->ematches.hdr.nmatches &&
	    tcf_em_tree_dump(skb, &f->ematches, TCA_FLOW_EMATCHES) < 0)
		goto nla_put_failure;
#endif
	nla_nest_end(skb, nest);

	if (tcf_exts_dump_stats(skb, &f->exts, &flow_ext_map) < 0)
		goto nla_put_failure;

	return skb->len;

nla_put_failure:
	nlmsg_trim(skb, nest);
	return -1;
}

static void flow_walk(struct tcf_proto *tp, struct tcf_walker *arg)
{
	struct flow_head *head = tp->root;
	struct flow_filter *f;

	list_for_each_entry(f, &head->filters, list) {
		if (arg->count < arg->skip)
			goto skip;
		if (arg->fn(tp, (unsigned long)f, arg) < 0) {
			arg->stop = 1;
			break;
		}
skip:
		arg->count++;
	}
}

static struct tcf_proto_ops cls_flow_ops __read_mostly = {
	.kind		= "flow",
	.classify	= flow_classify,
	.init		= flow_init,
	.destroy	= flow_destroy,
	.change		= flow_change,
	.delete		= flow_delete,
	.get		= flow_get,
	.put		= flow_put,
	.dump		= flow_dump,
	.walk		= flow_walk,
	.owner		= THIS_MODULE,
};

static int __init cls_flow_init(void)
{
	return register_tcf_proto_ops(&cls_flow_ops);
}

static void __exit cls_flow_exit(void)
{
	unregister_tcf_proto_ops(&cls_flow_ops);
}

module_init(cls_flow_init);
module_exit(cls_flow_exit);

MODULE_LICENSE("GPL");
MODULE_AUTHOR("Patrick McHardy <kaber@trash.net>");
MODULE_DESCRIPTION("TC flow classifier");
Commit	Line	Data
e5dfb815 PM	1	/*
	2	* net/sched/cls_flow.c Generic flow classifier
	3	*
	4	* Copyright (c) 2007, 2008 Patrick McHardy <kaber@trash.net>
	5	*
	6	* This program is free software; you can redistribute it and/or
	7	* modify it under the terms of the GNU General Public License
	8	* as published by the Free Software Foundation; either version 2
	9	* of the License, or (at your option) any later version.
	10	*/
	11
	12	#include <linux/kernel.h>
	13	#include <linux/init.h>
	14	#include <linux/list.h>
	15	#include <linux/jhash.h>
	16	#include <linux/random.h>
	17	#include <linux/pkt_cls.h>
	18	#include <linux/skbuff.h>
	19	#include <linux/in.h>
	20	#include <linux/ip.h>
	21	#include <linux/ipv6.h>
9ec13810	22	#include <linux/if_vlan.h>
5a0e3ad6	23	#include <linux/slab.h>
e5dfb815 PM	24
	25	#include <net/pkt_cls.h>
	26	#include <net/ip.h>
	27	#include <net/route.h>
	28	#if defined(CONFIG_NF_CONNTRACK) \|\| defined(CONFIG_NF_CONNTRACK_MODULE)
	29	#include <net/netfilter/nf_conntrack.h>
	30	#endif
	31
	32	struct flow_head {
	33	struct list_head filters;
	34	};
	35
	36	struct flow_filter {
	37	struct list_head list;
	38	struct tcf_exts exts;
	39	struct tcf_ematch_tree ematches;
72d9794f PM	40	struct timer_list perturb_timer;
72d9794f PM	41	u32 perturb_period;
e5dfb815 PM	42	u32 handle;
	43
	44	u32 nkeys;
	45	u32 keymask;
	46	u32 mode;
	47	u32 mask;
	48	u32 xor;
	49	u32 rshift;
	50	u32 addend;
	51	u32 divisor;
	52	u32 baseclass;
72d9794f	53	u32 hashrnd;
e5dfb815 PM	54	};
e5dfb815 PM	55
e5dfb815 PM	56	static const struct tcf_ext_map flow_ext_map = {
	57	.action = TCA_FLOW_ACT,
	58	.police = TCA_FLOW_POLICE,
	59	};
	60
	61	static inline u32 addr_fold(void *addr)
	62	{
	63	unsigned long a = (unsigned long)addr;
	64
	65	return (a & 0xFFFFFFFF) ^ (BITS_PER_LONG > 32 ? a >> 32 : 0);
	66	}
	67
4b95c3d4	68	static u32 flow_get_src(struct sk_buff *skb)
e5dfb815 PM	69	{
e5dfb815 PM	70	switch (skb->protocol) {
60678040	71	case htons(ETH_P_IP):
4b95c3d4 CG	72	if (pskb_network_may_pull(skb, sizeof(struct iphdr)))
	73	return ntohl(ip_hdr(skb)->saddr);
	74	break;
60678040	75	case htons(ETH_P_IPV6):
4b95c3d4 CG	76	if (pskb_network_may_pull(skb, sizeof(struct ipv6hdr)))
	77	return ntohl(ipv6_hdr(skb)->saddr.s6_addr32[3]);
	78	break;
e5dfb815	79	}
4b95c3d4 CG	80
4b95c3d4 CG	81	return addr_fold(skb->sk);
e5dfb815 PM	82	}
e5dfb815 PM	83
4b95c3d4	84	static u32 flow_get_dst(struct sk_buff *skb)
e5dfb815 PM	85	{
e5dfb815 PM	86	switch (skb->protocol) {
60678040	87	case htons(ETH_P_IP):
4b95c3d4 CG	88	if (pskb_network_may_pull(skb, sizeof(struct iphdr)))
	89	return ntohl(ip_hdr(skb)->daddr);
	90	break;
60678040	91	case htons(ETH_P_IPV6):
4b95c3d4 CG	92	if (pskb_network_may_pull(skb, sizeof(struct ipv6hdr)))
	93	return ntohl(ipv6_hdr(skb)->daddr.s6_addr32[3]);
	94	break;
e5dfb815	95	}
4b95c3d4 CG	96
4b95c3d4 CG	97	return addr_fold(skb_dst(skb)) ^ (__force u16)skb->protocol;
e5dfb815 PM	98	}
e5dfb815 PM	99
4b95c3d4	100	static u32 flow_get_proto(struct sk_buff *skb)
e5dfb815 PM	101	{
e5dfb815 PM	102	switch (skb->protocol) {
60678040	103	case htons(ETH_P_IP):
4b95c3d4 CG	104	return pskb_network_may_pull(skb, sizeof(struct iphdr)) ?
4b95c3d4 CG	105	ip_hdr(skb)->protocol : 0;
60678040	106	case htons(ETH_P_IPV6):
4b95c3d4 CG	107	return pskb_network_may_pull(skb, sizeof(struct ipv6hdr)) ?
4b95c3d4 CG	108	ipv6_hdr(skb)->nexthdr : 0;
e5dfb815 PM	109	default:
	110	return 0;
	111	}
	112	}
	113
4b95c3d4	114	static u32 flow_get_proto_src(struct sk_buff *skb)
e5dfb815	115	{
e5dfb815	116	switch (skb->protocol) {
60678040	117	case htons(ETH_P_IP): {
4b95c3d4	118	struct iphdr *iph;
78d3307e	119	int poff;
e5dfb815	120
4b95c3d4 CG	121	if (!pskb_network_may_pull(skb, sizeof(*iph)))
	122	break;
	123	iph = ip_hdr(skb);
78d3307e CG	124	if (iph->frag_off & htons(IP_MF\|IP_OFFSET))
	125	break;
	126	poff = proto_ports_offset(iph->protocol);
	127	if (poff >= 0 &&
	128	pskb_network_may_pull(skb, iph->ihl * 4 + 2 + poff)) {
	129	iph = ip_hdr(skb);
	130	return ntohs((__be16 )((void )iph + iph->ihl 4 +
	131	poff));
	132	}
e5dfb815 PM	133	break;
e5dfb815 PM	134	}
60678040	135	case htons(ETH_P_IPV6): {
4b95c3d4	136	struct ipv6hdr *iph;
78d3307e	137	int poff;
e5dfb815	138
78d3307e	139	if (!pskb_network_may_pull(skb, sizeof(*iph)))
4b95c3d4 CG	140	break;
4b95c3d4 CG	141	iph = ipv6_hdr(skb);
78d3307e CG	142	poff = proto_ports_offset(iph->nexthdr);
	143	if (poff >= 0 &&
	144	pskb_network_may_pull(skb, sizeof(*iph) + poff + 2)) {
	145	iph = ipv6_hdr(skb);
	146	return ntohs((__be16 )((void )iph + sizeof(iph) +
	147	poff));
	148	}
e5dfb815 PM	149	break;
e5dfb815 PM	150	}
e5dfb815 PM	151	}
e5dfb815 PM	152
4b95c3d4	153	return addr_fold(skb->sk);
e5dfb815 PM	154	}
e5dfb815 PM	155
4b95c3d4	156	static u32 flow_get_proto_dst(struct sk_buff *skb)
e5dfb815	157	{
e5dfb815	158	switch (skb->protocol) {
60678040	159	case htons(ETH_P_IP): {
4b95c3d4	160	struct iphdr *iph;
78d3307e	161	int poff;
e5dfb815	162
4b95c3d4 CG	163	if (!pskb_network_may_pull(skb, sizeof(*iph)))
	164	break;
	165	iph = ip_hdr(skb);
78d3307e CG	166	if (iph->frag_off & htons(IP_MF\|IP_OFFSET))
	167	break;
	168	poff = proto_ports_offset(iph->protocol);
	169	if (poff >= 0 &&
	170	pskb_network_may_pull(skb, iph->ihl * 4 + 4 + poff)) {
	171	iph = ip_hdr(skb);
	172	return ntohs((__be16 )((void )iph + iph->ihl 4 +
	173	2 + poff));
	174	}
e5dfb815 PM	175	break;
e5dfb815 PM	176	}
60678040	177	case htons(ETH_P_IPV6): {
4b95c3d4	178	struct ipv6hdr *iph;
78d3307e	179	int poff;
e5dfb815	180
78d3307e	181	if (!pskb_network_may_pull(skb, sizeof(*iph)))
4b95c3d4 CG	182	break;
4b95c3d4 CG	183	iph = ipv6_hdr(skb);
78d3307e CG	184	poff = proto_ports_offset(iph->nexthdr);
	185	if (poff >= 0 &&
	186	pskb_network_may_pull(skb, sizeof(*iph) + poff + 4)) {
	187	iph = ipv6_hdr(skb);
	188	return ntohs((__be16 )((void )iph + sizeof(iph) +
	189	poff + 2));
	190	}
e5dfb815 PM	191	break;
e5dfb815 PM	192	}
e5dfb815 PM	193	}
e5dfb815 PM	194
4b95c3d4	195	return addr_fold(skb_dst(skb)) ^ (__force u16)skb->protocol;
e5dfb815 PM	196	}
	197
	198	static u32 flow_get_iif(const struct sk_buff *skb)
	199	{
8964be4a	200	return skb->skb_iif;
e5dfb815 PM	201	}
	202
	203	static u32 flow_get_priority(const struct sk_buff *skb)
	204	{
	205	return skb->priority;
	206	}
	207
	208	static u32 flow_get_mark(const struct sk_buff *skb)
	209	{
	210	return skb->mark;
	211	}
	212
	213	static u32 flow_get_nfct(const struct sk_buff *skb)
	214	{
	215	#if defined(CONFIG_NF_CONNTRACK) \|\| defined(CONFIG_NF_CONNTRACK_MODULE)
	216	return addr_fold(skb->nfct);
	217	#else
	218	return 0;
	219	#endif
	220	}
	221
	222	#if defined(CONFIG_NF_CONNTRACK) \|\| defined(CONFIG_NF_CONNTRACK_MODULE)
	223	#define CTTUPLE(skb, member) \
	224	({ \
	225	enum ip_conntrack_info ctinfo; \
	226	struct nf_conn *ct = nf_ct_get(skb, &ctinfo); \
	227	if (ct == NULL) \
	228	goto fallback; \
	229	ct->tuplehash[CTINFO2DIR(ctinfo)].tuple.member; \
	230	})
	231	#else
	232	#define CTTUPLE(skb, member) \
	233	({ \
	234	goto fallback; \
	235	0; \
	236	})
	237	#endif
	238
4b95c3d4	239	static u32 flow_get_nfct_src(struct sk_buff *skb)
e5dfb815 PM	240	{
e5dfb815 PM	241	switch (skb->protocol) {
60678040	242	case htons(ETH_P_IP):
e5dfb815	243	return ntohl(CTTUPLE(skb, src.u3.ip));
60678040	244	case htons(ETH_P_IPV6):
e5dfb815 PM	245	return ntohl(CTTUPLE(skb, src.u3.ip6[3]));
	246	}
	247	fallback:
	248	return flow_get_src(skb);
	249	}
	250
4b95c3d4	251	static u32 flow_get_nfct_dst(struct sk_buff *skb)
e5dfb815 PM	252	{
e5dfb815 PM	253	switch (skb->protocol) {
60678040	254	case htons(ETH_P_IP):
e5dfb815	255	return ntohl(CTTUPLE(skb, dst.u3.ip));
60678040	256	case htons(ETH_P_IPV6):
e5dfb815 PM	257	return ntohl(CTTUPLE(skb, dst.u3.ip6[3]));
	258	}
	259	fallback:
	260	return flow_get_dst(skb);
	261	}
	262
4b95c3d4	263	static u32 flow_get_nfct_proto_src(struct sk_buff *skb)
e5dfb815 PM	264	{
	265	return ntohs(CTTUPLE(skb, src.u.all));
	266	fallback:
	267	return flow_get_proto_src(skb);
	268	}
	269
4b95c3d4	270	static u32 flow_get_nfct_proto_dst(struct sk_buff *skb)
e5dfb815 PM	271	{
	272	return ntohs(CTTUPLE(skb, dst.u.all));
	273	fallback:
	274	return flow_get_proto_dst(skb);
	275	}
	276
	277	static u32 flow_get_rtclassid(const struct sk_buff *skb)
	278	{
	279	#ifdef CONFIG_NET_CLS_ROUTE
adf30907 ED	280	if (skb_dst(skb))
adf30907 ED	281	return skb_dst(skb)->tclassid;
e5dfb815 PM	282	#endif
	283	return 0;
	284	}
	285
	286	static u32 flow_get_skuid(const struct sk_buff *skb)
	287	{
	288	if (skb->sk && skb->sk->sk_socket && skb->sk->sk_socket->file)
d76b0d9b	289	return skb->sk->sk_socket->file->f_cred->fsuid;
e5dfb815 PM	290	return 0;
	291	}
	292
	293	static u32 flow_get_skgid(const struct sk_buff *skb)
	294	{
	295	if (skb->sk && skb->sk->sk_socket && skb->sk->sk_socket->file)
d76b0d9b	296	return skb->sk->sk_socket->file->f_cred->fsgid;
e5dfb815 PM	297	return 0;
	298	}
	299
9ec13810 PM	300	static u32 flow_get_vlan_tag(const struct sk_buff *skb)
	301	{
	302	u16 uninitialized_var(tag);
	303
	304	if (vlan_get_tag(skb, &tag) < 0)
	305	return 0;
	306	return tag & VLAN_VID_MASK;
	307	}
	308
4b95c3d4	309	static u32 flow_key_get(struct sk_buff *skb, int key)
e5dfb815 PM	310	{
	311	switch (key) {
	312	case FLOW_KEY_SRC:
	313	return flow_get_src(skb);
	314	case FLOW_KEY_DST:
	315	return flow_get_dst(skb);
	316	case FLOW_KEY_PROTO:
	317	return flow_get_proto(skb);
	318	case FLOW_KEY_PROTO_SRC:
	319	return flow_get_proto_src(skb);
	320	case FLOW_KEY_PROTO_DST:
	321	return flow_get_proto_dst(skb);
	322	case FLOW_KEY_IIF:
	323	return flow_get_iif(skb);
	324	case FLOW_KEY_PRIORITY:
	325	return flow_get_priority(skb);
	326	case FLOW_KEY_MARK:
	327	return flow_get_mark(skb);
	328	case FLOW_KEY_NFCT:
	329	return flow_get_nfct(skb);
	330	case FLOW_KEY_NFCT_SRC:
	331	return flow_get_nfct_src(skb);
	332	case FLOW_KEY_NFCT_DST:
	333	return flow_get_nfct_dst(skb);
	334	case FLOW_KEY_NFCT_PROTO_SRC:
	335	return flow_get_nfct_proto_src(skb);
	336	case FLOW_KEY_NFCT_PROTO_DST:
	337	return flow_get_nfct_proto_dst(skb);
	338	case FLOW_KEY_RTCLASSID:
	339	return flow_get_rtclassid(skb);
	340	case FLOW_KEY_SKUID:
	341	return flow_get_skuid(skb);
	342	case FLOW_KEY_SKGID:
	343	return flow_get_skgid(skb);
9ec13810 PM	344	case FLOW_KEY_VLAN_TAG:
9ec13810 PM	345	return flow_get_vlan_tag(skb);
e5dfb815 PM	346	default:
	347	WARN_ON(1);
	348	return 0;
	349	}
	350	}
	351
	352	static int flow_classify(struct sk_buff skb, struct tcf_proto tp,
	353	struct tcf_result *res)
	354	{
	355	struct flow_head *head = tp->root;
	356	struct flow_filter *f;
	357	u32 keymask;
	358	u32 classid;
	359	unsigned int n, key;
	360	int r;
	361
	362	list_for_each_entry(f, &head->filters, list) {
	363	u32 keys[f->nkeys];
	364
	365	if (!tcf_em_tree_match(skb, &f->ematches, NULL))
	366	continue;
	367
	368	keymask = f->keymask;
	369
	370	for (n = 0; n < f->nkeys; n++) {
	371	key = ffs(keymask) - 1;
	372	keymask &= ~(1 << key);
	373	keys[n] = flow_key_get(skb, key);
	374	}
	375
	376	if (f->mode == FLOW_MODE_HASH)
72d9794f	377	classid = jhash2(keys, f->nkeys, f->hashrnd);
e5dfb815 PM	378	else {
	379	classid = keys[0];
	380	classid = (classid & f->mask) ^ f->xor;
	381	classid = (classid >> f->rshift) + f->addend;
	382	}
	383
	384	if (f->divisor)
	385	classid %= f->divisor;
	386
	387	res->class = 0;
	388	res->classid = TC_H_MAKE(f->baseclass, f->baseclass + classid);
	389
	390	r = tcf_exts_exec(skb, &f->exts, res);
	391	if (r < 0)
	392	continue;
	393	return r;
	394	}
	395	return -1;
	396	}
	397
72d9794f PM	398	static void flow_perturbation(unsigned long arg)
	399	{
	400	struct flow_filter f = (struct flow_filter )arg;
	401
	402	get_random_bytes(&f->hashrnd, 4);
	403	if (f->perturb_period)
	404	mod_timer(&f->perturb_timer, jiffies + f->perturb_period);
	405	}
	406
e5dfb815 PM	407	static const struct nla_policy flow_policy[TCA_FLOW_MAX + 1] = {
	408	[TCA_FLOW_KEYS] = { .type = NLA_U32 },
	409	[TCA_FLOW_MODE] = { .type = NLA_U32 },
	410	[TCA_FLOW_BASECLASS] = { .type = NLA_U32 },
	411	[TCA_FLOW_RSHIFT] = { .type = NLA_U32 },
	412	[TCA_FLOW_ADDEND] = { .type = NLA_U32 },
	413	[TCA_FLOW_MASK] = { .type = NLA_U32 },
	414	[TCA_FLOW_XOR] = { .type = NLA_U32 },
	415	[TCA_FLOW_DIVISOR] = { .type = NLA_U32 },
	416	[TCA_FLOW_ACT] = { .type = NLA_NESTED },
	417	[TCA_FLOW_POLICE] = { .type = NLA_NESTED },
	418	[TCA_FLOW_EMATCHES] = { .type = NLA_NESTED },
72d9794f	419	[TCA_FLOW_PERTURB] = { .type = NLA_U32 },
e5dfb815 PM	420	};
	421
	422	static int flow_change(struct tcf_proto *tp, unsigned long base,
	423	u32 handle, struct nlattr **tca,
	424	unsigned long *arg)
	425	{
	426	struct flow_head *head = tp->root;
	427	struct flow_filter *f;
	428	struct nlattr *opt = tca[TCA_OPTIONS];
	429	struct nlattr *tb[TCA_FLOW_MAX + 1];
	430	struct tcf_exts e;
	431	struct tcf_ematch_tree t;
	432	unsigned int nkeys = 0;
72d9794f	433	unsigned int perturb_period = 0;
e5dfb815 PM	434	u32 baseclass = 0;
	435	u32 keymask = 0;
	436	u32 mode;
	437	int err;
	438
	439	if (opt == NULL)
	440	return -EINVAL;
	441
	442	err = nla_parse_nested(tb, TCA_FLOW_MAX, opt, flow_policy);
	443	if (err < 0)
	444	return err;
	445
	446	if (tb[TCA_FLOW_BASECLASS]) {
	447	baseclass = nla_get_u32(tb[TCA_FLOW_BASECLASS]);
	448	if (TC_H_MIN(baseclass) == 0)
	449	return -EINVAL;
	450	}
	451
	452	if (tb[TCA_FLOW_KEYS]) {
	453	keymask = nla_get_u32(tb[TCA_FLOW_KEYS]);
e5dfb815 PM	454
	455	nkeys = hweight32(keymask);
	456	if (nkeys == 0)
	457	return -EINVAL;
4f250491 PM	458
	459	if (fls(keymask) - 1 > FLOW_KEY_MAX)
	460	return -EOPNOTSUPP;
e5dfb815 PM	461	}
	462
	463	err = tcf_exts_validate(tp, tb, tca[TCA_RATE], &e, &flow_ext_map);
	464	if (err < 0)
	465	return err;
	466
	467	err = tcf_em_tree_validate(tp, tb[TCA_FLOW_EMATCHES], &t);
	468	if (err < 0)
	469	goto err1;
	470
	471	f = (struct flow_filter )arg;
	472	if (f != NULL) {
	473	err = -EINVAL;
	474	if (f->handle != handle && handle)
	475	goto err2;
	476
	477	mode = f->mode;
	478	if (tb[TCA_FLOW_MODE])
	479	mode = nla_get_u32(tb[TCA_FLOW_MODE]);
	480	if (mode != FLOW_MODE_HASH && nkeys > 1)
	481	goto err2;
72d9794f PM	482
	483	if (mode == FLOW_MODE_HASH)
	484	perturb_period = f->perturb_period;
	485	if (tb[TCA_FLOW_PERTURB]) {
	486	if (mode != FLOW_MODE_HASH)
	487	goto err2;
	488	perturb_period = nla_get_u32(tb[TCA_FLOW_PERTURB]) * HZ;
	489	}
e5dfb815 PM	490	} else {
	491	err = -EINVAL;
	492	if (!handle)
	493	goto err2;
	494	if (!tb[TCA_FLOW_KEYS])
	495	goto err2;
	496
	497	mode = FLOW_MODE_MAP;
	498	if (tb[TCA_FLOW_MODE])
	499	mode = nla_get_u32(tb[TCA_FLOW_MODE]);
	500	if (mode != FLOW_MODE_HASH && nkeys > 1)
	501	goto err2;
	502
72d9794f PM	503	if (tb[TCA_FLOW_PERTURB]) {
	504	if (mode != FLOW_MODE_HASH)
	505	goto err2;
	506	perturb_period = nla_get_u32(tb[TCA_FLOW_PERTURB]) * HZ;
	507	}
	508
e5dfb815 PM	509	if (TC_H_MAJ(baseclass) == 0)
	510	baseclass = TC_H_MAKE(tp->q->handle, baseclass);
	511	if (TC_H_MIN(baseclass) == 0)
	512	baseclass = TC_H_MAKE(baseclass, 1);
	513
	514	err = -ENOBUFS;
	515	f = kzalloc(sizeof(*f), GFP_KERNEL);
	516	if (f == NULL)
	517	goto err2;
	518
	519	f->handle = handle;
	520	f->mask = ~0U;
72d9794f PM	521
	522	get_random_bytes(&f->hashrnd, 4);
	523	f->perturb_timer.function = flow_perturbation;
	524	f->perturb_timer.data = (unsigned long)f;
	525	init_timer_deferrable(&f->perturb_timer);
e5dfb815 PM	526	}
	527
	528	tcf_exts_change(tp, &f->exts, &e);
	529	tcf_em_tree_change(tp, &f->ematches, &t);
	530
	531	tcf_tree_lock(tp);
	532
	533	if (tb[TCA_FLOW_KEYS]) {
	534	f->keymask = keymask;
	535	f->nkeys = nkeys;
	536	}
	537
	538	f->mode = mode;
	539
	540	if (tb[TCA_FLOW_MASK])
	541	f->mask = nla_get_u32(tb[TCA_FLOW_MASK]);
	542	if (tb[TCA_FLOW_XOR])
	543	f->xor = nla_get_u32(tb[TCA_FLOW_XOR]);
	544	if (tb[TCA_FLOW_RSHIFT])
	545	f->rshift = nla_get_u32(tb[TCA_FLOW_RSHIFT]);
	546	if (tb[TCA_FLOW_ADDEND])
	547	f->addend = nla_get_u32(tb[TCA_FLOW_ADDEND]);
	548
	549	if (tb[TCA_FLOW_DIVISOR])
	550	f->divisor = nla_get_u32(tb[TCA_FLOW_DIVISOR]);
	551	if (baseclass)
	552	f->baseclass = baseclass;
	553
72d9794f PM	554	f->perturb_period = perturb_period;
	555	del_timer(&f->perturb_timer);
	556	if (perturb_period)
	557	mod_timer(&f->perturb_timer, jiffies + perturb_period);
	558
e5dfb815 PM	559	if (*arg == 0)
	560	list_add_tail(&f->list, &head->filters);
	561
	562	tcf_tree_unlock(tp);
	563
	564	*arg = (unsigned long)f;
	565	return 0;
	566
	567	err2:
	568	tcf_em_tree_destroy(tp, &t);
	569	err1:
	570	tcf_exts_destroy(tp, &e);
	571	return err;
	572	}
	573
	574	static void flow_destroy_filter(struct tcf_proto tp, struct flow_filter f)
	575	{
72d9794f	576	del_timer_sync(&f->perturb_timer);
e5dfb815 PM	577	tcf_exts_destroy(tp, &f->exts);
	578	tcf_em_tree_destroy(tp, &f->ematches);
	579	kfree(f);
	580	}
	581
	582	static int flow_delete(struct tcf_proto *tp, unsigned long arg)
	583	{
	584	struct flow_filter f = (struct flow_filter )arg;
	585
	586	tcf_tree_lock(tp);
	587	list_del(&f->list);
	588	tcf_tree_unlock(tp);
	589	flow_destroy_filter(tp, f);
	590	return 0;
	591	}
	592
	593	static int flow_init(struct tcf_proto *tp)
	594	{
	595	struct flow_head *head;
	596
e5dfb815 PM	597	head = kzalloc(sizeof(*head), GFP_KERNEL);
	598	if (head == NULL)
	599	return -ENOBUFS;
	600	INIT_LIST_HEAD(&head->filters);
	601	tp->root = head;
	602	return 0;
	603	}
	604
	605	static void flow_destroy(struct tcf_proto *tp)
	606	{
	607	struct flow_head *head = tp->root;
	608	struct flow_filter f, next;
	609
	610	list_for_each_entry_safe(f, next, &head->filters, list) {
	611	list_del(&f->list);
	612	flow_destroy_filter(tp, f);
	613	}
	614	kfree(head);
	615	}
	616
	617	static unsigned long flow_get(struct tcf_proto *tp, u32 handle)
	618	{
	619	struct flow_head *head = tp->root;
	620	struct flow_filter *f;
	621
	622	list_for_each_entry(f, &head->filters, list)
	623	if (f->handle == handle)
	624	return (unsigned long)f;
	625	return 0;
	626	}
	627
	628	static void flow_put(struct tcf_proto *tp, unsigned long f)
	629	{
e5dfb815 PM	630	}
	631
	632	static int flow_dump(struct tcf_proto *tp, unsigned long fh,
	633	struct sk_buff skb, struct tcmsg t)
	634	{
	635	struct flow_filter f = (struct flow_filter )fh;
	636	struct nlattr *nest;
	637
	638	if (f == NULL)
	639	return skb->len;
	640
	641	t->tcm_handle = f->handle;
	642
	643	nest = nla_nest_start(skb, TCA_OPTIONS);
	644	if (nest == NULL)
	645	goto nla_put_failure;
	646
	647	NLA_PUT_U32(skb, TCA_FLOW_KEYS, f->keymask);
	648	NLA_PUT_U32(skb, TCA_FLOW_MODE, f->mode);
	649
	650	if (f->mask != ~0 \|\| f->xor != 0) {
	651	NLA_PUT_U32(skb, TCA_FLOW_MASK, f->mask);
	652	NLA_PUT_U32(skb, TCA_FLOW_XOR, f->xor);
	653	}
	654	if (f->rshift)
	655	NLA_PUT_U32(skb, TCA_FLOW_RSHIFT, f->rshift);
	656	if (f->addend)
	657	NLA_PUT_U32(skb, TCA_FLOW_ADDEND, f->addend);
	658
	659	if (f->divisor)
	660	NLA_PUT_U32(skb, TCA_FLOW_DIVISOR, f->divisor);
	661	if (f->baseclass)
	662	NLA_PUT_U32(skb, TCA_FLOW_BASECLASS, f->baseclass);
	663
72d9794f PM	664	if (f->perturb_period)
	665	NLA_PUT_U32(skb, TCA_FLOW_PERTURB, f->perturb_period / HZ);
	666
e5dfb815 PM	667	if (tcf_exts_dump(skb, &f->exts, &flow_ext_map) < 0)
e5dfb815 PM	668	goto nla_put_failure;
0aead543	669	#ifdef CONFIG_NET_EMATCH
e5dfb815 PM	670	if (f->ematches.hdr.nmatches &&
	671	tcf_em_tree_dump(skb, &f->ematches, TCA_FLOW_EMATCHES) < 0)
	672	goto nla_put_failure;
0aead543	673	#endif
e5dfb815 PM	674	nla_nest_end(skb, nest);
	675
	676	if (tcf_exts_dump_stats(skb, &f->exts, &flow_ext_map) < 0)
	677	goto nla_put_failure;
	678
	679	return skb->len;
	680
	681	nla_put_failure:
	682	nlmsg_trim(skb, nest);
	683	return -1;
	684	}
	685
	686	static void flow_walk(struct tcf_proto tp, struct tcf_walker arg)
	687	{
	688	struct flow_head *head = tp->root;
	689	struct flow_filter *f;
	690
	691	list_for_each_entry(f, &head->filters, list) {
	692	if (arg->count < arg->skip)
	693	goto skip;
	694	if (arg->fn(tp, (unsigned long)f, arg) < 0) {
	695	arg->stop = 1;
	696	break;
	697	}
	698	skip:
	699	arg->count++;
	700	}
	701	}
	702
	703	static struct tcf_proto_ops cls_flow_ops __read_mostly = {
	704	.kind = "flow",
	705	.classify = flow_classify,
	706	.init = flow_init,
	707	.destroy = flow_destroy,
	708	.change = flow_change,
	709	.delete = flow_delete,
	710	.get = flow_get,
	711	.put = flow_put,
	712	.dump = flow_dump,
	713	.walk = flow_walk,
	714	.owner = THIS_MODULE,
	715	};
	716
	717	static int __init cls_flow_init(void)
	718	{
	719	return register_tcf_proto_ops(&cls_flow_ops);
	720	}
	721
	722	static void __exit cls_flow_exit(void)
	723	{
	724	unregister_tcf_proto_ops(&cls_flow_ops);
	725	}
	726
	727	module_init(cls_flow_init);
	728	module_exit(cls_flow_exit);
	729
	730	MODULE_LICENSE("GPL");
	731	MODULE_AUTHOR("Patrick McHardy <kaber@trash.net>");
	732	MODULE_DESCRIPTION("TC flow classifier");