blob: 7a43ae4721edd95fd6748974f68b8cf40c2f5e7b [file] [log] [blame]
Linus Torvalds1da177e2005-04-16 15:20:36 -07001/*****************************************************************************
2* af_wanpipe.c WANPIPE(tm) Secure Socket Layer.
3*
4* Author: Nenad Corbic <ncorbic@sangoma.com>
5*
6* Copyright: (c) 2000 Sangoma Technologies Inc.
7*
8* This program is free software; you can redistribute it and/or
9* modify it under the terms of the GNU General Public License
10* as published by the Free Software Foundation; either version
11* 2 of the License, or (at your option) any later version.
12* ============================================================================
13* Due Credit:
14* Wanpipe socket layer is based on Packet and
15* the X25 socket layers. The above sockets were
16* used for the specific use of Sangoma Technoloiges
17* API programs.
18* Packet socket Authors: Ross Biro, Fred N. van Kempen and
19* Alan Cox.
20* X25 socket Author: Jonathan Naylor.
21* ============================================================================
22* Mar 15, 2002 Arnaldo C. Melo o Use wp_sk()->num, as it isnt anymore in sock
23* Apr 25, 2000 Nenad Corbic o Added the ability to send zero length packets.
24* Mar 13, 2000 Nenad Corbic o Added a tx buffer check via ioctl call.
25* Mar 06, 2000 Nenad Corbic o Fixed the corrupt sock lcn problem.
26* Server and client applicaton can run
27* simultaneously without conflicts.
28* Feb 29, 2000 Nenad Corbic o Added support for PVC protocols, such as
29* CHDLC, Frame Relay and HDLC API.
30* Jan 17, 2000 Nenad Corbic o Initial version, based on AF_PACKET socket.
31* X25API support only.
32*
33******************************************************************************/
34
35#include <linux/config.h>
36#include <linux/types.h>
37#include <linux/sched.h>
38#include <linux/mm.h>
39#include <linux/fcntl.h>
40#include <linux/socket.h>
41#include <linux/in.h>
42#include <linux/inet.h>
43#include <linux/netdevice.h>
44#include <linux/poll.h>
45#include <linux/wireless.h>
46#include <linux/kmod.h>
47#include <net/ip.h>
48#include <net/protocol.h>
49#include <linux/skbuff.h>
50#include <net/sock.h>
51#include <linux/errno.h>
52#include <linux/timer.h>
53#include <asm/system.h>
54#include <asm/uaccess.h>
55#include <linux/module.h>
56#include <linux/init.h>
57#include <linux/wanpipe.h>
58#include <linux/if_wanpipe.h>
59#include <linux/pkt_sched.h>
Arnaldo Carvalho de Meloc752f072005-08-09 20:08:28 -070060#include <linux/tcp_states.h>
Linus Torvalds1da177e2005-04-16 15:20:36 -070061#include <linux/if_wanpipe_common.h>
62#include <linux/sdla_x25.h>
63
64#ifdef CONFIG_INET
65#include <net/inet_common.h>
66#endif
67
68#define SLOW_BACKOFF 0.1*HZ
69#define FAST_BACKOFF 0.01*HZ
70
71//#define PRINT_DEBUG
72#ifdef PRINT_DEBUG
73 #define DBG_PRINTK(format, a...) printk(format, ## a)
74#else
75 #define DBG_PRINTK(format, a...)
76#endif
77
78
79/* SECURE SOCKET IMPLEMENTATION
80 *
81 * TRANSMIT:
82 *
83 * When the user sends a packet via send() system call
84 * the wanpipe_sendmsg() function is executed.
85 *
86 * Each packet is enqueud into sk->sk_write_queue transmit
87 * queue. When the packet is enqueued, a delayed transmit
88 * timer is triggerd which acts as a Bottom Half hander.
89 *
90 * wanpipe_delay_transmit() function (BH), dequeues packets
91 * from the sk->sk_write_queue transmit queue and sends it
92 * to the deriver via dev->hard_start_xmit(skb, dev) function.
93 * Note, this function is actual a function pointer of if_send()
94 * routine in the wanpipe driver.
95 *
96 * X25API GUARANTEED DELIVERY:
97 *
98 * In order to provide 100% guaranteed packet delivery,
99 * an atomic 'packet_sent' counter is implemented. Counter
100 * is incremented for each packet enqueued
101 * into sk->sk_write_queue. Counter is decremented each
102 * time wanpipe_delayed_transmit() function successfuly
103 * passes the packet to the driver. Before each send(), a poll
104 * routine checks the sock resources The maximum value of
105 * packet sent counter is 1, thus if one packet is queued, the
106 * application will block until that packet is passed to the
107 * driver.
108 *
109 * RECEIVE:
110 *
111 * Wanpipe device drivers call the socket bottom half
112 * function, wanpipe_rcv() to queue the incoming packets
113 * into an AF_WANPIPE socket queue. Based on wanpipe_rcv()
114 * return code, the driver knows whether the packet was
115 * successfully queued. If the socket queue is full,
116 * protocol flow control is used by the driver, if any,
117 * to slow down the traffic until the sock queue is free.
118 *
119 * Every time a packet arrives into a socket queue the
120 * socket wakes up processes which are waiting to receive
121 * data.
122 *
123 * If the socket queue is full, the driver sets a block
124 * bit which signals the socket to kick the wanpipe driver
125 * bottom half hander when the socket queue is partialy
126 * empty. wanpipe_recvmsg() function performs this action.
127 *
128 * In case of x25api, packets will never be dropped, since
129 * flow control is available.
130 *
131 * In case of streaming protocols like CHDLC, packets will
132 * be dropped but the statistics will be generated.
133 */
134
135
136/* The code below is used to test memory leaks. It prints out
137 * a message every time kmalloc and kfree system calls get executed.
138 * If the calls match there is no leak :)
139 */
140
141/***********FOR DEBUGGING PURPOSES*********************************************
142#define KMEM_SAFETYZONE 8
143
144static void * dbg_kmalloc(unsigned int size, int prio, int line) {
145 void * v = kmalloc(size,prio);
146 printk(KERN_INFO "line %d kmalloc(%d,%d) = %p\n",line,size,prio,v);
147 return v;
148}
149static void dbg_kfree(void * v, int line) {
150 printk(KERN_INFO "line %d kfree(%p)\n",line,v);
151 kfree(v);
152}
153
154#define kmalloc(x,y) dbg_kmalloc(x,y,__LINE__)
155#define kfree(x) dbg_kfree(x,__LINE__)
156******************************************************************************/
157
158
159/* List of all wanpipe sockets. */
160HLIST_HEAD(wanpipe_sklist);
161static DEFINE_RWLOCK(wanpipe_sklist_lock);
162
163atomic_t wanpipe_socks_nr;
164static unsigned long wanpipe_tx_critical;
165
166#if 0
167/* Private wanpipe socket structures. */
168struct wanpipe_opt
169{
170 void *mbox; /* Mail box */
171 void *card; /* Card bouded to */
172 struct net_device *dev; /* Bounded device */
173 unsigned short lcn; /* Binded LCN */
174 unsigned char svc; /* 0=pvc, 1=svc */
175 unsigned char timer; /* flag for delayed transmit*/
176 struct timer_list tx_timer;
177 unsigned poll_cnt;
178 unsigned char force; /* Used to force sock release */
179 atomic_t packet_sent;
180};
181#endif
182
183static int sk_count;
Eric Dumazet90ddc4f2005-12-22 12:49:22 -0800184extern const struct proto_ops wanpipe_ops;
Linus Torvalds1da177e2005-04-16 15:20:36 -0700185static unsigned long find_free_critical;
186
187static void wanpipe_unlink_driver(struct sock *sk);
188static void wanpipe_link_driver(struct net_device *dev, struct sock *sk);
189static void wanpipe_wakeup_driver(struct sock *sk);
190static int execute_command(struct sock *, unsigned char, unsigned int);
191static int check_dev(struct net_device *dev, sdla_t *card);
192struct net_device *wanpipe_find_free_dev(sdla_t *card);
193static void wanpipe_unlink_card (struct sock *);
194static int wanpipe_link_card (struct sock *);
195static struct sock *wanpipe_make_new(struct sock *);
196static struct sock *wanpipe_alloc_socket(void);
197static inline int get_atomic_device(struct net_device *dev);
198static int wanpipe_exec_cmd(struct sock *, int, unsigned int);
199static int get_ioctl_cmd (struct sock *, void *);
200static int set_ioctl_cmd (struct sock *, void *);
201static void release_device(struct net_device *dev);
202static void wanpipe_kill_sock_timer (unsigned long data);
203static void wanpipe_kill_sock_irq (struct sock *);
204static void wanpipe_kill_sock_accept (struct sock *);
205static int wanpipe_do_bind(struct sock *sk, struct net_device *dev,
206 int protocol);
207struct sock * get_newsk_from_skb (struct sk_buff *);
208static int wanpipe_debug (struct sock *, void *);
209static void wanpipe_delayed_transmit (unsigned long data);
210static void release_driver(struct sock *);
211static void start_cleanup_timer (struct sock *);
212static void check_write_queue(struct sock *);
213static int check_driver_busy (struct sock *);
214
215/*============================================================
216 * wanpipe_rcv
217 *
218 * Wanpipe socket bottom half handler. This function
219 * is called by the WANPIPE device drivers to queue a
220 * incoming packet into the socket receive queue.
221 * Once the packet is queued, all processes waiting to
222 * read are woken up.
223 *
224 * During socket bind, this function is bounded into
225 * WANPIPE driver private.
226 *===========================================================*/
227
228static int wanpipe_rcv(struct sk_buff *skb, struct net_device *dev,
229 struct sock *sk)
230{
231 struct wan_sockaddr_ll *sll = (struct wan_sockaddr_ll*)skb->cb;
232 wanpipe_common_t *chan = dev->priv;
233 /*
234 * When we registered the protocol we saved the socket in the data
235 * field for just this event.
236 */
237
238 skb->dev = dev;
239
240 sll->sll_family = AF_WANPIPE;
241 sll->sll_hatype = dev->type;
242 sll->sll_protocol = skb->protocol;
243 sll->sll_pkttype = skb->pkt_type;
244 sll->sll_ifindex = dev->ifindex;
245 sll->sll_halen = 0;
246
247 if (dev->hard_header_parse)
248 sll->sll_halen = dev->hard_header_parse(skb, sll->sll_addr);
249
250 /*
251 * WAN_PACKET_DATA : Data which should be passed up the receive queue.
252 * WAN_PACKET_ASYC : Asynchronous data like place call, which should
253 * be passed up the listening sock.
254 * WAN_PACKET_ERR : Asynchronous data like clear call or restart
255 * which should go into an error queue.
256 */
257 switch (skb->pkt_type){
258
259 case WAN_PACKET_DATA:
260 if (sock_queue_rcv_skb(sk,skb)<0){
261 return -ENOMEM;
262 }
263 break;
264 case WAN_PACKET_CMD:
265 sk->sk_state = chan->state;
266 /* Bug fix: update Mar6.
267 * Do not set the sock lcn number here, since
268 * cmd is not guaranteed to be executed on the
269 * board, thus Lcn could be wrong */
270 sk->sk_data_ready(sk, skb->len);
271 kfree_skb(skb);
272 break;
273 case WAN_PACKET_ERR:
274 sk->sk_state = chan->state;
275 if (sock_queue_err_skb(sk,skb)<0){
276 return -ENOMEM;
277 }
278 break;
279 default:
280 printk(KERN_INFO "wansock: BH Illegal Packet Type Dropping\n");
281 kfree_skb(skb);
282 break;
283 }
284
285//??????????????????????
286// if (sk->sk_state == WANSOCK_DISCONNECTED){
287// if (sk->sk_zapped) {
288// //printk(KERN_INFO "wansock: Disconnected, killing early\n");
289// wanpipe_unlink_driver(sk);
290// sk->sk_bound_dev_if = 0;
291// }
292// }
293
294 return 0;
295}
296
297/*============================================================
298 * wanpipe_listen_rcv
299 *
300 * Wanpipe LISTEN socket bottom half handler. This function
301 * is called by the WANPIPE device drivers to queue an
302 * incoming call into the socket listening queue.
303 * Once the packet is queued, the waiting accept() process
304 * is woken up.
305 *
306 * During socket bind, this function is bounded into
307 * WANPIPE driver private.
308 *
309 * IMPORTANT NOTE:
310 * The accept call() is waiting for an skb packet
311 * which contains a pointer to a device structure.
312 *
313 * When we do a bind to a device structre, we
314 * bind a newly created socket into "chan->sk". Thus,
315 * when accept receives the skb packet, it will know
316 * from which dev it came form, and in turn it will know
317 * the address of the new sock.
318 *
319 * NOTE: This function gets called from driver ISR.
320 *===========================================================*/
321
322static int wanpipe_listen_rcv (struct sk_buff *skb, struct sock *sk)
323{
324 wanpipe_opt *wp = wp_sk(sk), *newwp;
325 struct wan_sockaddr_ll *sll = (struct wan_sockaddr_ll*)skb->cb;
326 struct sock *newsk;
327 struct net_device *dev;
328 sdla_t *card;
329 mbox_cmd_t *mbox_ptr;
330 wanpipe_common_t *chan;
331
332 /* Find a free device, if none found, all svc's are busy
333 */
334
335 card = (sdla_t*)wp->card;
336 if (!card){
337 printk(KERN_INFO "wansock: LISTEN ERROR, No Card\n");
338 return -ENODEV;
339 }
340
341 dev = wanpipe_find_free_dev(card);
342 if (!dev){
343 printk(KERN_INFO "wansock: LISTEN ERROR, No Free Device\n");
344 return -ENODEV;
345 }
346
347 chan=dev->priv;
348 chan->state = WANSOCK_CONNECTING;
349
350 /* Allocate a new sock, which accept will bind
351 * and pass up to the user
352 */
353 if ((newsk = wanpipe_make_new(sk)) == NULL){
354 release_device(dev);
355 return -ENOMEM;
356 }
357
358
359 /* Initialize the new sock structure
360 */
361 newsk->sk_bound_dev_if = dev->ifindex;
362 newwp = wp_sk(newsk);
363 newwp->card = wp->card;
364
365 /* Insert the sock into the main wanpipe
366 * sock list.
367 */
368 atomic_inc(&wanpipe_socks_nr);
369
370 /* Allocate and fill in the new Mail Box. Then
371 * bind the mail box to the sock. It will be
372 * used by the ioctl call to read call information
373 * and to execute commands.
374 */
375 if ((mbox_ptr = kmalloc(sizeof(mbox_cmd_t), GFP_ATOMIC)) == NULL) {
376 wanpipe_kill_sock_irq (newsk);
377 release_device(dev);
378 return -ENOMEM;
379 }
380 memset(mbox_ptr, 0, sizeof(mbox_cmd_t));
381 memcpy(mbox_ptr,skb->data,skb->len);
382
383 /* Register the lcn on which incoming call came
384 * from. Thus, if we have to clear it, we know
385 * which lcn to clear
386 */
387
388 newwp->lcn = mbox_ptr->cmd.lcn;
389 newwp->mbox = (void *)mbox_ptr;
390
391 DBG_PRINTK(KERN_INFO "NEWSOCK : Device %s, bind to lcn %i\n",
392 dev->name,mbox_ptr->cmd.lcn);
393
394 chan->lcn = mbox_ptr->cmd.lcn;
395 card->u.x.svc_to_dev_map[(chan->lcn%MAX_X25_LCN)] = dev;
396
397 sock_reset_flag(newsk, SOCK_ZAPPED);
398 newwp->num = htons(X25_PROT);
399
400 if (wanpipe_do_bind(newsk, dev, newwp->num)) {
401 wanpipe_kill_sock_irq (newsk);
402 release_device(dev);
403 return -EINVAL;
404 }
405 newsk->sk_state = WANSOCK_CONNECTING;
406
407
408 /* Fill in the standard sock address info */
409
410 sll->sll_family = AF_WANPIPE;
411 sll->sll_hatype = dev->type;
412 sll->sll_protocol = skb->protocol;
413 sll->sll_pkttype = skb->pkt_type;
414 sll->sll_ifindex = dev->ifindex;
415 sll->sll_halen = 0;
416
417 skb->dev = dev;
418 sk->sk_ack_backlog++;
419
420 /* We must do this manually, since the sock_queue_rcv_skb()
421 * function sets the skb->dev to NULL. However, we use
422 * the dev field in the accept function.*/
423 if (atomic_read(&sk->sk_rmem_alloc) + skb->truesize >=
424 (unsigned)sk->sk_rcvbuf) {
425
426 wanpipe_unlink_driver(newsk);
427 wanpipe_kill_sock_irq (newsk);
428 --sk->sk_ack_backlog;
429 return -ENOMEM;
430 }
431
432 skb_set_owner_r(skb, sk);
433 skb_queue_tail(&sk->sk_receive_queue, skb);
434 sk->sk_data_ready(sk, skb->len);
435
436 return 0;
437}
438
439
440
441/*============================================================
442 * wanpipe_make_new
443 *
444 * Create a new sock, and allocate a wanpipe private
445 * structure to it. Also, copy the important data
446 * from the original sock to the new sock.
447 *
448 * This function is used by wanpipe_listen_rcv() listen
449 * bottom half handler. A copy of the listening sock
450 * is created using this function.
451 *
452 *===========================================================*/
453
454static struct sock *wanpipe_make_new(struct sock *osk)
455{
456 struct sock *sk;
457
458 if (osk->sk_type != SOCK_RAW)
459 return NULL;
460
461 if ((sk = wanpipe_alloc_socket()) == NULL)
462 return NULL;
463
464 sk->sk_type = osk->sk_type;
465 sk->sk_socket = osk->sk_socket;
466 sk->sk_priority = osk->sk_priority;
467 sk->sk_protocol = osk->sk_protocol;
468 wp_sk(sk)->num = wp_sk(osk)->num;
469 sk->sk_rcvbuf = osk->sk_rcvbuf;
470 sk->sk_sndbuf = osk->sk_sndbuf;
471 sk->sk_state = WANSOCK_CONNECTING;
472 sk->sk_sleep = osk->sk_sleep;
473
474 if (sock_flag(osk, SOCK_DBG))
475 sock_set_flag(sk, SOCK_DBG);
476
477 return sk;
478}
479
480/*
481 * FIXME: wanpipe_opt has to include a sock in its definition and stop using
482 * sk_protinfo, but this code is not even compilable now, so lets leave it for
483 * later.
484 */
485static struct proto wanpipe_proto = {
486 .name = "WANPIPE",
487 .owner = THIS_MODULE,
488 .obj_size = sizeof(struct sock),
489};
490
491/*============================================================
492 * wanpipe_make_new
493 *
494 * Allocate memory for the a new sock, and sock
495 * private data.
496 *
497 * Increment the module use count.
498 *
499 * This function is used by wanpipe_create() and
500 * wanpipe_make_new() functions.
501 *
502 *===========================================================*/
503
504static struct sock *wanpipe_alloc_socket(void)
505{
506 struct sock *sk;
507 struct wanpipe_opt *wan_opt;
508
509 if ((sk = sk_alloc(PF_WANPIPE, GFP_ATOMIC, &wanpipe_proto, 1)) == NULL)
510 return NULL;
511
512 if ((wan_opt = kmalloc(sizeof(struct wanpipe_opt), GFP_ATOMIC)) == NULL) {
513 sk_free(sk);
514 return NULL;
515 }
516 memset(wan_opt, 0x00, sizeof(struct wanpipe_opt));
517
518 wp_sk(sk) = wan_opt;
519
520 /* Use timer to send data to the driver. This will act
521 * as a BH handler for sendmsg functions */
522 init_timer(&wan_opt->tx_timer);
523 wan_opt->tx_timer.data = (unsigned long)sk;
524 wan_opt->tx_timer.function = wanpipe_delayed_transmit;
525
526 sock_init_data(NULL, sk);
527 return sk;
528}
529
530
531/*============================================================
532 * wanpipe_sendmsg
533 *
534 * This function implements a sendto() system call,
535 * for AF_WANPIPE socket family.
536 * During socket bind() sk->sk_bound_dev_if is initialized
537 * to a correct network device. This number is used
538 * to find a network device to which the packet should
539 * be passed to.
540 *
541 * Each packet is queued into sk->sk_write_queue and
542 * delayed transmit bottom half handler is marked for
543 * execution.
544 *
545 * A socket must be in WANSOCK_CONNECTED state before
546 * a packet is queued into sk->sk_write_queue.
547 *===========================================================*/
548
549static int wanpipe_sendmsg(struct kiocb *iocb, struct socket *sock,
550 struct msghdr *msg, int len)
551{
552 wanpipe_opt *wp;
553 struct sock *sk = sock->sk;
554 struct wan_sockaddr_ll *saddr=(struct wan_sockaddr_ll *)msg->msg_name;
555 struct sk_buff *skb;
556 struct net_device *dev;
557 unsigned short proto;
558 unsigned char *addr;
559 int ifindex, err, reserve = 0;
560
561
562 if (!sock_flag(sk, SOCK_ZAPPED))
563 return -ENETDOWN;
564
565 if (sk->sk_state != WANSOCK_CONNECTED)
566 return -ENOTCONN;
567
568 if (msg->msg_flags & ~(MSG_DONTWAIT|MSG_CMSG_COMPAT))
569 return(-EINVAL);
570
571 /* it was <=, now one can send
572 * zero length packets */
573 if (len < sizeof(x25api_hdr_t))
574 return -EINVAL;
575
576 wp = wp_sk(sk);
577
578 if (saddr == NULL) {
579 ifindex = sk->sk_bound_dev_if;
580 proto = wp->num;
581 addr = NULL;
582
583 }else{
584 if (msg->msg_namelen < sizeof(struct wan_sockaddr_ll)){
585 return -EINVAL;
586 }
587
588 ifindex = sk->sk_bound_dev_if;
589 proto = saddr->sll_protocol;
590 addr = saddr->sll_addr;
591 }
592
593 dev = dev_get_by_index(ifindex);
594 if (dev == NULL){
595 printk(KERN_INFO "wansock: Send failed, dev index: %i\n",ifindex);
596 return -ENXIO;
597 }
598 dev_put(dev);
599
600 if (sock->type == SOCK_RAW)
601 reserve = dev->hard_header_len;
602
603 if (len > dev->mtu+reserve){
604 return -EMSGSIZE;
605 }
606
607 skb = sock_alloc_send_skb(sk, len + LL_RESERVED_SPACE(dev),
608 msg->msg_flags & MSG_DONTWAIT, &err);
609
610 if (skb==NULL){
611 goto out_unlock;
612 }
613
614 skb_reserve(skb, LL_RESERVED_SPACE(dev));
615 skb->nh.raw = skb->data;
616
617 /* Returns -EFAULT on error */
618 err = memcpy_fromiovec(skb_put(skb,len), msg->msg_iov, len);
619 if (err){
620 goto out_free;
621 }
622
623 if (dev->hard_header) {
624 int res;
625 err = -EINVAL;
626 res = dev->hard_header(skb, dev, ntohs(proto), addr, NULL, len);
627 if (res<0){
628 goto out_free;
629 }
630 }
631
632 skb->protocol = proto;
633 skb->dev = dev;
634 skb->priority = sk->sk_priority;
635 skb->pkt_type = WAN_PACKET_DATA;
636
637 err = -ENETDOWN;
638 if (!(dev->flags & IFF_UP))
639 goto out_free;
640
641 if (atomic_read(&sk->sk_wmem_alloc) + skb->truesize >
642 (unsigned int)sk->sk_sndbuf){
643 kfree_skb(skb);
644 return -ENOBUFS;
645 }
646
647 skb_queue_tail(&sk->sk_write_queue,skb);
648 atomic_inc(&wp->packet_sent);
649
650 if (!(test_and_set_bit(0, &wp->timer)))
651 mod_timer(&wp->tx_timer, jiffies + 1);
652
653 return(len);
654
655out_free:
656 kfree_skb(skb);
657out_unlock:
658 return err;
659}
660
661/*============================================================
662 * wanpipe_delayed_tarnsmit
663 *
664 * Transmit bottom half handler. It dequeues packets
665 * from sk->sk_write_queue and passes them to the
666 * driver. If the driver is busy, the packet is
667 * re-enqueued.
668 *
669 * Packet Sent counter is decremented on successful
670 * transmission.
671 *===========================================================*/
672
673
674static void wanpipe_delayed_transmit (unsigned long data)
675{
676 struct sock *sk=(struct sock *)data;
677 struct sk_buff *skb;
678 wanpipe_opt *wp = wp_sk(sk);
679 struct net_device *dev = wp->dev;
680 sdla_t *card = (sdla_t*)wp->card;
681
682 if (!card || !dev){
683 clear_bit(0, &wp->timer);
684 DBG_PRINTK(KERN_INFO "wansock: Transmit delay, no dev or card\n");
685 return;
686 }
687
688 if (sk->sk_state != WANSOCK_CONNECTED || !sock_flag(sk, SOCK_ZAPPED)) {
689 clear_bit(0, &wp->timer);
690 DBG_PRINTK(KERN_INFO "wansock: Tx Timer, State not CONNECTED\n");
691 return;
692 }
693
694 /* If driver is executing command, we must offload
695 * the board by not sending data. Otherwise a
696 * pending command will never get a free buffer
697 * to execute */
698 if (atomic_read(&card->u.x.command_busy)){
699 wp->tx_timer.expires = jiffies + SLOW_BACKOFF;
700 add_timer(&wp->tx_timer);
701 DBG_PRINTK(KERN_INFO "wansock: Tx Timer, command bys BACKOFF\n");
702 return;
703 }
704
705
706 if (test_and_set_bit(0,&wanpipe_tx_critical)){
707 printk(KERN_INFO "WanSock: Tx timer critical %s\n",dev->name);
708 wp->tx_timer.expires = jiffies + SLOW_BACKOFF;
709 add_timer(&wp->tx_timer);
710 return;
711 }
712
713 /* Check for a packet in the fifo and send */
714 if ((skb = skb_dequeue(&sk->sk_write_queue)) != NULL){
715
716 if (dev->hard_start_xmit(skb, dev) != 0){
717
718 /* Driver failed to transmit, re-enqueue
719 * the packet and retry again later */
720 skb_queue_head(&sk->sk_write_queue,skb);
721 clear_bit(0,&wanpipe_tx_critical);
722 return;
723 }else{
724
725 /* Packet Sent successful. Check for more packets
726 * if more packets, re-trigger the transmit routine
727 * other wise exit
728 */
729 atomic_dec(&wp->packet_sent);
730
731 if (skb_peek(&sk->sk_write_queue) == NULL) {
732 /* If there is nothing to send, kick
733 * the poll routine, which will trigger
734 * the application to send more data */
735 sk->sk_data_ready(sk, 0);
736 clear_bit(0, &wp->timer);
737 }else{
738 /* Reschedule as fast as possible */
739 wp->tx_timer.expires = jiffies + 1;
740 add_timer(&wp->tx_timer);
741 }
742 }
743 }
744 clear_bit(0,&wanpipe_tx_critical);
745}
746
747/*============================================================
748 * execute_command
749 *
750 * Execute x25api commands. The atomic variable
751 * chan->command is used to indicate to the driver that
752 * command is pending for execution. The acutal command
753 * structure is placed into a sock mbox structure
754 * (wp_sk(sk)->mbox).
755 *
756 * The sock private structure, mbox is
757 * used as shared memory between sock and the driver.
758 * Driver uses the sock mbox to execute the command
759 * and return the result.
760 *
761 * For all command except PLACE CALL, the function
762 * waits for the result. PLACE CALL can be ether
763 * blocking or nonblocking. The user sets this option
764 * via ioctl call.
765 *===========================================================*/
766
767
768static int execute_command(struct sock *sk, unsigned char cmd, unsigned int flags)
769{
770 wanpipe_opt *wp = wp_sk(sk);
771 struct net_device *dev;
772 wanpipe_common_t *chan=NULL;
773 int err=0;
774 DECLARE_WAITQUEUE(wait, current);
775
776 dev = dev_get_by_index(sk->sk_bound_dev_if);
777 if (dev == NULL){
778 printk(KERN_INFO "wansock: Exec failed no dev %i\n",
779 sk->sk_bound_dev_if);
780 return -ENODEV;
781 }
782 dev_put(dev);
783
784 if ((chan=dev->priv) == NULL){
785 printk(KERN_INFO "wansock: Exec cmd failed no priv area\n");
786 return -ENODEV;
787 }
788
789 if (atomic_read(&chan->command)){
790 printk(KERN_INFO "wansock: ERROR: Command already running %x, %s\n",
791 atomic_read(&chan->command),dev->name);
792 return -EINVAL;
793 }
794
795 if (!wp->mbox) {
796 printk(KERN_INFO "wansock: In execute without MBOX\n");
797 return -EINVAL;
798 }
799
800 ((mbox_cmd_t*)wp->mbox)->cmd.command = cmd;
801 ((mbox_cmd_t*)wp->mbox)->cmd.lcn = wp->lcn;
802 ((mbox_cmd_t*)wp->mbox)->cmd.result = 0x7F;
803
804
805 if (flags & O_NONBLOCK){
806 cmd |= 0x80;
807 atomic_set(&chan->command, cmd);
808 }else{
809 atomic_set(&chan->command, cmd);
810 }
811
812 add_wait_queue(sk->sk_sleep,&wait);
813 current->state = TASK_INTERRUPTIBLE;
814 for (;;){
815 if (((mbox_cmd_t*)wp->mbox)->cmd.result != 0x7F) {
816 err = 0;
817 break;
818 }
819 if (signal_pending(current)) {
820 err = -ERESTARTSYS;
821 break;
822 }
823 schedule();
824 }
825 current->state = TASK_RUNNING;
826 remove_wait_queue(sk->sk_sleep,&wait);
827
828 return err;
829}
830
831/*============================================================
832 * wanpipe_destroy_timer
833 *
834 * Used by wanpipe_release, to delay release of
835 * the socket.
836 *===========================================================*/
837
838static void wanpipe_destroy_timer(unsigned long data)
839{
840 struct sock *sk=(struct sock *)data;
841 wanpipe_opt *wp = wp_sk(sk);
842
843 if ((!atomic_read(&sk->sk_wmem_alloc) &&
844 !atomic_read(&sk->sk_rmem_alloc)) ||
845 (++wp->force == 5)) {
846
847 if (atomic_read(&sk->sk_wmem_alloc) ||
848 atomic_read(&sk->sk_rmem_alloc))
849 printk(KERN_INFO "wansock: Warning, Packet Discarded due to sock shutdown!\n");
850
851 kfree(wp);
852 wp_sk(sk) = NULL;
853
854 if (atomic_read(&sk->sk_refcnt) != 1) {
855 atomic_set(&sk->sk_refcnt, 1);
856 DBG_PRINTK(KERN_INFO "wansock: Error, wrong reference count: %i ! :delay.\n",
857 atomic_read(&sk->sk_refcnt));
858 }
859 sock_put(sk);
860 atomic_dec(&wanpipe_socks_nr);
861 return;
862 }
863
864 sk->sk_timer.expires = jiffies + 5 * HZ;
865 add_timer(&sk->sk_timer);
866 printk(KERN_INFO "wansock: packet sk destroy delayed\n");
867}
868
869/*============================================================
870 * wanpipe_unlink_driver
871 *
872 * When the socket is released, this function is
873 * used to remove links that bind the sock and the
874 * driver together.
875 *===========================================================*/
876static void wanpipe_unlink_driver (struct sock *sk)
877{
878 struct net_device *dev;
879 wanpipe_common_t *chan=NULL;
880
881 sock_reset_flag(sk, SOCK_ZAPPED);
882 sk->sk_state = WANSOCK_DISCONNECTED;
883 wp_sk(sk)->dev = NULL;
884
885 dev = dev_get_by_index(sk->sk_bound_dev_if);
886 if (!dev){
887 printk(KERN_INFO "wansock: No dev on release\n");
888 return;
889 }
890 dev_put(dev);
891
892 if ((chan = dev->priv) == NULL){
893 printk(KERN_INFO "wansock: No Priv Area on release\n");
894 return;
895 }
896
897 set_bit(0,&chan->common_critical);
898 chan->sk=NULL;
899 chan->func=NULL;
900 chan->mbox=NULL;
901 chan->tx_timer=NULL;
902 clear_bit(0,&chan->common_critical);
903 release_device(dev);
904
905 return;
906}
907
908/*============================================================
909 * wanpipe_link_driver
910 *
911 * Upon successful bind(), sock is linked to a driver
912 * by binding in the wanpipe_rcv() bottom half handler
913 * to the driver function pointer, as well as sock and
914 * sock mailbox addresses. This way driver can pass
915 * data up the socket.
916 *===========================================================*/
917
918static void wanpipe_link_driver(struct net_device *dev, struct sock *sk)
919{
920 wanpipe_opt *wp = wp_sk(sk);
921 wanpipe_common_t *chan = dev->priv;
922 if (!chan)
923 return;
924 set_bit(0,&chan->common_critical);
925 chan->sk=sk;
926 chan->func=wanpipe_rcv;
927 chan->mbox = wp->mbox;
928 chan->tx_timer = &wp->tx_timer;
929 wp->dev = dev;
930 sock_set_flag(sk, SOCK_ZAPPED);
931 clear_bit(0,&chan->common_critical);
932}
933
934
935/*============================================================
936 * release_device
937 *
938 * During sock release, clear a critical bit, which
939 * marks the device a being taken.
940 *===========================================================*/
941
942
943static void release_device(struct net_device *dev)
944{
945 wanpipe_common_t *chan=dev->priv;
946 clear_bit(0,(void*)&chan->rw_bind);
947}
948
949/*============================================================
950 * wanpipe_release
951 *
952 * Close a PACKET socket. This is fairly simple. We
953 * immediately go to 'closed' state and remove our
954 * protocol entry in the device list.
955 *===========================================================*/
956
957static int wanpipe_release(struct socket *sock)
958{
959 wanpipe_opt *wp;
960 struct sock *sk = sock->sk;
961
962 if (!sk)
963 return 0;
964
965 wp = wp_sk(sk);
966 check_write_queue(sk);
967
968 /* Kill the tx timer, if we don't kill it now, the timer
969 * will run after we kill the sock. Timer code will
970 * try to access the sock which has been killed and cause
971 * kernel panic */
972
973 del_timer(&wp->tx_timer);
974
975 /*
976 * Unhook packet receive handler.
977 */
978
979 if (wp->num == htons(X25_PROT) &&
980 sk->sk_state != WANSOCK_DISCONNECTED && sock_flag(sk, SOCK_ZAPPED)) {
981 struct net_device *dev = dev_get_by_index(sk->sk_bound_dev_if);
982 wanpipe_common_t *chan;
983 if (dev){
984 chan=dev->priv;
985 atomic_set(&chan->disconnect,1);
986 DBG_PRINTK(KERN_INFO "wansock: Sending Clear Indication %i\n",
987 sk->sk_state);
988 dev_put(dev);
989 }
990 }
991
992 set_bit(1,&wanpipe_tx_critical);
993 write_lock(&wanpipe_sklist_lock);
994 sk_del_node_init(sk);
995 write_unlock(&wanpipe_sklist_lock);
996 clear_bit(1,&wanpipe_tx_critical);
997
998
999
1000 release_driver(sk);
1001
1002
1003 /*
1004 * Now the socket is dead. No more input will appear.
1005 */
1006
1007 sk->sk_state_change(sk); /* It is useless. Just for sanity. */
1008
1009 sock->sk = NULL;
1010 sk->sk_socket = NULL;
1011 sock_set_flag(sk, SOCK_DEAD);
1012
1013 /* Purge queues */
1014 skb_queue_purge(&sk->sk_receive_queue);
1015 skb_queue_purge(&sk->sk_write_queue);
1016 skb_queue_purge(&sk->sk_error_queue);
1017
1018 if (atomic_read(&sk->sk_rmem_alloc) ||
1019 atomic_read(&sk->sk_wmem_alloc)) {
1020 del_timer(&sk->sk_timer);
1021 printk(KERN_INFO "wansock: Killing in Timer R %i , W %i\n",
1022 atomic_read(&sk->sk_rmem_alloc),
1023 atomic_read(&sk->sk_wmem_alloc));
1024 sk->sk_timer.data = (unsigned long)sk;
1025 sk->sk_timer.expires = jiffies + HZ;
1026 sk->sk_timer.function = wanpipe_destroy_timer;
1027 add_timer(&sk->sk_timer);
1028 return 0;
1029 }
1030
1031 kfree(wp);
1032 wp_sk(sk) = NULL;
1033
1034 if (atomic_read(&sk->sk_refcnt) != 1) {
1035 DBG_PRINTK(KERN_INFO "wansock: Error, wrong reference count: %i !:release.\n",
1036 atomic_read(&sk->sk_refcnt));
1037 atomic_set(&sk->sk_refcnt, 1);
1038 }
1039 sock_put(sk);
1040 atomic_dec(&wanpipe_socks_nr);
1041 return 0;
1042}
1043
1044/*============================================================
1045 * check_write_queue
1046 *
1047 * During sock shutdown, if the sock state is
1048 * WANSOCK_CONNECTED and there is transmit data
1049 * pending. Wait until data is released
1050 * before proceeding.
1051 *===========================================================*/
1052
1053static void check_write_queue(struct sock *sk)
1054{
1055
1056 if (sk->sk_state != WANSOCK_CONNECTED)
1057 return;
1058
1059 if (!atomic_read(&sk->sk_wmem_alloc))
1060 return;
1061
1062 printk(KERN_INFO "wansock: MAJOR ERROR, Data lost on sock release !!!\n");
1063
1064}
1065
1066/*============================================================
1067 * release_driver
1068 *
1069 * This function is called during sock shutdown, to
1070 * release any resources and links that bind the sock
1071 * to the driver. It also changes the state of the
1072 * sock to WANSOCK_DISCONNECTED
1073 *===========================================================*/
1074
1075static void release_driver(struct sock *sk)
1076{
1077 wanpipe_opt *wp;
1078 struct sk_buff *skb=NULL;
1079 struct sock *deadsk=NULL;
1080
1081 if (sk->sk_state == WANSOCK_LISTEN ||
1082 sk->sk_state == WANSOCK_BIND_LISTEN) {
1083 while ((skb = skb_dequeue(&sk->sk_receive_queue)) != NULL) {
1084 if ((deadsk = get_newsk_from_skb(skb))){
1085 DBG_PRINTK (KERN_INFO "wansock: RELEASE: FOUND DEAD SOCK\n");
1086 sock_set_flag(deadsk, SOCK_DEAD);
1087 start_cleanup_timer(deadsk);
1088 }
1089 kfree_skb(skb);
1090 }
1091 if (sock_flag(sk, SOCK_ZAPPED))
1092 wanpipe_unlink_card(sk);
1093 }else{
1094 if (sock_flag(sk, SOCK_ZAPPED))
1095 wanpipe_unlink_driver(sk);
1096 }
1097 sk->sk_state = WANSOCK_DISCONNECTED;
1098 sk->sk_bound_dev_if = 0;
1099 sock_reset_flag(sk, SOCK_ZAPPED);
1100 wp = wp_sk(sk);
1101
Jesper Juhla51482b2005-11-08 09:41:34 -08001102 if (wp) {
Linus Torvalds1da177e2005-04-16 15:20:36 -07001103 kfree(wp->mbox);
1104 wp->mbox = NULL;
1105 }
1106}
1107
1108/*============================================================
1109 * start_cleanup_timer
1110 *
1111 * If new incoming call's are pending but the socket
1112 * is being released, start the timer which will
1113 * envoke the kill routines for pending socks.
1114 *===========================================================*/
1115
1116
1117static void start_cleanup_timer (struct sock *sk)
1118{
1119 del_timer(&sk->sk_timer);
1120 sk->sk_timer.data = (unsigned long)sk;
1121 sk->sk_timer.expires = jiffies + HZ;
1122 sk->sk_timer.function = wanpipe_kill_sock_timer;
1123 add_timer(&sk->sk_timer);
1124}
1125
1126
1127/*============================================================
1128 * wanpipe_kill_sock
1129 *
1130 * This is a function which performs actual killing
1131 * of the sock. It releases socket resources,
1132 * and unlinks the sock from the driver.
1133 *===========================================================*/
1134
1135static void wanpipe_kill_sock_timer (unsigned long data)
1136{
1137
1138 struct sock *sk = (struct sock *)data;
1139 struct sock **skp;
1140
1141 if (!sk)
1142 return;
1143
1144 /* This function can be called from interrupt. We must use
1145 * appropriate locks */
1146
1147 if (test_bit(1,&wanpipe_tx_critical)){
1148 sk->sk_timer.expires = jiffies + 10;
1149 add_timer(&sk->sk_timer);
1150 return;
1151 }
1152
1153 write_lock(&wanpipe_sklist_lock);
1154 sk_del_node_init(sk);
1155 write_unlock(&wanpipe_sklist_lock);
1156
1157
1158 if (wp_sk(sk)->num == htons(X25_PROT) &&
1159 sk->sk_state != WANSOCK_DISCONNECTED) {
1160 struct net_device *dev = dev_get_by_index(sk->sk_bound_dev_if);
1161 wanpipe_common_t *chan;
1162 if (dev){
1163 chan=dev->priv;
1164 atomic_set(&chan->disconnect,1);
1165 dev_put(dev);
1166 }
1167 }
1168
1169 release_driver(sk);
1170
1171 sk->sk_socket = NULL;
1172
1173 /* Purge queues */
1174 skb_queue_purge(&sk->sk_receive_queue);
1175 skb_queue_purge(&sk->sk_write_queue);
1176 skb_queue_purge(&sk->sk_error_queue);
1177
1178 if (atomic_read(&sk->sk_rmem_alloc) ||
1179 atomic_read(&sk->sk_wmem_alloc)) {
1180 del_timer(&sk->sk_timer);
1181 printk(KERN_INFO "wansock: Killing SOCK in Timer\n");
1182 sk->sk_timer.data = (unsigned long)sk;
1183 sk->sk_timer.expires = jiffies + HZ;
1184 sk->sk_timer.function = wanpipe_destroy_timer;
1185 add_timer(&sk->sk_timer);
1186 return;
1187 }
1188
Jesper Juhla51482b2005-11-08 09:41:34 -08001189 kfree(wp_sk(sk));
1190 wp_sk(sk) = NULL;
Linus Torvalds1da177e2005-04-16 15:20:36 -07001191
1192 if (atomic_read(&sk->sk_refcnt) != 1) {
1193 atomic_set(&sk->sk_refcnt, 1);
1194 DBG_PRINTK(KERN_INFO "wansock: Error, wrong reference count: %i ! :timer.\n",
1195 atomic_read(&sk->sk_refcnt));
1196 }
1197 sock_put(sk);
1198 atomic_dec(&wanpipe_socks_nr);
1199 return;
1200}
1201
1202static void wanpipe_kill_sock_accept (struct sock *sk)
1203{
1204
1205 struct sock **skp;
1206
1207 if (!sk)
1208 return;
1209
1210 /* This function can be called from interrupt. We must use
1211 * appropriate locks */
1212
1213 write_lock(&wanpipe_sklist_lock);
1214 sk_del_node_init(sk);
1215 write_unlock(&wanpipe_sklist_lock);
1216
1217 sk->sk_socket = NULL;
1218
1219
Jesper Juhla51482b2005-11-08 09:41:34 -08001220 kfree(wp_sk(sk));
1221 wp_sk(sk) = NULL;
Linus Torvalds1da177e2005-04-16 15:20:36 -07001222
1223 if (atomic_read(&sk->sk_refcnt) != 1) {
1224 atomic_set(&sk->sk_refcnt, 1);
1225 DBG_PRINTK(KERN_INFO "wansock: Error, wrong reference count: %i ! :timer.\n",
1226 atomic_read(&sk->sk_refcnt));
1227 }
1228 sock_put(sk);
1229 atomic_dec(&wanpipe_socks_nr);
1230 return;
1231}
1232
1233
1234static void wanpipe_kill_sock_irq (struct sock *sk)
1235{
1236
1237 if (!sk)
1238 return;
1239
1240 sk->sk_socket = NULL;
1241
Jesper Juhla51482b2005-11-08 09:41:34 -08001242 kfree(wp_sk(sk));
1243 wp_sk(sk) = NULL;
Linus Torvalds1da177e2005-04-16 15:20:36 -07001244
1245 if (atomic_read(&sk->sk_refcnt) != 1) {
1246 atomic_set(&sk->sk_refcnt, 1);
1247 DBG_PRINTK(KERN_INFO "wansock: Error, wrong reference count: %i !:listen.\n",
1248 atomic_read(&sk->sk_refcnt));
1249 }
1250 sock_put(sk);
1251 atomic_dec(&wanpipe_socks_nr);
1252}
1253
1254
1255/*============================================================
1256 * wanpipe_do_bind
1257 *
1258 * Bottom half of the binding system call.
1259 * Once the wanpipe_bind() function checks the
1260 * legality of the call, this function binds the
1261 * sock to the driver.
1262 *===========================================================*/
1263
1264static int wanpipe_do_bind(struct sock *sk, struct net_device *dev,
1265 int protocol)
1266{
1267 wanpipe_opt *wp = wp_sk(sk);
1268 wanpipe_common_t *chan=NULL;
1269 int err=0;
1270
1271 if (sock_flag(sk, SOCK_ZAPPED)) {
1272 err = -EALREADY;
1273 goto bind_unlock_exit;
1274 }
1275
1276 wp->num = protocol;
1277
1278 if (protocol == 0){
1279 release_device(dev);
1280 err = -EINVAL;
1281 goto bind_unlock_exit;
1282 }
1283
1284 if (dev) {
1285 if (dev->flags&IFF_UP) {
1286 chan=dev->priv;
1287 sk->sk_state = chan->state;
1288
1289 if (wp->num == htons(X25_PROT) &&
1290 sk->sk_state != WANSOCK_DISCONNECTED &&
1291 sk->sk_state != WANSOCK_CONNECTING) {
1292 DBG_PRINTK(KERN_INFO
1293 "wansock: Binding to Device not DISCONNECTED %i\n",
1294 sk->sk_state);
1295 release_device(dev);
1296 err = -EAGAIN;
1297 goto bind_unlock_exit;
1298 }
1299
1300 wanpipe_link_driver(dev,sk);
1301 sk->sk_bound_dev_if = dev->ifindex;
1302
1303 /* X25 Specific option */
1304 if (wp->num == htons(X25_PROT))
1305 wp_sk(sk)->svc = chan->svc;
1306
1307 } else {
1308 sk->sk_err = ENETDOWN;
1309 sk->sk_error_report(sk);
1310 release_device(dev);
1311 err = -EINVAL;
1312 }
1313 } else {
1314 err = -ENODEV;
1315 }
1316bind_unlock_exit:
1317 /* FIXME where is this lock */
1318
1319 return err;
1320}
1321
1322/*============================================================
1323 * wanpipe_bind
1324 *
1325 * BIND() System call, which is bound to the AF_WANPIPE
1326 * operations structure. It checks for correct wanpipe
1327 * card name, and cross references interface names with
1328 * the card names. Thus, interface name must belong to
1329 * the actual card.
1330 *===========================================================*/
1331
1332
1333static int wanpipe_bind(struct socket *sock, struct sockaddr *uaddr, int addr_len)
1334{
1335 struct wan_sockaddr_ll *sll = (struct wan_sockaddr_ll*)uaddr;
1336 struct sock *sk=sock->sk;
1337 wanpipe_opt *wp = wp_sk(sk);
1338 struct net_device *dev = NULL;
1339 sdla_t *card=NULL;
1340 char name[15];
1341
1342 /*
1343 * Check legality
1344 */
1345
1346 if (addr_len < sizeof(struct wan_sockaddr_ll)){
1347 printk(KERN_INFO "wansock: Address length error\n");
1348 return -EINVAL;
1349 }
1350 if (sll->sll_family != AF_WANPIPE){
1351 printk(KERN_INFO "wansock: Illegal family name specified.\n");
1352 return -EINVAL;
1353 }
1354
1355 card = wanpipe_find_card (sll->sll_card);
1356 if (!card){
1357 printk(KERN_INFO "wansock: Wanpipe card not found: %s\n",sll->sll_card);
1358 return -ENODEV;
1359 }else{
1360 wp_sk(sk)->card = (void *)card;
1361 }
1362
1363 if (!strcmp(sll->sll_device,"svc_listen")){
1364
1365 /* Bind a sock to a card structure for listening
1366 */
1367 int err=0;
1368
1369 /* This is x25 specific area if protocol doesn't
1370 * match, return error */
1371 if (sll->sll_protocol != htons(X25_PROT))
1372 return -EINVAL;
1373
1374 err= wanpipe_link_card (sk);
1375 if (err < 0)
1376 return err;
1377
1378 if (sll->sll_protocol)
1379 wp->num = sll->sll_protocol;
1380 sk->sk_state = WANSOCK_BIND_LISTEN;
1381 return 0;
1382
1383 }else if (!strcmp(sll->sll_device,"svc_connect")){
1384
1385 /* This is x25 specific area if protocol doesn't
1386 * match, return error */
1387 if (sll->sll_protocol != htons(X25_PROT))
1388 return -EINVAL;
1389
1390 /* Find a free device
1391 */
1392 dev = wanpipe_find_free_dev(card);
1393 if (dev == NULL){
1394 DBG_PRINTK(KERN_INFO "wansock: No free network devices for card %s\n",
1395 card->devname);
1396 return -EINVAL;
1397 }
1398 }else{
1399 /* Bind a socket to a interface name
1400 * This is used by PVC mostly
1401 */
1402 strlcpy(name,sll->sll_device,sizeof(name));
1403 dev = dev_get_by_name(name);
1404 if (dev == NULL){
1405 printk(KERN_INFO "wansock: Failed to get Dev from name: %s,\n",
1406 name);
1407 return -ENODEV;
1408 }
1409
1410 dev_put(dev);
1411
1412 if (check_dev(dev, card)){
1413 printk(KERN_INFO "wansock: Device %s, doesn't belong to card %s\n",
1414 dev->name, card->devname);
1415 return -EINVAL;
1416 }
1417 if (get_atomic_device (dev))
1418 return -EINVAL;
1419 }
1420
1421 return wanpipe_do_bind(sk, dev, sll->sll_protocol ? : wp->num);
1422}
1423
1424/*============================================================
1425 * get_atomic_device
1426 *
1427 * Sets a bit atomically which indicates that
1428 * the interface is taken. This avoids race conditions.
1429 *===========================================================*/
1430
1431
1432static inline int get_atomic_device(struct net_device *dev)
1433{
1434 wanpipe_common_t *chan = dev->priv;
1435 if (!test_and_set_bit(0,(void *)&chan->rw_bind)){
1436 return 0;
1437 }
1438 return 1;
1439}
1440
1441/*============================================================
1442 * check_dev
1443 *
1444 * Check that device name belongs to a particular card.
1445 *===========================================================*/
1446
1447static int check_dev(struct net_device *dev, sdla_t *card)
1448{
1449 struct net_device* tmp_dev;
1450
1451 for (tmp_dev = card->wandev.dev; tmp_dev;
1452 tmp_dev = *((struct net_device **)tmp_dev->priv)) {
1453 if (tmp_dev->ifindex == dev->ifindex){
1454 return 0;
1455 }
1456 }
1457 return 1;
1458}
1459
1460/*============================================================
1461 * wanpipe_find_free_dev
1462 *
1463 * Find a free network interface. If found set atomic
1464 * bit indicating that the interface is taken.
1465 * X25API Specific.
1466 *===========================================================*/
1467
1468struct net_device *wanpipe_find_free_dev(sdla_t *card)
1469{
1470 struct net_device* dev;
1471 volatile wanpipe_common_t *chan;
1472
1473 if (test_and_set_bit(0,&find_free_critical)){
1474 printk(KERN_INFO "CRITICAL in Find Free\n");
1475 }
1476
1477 for (dev = card->wandev.dev; dev;
1478 dev = *((struct net_device **)dev->priv)) {
1479 chan = dev->priv;
1480 if (!chan)
1481 continue;
1482 if (chan->usedby == API && chan->svc){
1483 if (!get_atomic_device (dev)){
1484 if (chan->state != WANSOCK_DISCONNECTED){
1485 release_device(dev);
1486 }else{
1487 clear_bit(0,&find_free_critical);
1488 return dev;
1489 }
1490 }
1491 }
1492 }
1493 clear_bit(0,&find_free_critical);
1494 return NULL;
1495}
1496
1497/*============================================================
1498 * wanpipe_create
1499 *
1500 * SOCKET() System call. It allocates a sock structure
1501 * and adds the socket to the wanpipe_sk_list.
1502 * Crates AF_WANPIPE socket.
1503 *===========================================================*/
1504
1505static int wanpipe_create(struct socket *sock, int protocol)
1506{
1507 struct sock *sk;
1508
1509 //FIXME: This checks for root user, SECURITY ?
1510 //if (!capable(CAP_NET_RAW))
1511 // return -EPERM;
1512
1513 if (sock->type != SOCK_DGRAM && sock->type != SOCK_RAW)
1514 return -ESOCKTNOSUPPORT;
1515
1516 sock->state = SS_UNCONNECTED;
1517
1518 if ((sk = wanpipe_alloc_socket()) == NULL)
1519 return -ENOBUFS;
1520
1521 sk->sk_reuse = 1;
1522 sock->ops = &wanpipe_ops;
1523 sock_init_data(sock,sk);
1524
1525 sock_reset_flag(sk, SOCK_ZAPPED);
1526 sk->sk_family = PF_WANPIPE;
1527 wp_sk(sk)->num = protocol;
1528 sk->sk_state = WANSOCK_DISCONNECTED;
1529 sk->sk_ack_backlog = 0;
1530 sk->sk_bound_dev_if = 0;
1531
1532 atomic_inc(&wanpipe_socks_nr);
1533
1534 /* We must disable interrupts because the ISR
1535 * can also change the list */
1536 set_bit(1,&wanpipe_tx_critical);
1537 write_lock(&wanpipe_sklist_lock);
1538 sk_add_node(sk, &wanpipe_sklist);
1539 write_unlock(&wanpipe_sklist_lock);
1540 clear_bit(1,&wanpipe_tx_critical);
1541
1542 return(0);
1543}
1544
1545
1546/*============================================================
1547 * wanpipe_recvmsg
1548 *
1549 * Pull a packet from our receive queue and hand it
1550 * to the user. If necessary we block.
1551 *===========================================================*/
1552
1553static int wanpipe_recvmsg(struct kiocb *iocb, struct socket *sock,
1554 struct msghdr *msg, int len, int flags)
1555{
1556 struct sock *sk = sock->sk;
1557 struct sk_buff *skb;
1558 int copied, err=-ENOBUFS;
1559
1560
1561 /*
1562 * If the address length field is there to be filled in, we fill
1563 * it in now.
1564 */
1565
1566 msg->msg_namelen = sizeof(struct wan_sockaddr_ll);
1567
1568 /*
1569 * Call the generic datagram receiver. This handles all sorts
1570 * of horrible races and re-entrancy so we can forget about it
1571 * in the protocol layers.
1572 *
1573 * Now it will return ENETDOWN, if device have just gone down,
1574 * but then it will block.
1575 */
1576
1577 if (flags & MSG_OOB){
1578 skb = skb_dequeue(&sk->sk_error_queue);
1579 }else{
1580 skb=skb_recv_datagram(sk,flags,1,&err);
1581 }
1582 /*
1583 * An error occurred so return it. Because skb_recv_datagram()
1584 * handles the blocking we don't see and worry about blocking
1585 * retries.
1586 */
1587
1588 if(skb==NULL)
1589 goto out;
1590
1591 /*
1592 * You lose any data beyond the buffer you gave. If it worries a
1593 * user program they can ask the device for its MTU anyway.
1594 */
1595
1596 copied = skb->len;
1597 if (copied > len)
1598 {
1599 copied=len;
1600 msg->msg_flags|=MSG_TRUNC;
1601 }
1602
1603 wanpipe_wakeup_driver(sk);
1604
1605 /* We can't use skb_copy_datagram here */
1606 err = memcpy_toiovec(msg->msg_iov, skb->data, copied);
1607 if (err)
1608 goto out_free;
1609
1610 sock_recv_timestamp(msg, sk, skb);
1611
1612 if (msg->msg_name)
1613 memcpy(msg->msg_name, skb->cb, msg->msg_namelen);
1614
1615 /*
1616 * Free or return the buffer as appropriate. Again this
1617 * hides all the races and re-entrancy issues from us.
1618 */
1619 err = (flags&MSG_TRUNC) ? skb->len : copied;
1620
1621out_free:
1622 skb_free_datagram(sk, skb);
1623out:
1624 return err;
1625}
1626
1627
1628/*============================================================
1629 * wanpipe_wakeup_driver
1630 *
1631 * If socket receive buffer is full and driver cannot
1632 * pass data up the sock, it sets a packet_block flag.
1633 * This function check that flag and if sock receive
1634 * queue has room it kicks the driver BH handler.
1635 *
1636 * This way, driver doesn't have to poll the sock
1637 * receive queue.
1638 *===========================================================*/
1639
1640static void wanpipe_wakeup_driver(struct sock *sk)
1641{
1642 struct net_device *dev = NULL;
1643 wanpipe_common_t *chan=NULL;
1644
1645 dev = dev_get_by_index(sk->sk_bound_dev_if);
1646 if (!dev)
1647 return;
1648
1649 dev_put(dev);
1650
1651 if ((chan = dev->priv) == NULL)
1652 return;
1653
1654 if (atomic_read(&chan->receive_block)){
1655 if (atomic_read(&sk->sk_rmem_alloc) <
1656 ((unsigned)sk->sk_rcvbuf * 0.9)) {
1657 printk(KERN_INFO "wansock: Queuing task for wanpipe\n");
1658 atomic_set(&chan->receive_block,0);
1659 wanpipe_queue_tq(&chan->wanpipe_task);
1660 wanpipe_mark_bh();
1661 }
1662 }
1663}
1664
1665/*============================================================
1666 * wanpipe_getname
1667 *
1668 * I don't know what to do with this yet.
1669 * User can use this function to get sock address
1670 * information. Not very useful for Sangoma's purposes.
1671 *===========================================================*/
1672
1673
1674static int wanpipe_getname(struct socket *sock, struct sockaddr *uaddr,
1675 int *uaddr_len, int peer)
1676{
1677 struct net_device *dev;
1678 struct sock *sk = sock->sk;
1679 struct wan_sockaddr_ll *sll = (struct wan_sockaddr_ll*)uaddr;
1680
1681 sll->sll_family = AF_WANPIPE;
1682 sll->sll_ifindex = sk->sk_bound_dev_if;
1683 sll->sll_protocol = wp_sk(sk)->num;
1684 dev = dev_get_by_index(sk->sk_bound_dev_if);
1685 if (dev) {
1686 sll->sll_hatype = dev->type;
1687 sll->sll_halen = dev->addr_len;
1688 memcpy(sll->sll_addr, dev->dev_addr, dev->addr_len);
1689 } else {
1690 sll->sll_hatype = 0; /* Bad: we have no ARPHRD_UNSPEC */
1691 sll->sll_halen = 0;
1692 }
1693 *uaddr_len = sizeof(*sll);
1694
1695 dev_put(dev);
1696
1697 return 0;
1698}
1699
1700/*============================================================
1701 * wanpipe_notifier
1702 *
1703 * If driver turns off network interface, this function
1704 * will be envoked. Currently I treate it as a
1705 * call disconnect. More thought should go into this
1706 * function.
1707 *
1708 * FIXME: More thought should go into this function.
1709 *
1710 *===========================================================*/
1711
1712static int wanpipe_notifier(struct notifier_block *this, unsigned long msg, void *data)
1713{
1714 struct sock *sk;
1715 hlist_node *node;
1716 struct net_device *dev = (struct net_device *)data;
1717
1718 sk_for_each(sk, node, &wanpipe_sklist) {
1719 struct wanpipe_opt *po = wp_sk(sk);
1720
1721 if (!po)
1722 continue;
1723 if (dev == NULL)
1724 continue;
1725
1726 switch (msg) {
1727 case NETDEV_DOWN:
1728 case NETDEV_UNREGISTER:
1729 if (dev->ifindex == sk->sk_bound_dev_if) {
1730 printk(KERN_INFO "wansock: Device down %s\n",dev->name);
1731 if (sock_flag(sk, SOCK_ZAPPED)) {
1732 wanpipe_unlink_driver(sk);
1733 sk->sk_err = ENETDOWN;
1734 sk->sk_error_report(sk);
1735 }
1736
1737 if (msg == NETDEV_UNREGISTER) {
1738 printk(KERN_INFO "wansock: Unregistering Device: %s\n",
1739 dev->name);
1740 wanpipe_unlink_driver(sk);
1741 sk->sk_bound_dev_if = 0;
1742 }
1743 }
1744 break;
1745 case NETDEV_UP:
1746 if (dev->ifindex == sk->sk_bound_dev_if &&
1747 po->num && !sock_flag(sk, SOCK_ZAPPED)) {
1748 printk(KERN_INFO "wansock: Registering Device: %s\n",
1749 dev->name);
1750 wanpipe_link_driver(dev,sk);
1751 }
1752 break;
1753 }
1754 }
1755 return NOTIFY_DONE;
1756}
1757
1758/*============================================================
1759 * wanpipe_ioctl
1760 *
1761 * Execute a user commands, and set socket options.
1762 *
1763 * FIXME: More thought should go into this function.
1764 *
1765 *===========================================================*/
1766
1767static int wanpipe_ioctl(struct socket *sock, unsigned int cmd, unsigned long arg)
1768{
1769 struct sock *sk = sock->sk;
1770 int err;
1771
1772 switch(cmd)
1773 {
1774 case SIOCGSTAMP:
1775 return sock_get_timestamp(sk, (struct timeval __user *)arg);
1776
1777 case SIOC_WANPIPE_CHECK_TX:
1778
1779 return atomic_read(&sk->sk_wmem_alloc);
1780
1781 case SIOC_WANPIPE_SOCK_STATE:
1782
1783 if (sk->sk_state == WANSOCK_CONNECTED)
1784 return 0;
1785
1786 return 1;
1787
1788
1789 case SIOC_WANPIPE_GET_CALL_DATA:
1790
1791 return get_ioctl_cmd (sk,(void*)arg);
1792
1793 case SIOC_WANPIPE_SET_CALL_DATA:
1794
1795 return set_ioctl_cmd (sk,(void*)arg);
1796
1797 case SIOC_WANPIPE_ACCEPT_CALL:
1798 case SIOC_WANPIPE_CLEAR_CALL:
1799 case SIOC_WANPIPE_RESET_CALL:
1800
1801 if ((err=set_ioctl_cmd(sk,(void*)arg)) < 0)
1802 return err;
1803
1804 err=wanpipe_exec_cmd(sk,cmd,0);
1805 get_ioctl_cmd(sk,(void*)arg);
1806 return err;
1807
1808 case SIOC_WANPIPE_DEBUG:
1809
1810 return wanpipe_debug(sk,(void*)arg);
1811
1812 case SIOC_WANPIPE_SET_NONBLOCK:
1813
1814 if (sk->sk_state != WANSOCK_DISCONNECTED)
1815 return -EINVAL;
1816
1817 sock->file->f_flags |= O_NONBLOCK;
1818 return 0;
1819
1820#ifdef CONFIG_INET
1821 case SIOCADDRT:
1822 case SIOCDELRT:
1823 case SIOCDARP:
1824 case SIOCGARP:
1825 case SIOCSARP:
1826 case SIOCDRARP:
1827 case SIOCGRARP:
1828 case SIOCSRARP:
1829 case SIOCGIFADDR:
1830 case SIOCSIFADDR:
1831 case SIOCGIFBRDADDR:
1832 case SIOCSIFBRDADDR:
1833 case SIOCGIFNETMASK:
1834 case SIOCSIFNETMASK:
1835 case SIOCGIFDSTADDR:
1836 case SIOCSIFDSTADDR:
1837 case SIOCSIFFLAGS:
1838 return inet_dgram_ops.ioctl(sock, cmd, arg);
1839#endif
1840
1841 default:
Christoph Hellwigb5e5fa52006-01-03 14:18:33 -08001842 return -ENOIOCTLCMD;
Linus Torvalds1da177e2005-04-16 15:20:36 -07001843 }
1844 /*NOTREACHED*/
1845}
1846
1847/*============================================================
1848 * wanpipe_debug
1849 *
1850 * This function will pass up information about all
1851 * active sockets.
1852 *
1853 * FIXME: More thought should go into this function.
1854 *
1855 *===========================================================*/
1856
1857static int wanpipe_debug (struct sock *origsk, void *arg)
1858{
1859 struct sock *sk;
1860 struct hlist_node *node;
1861 struct net_device *dev = NULL;
1862 wanpipe_common_t *chan=NULL;
1863 int cnt=0, err=0;
1864 wan_debug_t *dbg_data = (wan_debug_t *)arg;
1865
1866 sk_for_each(sk, node, &wanpipe_sklist) {
1867 wanpipe_opt *wp = wp_sk(sk);
1868
1869 if (sk == origsk){
1870 continue;
1871 }
1872
1873 if ((err=put_user(1, &dbg_data->debug[cnt].free)))
1874 return err;
1875 if ((err = put_user(sk->sk_state,
1876 &dbg_data->debug[cnt].state_sk)))
1877 return err;
1878 if ((err = put_user(sk->sk_rcvbuf,
1879 &dbg_data->debug[cnt].rcvbuf)))
1880 return err;
1881 if ((err = put_user(atomic_read(&sk->sk_rmem_alloc),
1882 &dbg_data->debug[cnt].rmem)))
1883 return err;
1884 if ((err = put_user(atomic_read(&sk->sk_wmem_alloc),
1885 &dbg_data->debug[cnt].wmem)))
1886 return err;
1887 if ((err = put_user(sk->sk_sndbuf,
1888 &dbg_data->debug[cnt].sndbuf)))
1889 return err;
1890 if ((err=put_user(sk_count, &dbg_data->debug[cnt].sk_count)))
1891 return err;
1892 if ((err=put_user(wp->poll_cnt, &dbg_data->debug[cnt].poll_cnt)))
1893 return err;
1894 if ((err = put_user(sk->sk_bound_dev_if,
1895 &dbg_data->debug[cnt].bound)))
1896 return err;
1897
1898 if (sk->sk_bound_dev_if) {
1899 dev = dev_get_by_index(sk->sk_bound_dev_if);
1900 if (!dev)
1901 continue;
1902
1903 chan=dev->priv;
1904 dev_put(dev);
1905
1906 if ((err=put_user(chan->state, &dbg_data->debug[cnt].d_state)))
1907 return err;
1908 if ((err=put_user(chan->svc, &dbg_data->debug[cnt].svc)))
1909 return err;
1910
1911 if ((err=put_user(atomic_read(&chan->command),
1912 &dbg_data->debug[cnt].command)))
1913 return err;
1914
1915
1916 if (wp){
1917 sdla_t *card = (sdla_t*)wp->card;
1918
1919 if (card){
1920 if ((err=put_user(atomic_read(&card->u.x.command_busy),
1921 &dbg_data->debug[cnt].cmd_busy)))
1922 return err;
1923 }
1924
1925 if ((err=put_user(wp->lcn,
1926 &dbg_data->debug[cnt].lcn)))
1927 return err;
1928
1929 if (wp->mbox) {
1930 if ((err=put_user(1, &dbg_data->debug[cnt].mbox)))
1931 return err;
1932 }
1933 }
1934
1935 if ((err=put_user(atomic_read(&chan->receive_block),
1936 &dbg_data->debug[cnt].rblock)))
1937 return err;
1938
1939 if (copy_to_user(dbg_data->debug[cnt].name, dev->name, strlen(dev->name)))
1940 return -EFAULT;
1941 }
1942
1943 if (++cnt == MAX_NUM_DEBUG)
1944 break;
1945 }
1946 return 0;
1947}
1948
1949/*============================================================
1950 * get_ioctl_cmd
1951 *
1952 * Pass up the contents of socket MBOX to the user.
1953 *===========================================================*/
1954
1955static int get_ioctl_cmd (struct sock *sk, void *arg)
1956{
1957 x25api_t *usr_data = (x25api_t *)arg;
1958 mbox_cmd_t *mbox_ptr;
1959 int err;
1960
1961 if (usr_data == NULL)
1962 return -EINVAL;
1963
1964 if (!wp_sk(sk)->mbox) {
1965 return -EINVAL;
1966 }
1967
1968 mbox_ptr = (mbox_cmd_t *)wp_sk(sk)->mbox;
1969
1970 if ((err=put_user(mbox_ptr->cmd.qdm, &usr_data->hdr.qdm)))
1971 return err;
1972 if ((err=put_user(mbox_ptr->cmd.cause, &usr_data->hdr.cause)))
1973 return err;
1974 if ((err=put_user(mbox_ptr->cmd.diagn, &usr_data->hdr.diagn)))
1975 return err;
1976 if ((err=put_user(mbox_ptr->cmd.length, &usr_data->hdr.length)))
1977 return err;
1978 if ((err=put_user(mbox_ptr->cmd.result, &usr_data->hdr.result)))
1979 return err;
1980 if ((err=put_user(mbox_ptr->cmd.lcn, &usr_data->hdr.lcn)))
1981 return err;
1982
1983 if (mbox_ptr->cmd.length > 0){
1984 if (mbox_ptr->cmd.length > X25_MAX_DATA)
1985 return -EINVAL;
1986
1987 if (copy_to_user(usr_data->data, mbox_ptr->data, mbox_ptr->cmd.length)){
1988 printk(KERN_INFO "wansock: Copy failed !!!\n");
1989 return -EFAULT;
1990 }
1991 }
1992 return 0;
1993}
1994
1995/*============================================================
1996 * set_ioctl_cmd
1997 *
1998 * Before command can be execute, socket MBOX must
1999 * be created, and initialized with user data.
2000 *===========================================================*/
2001
2002static int set_ioctl_cmd (struct sock *sk, void *arg)
2003{
2004 x25api_t *usr_data = (x25api_t *)arg;
2005 mbox_cmd_t *mbox_ptr;
2006 int err;
2007
2008 if (!wp_sk(sk)->mbox) {
2009 void *mbox_ptr;
2010 struct net_device *dev = dev_get_by_index(sk->sk_bound_dev_if);
2011 if (!dev)
2012 return -ENODEV;
2013
2014 dev_put(dev);
2015
2016 if ((mbox_ptr = kmalloc(sizeof(mbox_cmd_t), GFP_ATOMIC)) == NULL)
2017 return -ENOMEM;
2018
2019 memset(mbox_ptr, 0, sizeof(mbox_cmd_t));
2020 wp_sk(sk)->mbox = mbox_ptr;
2021
2022 wanpipe_link_driver(dev,sk);
2023 }
2024
2025 mbox_ptr = (mbox_cmd_t*)wp_sk(sk)->mbox;
2026 memset(mbox_ptr, 0, sizeof(mbox_cmd_t));
2027
2028 if (usr_data == NULL){
2029 return 0;
2030 }
2031 if ((err=get_user(mbox_ptr->cmd.qdm, &usr_data->hdr.qdm)))
2032 return err;
2033 if ((err=get_user(mbox_ptr->cmd.cause, &usr_data->hdr.cause)))
2034 return err;
2035 if ((err=get_user(mbox_ptr->cmd.diagn, &usr_data->hdr.diagn)))
2036 return err;
2037 if ((err=get_user(mbox_ptr->cmd.length, &usr_data->hdr.length)))
2038 return err;
2039 if ((err=get_user(mbox_ptr->cmd.result, &usr_data->hdr.result)))
2040 return err;
2041
2042 if (mbox_ptr->cmd.length > 0){
2043 if (mbox_ptr->cmd.length > X25_MAX_DATA)
2044 return -EINVAL;
2045
2046 if (copy_from_user(mbox_ptr->data, usr_data->data, mbox_ptr->cmd.length)){
2047 printk(KERN_INFO "Copy failed\n");
2048 return -EFAULT;
2049 }
2050 }
2051 return 0;
2052}
2053
2054
2055/*======================================================================
2056 * wanpipe_poll
2057 *
2058 * Datagram poll: Again totally generic. This also handles
2059 * sequenced packet sockets providing the socket receive queue
2060 * is only ever holding data ready to receive.
2061 *
2062 * Note: when you _don't_ use this routine for this protocol,
2063 * and you use a different write policy from sock_writeable()
2064 * then please supply your own write_space callback.
2065 *=====================================================================*/
2066
2067unsigned int wanpipe_poll(struct file * file, struct socket *sock, poll_table *wait)
2068{
2069 struct sock *sk = sock->sk;
2070 unsigned int mask;
2071
2072 ++wp_sk(sk)->poll_cnt;
2073
2074 poll_wait(file, sk->sk_sleep, wait);
2075 mask = 0;
2076
2077 /* exceptional events? */
2078 if (sk->sk_err || !skb_queue_empty(&sk->sk_error_queue)) {
2079 mask |= POLLPRI;
2080 return mask;
2081 }
2082 if (sk->sk_shutdown & RCV_SHUTDOWN)
2083 mask |= POLLHUP;
2084
2085 /* readable? */
2086 if (!skb_queue_empty(&sk->sk_receive_queue)) {
2087 mask |= POLLIN | POLLRDNORM;
2088 }
2089
2090 /* connection hasn't started yet */
2091 if (sk->sk_state == WANSOCK_CONNECTING) {
2092 return mask;
2093 }
2094
2095 if (sk->sk_state == WANSOCK_DISCONNECTED) {
2096 mask = POLLPRI;
2097 return mask;
2098 }
2099
2100 /* This check blocks the user process if there is
2101 * a packet already queued in the socket write queue.
2102 * This option is only for X25API protocol, for other
2103 * protocol like chdlc enable streaming mode,
2104 * where multiple packets can be pending in the socket
2105 * transmit queue */
2106
2107 if (wp_sk(sk)->num == htons(X25_PROT)) {
2108 if (atomic_read(&wp_sk(sk)->packet_sent))
2109 return mask;
2110 }
2111
2112 /* writable? */
2113 if (sock_writeable(sk)){
2114 mask |= POLLOUT | POLLWRNORM | POLLWRBAND;
2115 }else{
2116 set_bit(SOCK_ASYNC_NOSPACE, &sk->sk_socket->flags);
2117 }
2118
2119 return mask;
2120}
2121
2122/*======================================================================
2123 * wanpipe_listen
2124 *
2125 * X25API Specific function. Set a socket into LISTENING MODE.
2126 *=====================================================================*/
2127
2128
2129static int wanpipe_listen(struct socket *sock, int backlog)
2130{
2131 struct sock *sk = sock->sk;
2132
2133 /* This is x25 specific area if protocol doesn't
2134 * match, return error */
2135 if (wp_sk(sk)->num != htons(X25_PROT))
2136 return -EINVAL;
2137
2138 if (sk->sk_state == WANSOCK_BIND_LISTEN) {
2139
2140 sk->sk_max_ack_backlog = backlog;
2141 sk->sk_state = WANSOCK_LISTEN;
2142 return 0;
2143 }else{
2144 printk(KERN_INFO "wansock: Listening sock was not binded\n");
2145 }
2146
2147 return -EINVAL;
2148}
2149
2150/*======================================================================
2151 * wanpipe_link_card
2152 *
2153 * Connects the listening socket to the driver
2154 *=====================================================================*/
2155
2156static int wanpipe_link_card (struct sock *sk)
2157{
2158 sdla_t *card = (sdla_t*)wp_sk(sk)->card;
2159
2160 if (!card)
2161 return -ENOMEM;
2162
2163 if ((card->sk != NULL) || (card->func != NULL)){
2164 printk(KERN_INFO "wansock: Listening queue is already established\n");
2165 return -EINVAL;
2166 }
2167
2168 card->sk=sk;
2169 card->func=wanpipe_listen_rcv;
2170 sock_set_flag(sk, SOCK_ZAPPED);
2171
2172 return 0;
2173}
2174
2175/*======================================================================
2176 * wanpipe_listen
2177 *
2178 * X25API Specific function. Disconnect listening socket from
2179 * the driver.
2180 *=====================================================================*/
2181
2182static void wanpipe_unlink_card (struct sock *sk)
2183{
2184 sdla_t *card = (sdla_t*)wp_sk(sk)->card;
2185
2186 if (card){
2187 card->sk=NULL;
2188 card->func=NULL;
2189 }
2190}
2191
2192/*======================================================================
2193 * wanpipe_exec_cmd
2194 *
2195 * Ioctl function calls this function to execute user command.
2196 * Connect() sytem call also calls this function to execute
2197 * place call. This function blocks until command is executed.
2198 *=====================================================================*/
2199
2200static int wanpipe_exec_cmd(struct sock *sk, int cmd, unsigned int flags)
2201{
2202 int err = -EINVAL;
2203 wanpipe_opt *wp = wp_sk(sk);
2204 mbox_cmd_t *mbox_ptr = (mbox_cmd_t*)wp->mbox;
2205
2206 if (!mbox_ptr){
2207 printk(KERN_INFO "NO MBOX PTR !!!!!\n");
2208 return -EINVAL;
2209 }
2210
2211 /* This is x25 specific area if protocol doesn't
2212 * match, return error */
2213 if (wp->num != htons(X25_PROT))
2214 return -EINVAL;
2215
2216
2217 switch (cmd){
2218
2219 case SIOC_WANPIPE_ACCEPT_CALL:
2220
2221 if (sk->sk_state != WANSOCK_CONNECTING) {
2222 err = -EHOSTDOWN;
2223 break;
2224 }
2225
2226 err = execute_command(sk,X25_ACCEPT_CALL,0);
2227 if (err < 0)
2228 break;
2229
2230 /* Update. Mar6 2000.
2231 * Do not set the sock lcn number here, since
2232 * it is done in wanpipe_listen_rcv().
2233 */
2234 if (sk->sk_state == WANSOCK_CONNECTED) {
2235 wp->lcn = ((mbox_cmd_t*)wp->mbox)->cmd.lcn;
2236 DBG_PRINTK(KERN_INFO "\nwansock: Accept OK %i\n",
2237 wp->lcn);
2238 err = 0;
2239
2240 }else{
2241 DBG_PRINTK (KERN_INFO "\nwansock: Accept Failed %i\n",
2242 wp->lcn);
2243 wp->lcn = 0;
2244 err = -ECONNREFUSED;
2245 }
2246 break;
2247
2248 case SIOC_WANPIPE_CLEAR_CALL:
2249
2250 if (sk->sk_state == WANSOCK_DISCONNECTED) {
2251 err = -EINVAL;
2252 break;
2253 }
2254
2255
2256 /* Check if data buffers are pending for transmission,
2257 * if so, check whether user wants to wait until data
2258 * is transmitted, or clear a call and drop packets */
2259
2260 if (atomic_read(&sk->sk_wmem_alloc) ||
2261 check_driver_busy(sk)) {
2262 mbox_cmd_t *mbox = wp->mbox;
2263 if (mbox->cmd.qdm & 0x80){
2264 mbox->cmd.result = 0x35;
2265 err = -EAGAIN;
2266 break;
2267 }
2268 }
2269
2270 sk->sk_state = WANSOCK_DISCONNECTING;
2271
2272 err = execute_command(sk,X25_CLEAR_CALL,0);
2273 if (err < 0)
2274 break;
2275
2276 err = -ECONNREFUSED;
2277 if (sk->sk_state == WANSOCK_DISCONNECTED) {
2278 DBG_PRINTK(KERN_INFO "\nwansock: CLEAR OK %i\n",
2279 wp->lcn);
2280 wp->lcn = 0;
2281 err = 0;
2282 }
2283 break;
2284
2285 case SIOC_WANPIPE_RESET_CALL:
2286
2287 if (sk->sk_state != WANSOCK_CONNECTED) {
2288 err = -EINVAL;
2289 break;
2290 }
2291
2292
2293 /* Check if data buffers are pending for transmission,
2294 * if so, check whether user wants to wait until data
2295 * is transmitted, or reset a call and drop packets */
2296
2297 if (atomic_read(&sk->sk_wmem_alloc) ||
2298 check_driver_busy(sk)) {
2299 mbox_cmd_t *mbox = wp->mbox;
2300 if (mbox->cmd.qdm & 0x80){
2301 mbox->cmd.result = 0x35;
2302 err = -EAGAIN;
2303 break;
2304 }
2305 }
2306
2307
2308 err = execute_command(sk, X25_RESET,0);
2309 if (err < 0)
2310 break;
2311
2312 err = mbox_ptr->cmd.result;
2313 break;
2314
2315
2316 case X25_PLACE_CALL:
2317
2318 err=execute_command(sk,X25_PLACE_CALL,flags);
2319 if (err < 0)
2320 break;
2321
2322 if (sk->sk_state == WANSOCK_CONNECTED) {
2323
2324 wp->lcn = ((mbox_cmd_t*)wp->mbox)->cmd.lcn;
2325
2326 DBG_PRINTK(KERN_INFO "\nwansock: PLACE CALL OK %i\n",
2327 wp->lcn);
2328 err = 0;
2329
2330 } else if (sk->sk_state == WANSOCK_CONNECTING &&
2331 (flags & O_NONBLOCK)) {
2332 wp->lcn = ((mbox_cmd_t*)wp->mbox)->cmd.lcn;
2333 DBG_PRINTK(KERN_INFO "\nwansock: Place Call OK: Waiting %i\n",
2334 wp->lcn);
2335
2336 err = 0;
2337
2338 }else{
2339 DBG_PRINTK(KERN_INFO "\nwansock: Place call Failed\n");
2340 err = -ECONNREFUSED;
2341 }
2342
2343 break;
2344
2345 default:
2346 return -EINVAL;
2347 }
2348
2349 return err;
2350}
2351
2352static int check_driver_busy (struct sock *sk)
2353{
2354 struct net_device *dev = dev_get_by_index(sk->sk_bound_dev_if);
2355 wanpipe_common_t *chan;
2356
2357 if (!dev)
2358 return 0;
2359
2360 dev_put(dev);
2361
2362 if ((chan=dev->priv) == NULL)
2363 return 0;
2364
2365 return atomic_read(&chan->driver_busy);
2366}
2367
2368
2369/*======================================================================
2370 * wanpipe_accept
2371 *
2372 * ACCEPT() System call. X25API Specific function.
2373 * For each incoming call, create a new socket and
2374 * return it to the user.
2375 *=====================================================================*/
2376
2377static int wanpipe_accept(struct socket *sock, struct socket *newsock, int flags)
2378{
2379 struct sock *sk;
2380 struct sock *newsk;
2381 struct sk_buff *skb;
2382 DECLARE_WAITQUEUE(wait, current);
2383 int err=0;
2384
2385 if (newsock->sk != NULL){
2386 wanpipe_kill_sock_accept(newsock->sk);
2387 newsock->sk=NULL;
2388 }
2389
2390 if ((sk = sock->sk) == NULL)
2391 return -EINVAL;
2392
2393 if (sk->sk_type != SOCK_RAW)
2394 return -EOPNOTSUPP;
2395
2396 if (sk->sk_state != WANSOCK_LISTEN)
2397 return -EINVAL;
2398
2399 if (wp_sk(sk)->num != htons(X25_PROT))
2400 return -EINVAL;
2401
2402 add_wait_queue(sk->sk_sleep,&wait);
2403 current->state = TASK_INTERRUPTIBLE;
2404 for (;;){
2405 skb = skb_dequeue(&sk->sk_receive_queue);
2406 if (skb){
2407 err=0;
2408 break;
2409 }
2410 if (signal_pending(current)) {
2411 err = -ERESTARTSYS;
2412 break;
2413 }
2414 schedule();
2415 }
2416 current->state = TASK_RUNNING;
2417 remove_wait_queue(sk->sk_sleep,&wait);
2418
2419 if (err != 0)
2420 return err;
2421
2422 newsk = get_newsk_from_skb(skb);
2423 if (!newsk){
2424 return -EINVAL;
2425 }
2426
2427 set_bit(1,&wanpipe_tx_critical);
2428 write_lock(&wanpipe_sklist_lock);
2429 sk_add_node(newsk, &wanpipe_sklist);
2430 write_unlock(&wanpipe_sklist_lock);
2431 clear_bit(1,&wanpipe_tx_critical);
2432
2433 newsk->sk_socket = newsock;
2434 newsk->sk_sleep = &newsock->wait;
2435
2436 /* Now attach up the new socket */
2437 sk->sk_ack_backlog--;
2438 newsock->sk = newsk;
2439
2440 kfree_skb(skb);
2441
2442 DBG_PRINTK(KERN_INFO "\nwansock: ACCEPT Got LCN %i\n",
2443 wp_sk(newsk)->lcn);
2444 return 0;
2445}
2446
2447/*======================================================================
2448 * get_newsk_from_skb
2449 *
2450 * Accept() uses this function to get the address of the new
2451 * socket structure.
2452 *=====================================================================*/
2453
2454struct sock * get_newsk_from_skb (struct sk_buff *skb)
2455{
2456 struct net_device *dev = skb->dev;
2457 wanpipe_common_t *chan;
2458
2459 if (!dev){
2460 return NULL;
2461 }
2462
2463 if ((chan = dev->priv) == NULL){
2464 return NULL;
2465 }
2466
2467 if (!chan->sk){
2468 return NULL;
2469 }
2470 return (struct sock *)chan->sk;
2471}
2472
2473/*======================================================================
2474 * wanpipe_connect
2475 *
2476 * CONNECT() System Call. X25API specific function
2477 * Check the state of the sock, and execute PLACE_CALL command.
2478 * Connect can ether block or return without waiting for connection,
2479 * if specified by user.
2480 *=====================================================================*/
2481
2482static int wanpipe_connect(struct socket *sock, struct sockaddr *uaddr, int addr_len, int flags)
2483{
2484 struct sock *sk = sock->sk;
2485 struct wan_sockaddr_ll *addr = (struct wan_sockaddr_ll*)uaddr;
2486 struct net_device *dev;
2487 int err;
2488
2489 if (wp_sk(sk)->num != htons(X25_PROT))
2490 return -EINVAL;
2491
2492 if (sk->sk_state == WANSOCK_CONNECTED)
2493 return -EISCONN; /* No reconnect on a seqpacket socket */
2494
2495 if (sk->sk_state != WAN_DISCONNECTED) {
2496 printk(KERN_INFO "wansock: Trying to connect on channel NON DISCONNECT\n");
2497 return -ECONNREFUSED;
2498 }
2499
2500 sk->sk_state = WANSOCK_DISCONNECTED;
2501 sock->state = SS_UNCONNECTED;
2502
2503 if (addr_len != sizeof(struct wan_sockaddr_ll))
2504 return -EINVAL;
2505
2506 if (addr->sll_family != AF_WANPIPE)
2507 return -EINVAL;
2508
2509 if ((dev = dev_get_by_index(sk->sk_bound_dev_if)) == NULL)
2510 return -ENETUNREACH;
2511
2512 dev_put(dev);
2513
2514 if (!sock_flag(sk, SOCK_ZAPPED)) /* Must bind first - autobinding does not work */
2515 return -EINVAL;
2516
2517 sock->state = SS_CONNECTING;
2518 sk->sk_state = WANSOCK_CONNECTING;
2519
2520 if (!wp_sk(sk)->mbox) {
2521 if (wp_sk (sk)->svc)
2522 return -EINVAL;
2523 else {
2524 int err;
2525 if ((err=set_ioctl_cmd(sk,NULL)) < 0)
2526 return err;
2527 }
2528 }
2529
2530 if ((err=wanpipe_exec_cmd(sk, X25_PLACE_CALL,flags)) != 0){
2531 sock->state = SS_UNCONNECTED;
2532 sk->sk_state = WANSOCK_CONNECTED;
2533 return err;
2534 }
2535
2536 if (sk->sk_state != WANSOCK_CONNECTED && (flags & O_NONBLOCK)) {
2537 return 0;
2538 }
2539
2540 if (sk->sk_state != WANSOCK_CONNECTED) {
2541 sock->state = SS_UNCONNECTED;
2542 return -ECONNREFUSED;
2543 }
2544
2545 sock->state = SS_CONNECTED;
2546 return 0;
2547}
2548
Eric Dumazet90ddc4f2005-12-22 12:49:22 -08002549const struct proto_ops wanpipe_ops = {
Linus Torvalds1da177e2005-04-16 15:20:36 -07002550 .family = PF_WANPIPE,
2551 .owner = THIS_MODULE,
2552 .release = wanpipe_release,
2553 .bind = wanpipe_bind,
2554 .connect = wanpipe_connect,
2555 .socketpair = sock_no_socketpair,
2556 .accept = wanpipe_accept,
2557 .getname = wanpipe_getname,
2558 .poll = wanpipe_poll,
2559 .ioctl = wanpipe_ioctl,
2560 .listen = wanpipe_listen,
2561 .shutdown = sock_no_shutdown,
2562 .setsockopt = sock_no_setsockopt,
2563 .getsockopt = sock_no_getsockopt,
2564 .sendmsg = wanpipe_sendmsg,
2565 .recvmsg = wanpipe_recvmsg
2566};
2567
2568static struct net_proto_family wanpipe_family_ops = {
2569 .family = PF_WANPIPE,
2570 .create = wanpipe_create,
2571 .owner = THIS_MODULE,
2572};
2573
2574struct notifier_block wanpipe_netdev_notifier = {
2575 .notifier_call = wanpipe_notifier,
2576};
2577
2578
2579#ifdef MODULE
2580void cleanup_module(void)
2581{
2582 printk(KERN_INFO "wansock: Cleaning up \n");
2583 unregister_netdevice_notifier(&wanpipe_netdev_notifier);
2584 sock_unregister(PF_WANPIPE);
2585 proto_unregister(&wanpipe_proto);
2586}
2587
2588int init_module(void)
2589{
2590 int rc;
2591
2592 printk(KERN_INFO "wansock: Registering Socket \n");
2593
2594 rc = proto_register(&wanpipe_proto, 0);
2595 if (rc != 0)
2596 goto out;
2597
2598 sock_register(&wanpipe_family_ops);
2599 register_netdevice_notifier(&wanpipe_netdev_notifier);
2600out:
2601 return rc;
2602}
2603#endif
2604MODULE_LICENSE("GPL");
2605MODULE_ALIAS_NETPROTO(PF_WANPIPE);