/* SCTP kernel reference Implementation
 * Copyright (c) 2003 International Business Machines, Corp.
 *
 * This file is part of the SCTP kernel reference Implementation
 *
 * The SCTP reference implementation 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, or (at your option)
 * any later version.
 *
 * The SCTP reference implementation is distributed in the hope that it
 * will be useful, but WITHOUT ANY WARRANTY; without even the implied
 *                 ************************
 * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 * See the GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with GNU CC; see the file COPYING.  If not, write to
 * the Free Software Foundation, 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 *
 * Please send any bug reports or fixes you make to the
 * email address(es):
 *    lksctp developers <lksctp-developers@lists.sourceforge.net>
 *
 * Or submit a bug report through the following website:
 *    http://www.sf.net/projects/lksctp
 *
 * Written or modified by:
 *    Sridhar Samudrala <sri@us.ibm.com>
 *
 * Any bugs reported given to us we will try to fix... any fixes shared will
 * be incorporated into the next SCTP release.
 */

#include <linux/types.h>
#include <linux/seq_file.h>
#include <linux/init.h>
#include <net/sctp/sctp.h>

struct snmp_mib sctp_snmp_list[] = {
        SNMP_MIB_ITEM("SctpCurrEstab", SCTP_MIB_CURRESTAB),
        SNMP_MIB_ITEM("SctpActiveEstabs", SCTP_MIB_ACTIVEESTABS),
        SNMP_MIB_ITEM("SctpPassiveEstabs", SCTP_MIB_PASSIVEESTABS),
        SNMP_MIB_ITEM("SctpAborteds", SCTP_MIB_ABORTEDS),
        SNMP_MIB_ITEM("SctpShutdowns", SCTP_MIB_SHUTDOWNS),
        SNMP_MIB_ITEM("SctpOutOfBlues", SCTP_MIB_OUTOFBLUES),
        SNMP_MIB_ITEM("SctpChecksumErrors", SCTP_MIB_CHECKSUMERRORS),
        SNMP_MIB_ITEM("SctpOutCtrlChunks", SCTP_MIB_OUTCTRLCHUNKS),
        SNMP_MIB_ITEM("SctpOutOrderChunks", SCTP_MIB_OUTORDERCHUNKS),
        SNMP_MIB_ITEM("SctpOutUnorderChunks", SCTP_MIB_OUTUNORDERCHUNKS),
        SNMP_MIB_ITEM("SctpInCtrlChunks", SCTP_MIB_INCTRLCHUNKS),
        SNMP_MIB_ITEM("SctpInOrderChunks", SCTP_MIB_INORDERCHUNKS),
        SNMP_MIB_ITEM("SctpInUnorderChunks", SCTP_MIB_INUNORDERCHUNKS),
        SNMP_MIB_ITEM("SctpFragUsrMsgs", SCTP_MIB_FRAGUSRMSGS),
        SNMP_MIB_ITEM("SctpReasmUsrMsgs", SCTP_MIB_REASMUSRMSGS),
        SNMP_MIB_ITEM("SctpOutSCTPPacks", SCTP_MIB_OUTSCTPPACKS),
        SNMP_MIB_ITEM("SctpInSCTPPacks", SCTP_MIB_INSCTPPACKS),
};

/* Return the current value of a particular entry in the mib by adding its
 * per cpu counters.
 */ 
static unsigned long
fold_field(void *mib[], int nr)
{
        unsigned long res = 0;
        int i;

        for (i = 0; i < NR_CPUS; i++) {
                if (!cpu_possible(i))
                        continue;
                res +=
                    *((unsigned long *) (((void *) per_cpu_ptr(mib[0], i)) +
                                         sizeof (unsigned long) * nr));
                res +=
                    *((unsigned long *) (((void *) per_cpu_ptr(mib[1], i)) +
                                         sizeof (unsigned long) * nr));
        }
        return res;
}

/* Display sctp snmp mib statistics(/proc/net/sctp/snmp). */
static int sctp_snmp_seq_show(struct seq_file *seq, void *v)
{
        int i;

        for (i = 0; sctp_snmp_list[i].name != NULL; i++)
                seq_printf(seq, "%-32s\t%ld\n", sctp_snmp_list[i].name,
                           fold_field((void **)sctp_statistics, 
                                      sctp_snmp_list[i].entry));

        return 0;
}

/* Initialize the seq file operations for 'snmp' object. */
static int sctp_snmp_seq_open(struct inode *inode, struct file *file)
{
        return single_open(file, sctp_snmp_seq_show, NULL);
}

static struct file_operations sctp_snmp_seq_fops = {
        .owner   = THIS_MODULE,
        .open    = sctp_snmp_seq_open,
        .read    = seq_read,
        .llseek  = seq_lseek,
        .release = single_release,
};

/* Set up the proc fs entry for 'snmp' object. */
int __init sctp_snmp_proc_init(void)
{
        struct proc_dir_entry *p;

        p = create_proc_entry("snmp", S_IRUGO, proc_net_sctp);
        if (!p)
                return -ENOMEM;

        p->proc_fops = &sctp_snmp_seq_fops;

        return 0;
}

/* Cleanup the proc fs entry for 'snmp' object. */
void sctp_snmp_proc_exit(void)
{
        remove_proc_entry("snmp", proc_net_sctp);
}

/* Dump local addresses of an association/endpoint. */
static void sctp_seq_dump_local_addrs(struct seq_file *seq, struct sctp_ep_common *epb)
{
        struct list_head *pos;
        struct sctp_sockaddr_entry *laddr;
        union sctp_addr *addr;
        struct sctp_af *af;

        list_for_each(pos, &epb->bind_addr.address_list) {
                laddr = list_entry(pos, struct sctp_sockaddr_entry, list);
                addr = (union sctp_addr *)&laddr->a;
                af = sctp_get_af_specific(addr->sa.sa_family);
                af->seq_dump_addr(seq, addr);
        }
}

/* Dump remote addresses of an association. */
static void sctp_seq_dump_remote_addrs(struct seq_file *seq, struct sctp_association *assoc)
{
        struct list_head *pos;
        struct sctp_transport *transport;
        union sctp_addr *addr;
        struct sctp_af *af;

        list_for_each(pos, &assoc->peer.transport_addr_list) {
                transport = list_entry(pos, struct sctp_transport, transports);
                addr = (union sctp_addr *)&transport->ipaddr;
                af = sctp_get_af_specific(addr->sa.sa_family);
                af->seq_dump_addr(seq, addr);
        }
}

/* Display sctp endpoints (/proc/net/sctp/eps). */
static int sctp_eps_seq_show(struct seq_file *seq, void *v)
{
        struct sctp_hashbucket *head;
        struct sctp_ep_common *epb;
        struct sctp_endpoint *ep;
        struct sock *sk;
        int hash;

        seq_printf(seq, " ENDPT     SOCK   STY SST HBKT LPORT LADDRS\n");
        for (hash = 0; hash < sctp_ep_hashsize; hash++) {
                head = &sctp_ep_hashtable[hash];
                read_lock(&head->lock);
                for (epb = head->chain; epb; epb = epb->next) {
                        ep = sctp_ep(epb);
                        sk = epb->sk;
                        seq_printf(seq, "%8p %8p %-3d %-3d %-4d %-5d ", ep, sk,
                                   sctp_sk(sk)->type, sk->sk_state, hash,
                                   epb->bind_addr.port);
                        sctp_seq_dump_local_addrs(seq, epb);
                        seq_printf(seq, "\n");
                }
                read_unlock(&head->lock);
        }

        return 0;
}

/* Initialize the seq file operations for 'eps' object. */
static int sctp_eps_seq_open(struct inode *inode, struct file *file)
{
        return single_open(file, sctp_eps_seq_show, NULL);
}

static struct file_operations sctp_eps_seq_fops = {
        .open    = sctp_eps_seq_open,
        .read    = seq_read,
        .llseek  = seq_lseek,
        .release = single_release,
};

/* Set up the proc fs entry for 'eps' object. */
int __init sctp_eps_proc_init(void)
{
        struct proc_dir_entry *p;

        p = create_proc_entry("eps", S_IRUGO, proc_net_sctp);
        if (!p)
                return -ENOMEM;

        p->proc_fops = &sctp_eps_seq_fops;

        return 0;
}

/* Cleanup the proc fs entry for 'eps' object. */
void sctp_eps_proc_exit(void)
{
        remove_proc_entry("eps", proc_net_sctp);
}

/* Display sctp associations (/proc/net/sctp/assocs). */
static int sctp_assocs_seq_show(struct seq_file *seq, void *v)
{
        struct sctp_hashbucket *head;
        struct sctp_ep_common *epb;
        struct sctp_association *assoc;
        struct sock *sk;
        int hash;

        seq_printf(seq, " ASSOC     SOCK   STY SST ST HBKT LPORT RPORT "
                        "LADDRS <-> RADDRS\n");
        for (hash = 0; hash < sctp_assoc_hashsize; hash++) {
                head = &sctp_assoc_hashtable[hash];
                read_lock(&head->lock);
                for (epb = head->chain; epb; epb = epb->next) {
                        assoc = sctp_assoc(epb);
                        sk = epb->sk;
                        seq_printf(seq,
                                   "%8p %8p %-3d %-3d %-2d %-4d %-5d %-5d ",
                                   assoc, sk, sctp_sk(sk)->type, sk->sk_state,
                                   assoc->state, hash, epb->bind_addr.port,
                                   assoc->peer.port);
                        sctp_seq_dump_local_addrs(seq, epb);
                        seq_printf(seq, "<-> ");
                        sctp_seq_dump_remote_addrs(seq, assoc);
                        seq_printf(seq, "\n");
                }
                read_unlock(&head->lock);
        }

        return 0;
}

/* Initialize the seq file operations for 'assocs' object. */
static int sctp_assocs_seq_open(struct inode *inode, struct file *file)
{
        return single_open(file, sctp_assocs_seq_show, NULL);
}

static struct file_operations sctp_assocs_seq_fops = {
        .open    = sctp_assocs_seq_open,
        .read    = seq_read,
        .llseek  = seq_lseek,
        .release = single_release,
};

/* Set up the proc fs entry for 'assocs' object. */
int __init sctp_assocs_proc_init(void)
{
        struct proc_dir_entry *p;

        p = create_proc_entry("assocs", S_IRUGO, proc_net_sctp);
        if (!p)
                return -ENOMEM;

        p->proc_fops = &sctp_assocs_seq_fops;

        return 0;
}

/* Cleanup the proc fs entry for 'assocs' object. */
void sctp_assocs_proc_exit(void)
{
        remove_proc_entry("assocs", proc_net_sctp);
}