/*
 * This is a module which is used for logging packets to userspace via
 * nfetlink.
 *
 * (C) 2005 by Harald Welte <laforge@netfilter.org>
 * (C) 2006-2012 Patrick McHardy <kaber@trash.net>
 *
 * Based on the old ipv4-only ipt_ULOG.c:
 * (C) 2000-2004 by Harald Welte <laforge@netfilter.org>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License version 2 as
 * published by the Free Software Foundation.
 */
#include <linux/module.h>
#include <linux/skbuff.h>
#include <linux/if_arp.h>
#include <linux/init.h>
#include <linux/ip.h>
#include <linux/ipv6.h>
#include <linux/netdevice.h>
#include <linux/netfilter.h>
#include <net/netlink.h>
#include <linux/netfilter/nfnetlink.h>
#include <linux/netfilter/nfnetlink_log.h>
#include <linux/spinlock.h>
#include <linux/sysctl.h>
#include <linux/proc_fs.h>
#include <linux/security.h>
#include <linux/list.h>
#include <linux/jhash.h>
#include <linux/random.h>
#include <linux/slab.h>
#include <net/sock.h>
#include <net/netfilter/nf_log.h>
#include <net/netns/generic.h>
#include <net/netfilter/nfnetlink_log.h>

#include <linux/atomic.h>

#ifdef CONFIG_BRIDGE_NETFILTER
#include "../bridge/br_private.h"
#endif

#define NFULNL_NLBUFSIZ_DEFAULT NLMSG_GOODSIZE
#define NFULNL_TIMEOUT_DEFAULT  100     /* every second */
#define NFULNL_QTHRESH_DEFAULT  100     /* 100 packets */
#define NFULNL_COPY_RANGE_MAX   0xFFFF  /* max packet size is limited by 16-bit struct nfattr nfa_len field */

#define PRINTR(x, args...)      do { if (net_ratelimit()) \
                                     printk(x, ## args); } while (0);

struct nfulnl_instance {
        struct hlist_node hlist;        /* global list of instances */
        spinlock_t lock;
        atomic_t use;                   /* use count */

        unsigned int qlen;              /* number of nlmsgs in skb */
        struct sk_buff *skb;            /* pre-allocatd skb */
        struct timer_list timer;
        struct net *net;
        struct user_namespace *peer_user_ns;    /* User namespace of the peer process */
        int peer_portid;                        /* PORTID of the peer process */

        /* configurable parameters */
        unsigned int flushtimeout;      /* timeout until queue flush */
        unsigned int nlbufsiz;          /* netlink buffer allocation size */
        unsigned int qthreshold;        /* threshold of the queue */
        u_int32_t copy_range;
        u_int32_t seq;                  /* instance-local sequential counter */
        u_int16_t group_num;            /* number of this queue */
        u_int16_t flags;
        u_int8_t copy_mode;
        struct rcu_head rcu;
};

#define INSTANCE_BUCKETS        16
static unsigned int hash_init;

static int nfnl_log_net_id __read_mostly;

struct nfnl_log_net {
        spinlock_t instances_lock;
        struct hlist_head instance_table[INSTANCE_BUCKETS];
        atomic_t global_seq;
};

static struct nfnl_log_net *nfnl_log_pernet(struct net *net)
{
        return net_generic(net, nfnl_log_net_id);
}

static inline u_int8_t instance_hashfn(u_int16_t group_num)
{
        return ((group_num & 0xff) % INSTANCE_BUCKETS);
}

static struct nfulnl_instance *
__instance_lookup(struct nfnl_log_net *log, u_int16_t group_num)
{
        struct hlist_head *head;
        struct nfulnl_instance *inst;

        head = &log->instance_table[instance_hashfn(group_num)];
        hlist_for_each_entry_rcu(inst, head, hlist) {
                if (inst->group_num == group_num)
                        return inst;
        }
        return NULL;
}

static inline void
instance_get(struct nfulnl_instance *inst)
{
        atomic_inc(&inst->use);
}

static struct nfulnl_instance *
instance_lookup_get(struct nfnl_log_net *log, u_int16_t group_num)
{
        struct nfulnl_instance *inst;

        rcu_read_lock_bh();
        inst = __instance_lookup(log, group_num);
        if (inst && !atomic_inc_not_zero(&inst->use))
                inst = NULL;
        rcu_read_unlock_bh();

        return inst;
}

static void nfulnl_instance_free_rcu(struct rcu_head *head)
{
        struct nfulnl_instance *inst =
                container_of(head, struct nfulnl_instance, rcu);

        put_net(inst->net);
        kfree(inst);
        module_put(THIS_MODULE);
}

static void
instance_put(struct nfulnl_instance *inst)
{
        if (inst && atomic_dec_and_test(&inst->use))
                call_rcu_bh(&inst->rcu, nfulnl_instance_free_rcu);
}

static void nfulnl_timer(unsigned long data);

static struct nfulnl_instance *
instance_create(struct net *net, u_int16_t group_num,
                int portid, struct user_namespace *user_ns)
{
        struct nfulnl_instance *inst;
        struct nfnl_log_net *log = nfnl_log_pernet(net);
        int err;

        spin_lock_bh(&log->instances_lock);
        if (__instance_lookup(log, group_num)) {
                err = -EEXIST;
                goto out_unlock;
        }

        inst = kzalloc(sizeof(*inst), GFP_ATOMIC);
        if (!inst) {
                err = -ENOMEM;
                goto out_unlock;
        }

        if (!try_module_get(THIS_MODULE)) {
                kfree(inst);
                err = -EAGAIN;
                goto out_unlock;
        }

        INIT_HLIST_NODE(&inst->hlist);
        spin_lock_init(&inst->lock);
        /* needs to be two, since we _put() after creation */
        atomic_set(&inst->use, 2);

        setup_timer(&inst->timer, nfulnl_timer, (unsigned long)inst);

        inst->net = get_net(net);
        inst->peer_user_ns = user_ns;
        inst->peer_portid = portid;
        inst->group_num = group_num;

        inst->qthreshold        = NFULNL_QTHRESH_DEFAULT;
        inst->flushtimeout      = NFULNL_TIMEOUT_DEFAULT;
        inst->nlbufsiz          = NFULNL_NLBUFSIZ_DEFAULT;
        inst->copy_mode         = NFULNL_COPY_PACKET;
        inst->copy_range        = NFULNL_COPY_RANGE_MAX;

        hlist_add_head_rcu(&inst->hlist,
                       &log->instance_table[instance_hashfn(group_num)]);


        spin_unlock_bh(&log->instances_lock);

        return inst;

out_unlock:
        spin_unlock_bh(&log->instances_lock);
        return ERR_PTR(err);
}

static void __nfulnl_flush(struct nfulnl_instance *inst);

/* called with BH disabled */
static void
__instance_destroy(struct nfulnl_instance *inst)
{
        /* first pull it out of the global list */
        hlist_del_rcu(&inst->hlist);

        /* then flush all pending packets from skb */

        spin_lock(&inst->lock);

        /* lockless readers wont be able to use us */
        inst->copy_mode = NFULNL_COPY_DISABLED;

        if (inst->skb)
                __nfulnl_flush(inst);
        spin_unlock(&inst->lock);

        /* and finally put the refcount */
        instance_put(inst);
}

static inline void
instance_destroy(struct nfnl_log_net *log,
                 struct nfulnl_instance *inst)
{
        spin_lock_bh(&log->instances_lock);
        __instance_destroy(inst);
        spin_unlock_bh(&log->instances_lock);
}

static int
nfulnl_set_mode(struct nfulnl_instance *inst, u_int8_t mode,
                  unsigned int range)
{
        int status = 0;

        spin_lock_bh(&inst->lock);

        switch (mode) {
        case NFULNL_COPY_NONE:
        case NFULNL_COPY_META:
                inst->copy_mode = mode;
                inst->copy_range = 0;
                break;

        case NFULNL_COPY_PACKET:
                inst->copy_mode = mode;
                inst->copy_range = min_t(unsigned int,
                                         range, NFULNL_COPY_RANGE_MAX);
                break;

        default:
                status = -EINVAL;
                break;
        }

        spin_unlock_bh(&inst->lock);

        return status;
}

static int
nfulnl_set_nlbufsiz(struct nfulnl_instance *inst, u_int32_t nlbufsiz)
{
        int status;

        spin_lock_bh(&inst->lock);
        if (nlbufsiz < NFULNL_NLBUFSIZ_DEFAULT)
                status = -ERANGE;
        else if (nlbufsiz > 131072)
                status = -ERANGE;
        else {
                inst->nlbufsiz = nlbufsiz;
                status = 0;
        }
        spin_unlock_bh(&inst->lock);

        return status;
}

static int
nfulnl_set_timeout(struct nfulnl_instance *inst, u_int32_t timeout)
{
        spin_lock_bh(&inst->lock);
        inst->flushtimeout = timeout;
        spin_unlock_bh(&inst->lock);

        return 0;
}

static int
nfulnl_set_qthresh(struct nfulnl_instance *inst, u_int32_t qthresh)
{
        spin_lock_bh(&inst->lock);
        inst->qthreshold = qthresh;
        spin_unlock_bh(&inst->lock);

        return 0;
}

static int
nfulnl_set_flags(struct nfulnl_instance *inst, u_int16_t flags)
{
        spin_lock_bh(&inst->lock);
        inst->flags = flags;
        spin_unlock_bh(&inst->lock);

        return 0;
}

static struct sk_buff *
nfulnl_alloc_skb(u32 peer_portid, unsigned int inst_size, unsigned int pkt_size)
{
        struct sk_buff *skb;
        unsigned int n;

        /* alloc skb which should be big enough for a whole multipart
         * message.  WARNING: has to be <= 128k due to slab restrictions */

        n = max(inst_size, pkt_size);
        skb = nfnetlink_alloc_skb(&init_net, n, peer_portid, GFP_ATOMIC);
        if (!skb) {
                if (n > pkt_size) {
                        /* try to allocate only as much as we need for current
                         * packet */

                        skb = nfnetlink_alloc_skb(&init_net, pkt_size,
                                                  peer_portid, GFP_ATOMIC);
                        if (!skb)
                                pr_err("nfnetlink_log: can't even alloc %u bytes\n",
                                       pkt_size);
                }
        }

        return skb;
}

static int
__nfulnl_send(struct nfulnl_instance *inst)
{
        int status = -1;

        if (inst->qlen > 1) {
                struct nlmsghdr *nlh = nlmsg_put(inst->skb, 0, 0,
                                                 NLMSG_DONE,
                                                 sizeof(struct nfgenmsg),
                                                 0);
                if (!nlh)
                        goto out;
        }
        status = nfnetlink_unicast(inst->skb, inst->net, inst->peer_portid,
                                   MSG_DONTWAIT);

        inst->qlen = 0;
        inst->skb = NULL;
out:
        return status;
}

static void
__nfulnl_flush(struct nfulnl_instance *inst)
{
        /* timer holds a reference */
        if (del_timer(&inst->timer))
                instance_put(inst);
        if (inst->skb)
                __nfulnl_send(inst);
}

static void
nfulnl_timer(unsigned long data)
{
        struct nfulnl_instance *inst = (struct nfulnl_instance *)data;

        spin_lock_bh(&inst->lock);
        if (inst->skb)
                __nfulnl_send(inst);
        spin_unlock_bh(&inst->lock);
        instance_put(inst);
}

/* This is an inline function, we don't really care about a long
 * list of arguments */
static inline int
__build_packet_message(struct nfnl_log_net *log,
                        struct nfulnl_instance *inst,
                        const struct sk_buff *skb,
                        unsigned int data_len,
                        u_int8_t pf,
                        unsigned int hooknum,
                        const struct net_device *indev,
                        const struct net_device *outdev,
                        const char *prefix, unsigned int plen)
{
        struct nfulnl_msg_packet_hdr pmsg;
        struct nlmsghdr *nlh;
        struct nfgenmsg *nfmsg;
        sk_buff_data_t old_tail = inst->skb->tail;
        struct sock *sk;
        const unsigned char *hwhdrp;

        nlh = nlmsg_put(inst->skb, 0, 0,
                        NFNL_SUBSYS_ULOG << 8 | NFULNL_MSG_PACKET,
                        sizeof(struct nfgenmsg), 0);
        if (!nlh)
                return -1;
        nfmsg = nlmsg_data(nlh);
        nfmsg->nfgen_family = pf;
        nfmsg->version = NFNETLINK_V0;
        nfmsg->res_id = htons(inst->group_num);

        memset(&pmsg, 0, sizeof(pmsg));
        pmsg.hw_protocol        = skb->protocol;
        pmsg.hook               = hooknum;

        if (nla_put(inst->skb, NFULA_PACKET_HDR, sizeof(pmsg), &pmsg))
                goto nla_put_failure;

        if (prefix &&
            nla_put(inst->skb, NFULA_PREFIX, plen, prefix))
                goto nla_put_failure;

        if (indev) {
#ifndef CONFIG_BRIDGE_NETFILTER
                if (nla_put_be32(inst->skb, NFULA_IFINDEX_INDEV,
                                 htonl(indev->ifindex)))
                        goto nla_put_failure;
#else
                if (pf == PF_BRIDGE) {
                        /* Case 1: outdev is physical input device, we need to
                         * look for bridge group (when called from
                         * netfilter_bridge) */
                        if (nla_put_be32(inst->skb, NFULA_IFINDEX_PHYSINDEV,
                                         htonl(indev->ifindex)) ||
                        /* this is the bridge group "brX" */
                        /* rcu_read_lock()ed by nf_hook_slow or nf_log_packet */
                            nla_put_be32(inst->skb, NFULA_IFINDEX_INDEV,
                                         htonl(br_port_get_rcu(indev)->br->dev->ifindex)))
                                goto nla_put_failure;
                } else {
                        /* Case 2: indev is bridge group, we need to look for
                         * physical device (when called from ipv4) */
                        if (nla_put_be32(inst->skb, NFULA_IFINDEX_INDEV,
                                         htonl(indev->ifindex)))
                                goto nla_put_failure;
                        if (skb->nf_bridge && skb->nf_bridge->physindev &&
                            nla_put_be32(inst->skb, NFULA_IFINDEX_PHYSINDEV,
                                         htonl(skb->nf_bridge->physindev->ifindex)))
                                goto nla_put_failure;
                }
#endif
        }

        if (outdev) {
#ifndef CONFIG_BRIDGE_NETFILTER
                if (nla_put_be32(inst->skb, NFULA_IFINDEX_OUTDEV,
                                 htonl(outdev->ifindex)))
                        goto nla_put_failure;
#else
                if (pf == PF_BRIDGE) {
                        /* Case 1: outdev is physical output device, we need to
                         * look for bridge group (when called from
                         * netfilter_bridge) */
                        if (nla_put_be32(inst->skb, NFULA_IFINDEX_PHYSOUTDEV,
                                         htonl(outdev->ifindex)) ||
                        /* this is the bridge group "brX" */
                        /* rcu_read_lock()ed by nf_hook_slow or nf_log_packet */
                            nla_put_be32(inst->skb, NFULA_IFINDEX_OUTDEV,
                                         htonl(br_port_get_rcu(outdev)->br->dev->ifindex)))
                                goto nla_put_failure;
                } else {
                        /* Case 2: indev is a bridge group, we need to look
                         * for physical device (when called from ipv4) */
                        if (nla_put_be32(inst->skb, NFULA_IFINDEX_OUTDEV,
                                         htonl(outdev->ifindex)))
                                goto nla_put_failure;
                        if (skb->nf_bridge && skb->nf_bridge->physoutdev &&
                            nla_put_be32(inst->skb, NFULA_IFINDEX_PHYSOUTDEV,
                                         htonl(skb->nf_bridge->physoutdev->ifindex)))
                                goto nla_put_failure;
                }
#endif
        }

        if (skb->mark &&
            nla_put_be32(inst->skb, NFULA_MARK, htonl(skb->mark)))
                goto nla_put_failure;

        if (indev && skb->dev &&
            skb->mac_header != skb->network_header) {
                struct nfulnl_msg_packet_hw phw;
                int len;

                memset(&phw, 0, sizeof(phw));
                len = dev_parse_header(skb, phw.hw_addr);
                if (len > 0) {
                        phw.hw_addrlen = htons(len);
                        if (nla_put(inst->skb, NFULA_HWADDR, sizeof(phw), &phw))
                                goto nla_put_failure;
                }
        }

        if (indev && skb_mac_header_was_set(skb)) {
                if (nla_put_be16(inst->skb, NFULA_HWTYPE, htons(skb->dev->type)) ||
                    nla_put_be16(inst->skb, NFULA_HWLEN,
                                 htons(skb->dev->hard_header_len)))
                        goto nla_put_failure;

                hwhdrp = skb_mac_header(skb);

                if (skb->dev->type == ARPHRD_SIT)
                        hwhdrp -= ETH_HLEN;

                if (hwhdrp >= skb->head &&
                    nla_put(inst->skb, NFULA_HWHEADER,
                            skb->dev->hard_header_len, hwhdrp))
                        goto nla_put_failure;
        }

        if (skb->tstamp.tv64) {
                struct nfulnl_msg_packet_timestamp ts;
                struct timeval tv = ktime_to_timeval(skb->tstamp);
                ts.sec = cpu_to_be64(tv.tv_sec);
                ts.usec = cpu_to_be64(tv.tv_usec);

                if (nla_put(inst->skb, NFULA_TIMESTAMP, sizeof(ts), &ts))
                        goto nla_put_failure;
        }

        /* UID */
        sk = skb->sk;
        if (sk && sk->sk_state != TCP_TIME_WAIT) {
                read_lock_bh(&sk->sk_callback_lock);
                if (sk->sk_socket && sk->sk_socket->file) {
                        struct file *file = sk->sk_socket->file;
                        const struct cred *cred = file->f_cred;
                        struct user_namespace *user_ns = inst->peer_user_ns;
                        __be32 uid = htonl(from_kuid_munged(user_ns, cred->fsuid));
                        __be32 gid = htonl(from_kgid_munged(user_ns, cred->fsgid));
                        read_unlock_bh(&sk->sk_callback_lock);
                        if (nla_put_be32(inst->skb, NFULA_UID, uid) ||
                            nla_put_be32(inst->skb, NFULA_GID, gid))
                                goto nla_put_failure;
                } else
                        read_unlock_bh(&sk->sk_callback_lock);
        }

        /* local sequence number */
        if ((inst->flags & NFULNL_CFG_F_SEQ) &&
            nla_put_be32(inst->skb, NFULA_SEQ, htonl(inst->seq++)))
                goto nla_put_failure;

        /* global sequence number */
        if ((inst->flags & NFULNL_CFG_F_SEQ_GLOBAL) &&
            nla_put_be32(inst->skb, NFULA_SEQ_GLOBAL,
                         htonl(atomic_inc_return(&log->global_seq))))
                goto nla_put_failure;

        if (data_len) {
                struct nlattr *nla;
                int size = nla_attr_size(data_len);

                if (skb_tailroom(inst->skb) < nla_total_size(data_len)) {
                        printk(KERN_WARNING "nfnetlink_log: no tailroom!\n");
                        return -1;
                }

                nla = (struct nlattr *)skb_put(inst->skb, nla_total_size(data_len));
                nla->nla_type = NFULA_PAYLOAD;
                nla->nla_len = size;

                if (skb_copy_bits(skb, 0, nla_data(nla), data_len))
                        BUG();
        }

        nlh->nlmsg_len = inst->skb->tail - old_tail;
        return 0;

nla_put_failure:
        PRINTR(KERN_ERR "nfnetlink_log: error creating log nlmsg\n");
        return -1;
}

#define RCV_SKB_FAIL(err) do { netlink_ack(skb, nlh, (err)); return; } while (0)

static struct nf_loginfo default_loginfo = {
        .type =         NF_LOG_TYPE_ULOG,
        .u = {
                .ulog = {
                        .copy_len       = 0xffff,
                        .group          = 0,
                        .qthreshold     = 1,
                },
        },
};

/* log handler for internal netfilter logging api */
void
nfulnl_log_packet(struct net *net,
                  u_int8_t pf,
                  unsigned int hooknum,
                  const struct sk_buff *skb,
                  const struct net_device *in,
                  const struct net_device *out,
                  const struct nf_loginfo *li_user,
                  const char *prefix)
{
        unsigned int size, data_len;
        struct nfulnl_instance *inst;
        const struct nf_loginfo *li;
        unsigned int qthreshold;
        unsigned int plen;
        struct nfnl_log_net *log = nfnl_log_pernet(net);

        if (li_user && li_user->type == NF_LOG_TYPE_ULOG)
                li = li_user;
        else
                li = &default_loginfo;

        inst = instance_lookup_get(log, li->u.ulog.group);
        if (!inst)
                return;

        plen = 0;
        if (prefix)
                plen = strlen(prefix) + 1;

        /* FIXME: do we want to make the size calculation conditional based on
         * what is actually present?  way more branches and checks, but more
         * memory efficient... */
        size =    nlmsg_total_size(sizeof(struct nfgenmsg))
                + nla_total_size(sizeof(struct nfulnl_msg_packet_hdr))
                + nla_total_size(sizeof(u_int32_t))     /* ifindex */
                + nla_total_size(sizeof(u_int32_t))     /* ifindex */
#ifdef CONFIG_BRIDGE_NETFILTER
                + nla_total_size(sizeof(u_int32_t))     /* ifindex */
                + nla_total_size(sizeof(u_int32_t))     /* ifindex */
#endif
                + nla_total_size(sizeof(u_int32_t))     /* mark */
                + nla_total_size(sizeof(u_int32_t))     /* uid */
                + nla_total_size(sizeof(u_int32_t))     /* gid */
                + nla_total_size(plen)                  /* prefix */
                + nla_total_size(sizeof(struct nfulnl_msg_packet_hw))
                + nla_total_size(sizeof(struct nfulnl_msg_packet_timestamp));

        if (in && skb_mac_header_was_set(skb)) {
                size +=   nla_total_size(skb->dev->hard_header_len)
                        + nla_total_size(sizeof(u_int16_t))     /* hwtype */
                        + nla_total_size(sizeof(u_int16_t));    /* hwlen */
        }

        spin_lock_bh(&inst->lock);

        if (inst->flags & NFULNL_CFG_F_SEQ)
                size += nla_total_size(sizeof(u_int32_t));
        if (inst->flags & NFULNL_CFG_F_SEQ_GLOBAL)
                size += nla_total_size(sizeof(u_int32_t));

        qthreshold = inst->qthreshold;
        /* per-rule qthreshold overrides per-instance */
        if (li->u.ulog.qthreshold)
                if (qthreshold > li->u.ulog.qthreshold)
                        qthreshold = li->u.ulog.qthreshold;


        switch (inst->copy_mode) {
        case NFULNL_COPY_META:
        case NFULNL_COPY_NONE:
                data_len = 0;
                break;

        case NFULNL_COPY_PACKET:
                if (inst->copy_range == 0
                    || inst->copy_range > skb->len)
                        data_len = skb->len;
                else
                        data_len = inst->copy_range;

                size += nla_total_size(data_len);
                break;

        case NFULNL_COPY_DISABLED:
        default:
                goto unlock_and_release;
        }

        if (inst->skb &&
            size > skb_tailroom(inst->skb) - sizeof(struct nfgenmsg)) {
                /* either the queue len is too high or we don't have
                 * enough room in the skb left. flush to userspace. */
                __nfulnl_flush(inst);
        }

        if (!inst->skb) {
                inst->skb = nfulnl_alloc_skb(inst->peer_portid, inst->nlbufsiz,
                                             size);
                if (!inst->skb)
                        goto alloc_failure;
        }

        inst->qlen++;

        __build_packet_message(log, inst, skb, data_len, pf,
                                hooknum, in, out, prefix, plen);

        if (inst->qlen >= qthreshold)
                __nfulnl_flush(inst);
        /* timer_pending always called within inst->lock, so there
         * is no chance of a race here */
        else if (!timer_pending(&inst->timer)) {
                instance_get(inst);
                inst->timer.expires = jiffies + (inst->flushtimeout*HZ/100);
                add_timer(&inst->timer);
        }

unlock_and_release:
        spin_unlock_bh(&inst->lock);
        instance_put(inst);
        return;

alloc_failure:
        /* FIXME: statistics */
        goto unlock_and_release;
}
EXPORT_SYMBOL_GPL(nfulnl_log_packet);

static int
nfulnl_rcv_nl_event(struct notifier_block *this,
                   unsigned long event, void *ptr)
{
        struct netlink_notify *n = ptr;
        struct nfnl_log_net *log = nfnl_log_pernet(n->net);

        if (event == NETLINK_URELEASE && n->protocol == NETLINK_NETFILTER) {
                int i;

                /* destroy all instances for this portid */
                spin_lock_bh(&log->instances_lock);
                for  (i = 0; i < INSTANCE_BUCKETS; i++) {
                        struct hlist_node *t2;
                        struct nfulnl_instance *inst;
                        struct hlist_head *head = &log->instance_table[i];

                        hlist_for_each_entry_safe(inst, t2, head, hlist) {
                                if (n->portid == inst->peer_portid)
                                        __instance_destroy(inst);
                        }
                }
                spin_unlock_bh(&log->instances_lock);
        }
        return NOTIFY_DONE;
}

static struct notifier_block nfulnl_rtnl_notifier = {
        .notifier_call  = nfulnl_rcv_nl_event,
};

static int
nfulnl_recv_unsupp(struct sock *ctnl, struct sk_buff *skb,
                   const struct nlmsghdr *nlh,
                   const struct nlattr * const nfqa[])
{
        return -ENOTSUPP;
}

static struct nf_logger nfulnl_logger __read_mostly = {
        .name   = "nfnetlink_log",
        .logfn  = &nfulnl_log_packet,
        .me     = THIS_MODULE,
};

static const struct nla_policy nfula_cfg_policy[NFULA_CFG_MAX+1] = {
        [NFULA_CFG_CMD]         = { .len = sizeof(struct nfulnl_msg_config_cmd) },
        [NFULA_CFG_MODE]        = { .len = sizeof(struct nfulnl_msg_config_mode) },
        [NFULA_CFG_TIMEOUT]     = { .type = NLA_U32 },
        [NFULA_CFG_QTHRESH]     = { .type = NLA_U32 },
        [NFULA_CFG_NLBUFSIZ]    = { .type = NLA_U32 },
        [NFULA_CFG_FLAGS]       = { .type = NLA_U16 },
};

static int
nfulnl_recv_config(struct sock *ctnl, struct sk_buff *skb,
                   const struct nlmsghdr *nlh,
                   const struct nlattr * const nfula[])
{
        struct nfgenmsg *nfmsg = nlmsg_data(nlh);
        u_int16_t group_num = ntohs(nfmsg->res_id);
        struct nfulnl_instance *inst;
        struct nfulnl_msg_config_cmd *cmd = NULL;
        struct net *net = sock_net(ctnl);
        struct nfnl_log_net *log = nfnl_log_pernet(net);
        int ret = 0;

        if (nfula[NFULA_CFG_CMD]) {
                u_int8_t pf = nfmsg->nfgen_family;
                cmd = nla_data(nfula[NFULA_CFG_CMD]);

                /* Commands without queue context */
                switch (cmd->command) {
                case NFULNL_CFG_CMD_PF_BIND:
                        return nf_log_bind_pf(net, pf, &nfulnl_logger);
                case NFULNL_CFG_CMD_PF_UNBIND:
                        nf_log_unbind_pf(net, pf);
                        return 0;
                }
        }

        inst = instance_lookup_get(log, group_num);
        if (inst && inst->peer_portid != NETLINK_CB(skb).portid) {
                ret = -EPERM;
                goto out_put;
        }

        if (cmd != NULL) {
                switch (cmd->command) {
                case NFULNL_CFG_CMD_BIND:
                        if (inst) {
                                ret = -EBUSY;
                                goto out_put;
                        }

                        inst = instance_create(net, group_num,
                                               NETLINK_CB(skb).portid,
                                               sk_user_ns(NETLINK_CB(skb).sk));
                        if (IS_ERR(inst)) {
                                ret = PTR_ERR(inst);
                                goto out;
                        }
                        break;
                case NFULNL_CFG_CMD_UNBIND:
                        if (!inst) {
                                ret = -ENODEV;
                                goto out;
                        }

                        instance_destroy(log, inst);
                        goto out_put;
                default:
                        ret = -ENOTSUPP;
                        break;
                }
        }

        if (nfula[NFULA_CFG_MODE]) {
                struct nfulnl_msg_config_mode *params;
                params = nla_data(nfula[NFULA_CFG_MODE]);

                if (!inst) {
                        ret = -ENODEV;
                        goto out;
                }
                nfulnl_set_mode(inst, params->copy_mode,
                                ntohl(params->copy_range));
        }

        if (nfula[NFULA_CFG_TIMEOUT]) {
                __be32 timeout = nla_get_be32(nfula[NFULA_CFG_TIMEOUT]);

                if (!inst) {
                        ret = -ENODEV;
                        goto out;
                }
                nfulnl_set_timeout(inst, ntohl(timeout));
        }

        if (nfula[NFULA_CFG_NLBUFSIZ]) {
                __be32 nlbufsiz = nla_get_be32(nfula[NFULA_CFG_NLBUFSIZ]);

                if (!inst) {
                        ret = -ENODEV;
                        goto out;
                }
                nfulnl_set_nlbufsiz(inst, ntohl(nlbufsiz));
        }

        if (nfula[NFULA_CFG_QTHRESH]) {
                __be32 qthresh = nla_get_be32(nfula[NFULA_CFG_QTHRESH]);

                if (!inst) {
                        ret = -ENODEV;
                        goto out;
                }
                nfulnl_set_qthresh(inst, ntohl(qthresh));
        }

        if (nfula[NFULA_CFG_FLAGS]) {
                __be16 flags = nla_get_be16(nfula[NFULA_CFG_FLAGS]);

                if (!inst) {
                        ret = -ENODEV;
                        goto out;
                }
                nfulnl_set_flags(inst, ntohs(flags));
        }

out_put:
        instance_put(inst);
out:
        return ret;
}

static const struct nfnl_callback nfulnl_cb[NFULNL_MSG_MAX] = {
        [NFULNL_MSG_PACKET]     = { .call = nfulnl_recv_unsupp,
                                    .attr_count = NFULA_MAX, },
        [NFULNL_MSG_CONFIG]     = { .call = nfulnl_recv_config,
                                    .attr_count = NFULA_CFG_MAX,
                                    .policy = nfula_cfg_policy },
};

static const struct nfnetlink_subsystem nfulnl_subsys = {
        .name           = "log",
        .subsys_id      = NFNL_SUBSYS_ULOG,
        .cb_count       = NFULNL_MSG_MAX,
        .cb             = nfulnl_cb,
};

#ifdef CONFIG_PROC_FS
struct iter_state {
        struct seq_net_private p;
        unsigned int bucket;
};

static struct hlist_node *get_first(struct net *net, struct iter_state *st)
{
        struct nfnl_log_net *log;
        if (!st)
                return NULL;

        log = nfnl_log_pernet(net);

        for (st->bucket = 0; st->bucket < INSTANCE_BUCKETS; st->bucket++) {
                struct hlist_head *head = &log->instance_table[st->bucket];

                if (!hlist_empty(head))
                        return rcu_dereference_bh(hlist_first_rcu(head));
        }
        return NULL;
}

static struct hlist_node *get_next(struct net *net, struct iter_state *st,
                                   struct hlist_node *h)
{
        h = rcu_dereference_bh(hlist_next_rcu(h));
        while (!h) {
                struct nfnl_log_net *log;
                struct hlist_head *head;

                if (++st->bucket >= INSTANCE_BUCKETS)
                        return NULL;

                log = nfnl_log_pernet(net);
                head = &log->instance_table[st->bucket];
                h = rcu_dereference_bh(hlist_first_rcu(head));
        }
        return h;
}

static struct hlist_node *get_idx(struct net *net, struct iter_state *st,
                                  loff_t pos)
{
        struct hlist_node *head;
        head = get_first(net, st);

        if (head)
                while (pos && (head = get_next(net, st, head)))
                        pos--;
        return pos ? NULL : head;
}

static void *seq_start(struct seq_file *s, loff_t *pos)
        __acquires(rcu_bh)
{
        rcu_read_lock_bh();
        return get_idx(seq_file_net(s), s->private, *pos);
}

static void *seq_next(struct seq_file *s, void *v, loff_t *pos)
{
        (*pos)++;
        return get_next(seq_file_net(s), s->private, v);
}

static void seq_stop(struct seq_file *s, void *v)
        __releases(rcu_bh)
{
        rcu_read_unlock_bh();
}

static int seq_show(struct seq_file *s, void *v)
{

        const struct nfulnl_instance *inst = v;

        return seq_printf(s, "%5d %6d %5d %1d %5d %6d %2d\n",
                          inst->group_num,
                          inst->peer_portid, inst->qlen,
                          inst->copy_mode, inst->copy_range,
                          inst->flushtimeout, atomic_read(&inst->use));
}

static const struct seq_operations nful_seq_ops = {
        .start  = seq_start,
        .next   = seq_next,
        .stop   = seq_stop,
        .show   = seq_show,
};

static int nful_open(struct inode *inode, struct file *file)
{
        return seq_open_net(inode, file, &nful_seq_ops,
                            sizeof(struct iter_state));
}

static const struct file_operations nful_file_ops = {
        .owner   = THIS_MODULE,
        .open    = nful_open,
        .read    = seq_read,
        .llseek  = seq_lseek,
        .release = seq_release_net,
};

#endif /* PROC_FS */

static int __net_init nfnl_log_net_init(struct net *net)
{
        unsigned int i;
        struct nfnl_log_net *log = nfnl_log_pernet(net);

        for (i = 0; i < INSTANCE_BUCKETS; i++)
                INIT_HLIST_HEAD(&log->instance_table[i]);
        spin_lock_init(&log->instances_lock);

#ifdef CONFIG_PROC_FS
        if (!proc_create("nfnetlink_log", 0440,
                         net->nf.proc_netfilter, &nful_file_ops))
                return -ENOMEM;
#endif
        return 0;
}

static void __net_exit nfnl_log_net_exit(struct net *net)
{
#ifdef CONFIG_PROC_FS
        remove_proc_entry("nfnetlink_log", net->nf.proc_netfilter);
#endif
}

static struct pernet_operations nfnl_log_net_ops = {
        .init   = nfnl_log_net_init,
        .exit   = nfnl_log_net_exit,
        .id     = &nfnl_log_net_id,
        .size   = sizeof(struct nfnl_log_net),
};

static int __init nfnetlink_log_init(void)
{
        int status = -ENOMEM;

        /* it's not really all that important to have a random value, so
         * we can do this from the init function, even if there hasn't
         * been that much entropy yet */
        get_random_bytes(&hash_init, sizeof(hash_init));

        netlink_register_notifier(&nfulnl_rtnl_notifier);
        status = nfnetlink_subsys_register(&nfulnl_subsys);
        if (status < 0) {
                pr_err("log: failed to create netlink socket\n");
                goto cleanup_netlink_notifier;
        }

        status = nf_log_register(NFPROTO_UNSPEC, &nfulnl_logger);
        if (status < 0) {
                pr_err("log: failed to register logger\n");
                goto cleanup_subsys;
        }

        status = register_pernet_subsys(&nfnl_log_net_ops);
        if (status < 0) {
                pr_err("log: failed to register pernet ops\n");
                goto cleanup_logger;
        }
        return status;

cleanup_logger:
        nf_log_unregister(&nfulnl_logger);
cleanup_subsys:
        nfnetlink_subsys_unregister(&nfulnl_subsys);
cleanup_netlink_notifier:
        netlink_unregister_notifier(&nfulnl_rtnl_notifier);
        return status;
}

static void __exit nfnetlink_log_fini(void)
{
        unregister_pernet_subsys(&nfnl_log_net_ops);
        nf_log_unregister(&nfulnl_logger);
        nfnetlink_subsys_unregister(&nfulnl_subsys);
        netlink_unregister_notifier(&nfulnl_rtnl_notifier);
}

MODULE_DESCRIPTION("netfilter userspace logging");
MODULE_AUTHOR("Harald Welte <laforge@netfilter.org>");
MODULE_LICENSE("GPL");
MODULE_ALIAS_NFNL_SUBSYS(NFNL_SUBSYS_ULOG);

module_init(nfnetlink_log_init);
module_exit(nfnetlink_log_fini);