vserver 1.9.5.x5
[linux-2.6.git] / net / x25 / af_x25.c
1 /*
2  *      X.25 Packet Layer release 002
3  *
4  *      This is ALPHA test software. This code may break your machine,
5  *      randomly fail to work with new releases, misbehave and/or generally
6  *      screw up. It might even work. 
7  *
8  *      This code REQUIRES 2.1.15 or higher
9  *
10  *      This module:
11  *              This module is free software; you can redistribute it and/or
12  *              modify it under the terms of the GNU General Public License
13  *              as published by the Free Software Foundation; either version
14  *              2 of the License, or (at your option) any later version.
15  *
16  *      History
17  *      X.25 001        Jonathan Naylor Started coding.
18  *      X.25 002        Jonathan Naylor Centralised disconnect handling.
19  *                                      New timer architecture.
20  *      2000-03-11      Henner Eisen    MSG_EOR handling more POSIX compliant.
21  *      2000-03-22      Daniela Squassoni Allowed disabling/enabling of 
22  *                                        facilities negotiation and increased 
23  *                                        the throughput upper limit.
24  *      2000-08-27      Arnaldo C. Melo s/suser/capable/ + micro cleanups
25  *      2000-09-04      Henner Eisen    Set sock->state in x25_accept(). 
26  *                                      Fixed x25_output() related skb leakage.
27  *      2000-10-02      Henner Eisen    Made x25_kick() single threaded per socket.
28  *      2000-10-27      Henner Eisen    MSG_DONTWAIT for fragment allocation.
29  *      2000-11-14      Henner Eisen    Closing datalink from NETDEV_GOING_DOWN
30  *      2002-10-06      Arnaldo C. Melo Get rid of cli/sti, move proc stuff to
31  *                                      x25_proc.c, using seq_file
32  */
33
34 #include <linux/config.h>
35 #include <linux/module.h>
36 #include <linux/errno.h>
37 #include <linux/kernel.h>
38 #include <linux/sched.h>
39 #include <linux/timer.h>
40 #include <linux/string.h>
41 #include <linux/net.h>
42 #include <linux/netdevice.h>
43 #include <linux/if_arp.h>
44 #include <linux/skbuff.h>
45 #include <net/sock.h>
46 #include <net/tcp.h>
47 #include <asm/uaccess.h>
48 #include <linux/fcntl.h>
49 #include <linux/termios.h>      /* For TIOCINQ/OUTQ */
50 #include <linux/notifier.h>
51 #include <linux/init.h>
52 #include <net/x25.h>
53
54 int sysctl_x25_restart_request_timeout = X25_DEFAULT_T20;
55 int sysctl_x25_call_request_timeout    = X25_DEFAULT_T21;
56 int sysctl_x25_reset_request_timeout   = X25_DEFAULT_T22;
57 int sysctl_x25_clear_request_timeout   = X25_DEFAULT_T23;
58 int sysctl_x25_ack_holdback_timeout    = X25_DEFAULT_T2;
59
60 HLIST_HEAD(x25_list);
61 DEFINE_RWLOCK(x25_list_lock);
62
63 static struct proto_ops x25_proto_ops;
64
65 static struct x25_address null_x25_address = {"               "};
66
67 int x25_addr_ntoa(unsigned char *p, struct x25_address *called_addr,
68                   struct x25_address *calling_addr)
69 {
70         int called_len, calling_len;
71         char *called, *calling;
72         int i;
73
74         called_len  = (*p >> 0) & 0x0F;
75         calling_len = (*p >> 4) & 0x0F;
76
77         called  = called_addr->x25_addr;
78         calling = calling_addr->x25_addr;
79         p++;
80
81         for (i = 0; i < (called_len + calling_len); i++) {
82                 if (i < called_len) {
83                         if (i % 2 != 0) {
84                                 *called++ = ((*p >> 0) & 0x0F) + '0';
85                                 p++;
86                         } else {
87                                 *called++ = ((*p >> 4) & 0x0F) + '0';
88                         }
89                 } else {
90                         if (i % 2 != 0) {
91                                 *calling++ = ((*p >> 0) & 0x0F) + '0';
92                                 p++;
93                         } else {
94                                 *calling++ = ((*p >> 4) & 0x0F) + '0';
95                         }
96                 }
97         }
98
99         *called = *calling = '\0';
100
101         return 1 + (called_len + calling_len + 1) / 2;
102 }
103
104 int x25_addr_aton(unsigned char *p, struct x25_address *called_addr,
105                   struct x25_address *calling_addr)
106 {
107         unsigned int called_len, calling_len;
108         char *called, *calling;
109         int i;
110
111         called  = called_addr->x25_addr;
112         calling = calling_addr->x25_addr;
113
114         called_len  = strlen(called);
115         calling_len = strlen(calling);
116
117         *p++ = (calling_len << 4) | (called_len << 0);
118
119         for (i = 0; i < (called_len + calling_len); i++) {
120                 if (i < called_len) {
121                         if (i % 2 != 0) {
122                                 *p |= (*called++ - '0') << 0;
123                                 p++;
124                         } else {
125                                 *p = 0x00;
126                                 *p |= (*called++ - '0') << 4;
127                         }
128                 } else {
129                         if (i % 2 != 0) {
130                                 *p |= (*calling++ - '0') << 0;
131                                 p++;
132                         } else {
133                                 *p = 0x00;
134                                 *p |= (*calling++ - '0') << 4;
135                         }
136                 }
137         }
138
139         return 1 + (called_len + calling_len + 1) / 2;
140 }
141
142 /*
143  *      Socket removal during an interrupt is now safe.
144  */
145 static void x25_remove_socket(struct sock *sk)
146 {
147         write_lock_bh(&x25_list_lock);
148         sk_del_node_init(sk);
149         write_unlock_bh(&x25_list_lock);
150 }
151
152 /*
153  *      Kill all bound sockets on a dropped device.
154  */
155 static void x25_kill_by_device(struct net_device *dev)
156 {
157         struct sock *s;
158         struct hlist_node *node;
159
160         write_lock_bh(&x25_list_lock);
161
162         sk_for_each(s, node, &x25_list)
163                 if (x25_sk(s)->neighbour && x25_sk(s)->neighbour->dev == dev)
164                         x25_disconnect(s, ENETUNREACH, 0, 0);
165
166         write_unlock_bh(&x25_list_lock);
167 }
168
169 /*
170  *      Handle device status changes.
171  */
172 static int x25_device_event(struct notifier_block *this, unsigned long event,
173                             void *ptr)
174 {
175         struct net_device *dev = ptr;
176         struct x25_neigh *nb;
177
178         if (dev->type == ARPHRD_X25
179 #if defined(CONFIG_LLC) || defined(CONFIG_LLC_MODULE)
180          || dev->type == ARPHRD_ETHER
181 #endif
182          ) {
183                 switch (event) {
184                         case NETDEV_UP:
185                                 x25_link_device_up(dev);
186                                 break;
187                         case NETDEV_GOING_DOWN:
188                                 nb = x25_get_neigh(dev);
189                                 if (nb) {
190                                         x25_terminate_link(nb);
191                                         x25_neigh_put(nb);
192                                 }
193                                 break;
194                         case NETDEV_DOWN:
195                                 x25_kill_by_device(dev);
196                                 x25_route_device_down(dev);
197                                 x25_link_device_down(dev);
198                                 break;
199                 }
200         }
201
202         return NOTIFY_DONE;
203 }
204
205 /*
206  *      Add a socket to the bound sockets list.
207  */
208 static void x25_insert_socket(struct sock *sk)
209 {
210         write_lock_bh(&x25_list_lock);
211         sk_add_node(sk, &x25_list);
212         write_unlock_bh(&x25_list_lock);
213 }
214
215 /*
216  *      Find a socket that wants to accept the Call Request we just
217  *      received. Check the full list for an address/cud match.
218  *      If no cuds match return the next_best thing, an address match.
219  *      Note: if a listening socket has cud set it must only get calls
220  *      with matching cud.
221  */
222 static struct sock *x25_find_listener(struct x25_address *addr, struct x25_calluserdata *calluserdata)
223 {
224         struct sock *s;
225         struct sock *next_best;
226         struct hlist_node *node;
227
228         read_lock_bh(&x25_list_lock);
229         next_best = NULL;
230
231         sk_for_each(s, node, &x25_list)
232                 if ((!strcmp(addr->x25_addr,
233                              x25_sk(s)->source_addr.x25_addr) ||
234                      !strcmp(addr->x25_addr,
235                              null_x25_address.x25_addr)) &&
236                      s->sk_state == TCP_LISTEN) {
237
238                         /*
239                          * Found a listening socket, now check the incoming
240                          * call user data vs this sockets call user data
241                          */
242                         if (x25_check_calluserdata(&x25_sk(s)->calluserdata, calluserdata)) {
243                                 sock_hold(s);
244                                 goto found;
245                         }
246                         if (x25_sk(s)->calluserdata.cudlength == 0) {
247                                 next_best = s;
248                         }
249                 }
250         if (next_best) {
251                 s = next_best;
252                 sock_hold(s);
253                 goto found;
254         }
255         s = NULL;
256 found:
257         read_unlock_bh(&x25_list_lock);
258         return s;
259 }
260
261 /*
262  *      Find a connected X.25 socket given my LCI and neighbour.
263  */
264 static struct sock *__x25_find_socket(unsigned int lci, struct x25_neigh *nb)
265 {
266         struct sock *s;
267         struct hlist_node *node;
268
269         sk_for_each(s, node, &x25_list)
270                 if (x25_sk(s)->lci == lci && x25_sk(s)->neighbour == nb) {
271                         sock_hold(s);
272                         goto found;
273                 }
274         s = NULL;
275 found:
276         return s;
277 }
278
279 struct sock *x25_find_socket(unsigned int lci, struct x25_neigh *nb)
280 {
281         struct sock *s;
282
283         read_lock_bh(&x25_list_lock);
284         s = __x25_find_socket(lci, nb);
285         read_unlock_bh(&x25_list_lock);
286         return s;
287 }
288
289 /*
290  *      Find a unique LCI for a given device.
291  */
292 static unsigned int x25_new_lci(struct x25_neigh *nb)
293 {
294         unsigned int lci = 1;
295         struct sock *sk;
296
297         read_lock_bh(&x25_list_lock);
298
299         while ((sk = __x25_find_socket(lci, nb)) != NULL) {
300                 sock_put(sk);
301                 if (++lci == 4096) {
302                         lci = 0;
303                         break;
304                 }
305         }
306
307         read_unlock_bh(&x25_list_lock);
308         return lci;
309 }
310
311 /*
312  *      Deferred destroy.
313  */
314 void x25_destroy_socket(struct sock *);
315
316 /*
317  *      handler for deferred kills.
318  */
319 static void x25_destroy_timer(unsigned long data)
320 {
321         x25_destroy_socket((struct sock *)data);
322 }
323
324 /*
325  *      This is called from user mode and the timers. Thus it protects itself
326  *      against interrupt users but doesn't worry about being called during
327  *      work. Once it is removed from the queue no interrupt or bottom half
328  *      will touch it and we are (fairly 8-) ) safe.
329  *      Not static as it's used by the timer
330  */
331 void x25_destroy_socket(struct sock *sk)
332 {
333         struct sk_buff *skb;
334
335         sock_hold(sk);
336         lock_sock(sk);
337         x25_stop_heartbeat(sk);
338         x25_stop_timer(sk);
339
340         x25_remove_socket(sk);
341         x25_clear_queues(sk);           /* Flush the queues */
342
343         while ((skb = skb_dequeue(&sk->sk_receive_queue)) != NULL) {
344                 if (skb->sk != sk) {            /* A pending connection */
345                         /*
346                          * Queue the unaccepted socket for death
347                          */
348                         sock_set_flag(skb->sk, SOCK_DEAD);
349                         x25_start_heartbeat(skb->sk);
350                         x25_sk(skb->sk)->state = X25_STATE_0;
351                 }
352
353                 kfree_skb(skb);
354         }
355
356         if (atomic_read(&sk->sk_wmem_alloc) ||
357             atomic_read(&sk->sk_rmem_alloc)) {
358                 /* Defer: outstanding buffers */
359                 sk->sk_timer.expires  = jiffies + 10 * HZ;
360                 sk->sk_timer.function = x25_destroy_timer;
361                 sk->sk_timer.data = (unsigned long)sk;
362                 add_timer(&sk->sk_timer);
363         } else {
364                 /* drop last reference so sock_put will free */
365                 __sock_put(sk);
366         }
367
368         release_sock(sk);
369         sock_put(sk);
370 }
371
372 /*
373  *      Handling for system calls applied via the various interfaces to a
374  *      X.25 socket object.
375  */
376
377 static int x25_setsockopt(struct socket *sock, int level, int optname,
378                           char __user *optval, int optlen)
379 {
380         int opt;
381         struct sock *sk = sock->sk;
382         int rc = -ENOPROTOOPT;
383
384         if (level != SOL_X25 || optname != X25_QBITINCL)
385                 goto out;
386
387         rc = -EINVAL;
388         if (optlen < sizeof(int))
389                 goto out;
390
391         rc = -EFAULT;
392         if (get_user(opt, (int __user *)optval))
393                 goto out;
394
395         x25_sk(sk)->qbitincl = !!opt;
396         rc = 0;
397 out:
398         return rc;
399 }
400
401 static int x25_getsockopt(struct socket *sock, int level, int optname,
402                           char __user *optval, int __user *optlen)
403 {
404         struct sock *sk = sock->sk;
405         int val, len, rc = -ENOPROTOOPT;
406         
407         if (level != SOL_X25 || optname != X25_QBITINCL)
408                 goto out;
409
410         rc = -EFAULT;
411         if (get_user(len, optlen))
412                 goto out;
413
414         len = min_t(unsigned int, len, sizeof(int));
415
416         rc = -EINVAL;
417         if (len < 0)
418                 goto out;
419                 
420         rc = -EFAULT;
421         if (put_user(len, optlen))
422                 goto out;
423
424         val = x25_sk(sk)->qbitincl;
425         rc = copy_to_user(optval, &val, len) ? -EFAULT : 0;
426 out:
427         return rc;
428 }
429
430 static int x25_listen(struct socket *sock, int backlog)
431 {
432         struct sock *sk = sock->sk;
433         int rc = -EOPNOTSUPP;
434
435         if (sk->sk_state != TCP_LISTEN) {
436                 memset(&x25_sk(sk)->dest_addr, 0, X25_ADDR_LEN);
437                 sk->sk_max_ack_backlog = backlog;
438                 sk->sk_state           = TCP_LISTEN;
439                 rc = 0;
440         }
441
442         return rc;
443 }
444
445 static struct sock *x25_alloc_socket(void)
446 {
447         struct x25_opt *x25;
448         struct sock *sk = sk_alloc(AF_X25, GFP_ATOMIC, 1, NULL);
449
450         if (!sk)
451                 goto out;
452
453         x25 = sk->sk_protinfo = kmalloc(sizeof(*x25), GFP_ATOMIC);
454         if (!x25)
455                 goto frees;
456
457         memset(x25, 0, sizeof(*x25));
458
459         x25->sk = sk;
460
461         sock_init_data(NULL, sk);
462         sk_set_owner(sk, THIS_MODULE);
463
464         skb_queue_head_init(&x25->ack_queue);
465         skb_queue_head_init(&x25->fragment_queue);
466         skb_queue_head_init(&x25->interrupt_in_queue);
467         skb_queue_head_init(&x25->interrupt_out_queue);
468 out:
469         return sk;
470 frees:
471         sk_free(sk);
472         sk = NULL;
473         goto out;
474 }
475
476 void x25_init_timers(struct sock *sk);
477
478 static int x25_create(struct socket *sock, int protocol)
479 {
480         struct sock *sk;
481         struct x25_opt *x25;
482         int rc = -ESOCKTNOSUPPORT;
483
484         if (sock->type != SOCK_SEQPACKET || protocol)
485                 goto out;
486
487         rc = -ENOMEM;
488         if ((sk = x25_alloc_socket()) == NULL)
489                 goto out;
490
491         x25 = x25_sk(sk);
492
493         sk->sk_socket = sock;
494         sk->sk_type = sock->type;
495         sk->sk_sleep = &sock->wait;
496         sock->sk = sk;
497
498         x25_init_timers(sk);
499
500         sock->ops    = &x25_proto_ops;
501         sk->sk_protocol = protocol;
502         sk->sk_backlog_rcv = x25_backlog_rcv;
503
504         x25->t21   = sysctl_x25_call_request_timeout;
505         x25->t22   = sysctl_x25_reset_request_timeout;
506         x25->t23   = sysctl_x25_clear_request_timeout;
507         x25->t2    = sysctl_x25_ack_holdback_timeout;
508         x25->state = X25_STATE_0;
509
510         x25->facilities.winsize_in  = X25_DEFAULT_WINDOW_SIZE;
511         x25->facilities.winsize_out = X25_DEFAULT_WINDOW_SIZE;
512         x25->facilities.pacsize_in  = X25_DEFAULT_PACKET_SIZE;
513         x25->facilities.pacsize_out = X25_DEFAULT_PACKET_SIZE;
514         x25->facilities.throughput  = X25_DEFAULT_THROUGHPUT;
515         x25->facilities.reverse     = X25_DEFAULT_REVERSE;
516         rc = 0;
517 out:
518         return rc;
519 }
520
521 static struct sock *x25_make_new(struct sock *osk)
522 {
523         struct sock *sk = NULL;
524         struct x25_opt *x25, *ox25;
525
526         if (osk->sk_type != SOCK_SEQPACKET)
527                 goto out;
528
529         if ((sk = x25_alloc_socket()) == NULL)
530                 goto out;
531
532         x25 = x25_sk(sk);
533
534         sk->sk_type        = osk->sk_type;
535         sk->sk_socket      = osk->sk_socket;
536         sk->sk_priority    = osk->sk_priority;
537         sk->sk_protocol    = osk->sk_protocol;
538         sk->sk_rcvbuf      = osk->sk_rcvbuf;
539         sk->sk_sndbuf      = osk->sk_sndbuf;
540         sk->sk_debug       = osk->sk_debug;
541         sk->sk_state       = TCP_ESTABLISHED;
542         sk->sk_sleep       = osk->sk_sleep;
543         sk->sk_zapped      = osk->sk_zapped;
544         sk->sk_backlog_rcv = osk->sk_backlog_rcv;
545
546         ox25 = x25_sk(osk);
547         x25->t21        = ox25->t21;
548         x25->t22        = ox25->t22;
549         x25->t23        = ox25->t23;
550         x25->t2         = ox25->t2;
551         x25->facilities = ox25->facilities;
552         x25->qbitincl   = ox25->qbitincl;
553
554         x25_init_timers(sk);
555 out:
556         return sk;
557 }
558
559 static int x25_release(struct socket *sock)
560 {
561         struct sock *sk = sock->sk;
562         struct x25_opt *x25;
563
564         if (!sk)
565                 goto out;
566
567         x25 = x25_sk(sk);
568
569         switch (x25->state) {
570
571                 case X25_STATE_0:
572                 case X25_STATE_2:
573                         x25_disconnect(sk, 0, 0, 0);
574                         x25_destroy_socket(sk);
575                         goto out;
576
577                 case X25_STATE_1:
578                 case X25_STATE_3:
579                 case X25_STATE_4:
580                         x25_clear_queues(sk);
581                         x25_write_internal(sk, X25_CLEAR_REQUEST);
582                         x25_start_t23timer(sk);
583                         x25->state = X25_STATE_2;
584                         sk->sk_state    = TCP_CLOSE;
585                         sk->sk_shutdown |= SEND_SHUTDOWN;
586                         sk->sk_state_change(sk);
587                         sock_set_flag(sk, SOCK_DEAD);
588                         sock_set_flag(sk, SOCK_DESTROY);
589                         break;
590         }
591
592         sock->sk        = NULL; 
593         sk->sk_socket   = NULL; /* Not used, but we should do this */
594 out:
595         return 0;
596 }
597
598 static int x25_bind(struct socket *sock, struct sockaddr *uaddr, int addr_len)
599 {
600         struct sock *sk = sock->sk;
601         struct sockaddr_x25 *addr = (struct sockaddr_x25 *)uaddr;
602
603         if (!sk->sk_zapped ||
604             addr_len != sizeof(struct sockaddr_x25) ||
605             addr->sx25_family != AF_X25)
606                 return -EINVAL;
607
608         x25_sk(sk)->source_addr = addr->sx25_addr;
609         x25_insert_socket(sk);
610         sk->sk_zapped = 0;
611         SOCK_DEBUG(sk, "x25_bind: socket is bound\n");
612
613         return 0;
614 }
615
616 static int x25_wait_for_connection_establishment(struct sock *sk)
617 {
618         DECLARE_WAITQUEUE(wait, current);
619         int rc;
620
621         add_wait_queue_exclusive(sk->sk_sleep, &wait);
622         for (;;) {
623                 __set_current_state(TASK_INTERRUPTIBLE);
624                 rc = -ERESTARTSYS;
625                 if (signal_pending(current))
626                         break;
627                 rc = sock_error(sk);
628                 if (rc) {
629                         sk->sk_socket->state = SS_UNCONNECTED;
630                         break;
631                 }
632                 rc = 0;
633                 if (sk->sk_state != TCP_ESTABLISHED) {
634                         release_sock(sk);
635                         schedule();
636                         lock_sock(sk);
637                 } else
638                         break;
639         }
640         __set_current_state(TASK_RUNNING);
641         remove_wait_queue(sk->sk_sleep, &wait);
642         return rc;
643 }
644
645 static int x25_connect(struct socket *sock, struct sockaddr *uaddr,
646                        int addr_len, int flags)
647 {
648         struct sock *sk = sock->sk;
649         struct x25_opt *x25 = x25_sk(sk);
650         struct sockaddr_x25 *addr = (struct sockaddr_x25 *)uaddr;
651         struct x25_route *rt;
652         int rc = 0;
653
654         lock_sock(sk);
655         if (sk->sk_state == TCP_ESTABLISHED && sock->state == SS_CONNECTING) {
656                 sock->state = SS_CONNECTED;
657                 goto out; /* Connect completed during a ERESTARTSYS event */
658         }
659
660         rc = -ECONNREFUSED;
661         if (sk->sk_state == TCP_CLOSE && sock->state == SS_CONNECTING) {
662                 sock->state = SS_UNCONNECTED;
663                 goto out;
664         }
665
666         rc = -EISCONN;  /* No reconnect on a seqpacket socket */
667         if (sk->sk_state == TCP_ESTABLISHED)
668                 goto out;
669
670         sk->sk_state   = TCP_CLOSE;     
671         sock->state = SS_UNCONNECTED;
672
673         rc = -EINVAL;
674         if (addr_len != sizeof(struct sockaddr_x25) ||
675             addr->sx25_family != AF_X25)
676                 goto out;
677
678         rc = -ENETUNREACH;
679         rt = x25_get_route(&addr->sx25_addr);
680         if (!rt)
681                 goto out;
682
683         x25->neighbour = x25_get_neigh(rt->dev);
684         if (!x25->neighbour)
685                 goto out_put_route;
686
687         x25_limit_facilities(&x25->facilities, x25->neighbour);
688
689         x25->lci = x25_new_lci(x25->neighbour);
690         if (!x25->lci)
691                 goto out_put_neigh;
692
693         rc = -EINVAL;
694         if (sk->sk_zapped) /* Must bind first - autobinding does not work */
695                 goto out_put_neigh;
696
697         if (!strcmp(x25->source_addr.x25_addr, null_x25_address.x25_addr))
698                 memset(&x25->source_addr, '\0', X25_ADDR_LEN);
699
700         x25->dest_addr = addr->sx25_addr;
701
702         /* Move to connecting socket, start sending Connect Requests */
703         sock->state   = SS_CONNECTING;
704         sk->sk_state  = TCP_SYN_SENT;
705
706         x25->state = X25_STATE_1;
707
708         x25_write_internal(sk, X25_CALL_REQUEST);
709
710         x25_start_heartbeat(sk);
711         x25_start_t21timer(sk);
712
713         /* Now the loop */
714         rc = -EINPROGRESS;
715         if (sk->sk_state != TCP_ESTABLISHED && (flags & O_NONBLOCK))
716                 goto out_put_neigh;
717
718         rc = x25_wait_for_connection_establishment(sk);
719         if (rc)
720                 goto out_put_neigh;
721
722         sock->state = SS_CONNECTED;
723         rc = 0;
724 out_put_neigh:
725         if (rc)
726                 x25_neigh_put(x25->neighbour);
727 out_put_route:
728         x25_route_put(rt);
729 out:
730         release_sock(sk);
731         return rc;
732 }
733
734 static int x25_wait_for_data(struct sock *sk, int timeout)
735 {
736         DECLARE_WAITQUEUE(wait, current);
737         int rc = 0;
738
739         add_wait_queue_exclusive(sk->sk_sleep, &wait);
740         for (;;) {
741                 __set_current_state(TASK_INTERRUPTIBLE);
742                 if (sk->sk_shutdown & RCV_SHUTDOWN)
743                         break;
744                 rc = -ERESTARTSYS;
745                 if (signal_pending(current))
746                         break;
747                 rc = -EAGAIN;
748                 if (!timeout)
749                         break;
750                 rc = 0;
751                 if (skb_queue_empty(&sk->sk_receive_queue)) {
752                         release_sock(sk);
753                         timeout = schedule_timeout(timeout);
754                         lock_sock(sk);
755                 } else
756                         break;
757         }
758         __set_current_state(TASK_RUNNING);
759         remove_wait_queue(sk->sk_sleep, &wait);
760         return rc;
761 }
762         
763 static int x25_accept(struct socket *sock, struct socket *newsock, int flags)
764 {
765         struct sock *sk = sock->sk;
766         struct sock *newsk;
767         struct sk_buff *skb;
768         int rc = -EINVAL;
769
770         if (!sk || sk->sk_state != TCP_LISTEN)
771                 goto out;
772
773         rc = -EOPNOTSUPP;
774         if (sk->sk_type != SOCK_SEQPACKET)
775                 goto out;
776
777         lock_sock(sk);
778         rc = x25_wait_for_data(sk, sk->sk_rcvtimeo);
779         if (rc)
780                 goto out2;
781         skb = skb_dequeue(&sk->sk_receive_queue);
782         rc = -EINVAL;
783         if (!skb->sk)
784                 goto out2;
785         newsk            = skb->sk;
786         newsk->sk_socket = newsock;
787         newsk->sk_sleep  = &newsock->wait;
788
789         /* Now attach up the new socket */
790         skb->sk = NULL;
791         kfree_skb(skb);
792         sk->sk_ack_backlog--;
793         newsock->sk    = newsk;
794         newsock->state = SS_CONNECTED;
795         rc = 0;
796 out2:
797         release_sock(sk);
798 out:
799         return rc;
800 }
801
802 static int x25_getname(struct socket *sock, struct sockaddr *uaddr,
803                        int *uaddr_len, int peer)
804 {
805         struct sockaddr_x25 *sx25 = (struct sockaddr_x25 *)uaddr;
806         struct sock *sk = sock->sk;
807         struct x25_opt *x25 = x25_sk(sk);
808
809         if (peer) {
810                 if (sk->sk_state != TCP_ESTABLISHED)
811                         return -ENOTCONN;
812                 sx25->sx25_addr = x25->dest_addr;
813         } else
814                 sx25->sx25_addr = x25->source_addr;
815
816         sx25->sx25_family = AF_X25;
817         *uaddr_len = sizeof(*sx25);
818
819         return 0;
820 }
821  
822 int x25_rx_call_request(struct sk_buff *skb, struct x25_neigh *nb,
823                         unsigned int lci)
824 {
825         struct sock *sk;
826         struct sock *make;
827         struct x25_opt *makex25;
828         struct x25_address source_addr, dest_addr;
829         struct x25_facilities facilities;
830         struct x25_calluserdata calluserdata;
831         int len, rc;
832
833         /*
834          *      Remove the LCI and frame type.
835          */
836         skb_pull(skb, X25_STD_MIN_LEN);
837
838         /*
839          *      Extract the X.25 addresses and convert them to ASCII strings,
840          *      and remove them.
841          */
842         skb_pull(skb, x25_addr_ntoa(skb->data, &source_addr, &dest_addr));
843
844         /*
845          *      Get the length of the facilities, skip past them for the moment
846          *      get the call user data because this is needed to determine
847          *      the correct listener
848          */
849         len = skb->data[0] + 1;
850         skb_pull(skb,len);
851
852         /*
853          *      Incoming Call User Data.
854          */
855         if (skb->len >= 0) {
856                 memcpy(calluserdata.cuddata, skb->data, skb->len);
857                 calluserdata.cudlength = skb->len;
858         }
859
860         skb_push(skb,len);
861
862         /*
863          *      Find a listener for the particular address/cud pair.
864          */
865         sk = x25_find_listener(&source_addr,&calluserdata);
866
867         /*
868          *      We can't accept the Call Request.
869          */
870         if (!sk || sk->sk_ack_backlog == sk->sk_max_ack_backlog)
871                 goto out_clear_request;
872
873         /*
874          *      Try to reach a compromise on the requested facilities.
875          */
876         if ((len = x25_negotiate_facilities(skb, sk, &facilities)) == -1)
877                 goto out_sock_put;
878
879         /*
880          * current neighbour/link might impose additional limits
881          * on certain facilties
882          */
883
884         x25_limit_facilities(&facilities, nb);
885
886         /*
887          *      Try to create a new socket.
888          */
889         make = x25_make_new(sk);
890         if (!make)
891                 goto out_sock_put;
892
893         /*
894          *      Remove the facilities
895          */
896         skb_pull(skb, len);
897
898         skb->sk     = make;
899         make->sk_state = TCP_ESTABLISHED;
900
901         makex25 = x25_sk(make);
902         makex25->lci           = lci;
903         makex25->dest_addr     = dest_addr;
904         makex25->source_addr   = source_addr;
905         makex25->neighbour     = nb;
906         makex25->facilities    = facilities;
907         makex25->vc_facil_mask = x25_sk(sk)->vc_facil_mask;
908         makex25->calluserdata  = calluserdata;
909
910         x25_write_internal(make, X25_CALL_ACCEPTED);
911
912         makex25->state = X25_STATE_3;
913
914         sk->sk_ack_backlog++;
915
916         x25_insert_socket(make);
917
918         skb_queue_head(&sk->sk_receive_queue, skb);
919
920         x25_start_heartbeat(make);
921
922         if (!sock_flag(sk, SOCK_DEAD))
923                 sk->sk_data_ready(sk, skb->len);
924         rc = 1;
925         sock_put(sk);
926 out:
927         return rc;
928 out_sock_put:
929         sock_put(sk);
930 out_clear_request:
931         rc = 0;
932         x25_transmit_clear_request(nb, lci, 0x01);
933         goto out;
934 }
935
936 static int x25_sendmsg(struct kiocb *iocb, struct socket *sock,
937                        struct msghdr *msg, size_t len)
938 {
939         struct sock *sk = sock->sk;
940         struct x25_opt *x25 = x25_sk(sk);
941         struct sockaddr_x25 *usx25 = (struct sockaddr_x25 *)msg->msg_name;
942         struct sockaddr_x25 sx25;
943         struct sk_buff *skb;
944         unsigned char *asmptr;
945         int noblock = msg->msg_flags & MSG_DONTWAIT;
946         size_t size;
947         int qbit = 0, rc = -EINVAL;
948
949         if (msg->msg_flags & ~(MSG_DONTWAIT|MSG_OOB|MSG_EOR|MSG_CMSG_COMPAT))
950                 goto out;
951
952         /* we currently don't support segmented records at the user interface */
953         if (!(msg->msg_flags & (MSG_EOR|MSG_OOB)))
954                 goto out;
955
956         rc = -EADDRNOTAVAIL;
957         if (sk->sk_zapped)
958                 goto out;
959
960         rc = -EPIPE;
961         if (sk->sk_shutdown & SEND_SHUTDOWN) {
962                 send_sig(SIGPIPE, current, 0);
963                 goto out;
964         }
965
966         rc = -ENETUNREACH;
967         if (!x25->neighbour)
968                 goto out;
969
970         if (usx25) {
971                 rc = -EINVAL;
972                 if (msg->msg_namelen < sizeof(sx25))
973                         goto out;
974                 memcpy(&sx25, usx25, sizeof(sx25));
975                 rc = -EISCONN;
976                 if (strcmp(x25->dest_addr.x25_addr, sx25.sx25_addr.x25_addr))
977                         goto out;
978                 rc = -EINVAL;
979                 if (sx25.sx25_family != AF_X25)
980                         goto out;
981         } else {
982                 /*
983                  *      FIXME 1003.1g - if the socket is like this because
984                  *      it has become closed (not started closed) we ought
985                  *      to SIGPIPE, EPIPE;
986                  */
987                 rc = -ENOTCONN;
988                 if (sk->sk_state != TCP_ESTABLISHED)
989                         goto out;
990
991                 sx25.sx25_family = AF_X25;
992                 sx25.sx25_addr   = x25->dest_addr;
993         }
994
995         SOCK_DEBUG(sk, "x25_sendmsg: sendto: Addresses built.\n");
996
997         /* Build a packet */
998         SOCK_DEBUG(sk, "x25_sendmsg: sendto: building packet.\n");
999
1000         if ((msg->msg_flags & MSG_OOB) && len > 32)
1001                 len = 32;
1002
1003         size = len + X25_MAX_L2_LEN + X25_EXT_MIN_LEN;
1004
1005         skb = sock_alloc_send_skb(sk, size, noblock, &rc);
1006         if (!skb)
1007                 goto out;
1008         X25_SKB_CB(skb)->flags = msg->msg_flags;
1009
1010         skb_reserve(skb, X25_MAX_L2_LEN + X25_EXT_MIN_LEN);
1011
1012         /*
1013          *      Put the data on the end
1014          */
1015         SOCK_DEBUG(sk, "x25_sendmsg: Copying user data\n");
1016
1017         asmptr = skb->h.raw = skb_put(skb, len);
1018
1019         rc = memcpy_fromiovec(asmptr, msg->msg_iov, len);
1020         if (rc)
1021                 goto out_kfree_skb;
1022
1023         /*
1024          *      If the Q BIT Include socket option is in force, the first
1025          *      byte of the user data is the logical value of the Q Bit.
1026          */
1027         if (x25->qbitincl) {
1028                 qbit = skb->data[0];
1029                 skb_pull(skb, 1);
1030         }
1031
1032         /*
1033          *      Push down the X.25 header
1034          */
1035         SOCK_DEBUG(sk, "x25_sendmsg: Building X.25 Header.\n");
1036
1037         if (msg->msg_flags & MSG_OOB) {
1038                 if (x25->neighbour->extended) {
1039                         asmptr    = skb_push(skb, X25_STD_MIN_LEN);
1040                         *asmptr++ = ((x25->lci >> 8) & 0x0F) | X25_GFI_EXTSEQ;
1041                         *asmptr++ = (x25->lci >> 0) & 0xFF;
1042                         *asmptr++ = X25_INTERRUPT;
1043                 } else {
1044                         asmptr    = skb_push(skb, X25_STD_MIN_LEN);
1045                         *asmptr++ = ((x25->lci >> 8) & 0x0F) | X25_GFI_STDSEQ;
1046                         *asmptr++ = (x25->lci >> 0) & 0xFF;
1047                         *asmptr++ = X25_INTERRUPT;
1048                 }
1049         } else {
1050                 if (x25->neighbour->extended) {
1051                         /* Build an Extended X.25 header */
1052                         asmptr    = skb_push(skb, X25_EXT_MIN_LEN);
1053                         *asmptr++ = ((x25->lci >> 8) & 0x0F) | X25_GFI_EXTSEQ;
1054                         *asmptr++ = (x25->lci >> 0) & 0xFF;
1055                         *asmptr++ = X25_DATA;
1056                         *asmptr++ = X25_DATA;
1057                 } else {
1058                         /* Build an Standard X.25 header */
1059                         asmptr    = skb_push(skb, X25_STD_MIN_LEN);
1060                         *asmptr++ = ((x25->lci >> 8) & 0x0F) | X25_GFI_STDSEQ;
1061                         *asmptr++ = (x25->lci >> 0) & 0xFF;
1062                         *asmptr++ = X25_DATA;
1063                 }
1064
1065                 if (qbit)
1066                         skb->data[0] |= X25_Q_BIT;
1067         }
1068
1069         SOCK_DEBUG(sk, "x25_sendmsg: Built header.\n");
1070         SOCK_DEBUG(sk, "x25_sendmsg: Transmitting buffer\n");
1071
1072         rc = -ENOTCONN;
1073         if (sk->sk_state != TCP_ESTABLISHED)
1074                 goto out_kfree_skb;
1075
1076         if (msg->msg_flags & MSG_OOB)
1077                 skb_queue_tail(&x25->interrupt_out_queue, skb);
1078         else {
1079                 len = x25_output(sk, skb);
1080                 if (len < 0)
1081                         kfree_skb(skb);
1082                 else if (x25->qbitincl)
1083                         len++;
1084         }
1085
1086         /*
1087          * lock_sock() is currently only used to serialize this x25_kick()
1088          * against input-driven x25_kick() calls. It currently only blocks
1089          * incoming packets for this socket and does not protect against
1090          * any other socket state changes and is not called from anywhere
1091          * else. As x25_kick() cannot block and as long as all socket
1092          * operations are BKL-wrapped, we don't need take to care about
1093          * purging the backlog queue in x25_release().
1094          *
1095          * Using lock_sock() to protect all socket operations entirely
1096          * (and making the whole x25 stack SMP aware) unfortunately would
1097          * require major changes to {send,recv}msg and skb allocation methods.
1098          * -> 2.5 ;)
1099          */
1100         lock_sock(sk);
1101         x25_kick(sk);
1102         release_sock(sk);
1103         rc = len;
1104 out:
1105         return rc;
1106 out_kfree_skb:
1107         kfree_skb(skb);
1108         goto out;
1109 }
1110
1111
1112 static int x25_recvmsg(struct kiocb *iocb, struct socket *sock,
1113                        struct msghdr *msg, size_t size,
1114                        int flags)
1115 {
1116         struct sock *sk = sock->sk;
1117         struct x25_opt *x25 = x25_sk(sk);
1118         struct sockaddr_x25 *sx25 = (struct sockaddr_x25 *)msg->msg_name;
1119         size_t copied;
1120         int qbit;
1121         struct sk_buff *skb;
1122         unsigned char *asmptr;
1123         int rc = -ENOTCONN;
1124
1125         /*
1126          * This works for seqpacket too. The receiver has ordered the queue for
1127          * us! We do one quick check first though
1128          */
1129         if (sk->sk_state != TCP_ESTABLISHED)
1130                 goto out;
1131
1132         if (flags & MSG_OOB) {
1133                 rc = -EINVAL;
1134                 if (sock_flag(sk, SOCK_URGINLINE) ||
1135                     !skb_peek(&x25->interrupt_in_queue))
1136                         goto out;
1137
1138                 skb = skb_dequeue(&x25->interrupt_in_queue);
1139
1140                 skb_pull(skb, X25_STD_MIN_LEN);
1141
1142                 /*
1143                  *      No Q bit information on Interrupt data.
1144                  */
1145                 if (x25->qbitincl) {
1146                         asmptr  = skb_push(skb, 1);
1147                         *asmptr = 0x00;
1148                 }
1149
1150                 msg->msg_flags |= MSG_OOB;
1151         } else {
1152                 /* Now we can treat all alike */
1153                 skb = skb_recv_datagram(sk, flags & ~MSG_DONTWAIT,
1154                                         flags & MSG_DONTWAIT, &rc);
1155                 if (!skb)
1156                         goto out;
1157
1158                 qbit = (skb->data[0] & X25_Q_BIT) == X25_Q_BIT;
1159
1160                 skb_pull(skb, x25->neighbour->extended ?
1161                                 X25_EXT_MIN_LEN : X25_STD_MIN_LEN);
1162
1163                 if (x25->qbitincl) {
1164                         asmptr  = skb_push(skb, 1);
1165                         *asmptr = qbit;
1166                 }
1167         }
1168
1169         skb->h.raw = skb->data;
1170
1171         copied = skb->len;
1172
1173         if (copied > size) {
1174                 copied = size;
1175                 msg->msg_flags |= MSG_TRUNC;
1176         }
1177
1178         /* Currently, each datagram always contains a complete record */ 
1179         msg->msg_flags |= MSG_EOR;
1180
1181         rc = skb_copy_datagram_iovec(skb, 0, msg->msg_iov, copied);
1182         if (rc)
1183                 goto out_free_dgram;
1184
1185         if (sx25) {
1186                 sx25->sx25_family = AF_X25;
1187                 sx25->sx25_addr   = x25->dest_addr;
1188         }
1189
1190         msg->msg_namelen = sizeof(struct sockaddr_x25);
1191
1192         lock_sock(sk);
1193         x25_check_rbuf(sk);
1194         release_sock(sk);
1195         rc = copied;
1196 out_free_dgram:
1197         skb_free_datagram(sk, skb);
1198 out:
1199         return rc;
1200 }
1201
1202
1203 static int x25_ioctl(struct socket *sock, unsigned int cmd, unsigned long arg)
1204 {
1205         struct sock *sk = sock->sk;
1206         struct x25_opt *x25 = x25_sk(sk);
1207         void __user *argp = (void __user *)arg;
1208         int rc;
1209
1210         switch (cmd) {
1211                 case TIOCOUTQ: {
1212                         int amount = sk->sk_sndbuf -
1213                                      atomic_read(&sk->sk_wmem_alloc);
1214                         if (amount < 0)
1215                                 amount = 0;
1216                         rc = put_user(amount, (unsigned int __user *)argp);
1217                         break;
1218                 }
1219
1220                 case TIOCINQ: {
1221                         struct sk_buff *skb;
1222                         int amount = 0;
1223                         /*
1224                          * These two are safe on a single CPU system as
1225                          * only user tasks fiddle here
1226                          */
1227                         if ((skb = skb_peek(&sk->sk_receive_queue)) != NULL)
1228                                 amount = skb->len;
1229                         rc = put_user(amount, (unsigned int __user *)argp);
1230                         break;
1231                 }
1232
1233                 case SIOCGSTAMP:
1234                         rc = -EINVAL;
1235                         if (sk)
1236                                 rc = sock_get_timestamp(sk, 
1237                                                 (struct timeval __user *)argp); 
1238                         break;
1239                 case SIOCGIFADDR:
1240                 case SIOCSIFADDR:
1241                 case SIOCGIFDSTADDR:
1242                 case SIOCSIFDSTADDR:
1243                 case SIOCGIFBRDADDR:
1244                 case SIOCSIFBRDADDR:
1245                 case SIOCGIFNETMASK:
1246                 case SIOCSIFNETMASK:
1247                 case SIOCGIFMETRIC:
1248                 case SIOCSIFMETRIC:
1249                         rc = -EINVAL;
1250                         break;
1251                 case SIOCADDRT:
1252                 case SIOCDELRT:
1253                         rc = -EPERM;
1254                         if (!capable(CAP_NET_ADMIN))
1255                                 break;
1256                         rc = x25_route_ioctl(cmd, argp);
1257                         break;
1258                 case SIOCX25GSUBSCRIP:
1259                         rc = x25_subscr_ioctl(cmd, argp);
1260                         break;
1261                 case SIOCX25SSUBSCRIP:
1262                         rc = -EPERM;
1263                         if (!capable(CAP_NET_ADMIN))
1264                                 break;
1265                         rc = x25_subscr_ioctl(cmd, argp);
1266                         break;
1267                 case SIOCX25GFACILITIES: {
1268                         struct x25_facilities fac = x25->facilities;
1269                         rc = copy_to_user(argp, &fac,
1270                                           sizeof(fac)) ? -EFAULT : 0;
1271                         break;
1272                 }
1273
1274                 case SIOCX25SFACILITIES: {
1275                         struct x25_facilities facilities;
1276                         rc = -EFAULT;
1277                         if (copy_from_user(&facilities, argp,
1278                                            sizeof(facilities)))
1279                                 break;
1280                         rc = -EINVAL;
1281                         if (sk->sk_state != TCP_LISTEN &&
1282                             sk->sk_state != TCP_CLOSE)
1283                                 break;
1284                         if (facilities.pacsize_in < X25_PS16 ||
1285                             facilities.pacsize_in > X25_PS4096)
1286                                 break;
1287                         if (facilities.pacsize_out < X25_PS16 ||
1288                             facilities.pacsize_out > X25_PS4096)
1289                                 break;
1290                         if (facilities.winsize_in < 1 ||
1291                             facilities.winsize_in > 127)
1292                                 break;
1293                         if (facilities.throughput < 0x03 ||
1294                             facilities.throughput > 0xDD)
1295                                 break;
1296                         if (facilities.reverse && facilities.reverse != 1)
1297                                 break;
1298                         x25->facilities = facilities;
1299                         rc = 0;
1300                         break;
1301                 }
1302
1303                 case SIOCX25GCALLUSERDATA: {
1304                         struct x25_calluserdata cud = x25->calluserdata;
1305                         rc = copy_to_user(argp, &cud,
1306                                           sizeof(cud)) ? -EFAULT : 0;
1307                         break;
1308                 }
1309
1310                 case SIOCX25SCALLUSERDATA: {
1311                         struct x25_calluserdata calluserdata;
1312
1313                         rc = -EFAULT;
1314                         if (copy_from_user(&calluserdata, argp,
1315                                            sizeof(calluserdata)))
1316                                 break;
1317                         rc = -EINVAL;
1318                         if (calluserdata.cudlength > X25_MAX_CUD_LEN)
1319                                 break;
1320                         x25->calluserdata = calluserdata;
1321                         rc = 0;
1322                         break;
1323                 }
1324
1325                 case SIOCX25GCAUSEDIAG: {
1326                         struct x25_causediag causediag;
1327                         causediag = x25->causediag;
1328                         rc = copy_to_user(argp, &causediag,
1329                                           sizeof(causediag)) ? -EFAULT : 0;
1330                         break;
1331                 }
1332
1333                 default:
1334                         rc = dev_ioctl(cmd, argp);
1335                         break;
1336         }
1337
1338         return rc;
1339 }
1340
1341 static struct net_proto_family x25_family_ops = {
1342         .family =       AF_X25,
1343         .create =       x25_create,
1344         .owner  =       THIS_MODULE,
1345 };
1346
1347 static struct proto_ops SOCKOPS_WRAPPED(x25_proto_ops) = {
1348         .family =       AF_X25,
1349         .owner =        THIS_MODULE,
1350         .release =      x25_release,
1351         .bind =         x25_bind,
1352         .connect =      x25_connect,
1353         .socketpair =   sock_no_socketpair,
1354         .accept =       x25_accept,
1355         .getname =      x25_getname,
1356         .poll =         datagram_poll,
1357         .ioctl =        x25_ioctl,
1358         .listen =       x25_listen,
1359         .shutdown =     sock_no_shutdown,
1360         .setsockopt =   x25_setsockopt,
1361         .getsockopt =   x25_getsockopt,
1362         .sendmsg =      x25_sendmsg,
1363         .recvmsg =      x25_recvmsg,
1364         .mmap =         sock_no_mmap,
1365         .sendpage =     sock_no_sendpage,
1366 };
1367
1368 #include <linux/smp_lock.h>
1369 SOCKOPS_WRAP(x25_proto, AF_X25);
1370
1371 static struct packet_type x25_packet_type = {
1372         .type = __constant_htons(ETH_P_X25),
1373         .func = x25_lapb_receive_frame,
1374 };
1375
1376 static struct notifier_block x25_dev_notifier = {
1377         .notifier_call = x25_device_event,
1378 };
1379
1380 void x25_kill_by_neigh(struct x25_neigh *nb)
1381 {
1382         struct sock *s;
1383         struct hlist_node *node;
1384
1385         write_lock_bh(&x25_list_lock);
1386
1387         sk_for_each(s, node, &x25_list)
1388                 if (x25_sk(s)->neighbour == nb)
1389                         x25_disconnect(s, ENETUNREACH, 0, 0);
1390
1391         write_unlock_bh(&x25_list_lock);
1392 }
1393
1394 static int __init x25_init(void)
1395 {
1396         sock_register(&x25_family_ops);
1397
1398         dev_add_pack(&x25_packet_type);
1399
1400         register_netdevice_notifier(&x25_dev_notifier);
1401
1402         printk(KERN_INFO "X.25 for Linux. Version 0.2 for Linux 2.1.15\n");
1403
1404 #ifdef CONFIG_SYSCTL
1405         x25_register_sysctl();
1406 #endif
1407         x25_proc_init();
1408         return 0;
1409 }
1410 module_init(x25_init);
1411
1412 static void __exit x25_exit(void)
1413 {
1414         x25_proc_exit();
1415         x25_link_free();
1416         x25_route_free();
1417
1418 #ifdef CONFIG_SYSCTL
1419         x25_unregister_sysctl();
1420 #endif
1421
1422         unregister_netdevice_notifier(&x25_dev_notifier);
1423
1424         dev_remove_pack(&x25_packet_type);
1425
1426         sock_unregister(AF_X25);
1427 }
1428 module_exit(x25_exit);
1429
1430 MODULE_AUTHOR("Jonathan Naylor <g4klx@g4klx.demon.co.uk>");
1431 MODULE_DESCRIPTION("The X.25 Packet Layer network layer protocol");
1432 MODULE_LICENSE("GPL");
1433 MODULE_ALIAS_NETPROTO(PF_X25);