drivers/net/wan/dlci.c

   1 /*
   2  * DLCI         Implementation of Frame Relay protocol for Linux, according to
   3  *              RFC 1490.  This generic device provides en/decapsulation for an
   4  *              underlying hardware driver.  Routes & IPs are assigned to these
   5  *              interfaces.  Requires 'dlcicfg' program to create usable
   6  *              interfaces, the initial one, 'dlci' is for IOCTL use only.
   7  *
   8  * Version:     @(#)dlci.c      0.35    4 Jan 1997
   9  *
  10  * Author:      Mike McLagan <mike.mclagan@linux.org>
  11  *
  12  * Changes:
  13  *
  14  *              0.15    Mike Mclagan    Packet freeing, bug in kmalloc call
  15  *                                      DLCI_RET handling
  16  *              0.20    Mike McLagan    More conservative on which packets
  17  *                                      are returned for retry and which are
  18  *                                      are dropped.  If DLCI_RET_DROP is
  19  *                                      returned from the FRAD, the packet is
  20  *                                      sent back to Linux for re-transmission
  21  *              0.25    Mike McLagan    Converted to use SIOC IOCTL calls
  22  *              0.30    Jim Freeman     Fixed to allow IPX traffic
  23  *              0.35    Michael Elizabeth       Fixed incorrect memcpy_fromfs
  24  *
  25  *              This program is free software; you can redistribute it and/or
  26  *              modify it under the terms of the GNU General Public License
  27  *              as published by the Free Software Foundation; either version
  28  *              2 of the License, or (at your option) any later version.
  29  */
  30
  31 #define pr_fmt(fmt) KBUILD_MODNAME ": " fmt
  32
  33 #include <linux/module.h>
  34 #include <linux/kernel.h>
  35 #include <linux/types.h>
  36 #include <linux/fcntl.h>
  37 #include <linux/interrupt.h>
  38 #include <linux/ptrace.h>
  39 #include <linux/ioport.h>
  40 #include <linux/in.h>
  41 #include <linux/init.h>
  42 #include <linux/slab.h>
  43 #include <linux/string.h>
  44 #include <linux/errno.h>
  45 #include <linux/netdevice.h>
  46 #include <linux/skbuff.h>
  47 #include <linux/if_arp.h>
  48 #include <linux/if_frad.h>
  49 #include <linux/bitops.h>
  50
  51 #include <net/sock.h>
  52
  53 #include <asm/io.h>
  54 #include <asm/dma.h>
  55 #include <asm/uaccess.h>
  56
  57 static const char version[] = "DLCI driver v0.35, 4 Jan 1997, mike.mclagan@linux.org";
  58
  59 static LIST_HEAD(dlci_devs);
  60
  61 static void dlci_setup(struct net_device *);
  62
  63 /*
  64  * these encapsulate the RFC 1490 requirements as well as
  65  * deal with packet transmission and reception, working with
  66  * the upper network layers
  67  */
  68
  69 static int dlci_header(struct sk_buff *skb, struct net_device *dev,
  70                        unsigned short type, const void *daddr,
  71                        const void *saddr, unsigned len)
  72 {
  73         struct frhdr            hdr;
  74         unsigned int            hlen;
  75         char                    *dest;
  76
  77         hdr.control = FRAD_I_UI;
  78         switch (type)
  79         {
  80                 case ETH_P_IP:
  81                         hdr.IP_NLPID = FRAD_P_IP;
  82                         hlen = sizeof(hdr.control) + sizeof(hdr.IP_NLPID);
  83                         break;
  84
  85                 /* feel free to add other types, if necessary */
  86
  87                 default:
  88                         hdr.pad = FRAD_P_PADDING;
  89                         hdr.NLPID = FRAD_P_SNAP;
  90                         memset(hdr.OUI, 0, sizeof(hdr.OUI));
  91                         hdr.PID = htons(type);
  92                         hlen = sizeof(hdr);
  93                         break;
  94         }
  95
  96         dest = skb_push(skb, hlen);
  97         if (!dest)
  98                 return 0;
  99
 100         memcpy(dest, &hdr, hlen);
 101
 102         return hlen;
 103 }
 104
 105 static void dlci_receive(struct sk_buff *skb, struct net_device *dev)
 106 {
 107         struct frhdr            *hdr;
 108         int                                     process, header;
 109
 110         if (!pskb_may_pull(skb, sizeof(*hdr))) {
 111                 netdev_notice(dev, "invalid data no header\n");
 112                 dev->stats.rx_errors++;
 113                 kfree_skb(skb);
 114                 return;
 115         }
 116
 117         hdr = (struct frhdr *) skb->data;
 118         process = 0;
 119         header = 0;
 120         skb->dev = dev;
 121
 122         if (hdr->control != FRAD_I_UI)
 123         {
 124                 netdev_notice(dev, "Invalid header flag 0x%02X\n",
 125                               hdr->control);
 126                 dev->stats.rx_errors++;
 127         }
 128         else
 129                 switch (hdr->IP_NLPID)
 130                 {
 131                         case FRAD_P_PADDING:
 132                                 if (hdr->NLPID != FRAD_P_SNAP)
 133                                 {
 134                                         netdev_notice(dev, "Unsupported NLPID 0x%02X\n",
 135                                                       hdr->NLPID);
 136                                         dev->stats.rx_errors++;
 137                                         break;
 138                                 }
 139
 140                                 if (hdr->OUI[0] + hdr->OUI[1] + hdr->OUI[2] != 0)
 141                                 {
 142                                         netdev_notice(dev, "Unsupported organizationally unique identifier 0x%02X-%02X-%02X\n",
 143                                                       hdr->OUI[0],
 144                                                       hdr->OUI[1],
 145                                                       hdr->OUI[2]);
 146                                         dev->stats.rx_errors++;
 147                                         break;
 148                                 }
 149
 150                                 /* at this point, it's an EtherType frame */
 151                                 header = sizeof(struct frhdr);
 152                                 /* Already in network order ! */
 153                                 skb->protocol = hdr->PID;
 154                                 process = 1;
 155                                 break;
 156
 157                         case FRAD_P_IP:
 158                                 header = sizeof(hdr->control) + sizeof(hdr->IP_NLPID);
 159                                 skb->protocol = htons(ETH_P_IP);
 160                                 process = 1;
 161                                 break;
 162
 163                         case FRAD_P_SNAP:
 164                         case FRAD_P_Q933:
 165                         case FRAD_P_CLNP:
 166                                 netdev_notice(dev, "Unsupported NLPID 0x%02X\n",
 167                                               hdr->pad);
 168                                 dev->stats.rx_errors++;
 169                                 break;
 170
 171                         default:
 172                                 netdev_notice(dev, "Invalid pad byte 0x%02X\n",
 173                                               hdr->pad);
 174                                 dev->stats.rx_errors++;
 175                                 break;
 176                 }
 177
 178         if (process)
 179         {
 180                 /* we've set up the protocol, so discard the header */
 181                 skb_reset_mac_header(skb);
 182                 skb_pull(skb, header);
 183                 dev->stats.rx_bytes += skb->len;
 184                 netif_rx(skb);
 185                 dev->stats.rx_packets++;
 186         }
 187         else
 188                 dev_kfree_skb(skb);
 189 }
 190
 191 static netdev_tx_t dlci_transmit(struct sk_buff *skb, struct net_device *dev)
 192 {
 193         struct dlci_local *dlp = netdev_priv(dev);
 194
 195         if (skb)
 196                 dlp->slave->netdev_ops->ndo_start_xmit(skb, dlp->slave);
 197         return NETDEV_TX_OK;
 198 }
 199
 200 static int dlci_config(struct net_device *dev, struct dlci_conf __user *conf, int get)
 201 {
 202         struct dlci_conf        config;
 203         struct dlci_local       *dlp;
 204         struct frad_local       *flp;
 205         int                     err;
 206
 207         dlp = netdev_priv(dev);
 208
 209         flp = netdev_priv(dlp->slave);
 210
 211         if (!get)
 212         {
 213                 if (copy_from_user(&config, conf, sizeof(struct dlci_conf)))
 214                         return -EFAULT;
 215                 if (config.flags & ~DLCI_VALID_FLAGS)
 216                         return -EINVAL;
 217                 memcpy(&dlp->config, &config, sizeof(struct dlci_conf));
 218                 dlp->configured = 1;
 219         }
 220
 221         err = (*flp->dlci_conf)(dlp->slave, dev, get);
 222         if (err)
 223                 return err;
 224
 225         if (get)
 226         {
 227                 if (copy_to_user(conf, &dlp->config, sizeof(struct dlci_conf)))
 228                         return -EFAULT;
 229         }
 230
 231         return 0;
 232 }
 233
 234 static int dlci_dev_ioctl(struct net_device *dev, struct ifreq *ifr, int cmd)
 235 {
 236         struct dlci_local *dlp;
 237
 238         if (!capable(CAP_NET_ADMIN))
 239                 return -EPERM;
 240
 241         dlp = netdev_priv(dev);
 242
 243         switch (cmd)
 244         {
 245                 case DLCI_GET_SLAVE:
 246                         if (!*(short *)(dev->dev_addr))
 247                                 return -EINVAL;
 248
 249                         strncpy(ifr->ifr_slave, dlp->slave->name, sizeof(ifr->ifr_slave));
 250                         break;
 251
 252                 case DLCI_GET_CONF:
 253                 case DLCI_SET_CONF:
 254                         if (!*(short *)(dev->dev_addr))
 255                                 return -EINVAL;
 256
 257                         return dlci_config(dev, ifr->ifr_data, cmd == DLCI_GET_CONF);
 258                         break;
 259
 260                 default:
 261                         return -EOPNOTSUPP;
 262         }
 263         return 0;
 264 }
 265
 266 static int dlci_change_mtu(struct net_device *dev, int new_mtu)
 267 {
 268         struct dlci_local *dlp = netdev_priv(dev);
 269
 270         return dev_set_mtu(dlp->slave, new_mtu);
 271 }
 272
 273 static int dlci_open(struct net_device *dev)
 274 {
 275         struct dlci_local       *dlp;
 276         struct frad_local       *flp;
 277         int                     err;
 278
 279         dlp = netdev_priv(dev);
 280
 281         if (!*(short *)(dev->dev_addr))
 282                 return -EINVAL;
 283
 284         if (!netif_running(dlp->slave))
 285                 return -ENOTCONN;
 286
 287         flp = netdev_priv(dlp->slave);
 288         err = (*flp->activate)(dlp->slave, dev);
 289         if (err)
 290                 return err;
 291
 292         netif_start_queue(dev);
 293
 294         return 0;
 295 }
 296
 297 static int dlci_close(struct net_device *dev)
 298 {
 299         struct dlci_local       *dlp;
 300         struct frad_local       *flp;
 301         int                     err;
 302
 303         netif_stop_queue(dev);
 304
 305         dlp = netdev_priv(dev);
 306
 307         flp = netdev_priv(dlp->slave);
 308         err = (*flp->deactivate)(dlp->slave, dev);
 309
 310         return 0;
 311 }
 312
 313 static int dlci_add(struct dlci_add *dlci)
 314 {
 315         struct net_device       *master, *slave;
 316         struct dlci_local       *dlp;
 317         struct frad_local       *flp;
 318         int                     err = -EINVAL;
 319
 320
 321         /* validate slave device */
 322         slave = dev_get_by_name(&init_net, dlci->devname);
 323         if (!slave)
 324                 return -ENODEV;
 325
 326         if (slave->type != ARPHRD_FRAD || netdev_priv(slave) == NULL)
 327                 goto err1;
 328
 329         /* create device name */
 330         master = alloc_netdev(sizeof(struct dlci_local), "dlci%d",
 331                               NET_NAME_UNKNOWN, dlci_setup);
 332         if (!master) {
 333                 err = -ENOMEM;
 334                 goto err1;
 335         }
 336
 337         /* make sure same slave not already registered */
 338         rtnl_lock();
 339         list_for_each_entry(dlp, &dlci_devs, list) {
 340                 if (dlp->slave == slave) {
 341                         err = -EBUSY;
 342                         goto err2;
 343                 }
 344         }
 345
 346         *(short *)(master->dev_addr) = dlci->dlci;
 347
 348         dlp = netdev_priv(master);
 349         dlp->slave = slave;
 350         dlp->master = master;
 351
 352         flp = netdev_priv(slave);
 353         err = (*flp->assoc)(slave, master);
 354         if (err < 0)
 355                 goto err2;
 356
 357         err = register_netdevice(master);
 358         if (err < 0)
 359                 goto err2;
 360
 361         strcpy(dlci->devname, master->name);
 362
 363         list_add(&dlp->list, &dlci_devs);
 364         rtnl_unlock();
 365
 366         return 0;
 367
 368  err2:
 369         rtnl_unlock();
 370         free_netdev(master);
 371  err1:
 372         dev_put(slave);
 373         return err;
 374 }
 375
 376 static int dlci_del(struct dlci_add *dlci)
 377 {
 378         struct dlci_local       *dlp;
 379         struct frad_local       *flp;
 380         struct net_device       *master, *slave;
 381         int                     err;
 382         bool                    found = false;
 383
 384         rtnl_lock();
 385
 386         /* validate slave device */
 387         master = __dev_get_by_name(&init_net, dlci->devname);
 388         if (!master) {
 389                 err = -ENODEV;
 390                 goto out;
 391         }
 392
 393         list_for_each_entry(dlp, &dlci_devs, list) {
 394                 if (dlp->master == master) {
 395                         found = true;
 396                         break;
 397                 }
 398         }
 399         if (!found) {
 400                 err = -ENODEV;
 401                 goto out;
 402         }
 403
 404         if (netif_running(master)) {
 405                 err = -EBUSY;
 406                 goto out;
 407         }
 408
 409         dlp = netdev_priv(master);
 410         slave = dlp->slave;
 411         flp = netdev_priv(slave);
 412
 413         err = (*flp->deassoc)(slave, master);
 414         if (!err) {
 415                 list_del(&dlp->list);
 416
 417                 unregister_netdevice(master);
 418
 419                 dev_put(slave);
 420         }
 421 out:
 422         rtnl_unlock();
 423         return err;
 424 }
 425
 426 static int dlci_ioctl(unsigned int cmd, void __user *arg)
 427 {
 428         struct dlci_add add;
 429         int err;
 430
 431         if (!capable(CAP_NET_ADMIN))
 432                 return -EPERM;
 433
 434         if (copy_from_user(&add, arg, sizeof(struct dlci_add)))
 435                 return -EFAULT;
 436
 437         switch (cmd)
 438         {
 439                 case SIOCADDDLCI:
 440                         err = dlci_add(&add);
 441
 442                         if (!err)
 443                                 if (copy_to_user(arg, &add, sizeof(struct dlci_add)))
 444                                         return -EFAULT;
 445                         break;
 446
 447                 case SIOCDELDLCI:
 448                         err = dlci_del(&add);
 449                         break;
 450
 451                 default:
 452                         err = -EINVAL;
 453         }
 454
 455         return err;
 456 }
 457
 458 static const struct header_ops dlci_header_ops = {
 459         .create = dlci_header,
 460 };
 461
 462 static const struct net_device_ops dlci_netdev_ops = {
 463         .ndo_open       = dlci_open,
 464         .ndo_stop       = dlci_close,
 465         .ndo_do_ioctl   = dlci_dev_ioctl,
 466         .ndo_start_xmit = dlci_transmit,
 467         .ndo_change_mtu = dlci_change_mtu,
 468 };
 469
 470 static void dlci_setup(struct net_device *dev)
 471 {
 472         struct dlci_local *dlp = netdev_priv(dev);
 473
 474         dev->flags              = 0;
 475         dev->header_ops         = &dlci_header_ops;
 476         dev->netdev_ops         = &dlci_netdev_ops;
 477         dev->destructor         = free_netdev;
 478
 479         dlp->receive            = dlci_receive;
 480
 481         dev->type               = ARPHRD_DLCI;
 482         dev->hard_header_len    = sizeof(struct frhdr);
 483         dev->addr_len           = sizeof(short);
 484
 485 }
 486
 487 /* if slave is unregistering, then cleanup master */
 488 static int dlci_dev_event(struct notifier_block *unused,
 489                           unsigned long event, void *ptr)
 490 {
 491         struct net_device *dev = netdev_notifier_info_to_dev(ptr);
 492
 493         if (dev_net(dev) != &init_net)
 494                 return NOTIFY_DONE;
 495
 496         if (event == NETDEV_UNREGISTER) {
 497                 struct dlci_local *dlp;
 498
 499                 list_for_each_entry(dlp, &dlci_devs, list) {
 500                         if (dlp->slave == dev) {
 501                                 list_del(&dlp->list);
 502                                 unregister_netdevice(dlp->master);
 503                                 dev_put(dlp->slave);
 504                                 break;
 505                         }
 506                 }
 507         }
 508         return NOTIFY_DONE;
 509 }
 510
 511 static struct notifier_block dlci_notifier = {
 512         .notifier_call = dlci_dev_event,
 513 };
 514
 515 static int __init init_dlci(void)
 516 {
 517         dlci_ioctl_set(dlci_ioctl);
 518         register_netdevice_notifier(&dlci_notifier);
 519
 520         printk("%s.\n", version);
 521
 522         return 0;
 523 }
 524
 525 static void __exit dlci_exit(void)
 526 {
 527         struct dlci_local       *dlp, *nxt;
 528
 529         dlci_ioctl_set(NULL);
 530         unregister_netdevice_notifier(&dlci_notifier);
 531
 532         rtnl_lock();
 533         list_for_each_entry_safe(dlp, nxt, &dlci_devs, list) {
 534                 unregister_netdevice(dlp->master);
 535                 dev_put(dlp->slave);
 536         }
 537         rtnl_unlock();
 538 }
 539
 540 module_init(init_dlci);
 541 module_exit(dlci_exit);
 542
 543 MODULE_AUTHOR("Mike McLagan");
 544 MODULE_DESCRIPTION("Frame Relay DLCI layer");
 545 MODULE_LICENSE("GPL");