aboutsummaryrefslogtreecommitdiff
path: root/net/wanrouter/af_wanpipe.c
diff options
context:
space:
mode:
Diffstat (limited to 'net/wanrouter/af_wanpipe.c')
-rw-r--r--net/wanrouter/af_wanpipe.c2611
1 files changed, 2611 insertions, 0 deletions
diff --git a/net/wanrouter/af_wanpipe.c b/net/wanrouter/af_wanpipe.c
new file mode 100644
index 00000000000..d93b19faaab
--- /dev/null
+++ b/net/wanrouter/af_wanpipe.c
@@ -0,0 +1,2611 @@
+/*****************************************************************************
+* af_wanpipe.c WANPIPE(tm) Secure Socket Layer.
+*
+* Author: Nenad Corbic <ncorbic@sangoma.com>
+*
+* Copyright: (c) 2000 Sangoma Technologies Inc.
+*
+* 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.
+* ============================================================================
+* Due Credit:
+* Wanpipe socket layer is based on Packet and
+* the X25 socket layers. The above sockets were
+* used for the specific use of Sangoma Technoloiges
+* API programs.
+* Packet socket Authors: Ross Biro, Fred N. van Kempen and
+* Alan Cox.
+* X25 socket Author: Jonathan Naylor.
+* ============================================================================
+* Mar 15, 2002 Arnaldo C. Melo o Use wp_sk()->num, as it isnt anymore in sock
+* Apr 25, 2000 Nenad Corbic o Added the ability to send zero length packets.
+* Mar 13, 2000 Nenad Corbic o Added a tx buffer check via ioctl call.
+* Mar 06, 2000 Nenad Corbic o Fixed the corrupt sock lcn problem.
+* Server and client applicaton can run
+* simultaneously without conflicts.
+* Feb 29, 2000 Nenad Corbic o Added support for PVC protocols, such as
+* CHDLC, Frame Relay and HDLC API.
+* Jan 17, 2000 Nenad Corbic o Initial version, based on AF_PACKET socket.
+* X25API support only.
+*
+******************************************************************************/
+
+#include <linux/config.h>
+#include <linux/types.h>
+#include <linux/sched.h>
+#include <linux/mm.h>
+#include <linux/fcntl.h>
+#include <linux/socket.h>
+#include <linux/in.h>
+#include <linux/inet.h>
+#include <linux/netdevice.h>
+#include <linux/poll.h>
+#include <linux/wireless.h>
+#include <linux/kmod.h>
+#include <net/ip.h>
+#include <net/protocol.h>
+#include <linux/skbuff.h>
+#include <net/sock.h>
+#include <linux/errno.h>
+#include <linux/timer.h>
+#include <asm/system.h>
+#include <asm/uaccess.h>
+#include <linux/module.h>
+#include <linux/init.h>
+#include <linux/wanpipe.h>
+#include <linux/if_wanpipe.h>
+#include <linux/pkt_sched.h>
+#include <linux/tcp.h>
+#include <linux/if_wanpipe_common.h>
+#include <linux/sdla_x25.h>
+
+#ifdef CONFIG_INET
+#include <net/inet_common.h>
+#endif
+
+#define SLOW_BACKOFF 0.1*HZ
+#define FAST_BACKOFF 0.01*HZ
+
+//#define PRINT_DEBUG
+#ifdef PRINT_DEBUG
+ #define DBG_PRINTK(format, a...) printk(format, ## a)
+#else
+ #define DBG_PRINTK(format, a...)
+#endif
+
+
+/* SECURE SOCKET IMPLEMENTATION
+ *
+ * TRANSMIT:
+ *
+ * When the user sends a packet via send() system call
+ * the wanpipe_sendmsg() function is executed.
+ *
+ * Each packet is enqueud into sk->sk_write_queue transmit
+ * queue. When the packet is enqueued, a delayed transmit
+ * timer is triggerd which acts as a Bottom Half hander.
+ *
+ * wanpipe_delay_transmit() function (BH), dequeues packets
+ * from the sk->sk_write_queue transmit queue and sends it
+ * to the deriver via dev->hard_start_xmit(skb, dev) function.
+ * Note, this function is actual a function pointer of if_send()
+ * routine in the wanpipe driver.
+ *
+ * X25API GUARANTEED DELIVERY:
+ *
+ * In order to provide 100% guaranteed packet delivery,
+ * an atomic 'packet_sent' counter is implemented. Counter
+ * is incremented for each packet enqueued
+ * into sk->sk_write_queue. Counter is decremented each
+ * time wanpipe_delayed_transmit() function successfuly
+ * passes the packet to the driver. Before each send(), a poll
+ * routine checks the sock resources The maximum value of
+ * packet sent counter is 1, thus if one packet is queued, the
+ * application will block until that packet is passed to the
+ * driver.
+ *
+ * RECEIVE:
+ *
+ * Wanpipe device drivers call the socket bottom half
+ * function, wanpipe_rcv() to queue the incoming packets
+ * into an AF_WANPIPE socket queue. Based on wanpipe_rcv()
+ * return code, the driver knows whether the packet was
+ * successfully queued. If the socket queue is full,
+ * protocol flow control is used by the driver, if any,
+ * to slow down the traffic until the sock queue is free.
+ *
+ * Every time a packet arrives into a socket queue the
+ * socket wakes up processes which are waiting to receive
+ * data.
+ *
+ * If the socket queue is full, the driver sets a block
+ * bit which signals the socket to kick the wanpipe driver
+ * bottom half hander when the socket queue is partialy
+ * empty. wanpipe_recvmsg() function performs this action.
+ *
+ * In case of x25api, packets will never be dropped, since
+ * flow control is available.
+ *
+ * In case of streaming protocols like CHDLC, packets will
+ * be dropped but the statistics will be generated.
+ */
+
+
+/* The code below is used to test memory leaks. It prints out
+ * a message every time kmalloc and kfree system calls get executed.
+ * If the calls match there is no leak :)
+ */
+
+/***********FOR DEBUGGING PURPOSES*********************************************
+#define KMEM_SAFETYZONE 8
+
+static void * dbg_kmalloc(unsigned int size, int prio, int line) {
+ void * v = kmalloc(size,prio);
+ printk(KERN_INFO "line %d kmalloc(%d,%d) = %p\n",line,size,prio,v);
+ return v;
+}
+static void dbg_kfree(void * v, int line) {
+ printk(KERN_INFO "line %d kfree(%p)\n",line,v);
+ kfree(v);
+}
+
+#define kmalloc(x,y) dbg_kmalloc(x,y,__LINE__)
+#define kfree(x) dbg_kfree(x,__LINE__)
+******************************************************************************/
+
+
+/* List of all wanpipe sockets. */
+HLIST_HEAD(wanpipe_sklist);
+static DEFINE_RWLOCK(wanpipe_sklist_lock);
+
+atomic_t wanpipe_socks_nr;
+static unsigned long wanpipe_tx_critical;
+
+#if 0
+/* Private wanpipe socket structures. */
+struct wanpipe_opt
+{
+ void *mbox; /* Mail box */
+ void *card; /* Card bouded to */
+ struct net_device *dev; /* Bounded device */
+ unsigned short lcn; /* Binded LCN */
+ unsigned char svc; /* 0=pvc, 1=svc */
+ unsigned char timer; /* flag for delayed transmit*/
+ struct timer_list tx_timer;
+ unsigned poll_cnt;
+ unsigned char force; /* Used to force sock release */
+ atomic_t packet_sent;
+};
+#endif
+
+static int sk_count;
+extern struct proto_ops wanpipe_ops;
+static unsigned long find_free_critical;
+
+static void wanpipe_unlink_driver(struct sock *sk);
+static void wanpipe_link_driver(struct net_device *dev, struct sock *sk);
+static void wanpipe_wakeup_driver(struct sock *sk);
+static int execute_command(struct sock *, unsigned char, unsigned int);
+static int check_dev(struct net_device *dev, sdla_t *card);
+struct net_device *wanpipe_find_free_dev(sdla_t *card);
+static void wanpipe_unlink_card (struct sock *);
+static int wanpipe_link_card (struct sock *);
+static struct sock *wanpipe_make_new(struct sock *);
+static struct sock *wanpipe_alloc_socket(void);
+static inline int get_atomic_device(struct net_device *dev);
+static int wanpipe_exec_cmd(struct sock *, int, unsigned int);
+static int get_ioctl_cmd (struct sock *, void *);
+static int set_ioctl_cmd (struct sock *, void *);
+static void release_device(struct net_device *dev);
+static void wanpipe_kill_sock_timer (unsigned long data);
+static void wanpipe_kill_sock_irq (struct sock *);
+static void wanpipe_kill_sock_accept (struct sock *);
+static int wanpipe_do_bind(struct sock *sk, struct net_device *dev,
+ int protocol);
+struct sock * get_newsk_from_skb (struct sk_buff *);
+static int wanpipe_debug (struct sock *, void *);
+static void wanpipe_delayed_transmit (unsigned long data);
+static void release_driver(struct sock *);
+static void start_cleanup_timer (struct sock *);
+static void check_write_queue(struct sock *);
+static int check_driver_busy (struct sock *);
+
+/*============================================================
+ * wanpipe_rcv
+ *
+ * Wanpipe socket bottom half handler. This function
+ * is called by the WANPIPE device drivers to queue a
+ * incoming packet into the socket receive queue.
+ * Once the packet is queued, all processes waiting to
+ * read are woken up.
+ *
+ * During socket bind, this function is bounded into
+ * WANPIPE driver private.
+ *===========================================================*/
+
+static int wanpipe_rcv(struct sk_buff *skb, struct net_device *dev,
+ struct sock *sk)
+{
+ struct wan_sockaddr_ll *sll = (struct wan_sockaddr_ll*)skb->cb;
+ wanpipe_common_t *chan = dev->priv;
+ /*
+ * When we registered the protocol we saved the socket in the data
+ * field for just this event.
+ */
+
+ skb->dev = dev;
+
+ sll->sll_family = AF_WANPIPE;
+ sll->sll_hatype = dev->type;
+ sll->sll_protocol = skb->protocol;
+ sll->sll_pkttype = skb->pkt_type;
+ sll->sll_ifindex = dev->ifindex;
+ sll->sll_halen = 0;
+
+ if (dev->hard_header_parse)
+ sll->sll_halen = dev->hard_header_parse(skb, sll->sll_addr);
+
+ /*
+ * WAN_PACKET_DATA : Data which should be passed up the receive queue.
+ * WAN_PACKET_ASYC : Asynchronous data like place call, which should
+ * be passed up the listening sock.
+ * WAN_PACKET_ERR : Asynchronous data like clear call or restart
+ * which should go into an error queue.
+ */
+ switch (skb->pkt_type){
+
+ case WAN_PACKET_DATA:
+ if (sock_queue_rcv_skb(sk,skb)<0){
+ return -ENOMEM;
+ }
+ break;
+ case WAN_PACKET_CMD:
+ sk->sk_state = chan->state;
+ /* Bug fix: update Mar6.
+ * Do not set the sock lcn number here, since
+ * cmd is not guaranteed to be executed on the
+ * board, thus Lcn could be wrong */
+ sk->sk_data_ready(sk, skb->len);
+ kfree_skb(skb);
+ break;
+ case WAN_PACKET_ERR:
+ sk->sk_state = chan->state;
+ if (sock_queue_err_skb(sk,skb)<0){
+ return -ENOMEM;
+ }
+ break;
+ default:
+ printk(KERN_INFO "wansock: BH Illegal Packet Type Dropping\n");
+ kfree_skb(skb);
+ break;
+ }
+
+//??????????????????????
+// if (sk->sk_state == WANSOCK_DISCONNECTED){
+// if (sk->sk_zapped) {
+// //printk(KERN_INFO "wansock: Disconnected, killing early\n");
+// wanpipe_unlink_driver(sk);
+// sk->sk_bound_dev_if = 0;
+// }
+// }
+
+ return 0;
+}
+
+/*============================================================
+ * wanpipe_listen_rcv
+ *
+ * Wanpipe LISTEN socket bottom half handler. This function
+ * is called by the WANPIPE device drivers to queue an
+ * incoming call into the socket listening queue.
+ * Once the packet is queued, the waiting accept() process
+ * is woken up.
+ *
+ * During socket bind, this function is bounded into
+ * WANPIPE driver private.
+ *
+ * IMPORTANT NOTE:
+ * The accept call() is waiting for an skb packet
+ * which contains a pointer to a device structure.
+ *
+ * When we do a bind to a device structre, we
+ * bind a newly created socket into "chan->sk". Thus,
+ * when accept receives the skb packet, it will know
+ * from which dev it came form, and in turn it will know
+ * the address of the new sock.
+ *
+ * NOTE: This function gets called from driver ISR.
+ *===========================================================*/
+
+static int wanpipe_listen_rcv (struct sk_buff *skb, struct sock *sk)
+{
+ wanpipe_opt *wp = wp_sk(sk), *newwp;
+ struct wan_sockaddr_ll *sll = (struct wan_sockaddr_ll*)skb->cb;
+ struct sock *newsk;
+ struct net_device *dev;
+ sdla_t *card;
+ mbox_cmd_t *mbox_ptr;
+ wanpipe_common_t *chan;
+
+ /* Find a free device, if none found, all svc's are busy
+ */
+
+ card = (sdla_t*)wp->card;
+ if (!card){
+ printk(KERN_INFO "wansock: LISTEN ERROR, No Card\n");
+ return -ENODEV;
+ }
+
+ dev = wanpipe_find_free_dev(card);
+ if (!dev){
+ printk(KERN_INFO "wansock: LISTEN ERROR, No Free Device\n");
+ return -ENODEV;
+ }
+
+ chan=dev->priv;
+ chan->state = WANSOCK_CONNECTING;
+
+ /* Allocate a new sock, which accept will bind
+ * and pass up to the user
+ */
+ if ((newsk = wanpipe_make_new(sk)) == NULL){
+ release_device(dev);
+ return -ENOMEM;
+ }
+
+
+ /* Initialize the new sock structure
+ */
+ newsk->sk_bound_dev_if = dev->ifindex;
+ newwp = wp_sk(newsk);
+ newwp->card = wp->card;
+
+ /* Insert the sock into the main wanpipe
+ * sock list.
+ */
+ atomic_inc(&wanpipe_socks_nr);
+
+ /* Allocate and fill in the new Mail Box. Then
+ * bind the mail box to the sock. It will be
+ * used by the ioctl call to read call information
+ * and to execute commands.
+ */
+ if ((mbox_ptr = kmalloc(sizeof(mbox_cmd_t), GFP_ATOMIC)) == NULL) {
+ wanpipe_kill_sock_irq (newsk);
+ release_device(dev);
+ return -ENOMEM;
+ }
+ memset(mbox_ptr, 0, sizeof(mbox_cmd_t));
+ memcpy(mbox_ptr,skb->data,skb->len);
+
+ /* Register the lcn on which incoming call came
+ * from. Thus, if we have to clear it, we know
+ * which lcn to clear
+ */
+
+ newwp->lcn = mbox_ptr->cmd.lcn;
+ newwp->mbox = (void *)mbox_ptr;
+
+ DBG_PRINTK(KERN_INFO "NEWSOCK : Device %s, bind to lcn %i\n",
+ dev->name,mbox_ptr->cmd.lcn);
+
+ chan->lcn = mbox_ptr->cmd.lcn;
+ card->u.x.svc_to_dev_map[(chan->lcn%MAX_X25_LCN)] = dev;
+
+ sock_reset_flag(newsk, SOCK_ZAPPED);
+ newwp->num = htons(X25_PROT);
+
+ if (wanpipe_do_bind(newsk, dev, newwp->num)) {
+ wanpipe_kill_sock_irq (newsk);
+ release_device(dev);
+ return -EINVAL;
+ }
+ newsk->sk_state = WANSOCK_CONNECTING;
+
+
+ /* Fill in the standard sock address info */
+
+ sll->sll_family = AF_WANPIPE;
+ sll->sll_hatype = dev->type;
+ sll->sll_protocol = skb->protocol;
+ sll->sll_pkttype = skb->pkt_type;
+ sll->sll_ifindex = dev->ifindex;
+ sll->sll_halen = 0;
+
+ skb->dev = dev;
+ sk->sk_ack_backlog++;
+
+ /* We must do this manually, since the sock_queue_rcv_skb()
+ * function sets the skb->dev to NULL. However, we use
+ * the dev field in the accept function.*/
+ if (atomic_read(&sk->sk_rmem_alloc) + skb->truesize >=
+ (unsigned)sk->sk_rcvbuf) {
+
+ wanpipe_unlink_driver(newsk);
+ wanpipe_kill_sock_irq (newsk);
+ --sk->sk_ack_backlog;
+ return -ENOMEM;
+ }
+
+ skb_set_owner_r(skb, sk);
+ skb_queue_tail(&sk->sk_receive_queue, skb);
+ sk->sk_data_ready(sk, skb->len);
+
+ return 0;
+}
+
+
+
+/*============================================================
+ * wanpipe_make_new
+ *
+ * Create a new sock, and allocate a wanpipe private
+ * structure to it. Also, copy the important data
+ * from the original sock to the new sock.
+ *
+ * This function is used by wanpipe_listen_rcv() listen
+ * bottom half handler. A copy of the listening sock
+ * is created using this function.
+ *
+ *===========================================================*/
+
+static struct sock *wanpipe_make_new(struct sock *osk)
+{
+ struct sock *sk;
+
+ if (osk->sk_type != SOCK_RAW)
+ return NULL;
+
+ if ((sk = wanpipe_alloc_socket()) == NULL)
+ return NULL;
+
+ sk->sk_type = osk->sk_type;
+ sk->sk_socket = osk->sk_socket;
+ sk->sk_priority = osk->sk_priority;
+ sk->sk_protocol = osk->sk_protocol;
+ wp_sk(sk)->num = wp_sk(osk)->num;
+ sk->sk_rcvbuf = osk->sk_rcvbuf;
+ sk->sk_sndbuf = osk->sk_sndbuf;
+ sk->sk_state = WANSOCK_CONNECTING;
+ sk->sk_sleep = osk->sk_sleep;
+
+ if (sock_flag(osk, SOCK_DBG))
+ sock_set_flag(sk, SOCK_DBG);
+
+ return sk;
+}
+
+/*
+ * FIXME: wanpipe_opt has to include a sock in its definition and stop using
+ * sk_protinfo, but this code is not even compilable now, so lets leave it for
+ * later.
+ */
+static struct proto wanpipe_proto = {
+ .name = "WANPIPE",
+ .owner = THIS_MODULE,
+ .obj_size = sizeof(struct sock),
+};
+
+/*============================================================
+ * wanpipe_make_new
+ *
+ * Allocate memory for the a new sock, and sock
+ * private data.
+ *
+ * Increment the module use count.
+ *
+ * This function is used by wanpipe_create() and
+ * wanpipe_make_new() functions.
+ *
+ *===========================================================*/
+
+static struct sock *wanpipe_alloc_socket(void)
+{
+ struct sock *sk;
+ struct wanpipe_opt *wan_opt;
+
+ if ((sk = sk_alloc(PF_WANPIPE, GFP_ATOMIC, &wanpipe_proto, 1)) == NULL)
+ return NULL;
+
+ if ((wan_opt = kmalloc(sizeof(struct wanpipe_opt), GFP_ATOMIC)) == NULL) {
+ sk_free(sk);
+ return NULL;
+ }
+ memset(wan_opt, 0x00, sizeof(struct wanpipe_opt));
+
+ wp_sk(sk) = wan_opt;
+
+ /* Use timer to send data to the driver. This will act
+ * as a BH handler for sendmsg functions */
+ init_timer(&wan_opt->tx_timer);
+ wan_opt->tx_timer.data = (unsigned long)sk;
+ wan_opt->tx_timer.function = wanpipe_delayed_transmit;
+
+ sock_init_data(NULL, sk);
+ return sk;
+}
+
+
+/*============================================================
+ * wanpipe_sendmsg
+ *
+ * This function implements a sendto() system call,
+ * for AF_WANPIPE socket family.
+ * During socket bind() sk->sk_bound_dev_if is initialized
+ * to a correct network device. This number is used
+ * to find a network device to which the packet should
+ * be passed to.
+ *
+ * Each packet is queued into sk->sk_write_queue and
+ * delayed transmit bottom half handler is marked for
+ * execution.
+ *
+ * A socket must be in WANSOCK_CONNECTED state before
+ * a packet is queued into sk->sk_write_queue.
+ *===========================================================*/
+
+static int wanpipe_sendmsg(struct kiocb *iocb, struct socket *sock,
+ struct msghdr *msg, int len)
+{
+ wanpipe_opt *wp;
+ struct sock *sk = sock->sk;
+ struct wan_sockaddr_ll *saddr=(struct wan_sockaddr_ll *)msg->msg_name;
+ struct sk_buff *skb;
+ struct net_device *dev;
+ unsigned short proto;
+ unsigned char *addr;
+ int ifindex, err, reserve = 0;
+
+
+ if (!sock_flag(sk, SOCK_ZAPPED))
+ return -ENETDOWN;
+
+ if (sk->sk_state != WANSOCK_CONNECTED)
+ return -ENOTCONN;
+
+ if (msg->msg_flags & ~(MSG_DONTWAIT|MSG_CMSG_COMPAT))
+ return(-EINVAL);
+
+ /* it was <=, now one can send
+ * zero length packets */
+ if (len < sizeof(x25api_hdr_t))
+ return -EINVAL;
+
+ wp = wp_sk(sk);
+
+ if (saddr == NULL) {
+ ifindex = sk->sk_bound_dev_if;
+ proto = wp->num;
+ addr = NULL;
+
+ }else{
+ if (msg->msg_namelen < sizeof(struct wan_sockaddr_ll)){
+ return -EINVAL;
+ }
+
+ ifindex = sk->sk_bound_dev_if;
+ proto = saddr->sll_protocol;
+ addr = saddr->sll_addr;
+ }
+
+ dev = dev_get_by_index(ifindex);
+ if (dev == NULL){
+ printk(KERN_INFO "wansock: Send failed, dev index: %i\n",ifindex);
+ return -ENXIO;
+ }
+ dev_put(dev);
+
+ if (sock->type == SOCK_RAW)
+ reserve = dev->hard_header_len;
+
+ if (len > dev->mtu+reserve){
+ return -EMSGSIZE;
+ }
+
+ skb = sock_alloc_send_skb(sk, len + LL_RESERVED_SPACE(dev),
+ msg->msg_flags & MSG_DONTWAIT, &err);
+
+ if (skb==NULL){
+ goto out_unlock;
+ }
+
+ skb_reserve(skb, LL_RESERVED_SPACE(dev));
+ skb->nh.raw = skb->data;
+
+ /* Returns -EFAULT on error */
+ err = memcpy_fromiovec(skb_put(skb,len), msg->msg_iov, len);
+ if (err){
+ goto out_free;
+ }
+
+ if (dev->hard_header) {
+ int res;
+ err = -EINVAL;
+ res = dev->hard_header(skb, dev, ntohs(proto), addr, NULL, len);
+ if (res<0){
+ goto out_free;
+ }
+ }
+
+ skb->protocol = proto;
+ skb->dev = dev;
+ skb->priority = sk->sk_priority;
+ skb->pkt_type = WAN_PACKET_DATA;
+
+ err = -ENETDOWN;
+ if (!(dev->flags & IFF_UP))
+ goto out_free;
+
+ if (atomic_read(&sk->sk_wmem_alloc) + skb->truesize >
+ (unsigned int)sk->sk_sndbuf){
+ kfree_skb(skb);
+ return -ENOBUFS;
+ }
+
+ skb_queue_tail(&sk->sk_write_queue,skb);
+ atomic_inc(&wp->packet_sent);
+
+ if (!(test_and_set_bit(0, &wp->timer)))
+ mod_timer(&wp->tx_timer, jiffies + 1);
+
+ return(len);
+
+out_free:
+ kfree_skb(skb);
+out_unlock:
+ return err;
+}
+
+/*============================================================
+ * wanpipe_delayed_tarnsmit
+ *
+ * Transmit bottom half handler. It dequeues packets
+ * from sk->sk_write_queue and passes them to the
+ * driver. If the driver is busy, the packet is
+ * re-enqueued.
+ *
+ * Packet Sent counter is decremented on successful
+ * transmission.
+ *===========================================================*/
+
+
+static void wanpipe_delayed_transmit (unsigned long data)
+{
+ struct sock *sk=(struct sock *)data;
+ struct sk_buff *skb;
+ wanpipe_opt *wp = wp_sk(sk);
+ struct net_device *dev = wp->dev;
+ sdla_t *card = (sdla_t*)wp->card;
+
+ if (!card || !dev){
+ clear_bit(0, &wp->timer);
+ DBG_PRINTK(KERN_INFO "wansock: Transmit delay, no dev or card\n");
+ return;
+ }
+
+ if (sk->sk_state != WANSOCK_CONNECTED || !sock_flag(sk, SOCK_ZAPPED)) {
+ clear_bit(0, &wp->timer);
+ DBG_PRINTK(KERN_INFO "wansock: Tx Timer, State not CONNECTED\n");
+ return;
+ }
+
+ /* If driver is executing command, we must offload
+ * the board by not sending data. Otherwise a
+ * pending command will never get a free buffer
+ * to execute */
+ if (atomic_read(&card->u.x.command_busy)){
+ wp->tx_timer.expires = jiffies + SLOW_BACKOFF;
+ add_timer(&wp->tx_timer);
+ DBG_PRINTK(KERN_INFO "wansock: Tx Timer, command bys BACKOFF\n");
+ return;
+ }
+
+
+ if (test_and_set_bit(0,&wanpipe_tx_critical)){
+ printk(KERN_INFO "WanSock: Tx timer critical %s\n",dev->name);
+ wp->tx_timer.expires = jiffies + SLOW_BACKOFF;
+ add_timer(&wp->tx_timer);
+ return;
+ }
+
+ /* Check for a packet in the fifo and send */
+ if ((skb = skb_dequeue(&sk->sk_write_queue)) != NULL){
+
+ if (dev->hard_start_xmit(skb, dev) != 0){
+
+ /* Driver failed to transmit, re-enqueue
+ * the packet and retry again later */
+ skb_queue_head(&sk->sk_write_queue,skb);
+ clear_bit(0,&wanpipe_tx_critical);
+ return;
+ }else{
+
+ /* Packet Sent successful. Check for more packets
+ * if more packets, re-trigger the transmit routine
+ * other wise exit
+ */
+ atomic_dec(&wp->packet_sent);
+
+ if (skb_peek(&sk->sk_write_queue) == NULL) {
+ /* If there is nothing to send, kick
+ * the poll routine, which will trigger
+ * the application to send more data */
+ sk->sk_data_ready(sk, 0);
+ clear_bit(0, &wp->timer);
+ }else{
+ /* Reschedule as fast as possible */
+ wp->tx_timer.expires = jiffies + 1;
+ add_timer(&wp->tx_timer);
+ }
+ }
+ }
+ clear_bit(0,&wanpipe_tx_critical);
+}
+
+/*============================================================
+ * execute_command
+ *
+ * Execute x25api commands. The atomic variable
+ * chan->command is used to indicate to the driver that
+ * command is pending for execution. The acutal command
+ * structure is placed into a sock mbox structure
+ * (wp_sk(sk)->mbox).
+ *
+ * The sock private structure, mbox is
+ * used as shared memory between sock and the driver.
+ * Driver uses the sock mbox to execute the command
+ * and return the result.
+ *
+ * For all command except PLACE CALL, the function
+ * waits for the result. PLACE CALL can be ether
+ * blocking or nonblocking. The user sets this option
+ * via ioctl call.
+ *===========================================================*/
+
+
+static int execute_command(struct sock *sk, unsigned char cmd, unsigned int flags)
+{
+ wanpipe_opt *wp = wp_sk(sk);
+ struct net_device *dev;
+ wanpipe_common_t *chan=NULL;
+ int err=0;
+ DECLARE_WAITQUEUE(wait, current);
+
+ dev = dev_get_by_index(sk->sk_bound_dev_if);
+ if (dev == NULL){
+ printk(KERN_INFO "wansock: Exec failed no dev %i\n",
+ sk->sk_bound_dev_if);
+ return -ENODEV;
+ }
+ dev_put(dev);
+
+ if ((chan=dev->priv) == NULL){
+ printk(KERN_INFO "wansock: Exec cmd failed no priv area\n");
+ return -ENODEV;
+ }
+
+ if (atomic_read(&chan->command)){
+ printk(KERN_INFO "wansock: ERROR: Command already running %x, %s\n",
+ atomic_read(&chan->command),dev->name);
+ return -EINVAL;
+ }
+
+ if (!wp->mbox) {
+ printk(KERN_INFO "wansock: In execute without MBOX\n");
+ return -EINVAL;
+ }
+
+ ((mbox_cmd_t*)wp->mbox)->cmd.command = cmd;
+ ((mbox_cmd_t*)wp->mbox)->cmd.lcn = wp->lcn;
+ ((mbox_cmd_t*)wp->mbox)->cmd.result = 0x7F;
+
+
+ if (flags & O_NONBLOCK){
+ cmd |= 0x80;
+ atomic_set(&chan->command, cmd);
+ }else{
+ atomic_set(&chan->command, cmd);
+ }
+
+ add_wait_queue(sk->sk_sleep,&wait);
+ current->state = TASK_INTERRUPTIBLE;
+ for (;;){
+ if (((mbox_cmd_t*)wp->mbox)->cmd.result != 0x7F) {
+ err = 0;
+ break;
+ }
+ if (signal_pending(current)) {
+ err = -ERESTARTSYS;
+ break;
+ }
+ schedule();
+ }
+ current->state = TASK_RUNNING;
+ remove_wait_queue(sk->sk_sleep,&wait);
+
+ return err;
+}
+
+/*============================================================
+ * wanpipe_destroy_timer
+ *
+ * Used by wanpipe_release, to delay release of
+ * the socket.
+ *===========================================================*/
+
+static void wanpipe_destroy_timer(unsigned long data)
+{
+ struct sock *sk=(struct sock *)data;
+ wanpipe_opt *wp = wp_sk(sk);
+
+ if ((!atomic_read(&sk->sk_wmem_alloc) &&
+ !atomic_read(&sk->sk_rmem_alloc)) ||
+ (++wp->force == 5)) {
+
+ if (atomic_read(&sk->sk_wmem_alloc) ||
+ atomic_read(&sk->sk_rmem_alloc))
+ printk(KERN_INFO "wansock: Warning, Packet Discarded due to sock shutdown!\n");
+
+ kfree(wp);
+ wp_sk(sk) = NULL;
+
+ if (atomic_read(&sk->sk_refcnt) != 1) {
+ atomic_set(&sk->sk_refcnt, 1);
+ DBG_PRINTK(KERN_INFO "wansock: Error, wrong reference count: %i ! :delay.\n",
+ atomic_read(&sk->sk_refcnt));
+ }
+ sock_put(sk);
+ atomic_dec(&wanpipe_socks_nr);
+ return;
+ }
+
+ sk->sk_timer.expires = jiffies + 5 * HZ;
+ add_timer(&sk->sk_timer);
+ printk(KERN_INFO "wansock: packet sk destroy delayed\n");
+}
+
+/*============================================================
+ * wanpipe_unlink_driver
+ *
+ * When the socket is released, this function is
+ * used to remove links that bind the sock and the
+ * driver together.
+ *===========================================================*/
+static void wanpipe_unlink_driver (struct sock *sk)
+{
+ struct net_device *dev;
+ wanpipe_common_t *chan=NULL;
+
+ sock_reset_flag(sk, SOCK_ZAPPED);
+ sk->sk_state = WANSOCK_DISCONNECTED;
+ wp_sk(sk)->dev = NULL;
+
+ dev = dev_get_by_index(sk->sk_bound_dev_if);
+ if (!dev){
+ printk(KERN_INFO "wansock: No dev on release\n");
+ return;
+ }
+ dev_put(dev);
+
+ if ((chan = dev->priv) == NULL){
+ printk(KERN_INFO "wansock: No Priv Area on release\n");
+ return;
+ }
+
+ set_bit(0,&chan->common_critical);
+ chan->sk=NULL;
+ chan->func=NULL;
+ chan->mbox=NULL;
+ chan->tx_timer=NULL;
+ clear_bit(0,&chan->common_critical);
+ release_device(dev);
+
+ return;
+}
+
+/*============================================================
+ * wanpipe_link_driver
+ *
+ * Upon successful bind(), sock is linked to a driver
+ * by binding in the wanpipe_rcv() bottom half handler
+ * to the driver function pointer, as well as sock and
+ * sock mailbox addresses. This way driver can pass
+ * data up the socket.
+ *===========================================================*/
+
+static void wanpipe_link_driver(struct net_device *dev, struct sock *sk)
+{
+ wanpipe_opt *wp = wp_sk(sk);
+ wanpipe_common_t *chan = dev->priv;
+ if (!chan)
+ return;
+ set_bit(0,&chan->common_critical);
+ chan->sk=sk;
+ chan->func=wanpipe_rcv;
+ chan->mbox = wp->mbox;
+ chan->tx_timer = &wp->tx_timer;
+ wp->dev = dev;
+ sock_set_flag(sk, SOCK_ZAPPED);
+ clear_bit(0,&chan->common_critical);
+}
+
+
+/*============================================================
+ * release_device
+ *
+ * During sock release, clear a critical bit, which
+ * marks the device a being taken.
+ *===========================================================*/
+
+
+static void release_device(struct net_device *dev)
+{
+ wanpipe_common_t *chan=dev->priv;
+ clear_bit(0,(void*)&chan->rw_bind);
+}
+
+/*============================================================
+ * wanpipe_release
+ *
+ * Close a PACKET socket. This is fairly simple. We
+ * immediately go to 'closed' state and remove our
+ * protocol entry in the device list.
+ *===========================================================*/
+
+static int wanpipe_release(struct socket *sock)
+{
+ wanpipe_opt *wp;
+ struct sock *sk = sock->sk;
+
+ if (!sk)
+ return 0;
+
+ wp = wp_sk(sk);
+ check_write_queue(sk);
+
+ /* Kill the tx timer, if we don't kill it now, the timer
+ * will run after we kill the sock. Timer code will
+ * try to access the sock which has been killed and cause
+ * kernel panic */
+
+ del_timer(&wp->tx_timer);
+
+ /*
+ * Unhook packet receive handler.
+ */
+
+ if (wp->num == htons(X25_PROT) &&
+ sk->sk_state != WANSOCK_DISCONNECTED && sock_flag(sk, SOCK_ZAPPED)) {
+ struct net_device *dev = dev_get_by_index(sk->sk_bound_dev_if);
+ wanpipe_common_t *chan;
+ if (dev){
+ chan=dev->priv;
+ atomic_set(&chan->disconnect,1);
+ DBG_PRINTK(KERN_INFO "wansock: Sending Clear Indication %i\n",
+ sk->sk_state);
+ dev_put(dev);
+ }
+ }
+
+ set_bit(1,&wanpipe_tx_critical);
+ write_lock(&wanpipe_sklist_lock);
+ sk_del_node_init(sk);
+ write_unlock(&wanpipe_sklist_lock);
+ clear_bit(1,&wanpipe_tx_critical);
+
+
+
+ release_driver(sk);
+
+
+ /*
+ * Now the socket is dead. No more input will appear.
+ */
+
+ sk->sk_state_change(sk); /* It is useless. Just for sanity. */
+
+ sock->sk = NULL;
+ sk->sk_socket = NULL;
+ sock_set_flag(sk, SOCK_DEAD);
+
+ /* Purge queues */
+ skb_queue_purge(&sk->sk_receive_queue);
+ skb_queue_purge(&sk->sk_write_queue);
+ skb_queue_purge(&sk->sk_error_queue);
+
+ if (atomic_read(&sk->sk_rmem_alloc) ||
+ atomic_read(&sk->sk_wmem_alloc)) {
+ del_timer(&sk->sk_timer);
+ printk(KERN_INFO "wansock: Killing in Timer R %i , W %i\n",
+ atomic_read(&sk->sk_rmem_alloc),
+ atomic_read(&sk->sk_wmem_alloc));
+ sk->sk_timer.data = (unsigned long)sk;
+ sk->sk_timer.expires = jiffies + HZ;
+ sk->sk_timer.function = wanpipe_destroy_timer;
+ add_timer(&sk->sk_timer);
+ return 0;
+ }
+
+ kfree(wp);
+ wp_sk(sk) = NULL;
+
+ if (atomic_read(&sk->sk_refcnt) != 1) {
+ DBG_PRINTK(KERN_INFO "wansock: Error, wrong reference count: %i !:release.\n",
+ atomic_read(&sk->sk_refcnt));
+ atomic_set(&sk->sk_refcnt, 1);
+ }
+ sock_put(sk);
+ atomic_dec(&wanpipe_socks_nr);
+ return 0;
+}
+
+/*============================================================
+ * check_write_queue
+ *
+ * During sock shutdown, if the sock state is
+ * WANSOCK_CONNECTED and there is transmit data
+ * pending. Wait until data is released
+ * before proceeding.
+ *===========================================================*/
+
+static void check_write_queue(struct sock *sk)
+{
+
+ if (sk->sk_state != WANSOCK_CONNECTED)
+ return;
+
+ if (!atomic_read(&sk->sk_wmem_alloc))
+ return;
+
+ printk(KERN_INFO "wansock: MAJOR ERROR, Data lost on sock release !!!\n");
+
+}
+
+/*============================================================
+ * release_driver
+ *
+ * This function is called during sock shutdown, to
+ * release any resources and links that bind the sock
+ * to the driver. It also changes the state of the
+ * sock to WANSOCK_DISCONNECTED
+ *===========================================================*/
+
+static void release_driver(struct sock *sk)
+{
+ wanpipe_opt *wp;
+ struct sk_buff *skb=NULL;
+ struct sock *deadsk=NULL;
+
+ if (sk->sk_state == WANSOCK_LISTEN ||
+ sk->sk_state == WANSOCK_BIND_LISTEN) {
+ while ((skb = skb_dequeue(&sk->sk_receive_queue)) != NULL) {
+ if ((deadsk = get_newsk_from_skb(skb))){
+ DBG_PRINTK (KERN_INFO "wansock: RELEASE: FOUND DEAD SOCK\n");
+ sock_set_flag(deadsk, SOCK_DEAD);
+ start_cleanup_timer(deadsk);
+ }
+ kfree_skb(skb);
+ }
+ if (sock_flag(sk, SOCK_ZAPPED))
+ wanpipe_unlink_card(sk);
+ }else{
+ if (sock_flag(sk, SOCK_ZAPPED))
+ wanpipe_unlink_driver(sk);
+ }
+ sk->sk_state = WANSOCK_DISCONNECTED;
+ sk->sk_bound_dev_if = 0;
+ sock_reset_flag(sk, SOCK_ZAPPED);
+ wp = wp_sk(sk);
+
+ if (wp && wp->mbox) {
+ kfree(wp->mbox);
+ wp->mbox = NULL;
+ }
+}
+
+/*============================================================
+ * start_cleanup_timer
+ *
+ * If new incoming call's are pending but the socket
+ * is being released, start the timer which will
+ * envoke the kill routines for pending socks.
+ *===========================================================*/
+
+
+static void start_cleanup_timer (struct sock *sk)
+{
+ del_timer(&sk->sk_timer);
+ sk->sk_timer.data = (unsigned long)sk;
+ sk->sk_timer.expires = jiffies + HZ;
+ sk->sk_timer.function = wanpipe_kill_sock_timer;
+ add_timer(&sk->sk_timer);
+}
+
+
+/*============================================================
+ * wanpipe_kill_sock
+ *
+ * This is a function which performs actual killing
+ * of the sock. It releases socket resources,
+ * and unlinks the sock from the driver.
+ *===========================================================*/
+
+static void wanpipe_kill_sock_timer (unsigned long data)
+{
+
+ struct sock *sk = (struct sock *)data;
+ struct sock **skp;
+
+ if (!sk)
+ return;
+
+ /* This function can be called from interrupt. We must use
+ * appropriate locks */
+
+ if (test_bit(1,&wanpipe_tx_critical)){
+ sk->sk_timer.expires = jiffies + 10;
+ add_timer(&sk->sk_timer);
+ return;
+ }
+
+ write_lock(&wanpipe_sklist_lock);
+ sk_del_node_init(sk);
+ write_unlock(&wanpipe_sklist_lock);
+
+
+ if (wp_sk(sk)->num == htons(X25_PROT) &&
+ sk->sk_state != WANSOCK_DISCONNECTED) {
+ struct net_device *dev = dev_get_by_index(sk->sk_bound_dev_if);
+ wanpipe_common_t *chan;
+ if (dev){
+ chan=dev->priv;
+ atomic_set(&chan->disconnect,1);
+ dev_put(dev);
+ }
+ }
+
+ release_driver(sk);
+
+ sk->sk_socket = NULL;
+
+ /* Purge queues */
+ skb_queue_purge(&sk->sk_receive_queue);
+ skb_queue_purge(&sk->sk_write_queue);
+ skb_queue_purge(&sk->sk_error_queue);
+
+ if (atomic_read(&sk->sk_rmem_alloc) ||
+ atomic_read(&sk->sk_wmem_alloc)) {
+ del_timer(&sk->sk_timer);
+ printk(KERN_INFO "wansock: Killing SOCK in Timer\n");
+ sk->sk_timer.data = (unsigned long)sk;
+ sk->sk_timer.expires = jiffies + HZ;
+ sk->sk_timer.function = wanpipe_destroy_timer;
+ add_timer(&sk->sk_timer);
+ return;
+ }
+
+ if (wp_sk(sk)) {
+ kfree(wp_sk(sk));
+ wp_sk(sk) = NULL;
+ }
+
+ if (atomic_read(&sk->sk_refcnt) != 1) {
+ atomic_set(&sk->sk_refcnt, 1);
+ DBG_PRINTK(KERN_INFO "wansock: Error, wrong reference count: %i ! :timer.\n",
+ atomic_read(&sk->sk_refcnt));
+ }
+ sock_put(sk);
+ atomic_dec(&wanpipe_socks_nr);
+ return;
+}
+
+static void wanpipe_kill_sock_accept (struct sock *sk)
+{
+
+ struct sock **skp;
+
+ if (!sk)
+ return;
+
+ /* This function can be called from interrupt. We must use
+ * appropriate locks */
+
+ write_lock(&wanpipe_sklist_lock);
+ sk_del_node_init(sk);
+ write_unlock(&wanpipe_sklist_lock);
+
+ sk->sk_socket = NULL;
+
+
+ if (wp_sk(sk)) {
+ kfree(wp_sk(sk));
+ wp_sk(sk) = NULL;
+ }
+
+ if (atomic_read(&sk->sk_refcnt) != 1) {
+ atomic_set(&sk->sk_refcnt, 1);
+ DBG_PRINTK(KERN_INFO "wansock: Error, wrong reference count: %i ! :timer.\n",
+ atomic_read(&sk->sk_refcnt));
+ }
+ sock_put(sk);
+ atomic_dec(&wanpipe_socks_nr);
+ return;
+}
+
+
+static void wanpipe_kill_sock_irq (struct sock *sk)
+{
+
+ if (!sk)
+ return;
+
+ sk->sk_socket = NULL;
+
+ if (wp_sk(sk)) {
+ kfree(wp_sk(sk));
+ wp_sk(sk) = NULL;
+ }
+
+ if (atomic_read(&sk->sk_refcnt) != 1) {
+ atomic_set(&sk->sk_refcnt, 1);
+ DBG_PRINTK(KERN_INFO "wansock: Error, wrong reference count: %i !:listen.\n",
+ atomic_read(&sk->sk_refcnt));
+ }
+ sock_put(sk);
+ atomic_dec(&wanpipe_socks_nr);
+}
+
+
+/*============================================================
+ * wanpipe_do_bind
+ *
+ * Bottom half of the binding system call.
+ * Once the wanpipe_bind() function checks the
+ * legality of the call, this function binds the
+ * sock to the driver.
+ *===========================================================*/
+
+static int wanpipe_do_bind(struct sock *sk, struct net_device *dev,
+ int protocol)
+{
+ wanpipe_opt *wp = wp_sk(sk);
+ wanpipe_common_t *chan=NULL;
+ int err=0;
+
+ if (sock_flag(sk, SOCK_ZAPPED)) {
+ err = -EALREADY;
+ goto bind_unlock_exit;
+ }
+
+ wp->num = protocol;
+
+ if (protocol == 0){
+ release_device(dev);
+ err = -EINVAL;
+ goto bind_unlock_exit;
+ }
+
+ if (dev) {
+ if (dev->flags&IFF_UP) {
+ chan=dev->priv;
+ sk->sk_state = chan->state;
+
+ if (wp->num == htons(X25_PROT) &&
+ sk->sk_state != WANSOCK_DISCONNECTED &&
+ sk->sk_state != WANSOCK_CONNECTING) {
+ DBG_PRINTK(KERN_INFO
+ "wansock: Binding to Device not DISCONNECTED %i\n",
+ sk->sk_state);
+ release_device(dev);
+ err = -EAGAIN;
+ goto bind_unlock_exit;
+ }
+
+ wanpipe_link_driver(dev,sk);
+ sk->sk_bound_dev_if = dev->ifindex;
+
+ /* X25 Specific option */
+ if (wp->num == htons(X25_PROT))
+ wp_sk(sk)->svc = chan->svc;
+
+ } else {
+ sk->sk_err = ENETDOWN;
+ sk->sk_error_report(sk);
+ release_device(dev);
+ err = -EINVAL;
+ }
+ } else {
+ err = -ENODEV;
+ }
+bind_unlock_exit:
+ /* FIXME where is this lock */
+
+ return err;
+}
+
+/*============================================================
+ * wanpipe_bind
+ *
+ * BIND() System call, which is bound to the AF_WANPIPE
+ * operations structure. It checks for correct wanpipe
+ * card name, and cross references interface names with
+ * the card names. Thus, interface name must belong to
+ * the actual card.
+ *===========================================================*/
+
+
+static int wanpipe_bind(struct socket *sock, struct sockaddr *uaddr, int addr_len)
+{
+ struct wan_sockaddr_ll *sll = (struct wan_sockaddr_ll*)uaddr;
+ struct sock *sk=sock->sk;
+ wanpipe_opt *wp = wp_sk(sk);
+ struct net_device *dev = NULL;
+ sdla_t *card=NULL;
+ char name[15];
+
+ /*
+ * Check legality
+ */
+
+ if (addr_len < sizeof(struct wan_sockaddr_ll)){
+ printk(KERN_INFO "wansock: Address length error\n");
+ return -EINVAL;
+ }
+ if (sll->sll_family != AF_WANPIPE){
+ printk(KERN_INFO "wansock: Illegal family name specified.\n");
+ return -EINVAL;
+ }
+
+ card = wanpipe_find_card (sll->sll_card);
+ if (!card){
+ printk(KERN_INFO "wansock: Wanpipe card not found: %s\n",sll->sll_card);
+ return -ENODEV;
+ }else{
+ wp_sk(sk)->card = (void *)card;
+ }
+
+ if (!strcmp(sll->sll_device,"svc_listen")){
+
+ /* Bind a sock to a card structure for listening
+ */
+ int err=0;
+
+ /* This is x25 specific area if protocol doesn't
+ * match, return error */
+ if (sll->sll_protocol != htons(X25_PROT))
+ return -EINVAL;
+
+ err= wanpipe_link_card (sk);
+ if (err < 0)
+ return err;
+
+ if (sll->sll_protocol)
+ wp->num = sll->sll_protocol;
+ sk->sk_state = WANSOCK_BIND_LISTEN;
+ return 0;
+
+ }else if (!strcmp(sll->sll_device,"svc_connect")){
+
+ /* This is x25 specific area if protocol doesn't
+ * match, return error */
+ if (sll->sll_protocol != htons(X25_PROT))
+ return -EINVAL;
+
+ /* Find a free device
+ */
+ dev = wanpipe_find_free_dev(card);
+ if (dev == NULL){
+ DBG_PRINTK(KERN_INFO "wansock: No free network devices for card %s\n",
+ card->devname);
+ return -EINVAL;
+ }
+ }else{
+ /* Bind a socket to a interface name
+ * This is used by PVC mostly
+ */
+ strlcpy(name,sll->sll_device,sizeof(name));
+ dev = dev_get_by_name(name);
+ if (dev == NULL){
+ printk(KERN_INFO "wansock: Failed to get Dev from name: %s,\n",
+ name);
+ return -ENODEV;
+ }
+
+ dev_put(dev);
+
+ if (check_dev(dev, card)){
+ printk(KERN_INFO "wansock: Device %s, doesn't belong to card %s\n",
+ dev->name, card->devname);
+ return -EINVAL;
+ }
+ if (get_atomic_device (dev))
+ return -EINVAL;
+ }
+
+ return wanpipe_do_bind(sk, dev, sll->sll_protocol ? : wp->num);
+}
+
+/*============================================================
+ * get_atomic_device
+ *
+ * Sets a bit atomically which indicates that
+ * the interface is taken. This avoids race conditions.
+ *===========================================================*/
+
+
+static inline int get_atomic_device(struct net_device *dev)
+{
+ wanpipe_common_t *chan = dev->priv;
+ if (!test_and_set_bit(0,(void *)&chan->rw_bind)){
+ return 0;
+ }
+ return 1;
+}
+
+/*============================================================
+ * check_dev
+ *
+ * Check that device name belongs to a particular card.
+ *===========================================================*/
+
+static int check_dev(struct net_device *dev, sdla_t *card)
+{
+ struct net_device* tmp_dev;
+
+ for (tmp_dev = card->wandev.dev; tmp_dev;
+ tmp_dev = *((struct net_device **)tmp_dev->priv)) {
+ if (tmp_dev->ifindex == dev->ifindex){
+ return 0;
+ }
+ }
+ return 1;
+}
+
+/*============================================================
+ * wanpipe_find_free_dev
+ *
+ * Find a free network interface. If found set atomic
+ * bit indicating that the interface is taken.
+ * X25API Specific.
+ *===========================================================*/
+
+struct net_device *wanpipe_find_free_dev(sdla_t *card)
+{
+ struct net_device* dev;
+ volatile wanpipe_common_t *chan;
+
+ if (test_and_set_bit(0,&find_free_critical)){
+ printk(KERN_INFO "CRITICAL in Find Free\n");
+ }
+
+ for (dev = card->wandev.dev; dev;
+ dev = *((struct net_device **)dev->priv)) {
+ chan = dev->priv;
+ if (!chan)
+ continue;
+ if (chan->usedby == API && chan->svc){
+ if (!get_atomic_device (dev)){
+ if (chan->state != WANSOCK_DISCONNECTED){
+ release_device(dev);
+ }else{
+ clear_bit(0,&find_free_critical);
+ return dev;
+ }
+ }
+ }
+ }
+ clear_bit(0,&find_free_critical);
+ return NULL;
+}
+
+/*============================================================
+ * wanpipe_create
+ *
+ * SOCKET() System call. It allocates a sock structure
+ * and adds the socket to the wanpipe_sk_list.
+ * Crates AF_WANPIPE socket.
+ *===========================================================*/
+
+static int wanpipe_create(struct socket *sock, int protocol)
+{
+ struct sock *sk;
+
+ //FIXME: This checks for root user, SECURITY ?
+ //if (!capable(CAP_NET_RAW))
+ // return -EPERM;
+
+ if (sock->type != SOCK_DGRAM && sock->type != SOCK_RAW)
+ return -ESOCKTNOSUPPORT;
+
+ sock->state = SS_UNCONNECTED;
+
+ if ((sk = wanpipe_alloc_socket()) == NULL)
+ return -ENOBUFS;
+
+ sk->sk_reuse = 1;
+ sock->ops = &wanpipe_ops;
+ sock_init_data(sock,sk);
+
+ sock_reset_flag(sk, SOCK_ZAPPED);
+ sk->sk_family = PF_WANPIPE;
+ wp_sk(sk)->num = protocol;
+ sk->sk_state = WANSOCK_DISCONNECTED;
+ sk->sk_ack_backlog = 0;
+ sk->sk_bound_dev_if = 0;
+
+ atomic_inc(&wanpipe_socks_nr);
+
+ /* We must disable interrupts because the ISR
+ * can also change the list */
+ set_bit(1,&wanpipe_tx_critical);
+ write_lock(&wanpipe_sklist_lock);
+ sk_add_node(sk, &wanpipe_sklist);
+ write_unlock(&wanpipe_sklist_lock);
+ clear_bit(1,&wanpipe_tx_critical);
+
+ return(0);
+}
+
+
+/*============================================================
+ * wanpipe_recvmsg
+ *
+ * Pull a packet from our receive queue and hand it
+ * to the user. If necessary we block.
+ *===========================================================*/
+
+static int wanpipe_recvmsg(struct kiocb *iocb, struct socket *sock,
+ struct msghdr *msg, int len, int flags)
+{
+ struct sock *sk = sock->sk;
+ struct sk_buff *skb;
+ int copied, err=-ENOBUFS;
+
+
+ /*
+ * If the address length field is there to be filled in, we fill
+ * it in now.
+ */
+
+ msg->msg_namelen = sizeof(struct wan_sockaddr_ll);
+
+ /*
+ * Call the generic datagram receiver. This handles all sorts
+ * of horrible races and re-entrancy so we can forget about it
+ * in the protocol layers.
+ *
+ * Now it will return ENETDOWN, if device have just gone down,
+ * but then it will block.
+ */
+
+ if (flags & MSG_OOB){
+ skb = skb_dequeue(&sk->sk_error_queue);
+ }else{
+ skb=skb_recv_datagram(sk,flags,1,&err);
+ }
+ /*
+ * An error occurred so return it. Because skb_recv_datagram()
+ * handles the blocking we don't see and worry about blocking
+ * retries.
+ */
+
+ if(skb==NULL)
+ goto out;
+
+ /*
+ * You lose any data beyond the buffer you gave. If it worries a
+ * user program they can ask the device for its MTU anyway.
+ */
+
+ copied = skb->len;
+ if (copied > len)
+ {
+ copied=len;
+ msg->msg_flags|=MSG_TRUNC;
+ }
+
+ wanpipe_wakeup_driver(sk);
+
+ /* We can't use skb_copy_datagram here */
+ err = memcpy_toiovec(msg->msg_iov, skb->data, copied);
+ if (err)
+ goto out_free;
+
+ sock_recv_timestamp(msg, sk, skb);
+
+ if (msg->msg_name)
+ memcpy(msg->msg_name, skb->cb, msg->msg_namelen);
+
+ /*
+ * Free or return the buffer as appropriate. Again this
+ * hides all the races and re-entrancy issues from us.
+ */
+ err = (flags&MSG_TRUNC) ? skb->len : copied;
+
+out_free:
+ skb_free_datagram(sk, skb);
+out:
+ return err;
+}
+
+
+/*============================================================
+ * wanpipe_wakeup_driver
+ *
+ * If socket receive buffer is full and driver cannot
+ * pass data up the sock, it sets a packet_block flag.
+ * This function check that flag and if sock receive
+ * queue has room it kicks the driver BH handler.
+ *
+ * This way, driver doesn't have to poll the sock
+ * receive queue.
+ *===========================================================*/
+
+static void wanpipe_wakeup_driver(struct sock *sk)
+{
+ struct net_device *dev = NULL;
+ wanpipe_common_t *chan=NULL;
+
+ dev = dev_get_by_index(sk->sk_bound_dev_if);
+ if (!dev)
+ return;
+
+ dev_put(dev);
+
+ if ((chan = dev->priv) == NULL)
+ return;
+
+ if (atomic_read(&chan->receive_block)){
+ if (atomic_read(&sk->sk_rmem_alloc) <
+ ((unsigned)sk->sk_rcvbuf * 0.9)) {
+ printk(KERN_INFO "wansock: Queuing task for wanpipe\n");
+ atomic_set(&chan->receive_block,0);
+ wanpipe_queue_tq(&chan->wanpipe_task);
+ wanpipe_mark_bh();
+ }
+ }
+}
+
+/*============================================================
+ * wanpipe_getname
+ *
+ * I don't know what to do with this yet.
+ * User can use this function to get sock address
+ * information. Not very useful for Sangoma's purposes.
+ *===========================================================*/
+
+
+static int wanpipe_getname(struct socket *sock, struct sockaddr *uaddr,
+ int *uaddr_len, int peer)
+{
+ struct net_device *dev;
+ struct sock *sk = sock->sk;
+ struct wan_sockaddr_ll *sll = (struct wan_sockaddr_ll*)uaddr;
+
+ sll->sll_family = AF_WANPIPE;
+ sll->sll_ifindex = sk->sk_bound_dev_if;
+ sll->sll_protocol = wp_sk(sk)->num;
+ dev = dev_get_by_index(sk->sk_bound_dev_if);
+ if (dev) {
+ sll->sll_hatype = dev->type;
+ sll->sll_halen = dev->addr_len;
+ memcpy(sll->sll_addr, dev->dev_addr, dev->addr_len);
+ } else {
+ sll->sll_hatype = 0; /* Bad: we have no ARPHRD_UNSPEC */
+ sll->sll_halen = 0;
+ }
+ *uaddr_len = sizeof(*sll);
+
+ dev_put(dev);
+
+ return 0;
+}
+
+/*============================================================
+ * wanpipe_notifier
+ *
+ * If driver turns off network interface, this function
+ * will be envoked. Currently I treate it as a
+ * call disconnect. More thought should go into this
+ * function.
+ *
+ * FIXME: More thought should go into this function.
+ *
+ *===========================================================*/
+
+static int wanpipe_notifier(struct notifier_block *this, unsigned long msg, void *data)
+{
+ struct sock *sk;
+ hlist_node *node;
+ struct net_device *dev = (struct net_device *)data;
+
+ sk_for_each(sk, node, &wanpipe_sklist) {
+ struct wanpipe_opt *po = wp_sk(sk);
+
+ if (!po)
+ continue;
+ if (dev == NULL)
+ continue;
+
+ switch (msg) {
+ case NETDEV_DOWN:
+ case NETDEV_UNREGISTER:
+ if (dev->ifindex == sk->sk_bound_dev_if) {
+ printk(KERN_INFO "wansock: Device down %s\n",dev->name);
+ if (sock_flag(sk, SOCK_ZAPPED)) {
+ wanpipe_unlink_driver(sk);
+ sk->sk_err = ENETDOWN;
+ sk->sk_error_report(sk);
+ }
+
+ if (msg == NETDEV_UNREGISTER) {
+ printk(KERN_INFO "wansock: Unregistering Device: %s\n",
+ dev->name);
+ wanpipe_unlink_driver(sk);
+ sk->sk_bound_dev_if = 0;
+ }
+ }
+ break;
+ case NETDEV_UP:
+ if (dev->ifindex == sk->sk_bound_dev_if &&
+ po->num && !sock_flag(sk, SOCK_ZAPPED)) {
+ printk(KERN_INFO "wansock: Registering Device: %s\n",
+ dev->name);
+ wanpipe_link_driver(dev,sk);
+ }
+ break;
+ }
+ }
+ return NOTIFY_DONE;
+}
+
+/*============================================================
+ * wanpipe_ioctl
+ *
+ * Execute a user commands, and set socket options.
+ *
+ * FIXME: More thought should go into this function.
+ *
+ *===========================================================*/
+
+static int wanpipe_ioctl(struct socket *sock, unsigned int cmd, unsigned long arg)
+{
+ struct sock *sk = sock->sk;
+ int err;
+
+ switch(cmd)
+ {
+ case SIOCGSTAMP:
+ return sock_get_timestamp(sk, (struct timeval __user *)arg);
+
+ case SIOC_WANPIPE_CHECK_TX:
+
+ return atomic_read(&sk->sk_wmem_alloc);
+
+ case SIOC_WANPIPE_SOCK_STATE:
+
+ if (sk->sk_state == WANSOCK_CONNECTED)
+ return 0;
+
+ return 1;
+
+
+ case SIOC_WANPIPE_GET_CALL_DATA:
+
+ return get_ioctl_cmd (sk,(void*)arg);
+
+ case SIOC_WANPIPE_SET_CALL_DATA:
+
+ return set_ioctl_cmd (sk,(void*)arg);
+
+ case SIOC_WANPIPE_ACCEPT_CALL:
+ case SIOC_WANPIPE_CLEAR_CALL:
+ case SIOC_WANPIPE_RESET_CALL:
+
+ if ((err=set_ioctl_cmd(sk,(void*)arg)) < 0)
+ return err;
+
+ err=wanpipe_exec_cmd(sk,cmd,0);
+ get_ioctl_cmd(sk,(void*)arg);
+ return err;
+
+ case SIOC_WANPIPE_DEBUG:
+
+ return wanpipe_debug(sk,(void*)arg);
+
+ case SIOC_WANPIPE_SET_NONBLOCK:
+
+ if (sk->sk_state != WANSOCK_DISCONNECTED)
+ return -EINVAL;
+
+ sock->file->f_flags |= O_NONBLOCK;
+ return 0;
+
+#ifdef CONFIG_INET
+ case SIOCADDRT:
+ case SIOCDELRT:
+ case SIOCDARP:
+ case SIOCGARP:
+ case SIOCSARP:
+ case SIOCDRARP:
+ case SIOCGRARP:
+ case SIOCSRARP:
+ case SIOCGIFADDR:
+ case SIOCSIFADDR:
+ case SIOCGIFBRDADDR:
+ case SIOCSIFBRDADDR:
+ case SIOCGIFNETMASK:
+ case SIOCSIFNETMASK:
+ case SIOCGIFDSTADDR:
+ case SIOCSIFDSTADDR:
+ case SIOCSIFFLAGS:
+ return inet_dgram_ops.ioctl(sock, cmd, arg);
+#endif
+
+ default:
+ return dev_ioctl(cmd,(void __user *) arg);
+ }
+ /*NOTREACHED*/
+}
+
+/*============================================================
+ * wanpipe_debug
+ *
+ * This function will pass up information about all
+ * active sockets.
+ *
+ * FIXME: More thought should go into this function.
+ *
+ *===========================================================*/
+
+static int wanpipe_debug (struct sock *origsk, void *arg)
+{
+ struct sock *sk;
+ struct hlist_node *node;
+ struct net_device *dev = NULL;
+ wanpipe_common_t *chan=NULL;
+ int cnt=0, err=0;
+ wan_debug_t *dbg_data = (wan_debug_t *)arg;
+
+ sk_for_each(sk, node, &wanpipe_sklist) {
+ wanpipe_opt *wp = wp_sk(sk);
+
+ if (sk == origsk){
+ continue;
+ }
+
+ if ((err=put_user(1, &dbg_data->debug[cnt].free)))
+ return err;
+ if ((err = put_user(sk->sk_state,
+ &dbg_data->debug[cnt].state_sk)))
+ return err;
+ if ((err = put_user(sk->sk_rcvbuf,
+ &dbg_data->debug[cnt].rcvbuf)))
+ return err;
+ if ((err = put_user(atomic_read(&sk->sk_rmem_alloc),
+ &dbg_data->debug[cnt].rmem)))
+ return err;
+ if ((err = put_user(atomic_read(&sk->sk_wmem_alloc),
+ &dbg_data->debug[cnt].wmem)))
+ return err;
+ if ((err = put_user(sk->sk_sndbuf,
+ &dbg_data->debug[cnt].sndbuf)))
+ return err;
+ if ((err=put_user(sk_count, &dbg_data->debug[cnt].sk_count)))
+ return err;
+ if ((err=put_user(wp->poll_cnt, &dbg_data->debug[cnt].poll_cnt)))
+ return err;
+ if ((err = put_user(sk->sk_bound_dev_if,
+ &dbg_data->debug[cnt].bound)))
+ return err;
+
+ if (sk->sk_bound_dev_if) {
+ dev = dev_get_by_index(sk->sk_bound_dev_if);
+ if (!dev)
+ continue;
+
+ chan=dev->priv;
+ dev_put(dev);
+
+ if ((err=put_user(chan->state, &dbg_data->debug[cnt].d_state)))
+ return err;
+ if ((err=put_user(chan->svc, &dbg_data->debug[cnt].svc)))
+ return err;
+
+ if ((err=put_user(atomic_read(&chan->command),
+ &dbg_data->debug[cnt].command)))
+ return err;
+
+
+ if (wp){
+ sdla_t *card = (sdla_t*)wp->card;
+
+ if (card){
+ if ((err=put_user(atomic_read(&card->u.x.command_busy),
+ &dbg_data->debug[cnt].cmd_busy)))
+ return err;
+ }
+
+ if ((err=put_user(wp->lcn,
+ &dbg_data->debug[cnt].lcn)))
+ return err;
+
+ if (wp->mbox) {
+ if ((err=put_user(1, &dbg_data->debug[cnt].mbox)))
+ return err;
+ }
+ }
+
+ if ((err=put_user(atomic_read(&chan->receive_block),
+ &dbg_data->debug[cnt].rblock)))
+ return err;
+
+ if (copy_to_user(dbg_data->debug[cnt].name, dev->name, strlen(dev->name)))
+ return -EFAULT;
+ }
+
+ if (++cnt == MAX_NUM_DEBUG)
+ break;
+ }
+ return 0;
+}
+
+/*============================================================
+ * get_ioctl_cmd
+ *
+ * Pass up the contents of socket MBOX to the user.
+ *===========================================================*/
+
+static int get_ioctl_cmd (struct sock *sk, void *arg)
+{
+ x25api_t *usr_data = (x25api_t *)arg;
+ mbox_cmd_t *mbox_ptr;
+ int err;
+
+ if (usr_data == NULL)
+ return -EINVAL;
+
+ if (!wp_sk(sk)->mbox) {
+ return -EINVAL;
+ }
+
+ mbox_ptr = (mbox_cmd_t *)wp_sk(sk)->mbox;
+
+ if ((err=put_user(mbox_ptr->cmd.qdm, &usr_data->hdr.qdm)))
+ return err;
+ if ((err=put_user(mbox_ptr->cmd.cause, &usr_data->hdr.cause)))
+ return err;
+ if ((err=put_user(mbox_ptr->cmd.diagn, &usr_data->hdr.diagn)))
+ return err;
+ if ((err=put_user(mbox_ptr->cmd.length, &usr_data->hdr.length)))
+ return err;
+ if ((err=put_user(mbox_ptr->cmd.result, &usr_data->hdr.result)))
+ return err;
+ if ((err=put_user(mbox_ptr->cmd.lcn, &usr_data->hdr.lcn)))
+ return err;
+
+ if (mbox_ptr->cmd.length > 0){
+ if (mbox_ptr->cmd.length > X25_MAX_DATA)
+ return -EINVAL;
+
+ if (copy_to_user(usr_data->data, mbox_ptr->data, mbox_ptr->cmd.length)){
+ printk(KERN_INFO "wansock: Copy failed !!!\n");
+ return -EFAULT;
+ }
+ }
+ return 0;
+}
+
+/*============================================================
+ * set_ioctl_cmd
+ *
+ * Before command can be execute, socket MBOX must
+ * be created, and initialized with user data.
+ *===========================================================*/
+
+static int set_ioctl_cmd (struct sock *sk, void *arg)
+{
+ x25api_t *usr_data = (x25api_t *)arg;
+ mbox_cmd_t *mbox_ptr;
+ int err;
+
+ if (!wp_sk(sk)->mbox) {
+ void *mbox_ptr;
+ struct net_device *dev = dev_get_by_index(sk->sk_bound_dev_if);
+ if (!dev)
+ return -ENODEV;
+
+ dev_put(dev);
+
+ if ((mbox_ptr = kmalloc(sizeof(mbox_cmd_t), GFP_ATOMIC)) == NULL)
+ return -ENOMEM;
+
+ memset(mbox_ptr, 0, sizeof(mbox_cmd_t));
+ wp_sk(sk)->mbox = mbox_ptr;
+
+ wanpipe_link_driver(dev,sk);
+ }
+
+ mbox_ptr = (mbox_cmd_t*)wp_sk(sk)->mbox;
+ memset(mbox_ptr, 0, sizeof(mbox_cmd_t));
+
+ if (usr_data == NULL){
+ return 0;
+ }
+ if ((err=get_user(mbox_ptr->cmd.qdm, &usr_data->hdr.qdm)))
+ return err;
+ if ((err=get_user(mbox_ptr->cmd.cause, &usr_data->hdr.cause)))
+ return err;
+ if ((err=get_user(mbox_ptr->cmd.diagn, &usr_data->hdr.diagn)))
+ return err;
+ if ((err=get_user(mbox_ptr->cmd.length, &usr_data->hdr.length)))
+ return err;
+ if ((err=get_user(mbox_ptr->cmd.result, &usr_data->hdr.result)))
+ return err;
+
+ if (mbox_ptr->cmd.length > 0){
+ if (mbox_ptr->cmd.length > X25_MAX_DATA)
+ return -EINVAL;
+
+ if (copy_from_user(mbox_ptr->data, usr_data->data, mbox_ptr->cmd.length)){
+ printk(KERN_INFO "Copy failed\n");
+ return -EFAULT;
+ }
+ }
+ return 0;
+}
+
+
+/*======================================================================
+ * wanpipe_poll
+ *
+ * Datagram poll: Again totally generic. This also handles
+ * sequenced packet sockets providing the socket receive queue
+ * is only ever holding data ready to receive.
+ *
+ * Note: when you _don't_ use this routine for this protocol,
+ * and you use a different write policy from sock_writeable()
+ * then please supply your own write_space callback.
+ *=====================================================================*/
+
+unsigned int wanpipe_poll(struct file * file, struct socket *sock, poll_table *wait)
+{
+ struct sock *sk = sock->sk;
+ unsigned int mask;
+
+ ++wp_sk(sk)->poll_cnt;
+
+ poll_wait(file, sk->sk_sleep, wait);
+ mask = 0;
+
+ /* exceptional events? */
+ if (sk->sk_err || !skb_queue_empty(&sk->sk_error_queue)) {
+ mask |= POLLPRI;
+ return mask;
+ }
+ if (sk->sk_shutdown & RCV_SHUTDOWN)
+ mask |= POLLHUP;
+
+ /* readable? */
+ if (!skb_queue_empty(&sk->sk_receive_queue)) {
+ mask |= POLLIN | POLLRDNORM;
+ }
+
+ /* connection hasn't started yet */
+ if (sk->sk_state == WANSOCK_CONNECTING) {
+ return mask;
+ }
+
+ if (sk->sk_state == WANSOCK_DISCONNECTED) {
+ mask = POLLPRI;
+ return mask;
+ }
+
+ /* This check blocks the user process if there is
+ * a packet already queued in the socket write queue.
+ * This option is only for X25API protocol, for other
+ * protocol like chdlc enable streaming mode,
+ * where multiple packets can be pending in the socket
+ * transmit queue */
+
+ if (wp_sk(sk)->num == htons(X25_PROT)) {
+ if (atomic_read(&wp_sk(sk)->packet_sent))
+ return mask;
+ }
+
+ /* writable? */
+ if (sock_writeable(sk)){
+ mask |= POLLOUT | POLLWRNORM | POLLWRBAND;
+ }else{
+ set_bit(SOCK_ASYNC_NOSPACE, &sk->sk_socket->flags);
+ }
+
+ return mask;
+}
+
+/*======================================================================
+ * wanpipe_listen
+ *
+ * X25API Specific function. Set a socket into LISTENING MODE.
+ *=====================================================================*/
+
+
+static int wanpipe_listen(struct socket *sock, int backlog)
+{
+ struct sock *sk = sock->sk;
+
+ /* This is x25 specific area if protocol doesn't
+ * match, return error */
+ if (wp_sk(sk)->num != htons(X25_PROT))
+ return -EINVAL;
+
+ if (sk->sk_state == WANSOCK_BIND_LISTEN) {
+
+ sk->sk_max_ack_backlog = backlog;
+ sk->sk_state = WANSOCK_LISTEN;
+ return 0;
+ }else{
+ printk(KERN_INFO "wansock: Listening sock was not binded\n");
+ }
+
+ return -EINVAL;
+}
+
+/*======================================================================
+ * wanpipe_link_card
+ *
+ * Connects the listening socket to the driver
+ *=====================================================================*/
+
+static int wanpipe_link_card (struct sock *sk)
+{
+ sdla_t *card = (sdla_t*)wp_sk(sk)->card;
+
+ if (!card)
+ return -ENOMEM;
+
+ if ((card->sk != NULL) || (card->func != NULL)){
+ printk(KERN_INFO "wansock: Listening queue is already established\n");
+ return -EINVAL;
+ }
+
+ card->sk=sk;
+ card->func=wanpipe_listen_rcv;
+ sock_set_flag(sk, SOCK_ZAPPED);
+
+ return 0;
+}
+
+/*======================================================================
+ * wanpipe_listen
+ *
+ * X25API Specific function. Disconnect listening socket from
+ * the driver.
+ *=====================================================================*/
+
+static void wanpipe_unlink_card (struct sock *sk)
+{
+ sdla_t *card = (sdla_t*)wp_sk(sk)->card;
+
+ if (card){
+ card->sk=NULL;
+ card->func=NULL;
+ }
+}
+
+/*======================================================================
+ * wanpipe_exec_cmd
+ *
+ * Ioctl function calls this function to execute user command.
+ * Connect() sytem call also calls this function to execute
+ * place call. This function blocks until command is executed.
+ *=====================================================================*/
+
+static int wanpipe_exec_cmd(struct sock *sk, int cmd, unsigned int flags)
+{
+ int err = -EINVAL;
+ wanpipe_opt *wp = wp_sk(sk);
+ mbox_cmd_t *mbox_ptr = (mbox_cmd_t*)wp->mbox;
+
+ if (!mbox_ptr){
+ printk(KERN_INFO "NO MBOX PTR !!!!!\n");
+ return -EINVAL;
+ }
+
+ /* This is x25 specific area if protocol doesn't
+ * match, return error */
+ if (wp->num != htons(X25_PROT))
+ return -EINVAL;
+
+
+ switch (cmd){
+
+ case SIOC_WANPIPE_ACCEPT_CALL:
+
+ if (sk->sk_state != WANSOCK_CONNECTING) {
+ err = -EHOSTDOWN;
+ break;
+ }
+
+ err = execute_command(sk,X25_ACCEPT_CALL,0);
+ if (err < 0)
+ break;
+
+ /* Update. Mar6 2000.
+ * Do not set the sock lcn number here, since
+ * it is done in wanpipe_listen_rcv().
+ */
+ if (sk->sk_state == WANSOCK_CONNECTED) {
+ wp->lcn = ((mbox_cmd_t*)wp->mbox)->cmd.lcn;
+ DBG_PRINTK(KERN_INFO "\nwansock: Accept OK %i\n",
+ wp->lcn);
+ err = 0;
+
+ }else{
+ DBG_PRINTK (KERN_INFO "\nwansock: Accept Failed %i\n",
+ wp->lcn);
+ wp->lcn = 0;
+ err = -ECONNREFUSED;
+ }
+ break;
+
+ case SIOC_WANPIPE_CLEAR_CALL:
+
+ if (sk->sk_state == WANSOCK_DISCONNECTED) {
+ err = -EINVAL;
+ break;
+ }
+
+
+ /* Check if data buffers are pending for transmission,
+ * if so, check whether user wants to wait until data
+ * is transmitted, or clear a call and drop packets */
+
+ if (atomic_read(&sk->sk_wmem_alloc) ||
+ check_driver_busy(sk)) {
+ mbox_cmd_t *mbox = wp->mbox;
+ if (mbox->cmd.qdm & 0x80){
+ mbox->cmd.result = 0x35;
+ err = -EAGAIN;
+ break;
+ }
+ }
+
+ sk->sk_state = WANSOCK_DISCONNECTING;
+
+ err = execute_command(sk,X25_CLEAR_CALL,0);
+ if (err < 0)
+ break;
+
+ err = -ECONNREFUSED;
+ if (sk->sk_state == WANSOCK_DISCONNECTED) {
+ DBG_PRINTK(KERN_INFO "\nwansock: CLEAR OK %i\n",
+ wp->lcn);
+ wp->lcn = 0;
+ err = 0;
+ }
+ break;
+
+ case SIOC_WANPIPE_RESET_CALL:
+
+ if (sk->sk_state != WANSOCK_CONNECTED) {
+ err = -EINVAL;
+ break;
+ }
+
+
+ /* Check if data buffers are pending for transmission,
+ * if so, check whether user wants to wait until data
+ * is transmitted, or reset a call and drop packets */
+
+ if (atomic_read(&sk->sk_wmem_alloc) ||
+ check_driver_busy(sk)) {
+ mbox_cmd_t *mbox = wp->mbox;
+ if (mbox->cmd.qdm & 0x80){
+ mbox->cmd.result = 0x35;
+ err = -EAGAIN;
+ break;
+ }
+ }
+
+
+ err = execute_command(sk, X25_RESET,0);
+ if (err < 0)
+ break;
+
+ err = mbox_ptr->cmd.result;
+ break;
+
+
+ case X25_PLACE_CALL:
+
+ err=execute_command(sk,X25_PLACE_CALL,flags);
+ if (err < 0)
+ break;
+
+ if (sk->sk_state == WANSOCK_CONNECTED) {
+
+ wp->lcn = ((mbox_cmd_t*)wp->mbox)->cmd.lcn;
+
+ DBG_PRINTK(KERN_INFO "\nwansock: PLACE CALL OK %i\n",
+ wp->lcn);
+ err = 0;
+
+ } else if (sk->sk_state == WANSOCK_CONNECTING &&
+ (flags & O_NONBLOCK)) {
+ wp->lcn = ((mbox_cmd_t*)wp->mbox)->cmd.lcn;
+ DBG_PRINTK(KERN_INFO "\nwansock: Place Call OK: Waiting %i\n",
+ wp->lcn);
+
+ err = 0;
+
+ }else{
+ DBG_PRINTK(KERN_INFO "\nwansock: Place call Failed\n");
+ err = -ECONNREFUSED;
+ }
+
+ break;
+
+ default:
+ return -EINVAL;
+ }
+
+ return err;
+}
+
+static int check_driver_busy (struct sock *sk)
+{
+ struct net_device *dev = dev_get_by_index(sk->sk_bound_dev_if);
+ wanpipe_common_t *chan;
+
+ if (!dev)
+ return 0;
+
+ dev_put(dev);
+
+ if ((chan=dev->priv) == NULL)
+ return 0;
+
+ return atomic_read(&chan->driver_busy);
+}
+
+
+/*======================================================================
+ * wanpipe_accept
+ *
+ * ACCEPT() System call. X25API Specific function.
+ * For each incoming call, create a new socket and
+ * return it to the user.
+ *=====================================================================*/
+
+static int wanpipe_accept(struct socket *sock, struct socket *newsock, int flags)
+{
+ struct sock *sk;
+ struct sock *newsk;
+ struct sk_buff *skb;
+ DECLARE_WAITQUEUE(wait, current);
+ int err=0;
+
+ if (newsock->sk != NULL){
+ wanpipe_kill_sock_accept(newsock->sk);
+ newsock->sk=NULL;
+ }
+
+ if ((sk = sock->sk) == NULL)
+ return -EINVAL;
+
+ if (sk->sk_type != SOCK_RAW)
+ return -EOPNOTSUPP;
+
+ if (sk->sk_state != WANSOCK_LISTEN)
+ return -EINVAL;
+
+ if (wp_sk(sk)->num != htons(X25_PROT))
+ return -EINVAL;
+
+ add_wait_queue(sk->sk_sleep,&wait);
+ current->state = TASK_INTERRUPTIBLE;
+ for (;;){
+ skb = skb_dequeue(&sk->sk_receive_queue);
+ if (skb){
+ err=0;
+ break;
+ }
+ if (signal_pending(current)) {
+ err = -ERESTARTSYS;
+ break;
+ }
+ schedule();
+ }
+ current->state = TASK_RUNNING;
+ remove_wait_queue(sk->sk_sleep,&wait);
+
+ if (err != 0)
+ return err;
+
+ newsk = get_newsk_from_skb(skb);
+ if (!newsk){
+ return -EINVAL;
+ }
+
+ set_bit(1,&wanpipe_tx_critical);
+ write_lock(&wanpipe_sklist_lock);
+ sk_add_node(newsk, &wanpipe_sklist);
+ write_unlock(&wanpipe_sklist_lock);
+ clear_bit(1,&wanpipe_tx_critical);
+
+ newsk->sk_socket = newsock;
+ newsk->sk_sleep = &newsock->wait;
+
+ /* Now attach up the new socket */
+ sk->sk_ack_backlog--;
+ newsock->sk = newsk;
+
+ kfree_skb(skb);
+
+ DBG_PRINTK(KERN_INFO "\nwansock: ACCEPT Got LCN %i\n",
+ wp_sk(newsk)->lcn);
+ return 0;
+}
+
+/*======================================================================
+ * get_newsk_from_skb
+ *
+ * Accept() uses this function to get the address of the new
+ * socket structure.
+ *=====================================================================*/
+
+struct sock * get_newsk_from_skb (struct sk_buff *skb)
+{
+ struct net_device *dev = skb->dev;
+ wanpipe_common_t *chan;
+
+ if (!dev){
+ return NULL;
+ }
+
+ if ((chan = dev->priv) == NULL){
+ return NULL;
+ }
+
+ if (!chan->sk){
+ return NULL;
+ }
+ return (struct sock *)chan->sk;
+}
+
+/*======================================================================
+ * wanpipe_connect
+ *
+ * CONNECT() System Call. X25API specific function
+ * Check the state of the sock, and execute PLACE_CALL command.
+ * Connect can ether block or return without waiting for connection,
+ * if specified by user.
+ *=====================================================================*/
+
+static int wanpipe_connect(struct socket *sock, struct sockaddr *uaddr, int addr_len, int flags)
+{
+ struct sock *sk = sock->sk;
+ struct wan_sockaddr_ll *addr = (struct wan_sockaddr_ll*)uaddr;
+ struct net_device *dev;
+ int err;
+
+ if (wp_sk(sk)->num != htons(X25_PROT))
+ return -EINVAL;
+
+ if (sk->sk_state == WANSOCK_CONNECTED)
+ return -EISCONN; /* No reconnect on a seqpacket socket */
+
+ if (sk->sk_state != WAN_DISCONNECTED) {
+ printk(KERN_INFO "wansock: Trying to connect on channel NON DISCONNECT\n");
+ return -ECONNREFUSED;
+ }
+
+ sk->sk_state = WANSOCK_DISCONNECTED;
+ sock->state = SS_UNCONNECTED;
+
+ if (addr_len != sizeof(struct wan_sockaddr_ll))
+ return -EINVAL;
+
+ if (addr->sll_family != AF_WANPIPE)
+ return -EINVAL;
+
+ if ((dev = dev_get_by_index(sk->sk_bound_dev_if)) == NULL)
+ return -ENETUNREACH;
+
+ dev_put(dev);
+
+ if (!sock_flag(sk, SOCK_ZAPPED)) /* Must bind first - autobinding does not work */
+ return -EINVAL;
+
+ sock->state = SS_CONNECTING;
+ sk->sk_state = WANSOCK_CONNECTING;
+
+ if (!wp_sk(sk)->mbox) {
+ if (wp_sk (sk)->svc)
+ return -EINVAL;
+ else {
+ int err;
+ if ((err=set_ioctl_cmd(sk,NULL)) < 0)
+ return err;
+ }
+ }
+
+ if ((err=wanpipe_exec_cmd(sk, X25_PLACE_CALL,flags)) != 0){
+ sock->state = SS_UNCONNECTED;
+ sk->sk_state = WANSOCK_CONNECTED;
+ return err;
+ }
+
+ if (sk->sk_state != WANSOCK_CONNECTED && (flags & O_NONBLOCK)) {
+ return 0;
+ }
+
+ if (sk->sk_state != WANSOCK_CONNECTED) {
+ sock->state = SS_UNCONNECTED;
+ return -ECONNREFUSED;
+ }
+
+ sock->state = SS_CONNECTED;
+ return 0;
+}
+
+struct proto_ops wanpipe_ops = {
+ .family = PF_WANPIPE,
+ .owner = THIS_MODULE,
+ .release = wanpipe_release,
+ .bind = wanpipe_bind,
+ .connect = wanpipe_connect,
+ .socketpair = sock_no_socketpair,
+ .accept = wanpipe_accept,
+ .getname = wanpipe_getname,
+ .poll = wanpipe_poll,
+ .ioctl = wanpipe_ioctl,
+ .listen = wanpipe_listen,
+ .shutdown = sock_no_shutdown,
+ .setsockopt = sock_no_setsockopt,
+ .getsockopt = sock_no_getsockopt,
+ .sendmsg = wanpipe_sendmsg,
+ .recvmsg = wanpipe_recvmsg
+};
+
+static struct net_proto_family wanpipe_family_ops = {
+ .family = PF_WANPIPE,
+ .create = wanpipe_create,
+ .owner = THIS_MODULE,
+};
+
+struct notifier_block wanpipe_netdev_notifier = {
+ .notifier_call = wanpipe_notifier,
+};
+
+
+#ifdef MODULE
+void cleanup_module(void)
+{
+ printk(KERN_INFO "wansock: Cleaning up \n");
+ unregister_netdevice_notifier(&wanpipe_netdev_notifier);
+ sock_unregister(PF_WANPIPE);
+ proto_unregister(&wanpipe_proto);
+}
+
+int init_module(void)
+{
+ int rc;
+
+ printk(KERN_INFO "wansock: Registering Socket \n");
+
+ rc = proto_register(&wanpipe_proto, 0);
+ if (rc != 0)
+ goto out;
+
+ sock_register(&wanpipe_family_ops);
+ register_netdevice_notifier(&wanpipe_netdev_notifier);
+out:
+ return rc;
+}
+#endif
+MODULE_LICENSE("GPL");
+MODULE_ALIAS_NETPROTO(PF_WANPIPE);