net/ipv4/ipip.c

   1 /*
   2  *      Linux NET3:     IP/IP protocol decoder.
   3  *
   4  *      Version: $Id: ipip.c,v 1.50 2001/10/02 02:22:36 davem Exp $
   5  *
   6  *      Authors:
   7  *              Sam Lantinga (slouken@cs.ucdavis.edu)  02/01/95
   8  *
   9  *      Fixes:
  10  *              Alan Cox        :       Merged and made usable non modular (its so tiny its silly as
  11  *                                      a module taking up 2 pages).
  12  *              Alan Cox        :       Fixed bug with 1.3.18 and IPIP not working (now needs to set skb->h.iph)
  13  *                                      to keep ip_forward happy.
  14  *              Alan Cox        :       More fixes for 1.3.21, and firewall fix. Maybe this will work soon 8).
  15  *              Kai Schulte     :       Fixed #defines for IP_FIREWALL->FIREWALL
  16  *              David Woodhouse :       Perform some basic ICMP handling.
  17  *                                      IPIP Routing without decapsulation.
  18  *              Carlos Picoto   :       GRE over IP support
  19  *              Alexey Kuznetsov:       Reworked. Really, now it is truncated version of ipv4/ip_gre.c.
  20  *                                      I do not want to merge them together.
  21  *
  22  *      This program is free software; you can redistribute it and/or
  23  *      modify it under the terms of the GNU General Public License
  24  *      as published by the Free Software Foundation; either version
  25  *      2 of the License, or (at your option) any later version.
  26  *
  27  */
  28
  29 /* tunnel.c: an IP tunnel driver
  30
  31         The purpose of this driver is to provide an IP tunnel through
  32         which you can tunnel network traffic transparently across subnets.
  33
  34         This was written by looking at Nick Holloway's dummy driver
  35         Thanks for the great code!
  36
  37                 -Sam Lantinga   (slouken@cs.ucdavis.edu)  02/01/95
  38
  39         Minor tweaks:
  40                 Cleaned up the code a little and added some pre-1.3.0 tweaks.
  41                 dev->hard_header/hard_header_len changed to use no headers.
  42                 Comments/bracketing tweaked.
  43                 Made the tunnels use dev->name not tunnel: when error reporting.
  44                 Added tx_dropped stat
  45
  46                 -Alan Cox       (Alan.Cox@linux.org) 21 March 95
  47
  48         Reworked:
  49                 Changed to tunnel to destination gateway in addition to the
  50                         tunnel's pointopoint address
  51                 Almost completely rewritten
  52                 Note:  There is currently no firewall or ICMP handling done.
  53
  54                 -Sam Lantinga   (slouken@cs.ucdavis.edu) 02/13/96
  55
  56 */
  57
  58 /* Things I wish I had known when writing the tunnel driver:
  59
  60         When the tunnel_xmit() function is called, the skb contains the
  61         packet to be sent (plus a great deal of extra info), and dev
  62         contains the tunnel device that _we_ are.
  63
  64         When we are passed a packet, we are expected to fill in the
  65         source address with our source IP address.
  66
  67         What is the proper way to allocate, copy and free a buffer?
  68         After you allocate it, it is a "0 length" chunk of memory
  69         starting at zero.  If you want to add headers to the buffer
  70         later, you'll have to call "skb_reserve(skb, amount)" with
  71         the amount of memory you want reserved.  Then, you call
  72         "skb_put(skb, amount)" with the amount of space you want in
  73         the buffer.  skb_put() returns a pointer to the top (#0) of
  74         that buffer.  skb->len is set to the amount of space you have
  75         "allocated" with skb_put().  You can then write up to skb->len
  76         bytes to that buffer.  If you need more, you can call skb_put()
  77         again with the additional amount of space you need.  You can
  78         find out how much more space you can allocate by calling
  79         "skb_tailroom(skb)".
  80         Now, to add header space, call "skb_push(skb, header_len)".
  81         This creates space at the beginning of the buffer and returns
  82         a pointer to this new space.  If later you need to strip a
  83         header from a buffer, call "skb_pull(skb, header_len)".
  84         skb_headroom() will return how much space is left at the top
  85         of the buffer (before the main data).  Remember, this headroom
  86         space must be reserved before the skb_put() function is called.
  87         */
  88
  89 /*
  90    This version of net/ipv4/ipip.c is cloned of net/ipv4/ip_gre.c
  91
  92    For comments look at net/ipv4/ip_gre.c --ANK
  93  */
  94
  95
  96 #include <linux/capability.h>
  97 #include <linux/module.h>
  98 #include <linux/types.h>
  99 #include <linux/kernel.h>
 100 #include <asm/uaccess.h>
 101 #include <linux/skbuff.h>
 102 #include <linux/netdevice.h>
 103 #include <linux/in.h>
 104 #include <linux/tcp.h>
 105 #include <linux/udp.h>
 106 #include <linux/if_arp.h>
 107 #include <linux/mroute.h>
 108 #include <linux/init.h>
 109 #include <linux/netfilter_ipv4.h>
 110 #include <linux/if_ether.h>
 111
 112 #include <net/sock.h>
 113 #include <net/ip.h>
 114 #include <net/icmp.h>
 115 #include <net/ipip.h>
 116 #include <net/inet_ecn.h>
 117 #include <net/xfrm.h>
 118
 119 #define HASH_SIZE  16
 120 #define HASH(addr) (((__force u32)addr^((__force u32)addr>>4))&0xF)
 121
 122 static int ipip_fb_tunnel_init(struct net_device *dev);
 123 static int ipip_tunnel_init(struct net_device *dev);
 124 static void ipip_tunnel_setup(struct net_device *dev);
 125
 126 static struct net_device *ipip_fb_tunnel_dev;
 127
 128 static struct ip_tunnel *tunnels_r_l[HASH_SIZE];
 129 static struct ip_tunnel *tunnels_r[HASH_SIZE];
 130 static struct ip_tunnel *tunnels_l[HASH_SIZE];
 131 static struct ip_tunnel *tunnels_wc[1];
 132 static struct ip_tunnel **tunnels[4] = { tunnels_wc, tunnels_l, tunnels_r, tunnels_r_l };
 133
 134 static DEFINE_RWLOCK(ipip_lock);
 135
 136 static struct ip_tunnel * ipip_tunnel_lookup(__be32 remote, __be32 local)
 137 {
 138         unsigned h0 = HASH(remote);
 139         unsigned h1 = HASH(local);
 140         struct ip_tunnel *t;
 141
 142         for (t = tunnels_r_l[h0^h1]; t; t = t->next) {
 143                 if (local == t->parms.iph.saddr &&
 144                     remote == t->parms.iph.daddr && (t->dev->flags&IFF_UP))
 145                         return t;
 146         }
 147         for (t = tunnels_r[h0]; t; t = t->next) {
 148                 if (remote == t->parms.iph.daddr && (t->dev->flags&IFF_UP))
 149                         return t;
 150         }
 151         for (t = tunnels_l[h1]; t; t = t->next) {
 152                 if (local == t->parms.iph.saddr && (t->dev->flags&IFF_UP))
 153                         return t;
 154         }
 155         if ((t = tunnels_wc[0]) != NULL && (t->dev->flags&IFF_UP))
 156                 return t;
 157         return NULL;
 158 }
 159
 160 static struct ip_tunnel **__ipip_bucket(struct ip_tunnel_parm *parms)
 161 {
 162         __be32 remote = parms->iph.daddr;
 163         __be32 local = parms->iph.saddr;
 164         unsigned h = 0;
 165         int prio = 0;
 166
 167         if (remote) {
 168                 prio |= 2;
 169                 h ^= HASH(remote);
 170         }
 171         if (local) {
 172                 prio |= 1;
 173                 h ^= HASH(local);
 174         }
 175         return &tunnels[prio][h];
 176 }
 177
 178 static inline struct ip_tunnel **ipip_bucket(struct ip_tunnel *t)
 179 {
 180         return __ipip_bucket(&t->parms);
 181 }
 182
 183 static void ipip_tunnel_unlink(struct ip_tunnel *t)
 184 {
 185         struct ip_tunnel **tp;
 186
 187         for (tp = ipip_bucket(t); *tp; tp = &(*tp)->next) {
 188                 if (t == *tp) {
 189                         write_lock_bh(&ipip_lock);
 190                         *tp = t->next;
 191                         write_unlock_bh(&ipip_lock);
 192                         break;
 193                 }
 194         }
 195 }
 196
 197 static void ipip_tunnel_link(struct ip_tunnel *t)
 198 {
 199         struct ip_tunnel **tp = ipip_bucket(t);
 200
 201         t->next = *tp;
 202         write_lock_bh(&ipip_lock);
 203         *tp = t;
 204         write_unlock_bh(&ipip_lock);
 205 }
 206
 207 static struct ip_tunnel * ipip_tunnel_locate(struct ip_tunnel_parm *parms, int create)
 208 {
 209         __be32 remote = parms->iph.daddr;
 210         __be32 local = parms->iph.saddr;
 211         struct ip_tunnel *t, **tp, *nt;
 212         struct net_device *dev;
 213         char name[IFNAMSIZ];
 214
 215         for (tp = __ipip_bucket(parms); (t = *tp) != NULL; tp = &t->next) {
 216                 if (local == t->parms.iph.saddr && remote == t->parms.iph.daddr)
 217                         return t;
 218         }
 219         if (!create)
 220                 return NULL;
 221
 222         if (parms->name[0])
 223                 strlcpy(name, parms->name, IFNAMSIZ);
 224         else {
 225                 int i;
 226                 for (i=1; i<100; i++) {
 227                         sprintf(name, "tunl%d", i);
 228                         if (__dev_get_by_name(&init_net, name) == NULL)
 229                                 break;
 230                 }
 231                 if (i==100)
 232                         goto failed;
 233         }
 234
 235         dev = alloc_netdev(sizeof(*t), name, ipip_tunnel_setup);
 236         if (dev == NULL)
 237                 return NULL;
 238
 239         nt = netdev_priv(dev);
 240         dev->init = ipip_tunnel_init;
 241         nt->parms = *parms;
 242
 243         if (register_netdevice(dev) < 0) {
 244                 free_netdev(dev);
 245                 goto failed;
 246         }
 247
 248         dev_hold(dev);
 249         ipip_tunnel_link(nt);
 250         return nt;
 251
 252 failed:
 253         return NULL;
 254 }
 255
 256 static void ipip_tunnel_uninit(struct net_device *dev)
 257 {
 258         if (dev == ipip_fb_tunnel_dev) {
 259                 write_lock_bh(&ipip_lock);
 260                 tunnels_wc[0] = NULL;
 261                 write_unlock_bh(&ipip_lock);
 262         } else
 263                 ipip_tunnel_unlink(netdev_priv(dev));
 264         dev_put(dev);
 265 }
 266
 267 static int ipip_err(struct sk_buff *skb, u32 info)
 268 {
 269 #ifndef I_WISH_WORLD_WERE_PERFECT
 270
 271 /* It is not :-( All the routers (except for Linux) return only
 272    8 bytes of packet payload. It means, that precise relaying of
 273    ICMP in the real Internet is absolutely infeasible.
 274  */
 275         struct iphdr *iph = (struct iphdr*)skb->data;
 276         const int type = icmp_hdr(skb)->type;
 277         const int code = icmp_hdr(skb)->code;
 278         struct ip_tunnel *t;
 279         int err;
 280
 281         switch (type) {
 282         default:
 283         case ICMP_PARAMETERPROB:
 284                 return 0;
 285
 286         case ICMP_DEST_UNREACH:
 287                 switch (code) {
 288                 case ICMP_SR_FAILED:
 289                 case ICMP_PORT_UNREACH:
 290                         /* Impossible event. */
 291                         return 0;
 292                 case ICMP_FRAG_NEEDED:
 293                         /* Soft state for pmtu is maintained by IP core. */
 294                         return 0;
 295                 default:
 296                         /* All others are translated to HOST_UNREACH.
 297                            rfc2003 contains "deep thoughts" about NET_UNREACH,
 298                            I believe they are just ether pollution. --ANK
 299                          */
 300                         break;
 301                 }
 302                 break;
 303         case ICMP_TIME_EXCEEDED:
 304                 if (code != ICMP_EXC_TTL)
 305                         return 0;
 306                 break;
 307         }
 308
 309         err = -ENOENT;
 310
 311         read_lock(&ipip_lock);
 312         t = ipip_tunnel_lookup(iph->daddr, iph->saddr);
 313         if (t == NULL || t->parms.iph.daddr == 0)
 314                 goto out;
 315
 316         err = 0;
 317         if (t->parms.iph.ttl == 0 && type == ICMP_TIME_EXCEEDED)
 318                 goto out;
 319
 320         if (jiffies - t->err_time < IPTUNNEL_ERR_TIMEO)
 321                 t->err_count++;
 322         else
 323                 t->err_count = 1;
 324         t->err_time = jiffies;
 325 out:
 326         read_unlock(&ipip_lock);
 327         return err;
 328 #else
 329         struct iphdr *iph = (struct iphdr*)dp;
 330         int hlen = iph->ihl<<2;
 331         struct iphdr *eiph;
 332         const int type = icmp_hdr(skb)->type;
 333         const int code = icmp_hdr(skb)->code;
 334         int rel_type = 0;
 335         int rel_code = 0;
 336         __be32 rel_info = 0;
 337         __u32 n = 0;
 338         struct sk_buff *skb2;
 339         struct flowi fl;
 340         struct rtable *rt;
 341
 342         if (len < hlen + sizeof(struct iphdr))
 343                 return 0;
 344         eiph = (struct iphdr*)(dp + hlen);
 345
 346         switch (type) {
 347         default:
 348                 return 0;
 349         case ICMP_PARAMETERPROB:
 350                 n = ntohl(icmp_hdr(skb)->un.gateway) >> 24;
 351                 if (n < hlen)
 352                         return 0;
 353
 354                 /* So... This guy found something strange INSIDE encapsulated
 355                    packet. Well, he is fool, but what can we do ?
 356                  */
 357                 rel_type = ICMP_PARAMETERPROB;
 358                 rel_info = htonl((n - hlen) << 24);
 359                 break;
 360
 361         case ICMP_DEST_UNREACH:
 362                 switch (code) {
 363                 case ICMP_SR_FAILED:
 364                 case ICMP_PORT_UNREACH:
 365                         /* Impossible event. */
 366                         return 0;
 367                 case ICMP_FRAG_NEEDED:
 368                         /* And it is the only really necessary thing :-) */
 369                         n = ntohs(icmp_hdr(skb)->un.frag.mtu);
 370                         if (n < hlen+68)
 371                                 return 0;
 372                         n -= hlen;
 373                         /* BSD 4.2 MORE DOES NOT EXIST IN NATURE. */
 374                         if (n > ntohs(eiph->tot_len))
 375                                 return 0;
 376                         rel_info = htonl(n);
 377                         break;
 378                 default:
 379                         /* All others are translated to HOST_UNREACH.
 380                            rfc2003 contains "deep thoughts" about NET_UNREACH,
 381                            I believe, it is just ether pollution. --ANK
 382                          */
 383                         rel_type = ICMP_DEST_UNREACH;
 384                         rel_code = ICMP_HOST_UNREACH;
 385                         break;
 386                 }
 387                 break;
 388         case ICMP_TIME_EXCEEDED:
 389                 if (code != ICMP_EXC_TTL)
 390                         return 0;
 391                 break;
 392         }
 393
 394         /* Prepare fake skb to feed it to icmp_send */
 395         skb2 = skb_clone(skb, GFP_ATOMIC);
 396         if (skb2 == NULL)
 397                 return 0;
 398         dst_release(skb2->dst);
 399         skb2->dst = NULL;
 400         skb_pull(skb2, skb->data - (u8*)eiph);
 401         skb_reset_network_header(skb2);
 402
 403         /* Try to guess incoming interface */
 404         memset(&fl, 0, sizeof(fl));
 405         fl.fl4_daddr = eiph->saddr;
 406         fl.fl4_tos = RT_TOS(eiph->tos);
 407         fl.proto = IPPROTO_IPIP;
 408         if (ip_route_output_key(&init_net, &rt, &key)) {
 409                 kfree_skb(skb2);
 410                 return 0;
 411         }
 412         skb2->dev = rt->u.dst.dev;
 413
 414         /* route "incoming" packet */
 415         if (rt->rt_flags&RTCF_LOCAL) {
 416                 ip_rt_put(rt);
 417                 rt = NULL;
 418                 fl.fl4_daddr = eiph->daddr;
 419                 fl.fl4_src = eiph->saddr;
 420                 fl.fl4_tos = eiph->tos;
 421                 if (ip_route_output_key(&init_net, &rt, &fl) ||
 422                     rt->u.dst.dev->type != ARPHRD_TUNNEL) {
 423                         ip_rt_put(rt);
 424                         kfree_skb(skb2);
 425                         return 0;
 426                 }
 427         } else {
 428                 ip_rt_put(rt);
 429                 if (ip_route_input(skb2, eiph->daddr, eiph->saddr, eiph->tos, skb2->dev) ||
 430                     skb2->dst->dev->type != ARPHRD_TUNNEL) {
 431                         kfree_skb(skb2);
 432                         return 0;
 433                 }
 434         }
 435
 436         /* change mtu on this route */
 437         if (type == ICMP_DEST_UNREACH && code == ICMP_FRAG_NEEDED) {
 438                 if (n > dst_mtu(skb2->dst)) {
 439                         kfree_skb(skb2);
 440                         return 0;
 441                 }
 442                 skb2->dst->ops->update_pmtu(skb2->dst, n);
 443         } else if (type == ICMP_TIME_EXCEEDED) {
 444                 struct ip_tunnel *t = netdev_priv(skb2->dev);
 445                 if (t->parms.iph.ttl) {
 446                         rel_type = ICMP_DEST_UNREACH;
 447                         rel_code = ICMP_HOST_UNREACH;
 448                 }
 449         }
 450
 451         icmp_send(skb2, rel_type, rel_code, rel_info);
 452         kfree_skb(skb2);
 453         return 0;
 454 #endif
 455 }
 456
 457 static inline void ipip_ecn_decapsulate(const struct iphdr *outer_iph,
 458                                         struct sk_buff *skb)
 459 {
 460         struct iphdr *inner_iph = ip_hdr(skb);
 461
 462         if (INET_ECN_is_ce(outer_iph->tos))
 463                 IP_ECN_set_ce(inner_iph);
 464 }
 465
 466 static int ipip_rcv(struct sk_buff *skb)
 467 {
 468         struct ip_tunnel *tunnel;
 469         const struct iphdr *iph = ip_hdr(skb);
 470
 471         read_lock(&ipip_lock);
 472         if ((tunnel = ipip_tunnel_lookup(iph->saddr, iph->daddr)) != NULL) {
 473                 if (!xfrm4_policy_check(NULL, XFRM_POLICY_IN, skb)) {
 474                         read_unlock(&ipip_lock);
 475                         kfree_skb(skb);
 476                         return 0;
 477                 }
 478
 479                 secpath_reset(skb);
 480
 481                 skb->mac_header = skb->network_header;
 482                 skb_reset_network_header(skb);
 483                 skb->protocol = htons(ETH_P_IP);
 484                 skb->pkt_type = PACKET_HOST;
 485
 486                 tunnel->stat.rx_packets++;
 487                 tunnel->stat.rx_bytes += skb->len;
 488                 skb->dev = tunnel->dev;
 489                 dst_release(skb->dst);
 490                 skb->dst = NULL;
 491                 nf_reset(skb);
 492                 ipip_ecn_decapsulate(iph, skb);
 493                 netif_rx(skb);
 494                 read_unlock(&ipip_lock);
 495                 return 0;
 496         }
 497         read_unlock(&ipip_lock);
 498
 499         return -1;
 500 }
 501
 502 /*
 503  *      This function assumes it is being called from dev_queue_xmit()
 504  *      and that skb is filled properly by that function.
 505  */
 506
 507 static int ipip_tunnel_xmit(struct sk_buff *skb, struct net_device *dev)
 508 {
 509         struct ip_tunnel *tunnel = netdev_priv(dev);
 510         struct net_device_stats *stats = &tunnel->stat;
 511         struct iphdr  *tiph = &tunnel->parms.iph;
 512         u8     tos = tunnel->parms.iph.tos;
 513         __be16 df = tiph->frag_off;
 514         struct rtable *rt;                      /* Route to the other host */
 515         struct net_device *tdev;                        /* Device to other host */
 516         struct iphdr  *old_iph = ip_hdr(skb);
 517         struct iphdr  *iph;                     /* Our new IP header */
 518         unsigned int max_headroom;              /* The extra header space needed */
 519         __be32 dst = tiph->daddr;
 520         int    mtu;
 521
 522         if (tunnel->recursion++) {
 523                 tunnel->stat.collisions++;
 524                 goto tx_error;
 525         }
 526
 527         if (skb->protocol != htons(ETH_P_IP))
 528                 goto tx_error;
 529
 530         if (tos&1)
 531                 tos = old_iph->tos;
 532
 533         if (!dst) {
 534                 /* NBMA tunnel */
 535                 if ((rt = (struct rtable*)skb->dst) == NULL) {
 536                         tunnel->stat.tx_fifo_errors++;
 537                         goto tx_error;
 538                 }
 539                 if ((dst = rt->rt_gateway) == 0)
 540                         goto tx_error_icmp;
 541         }
 542
 543         {
 544                 struct flowi fl = { .oif = tunnel->parms.link,
 545                                     .nl_u = { .ip4_u =
 546                                               { .daddr = dst,
 547                                                 .saddr = tiph->saddr,
 548                                                 .tos = RT_TOS(tos) } },
 549                                     .proto = IPPROTO_IPIP };
 550                 if (ip_route_output_key(&init_net, &rt, &fl)) {
 551                         tunnel->stat.tx_carrier_errors++;
 552                         goto tx_error_icmp;
 553                 }
 554         }
 555         tdev = rt->u.dst.dev;
 556
 557         if (tdev == dev) {
 558                 ip_rt_put(rt);
 559                 tunnel->stat.collisions++;
 560                 goto tx_error;
 561         }
 562
 563         if (tiph->frag_off)
 564                 mtu = dst_mtu(&rt->u.dst) - sizeof(struct iphdr);
 565         else
 566                 mtu = skb->dst ? dst_mtu(skb->dst) : dev->mtu;
 567
 568         if (mtu < 68) {
 569                 tunnel->stat.collisions++;
 570                 ip_rt_put(rt);
 571                 goto tx_error;
 572         }
 573         if (skb->dst)
 574                 skb->dst->ops->update_pmtu(skb->dst, mtu);
 575
 576         df |= (old_iph->frag_off&htons(IP_DF));
 577
 578         if ((old_iph->frag_off&htons(IP_DF)) && mtu < ntohs(old_iph->tot_len)) {
 579                 icmp_send(skb, ICMP_DEST_UNREACH, ICMP_FRAG_NEEDED, htonl(mtu));
 580                 ip_rt_put(rt);
 581                 goto tx_error;
 582         }
 583
 584         if (tunnel->err_count > 0) {
 585                 if (jiffies - tunnel->err_time < IPTUNNEL_ERR_TIMEO) {
 586                         tunnel->err_count--;
 587                         dst_link_failure(skb);
 588                 } else
 589                         tunnel->err_count = 0;
 590         }
 591
 592         /*
 593          * Okay, now see if we can stuff it in the buffer as-is.
 594          */
 595         max_headroom = (LL_RESERVED_SPACE(tdev)+sizeof(struct iphdr));
 596
 597         if (skb_headroom(skb) < max_headroom || skb_shared(skb) ||
 598             (skb_cloned(skb) && !skb_clone_writable(skb, 0))) {
 599                 struct sk_buff *new_skb = skb_realloc_headroom(skb, max_headroom);
 600                 if (!new_skb) {
 601                         ip_rt_put(rt);
 602                         stats->tx_dropped++;
 603                         dev_kfree_skb(skb);
 604                         tunnel->recursion--;
 605                         return 0;
 606                 }
 607                 if (skb->sk)
 608                         skb_set_owner_w(new_skb, skb->sk);
 609                 dev_kfree_skb(skb);
 610                 skb = new_skb;
 611                 old_iph = ip_hdr(skb);
 612         }
 613
 614         skb->transport_header = skb->network_header;
 615         skb_push(skb, sizeof(struct iphdr));
 616         skb_reset_network_header(skb);
 617         memset(&(IPCB(skb)->opt), 0, sizeof(IPCB(skb)->opt));
 618         IPCB(skb)->flags &= ~(IPSKB_XFRM_TUNNEL_SIZE | IPSKB_XFRM_TRANSFORMED |
 619                               IPSKB_REROUTED);
 620         dst_release(skb->dst);
 621         skb->dst = &rt->u.dst;
 622
 623         /*
 624          *      Push down and install the IPIP header.
 625          */
 626
 627         iph                     =       ip_hdr(skb);
 628         iph->version            =       4;
 629         iph->ihl                =       sizeof(struct iphdr)>>2;
 630         iph->frag_off           =       df;
 631         iph->protocol           =       IPPROTO_IPIP;
 632         iph->tos                =       INET_ECN_encapsulate(tos, old_iph->tos);
 633         iph->daddr              =       rt->rt_dst;
 634         iph->saddr              =       rt->rt_src;
 635
 636         if ((iph->ttl = tiph->ttl) == 0)
 637                 iph->ttl        =       old_iph->ttl;
 638
 639         nf_reset(skb);
 640
 641         IPTUNNEL_XMIT();
 642         tunnel->recursion--;
 643         return 0;
 644
 645 tx_error_icmp:
 646         dst_link_failure(skb);
 647 tx_error:
 648         stats->tx_errors++;
 649         dev_kfree_skb(skb);
 650         tunnel->recursion--;
 651         return 0;
 652 }
 653
 654 static void ipip_tunnel_bind_dev(struct net_device *dev)
 655 {
 656         struct net_device *tdev = NULL;
 657         struct ip_tunnel *tunnel;
 658         struct iphdr *iph;
 659
 660         tunnel = netdev_priv(dev);
 661         iph = &tunnel->parms.iph;
 662
 663         if (iph->daddr) {
 664                 struct flowi fl = { .oif = tunnel->parms.link,
 665                                     .nl_u = { .ip4_u =
 666                                               { .daddr = iph->daddr,
 667                                                 .saddr = iph->saddr,
 668                                                 .tos = RT_TOS(iph->tos) } },
 669                                     .proto = IPPROTO_IPIP };
 670                 struct rtable *rt;
 671                 if (!ip_route_output_key(&init_net, &rt, &fl)) {
 672                         tdev = rt->u.dst.dev;
 673                         ip_rt_put(rt);
 674                 }
 675                 dev->flags |= IFF_POINTOPOINT;
 676         }
 677
 678         if (!tdev && tunnel->parms.link)
 679                 tdev = __dev_get_by_index(&init_net, tunnel->parms.link);
 680
 681         if (tdev) {
 682                 dev->hard_header_len = tdev->hard_header_len + sizeof(struct iphdr);
 683                 dev->mtu = tdev->mtu - sizeof(struct iphdr);
 684         }
 685         dev->iflink = tunnel->parms.link;
 686 }
 687
 688 static int
 689 ipip_tunnel_ioctl (struct net_device *dev, struct ifreq *ifr, int cmd)
 690 {
 691         int err = 0;
 692         struct ip_tunnel_parm p;
 693         struct ip_tunnel *t;
 694
 695         switch (cmd) {
 696         case SIOCGETTUNNEL:
 697                 t = NULL;
 698                 if (dev == ipip_fb_tunnel_dev) {
 699                         if (copy_from_user(&p, ifr->ifr_ifru.ifru_data, sizeof(p))) {
 700                                 err = -EFAULT;
 701                                 break;
 702                         }
 703                         t = ipip_tunnel_locate(&p, 0);
 704                 }
 705                 if (t == NULL)
 706                         t = netdev_priv(dev);
 707                 memcpy(&p, &t->parms, sizeof(p));
 708                 if (copy_to_user(ifr->ifr_ifru.ifru_data, &p, sizeof(p)))
 709                         err = -EFAULT;
 710                 break;
 711
 712         case SIOCADDTUNNEL:
 713         case SIOCCHGTUNNEL:
 714                 err = -EPERM;
 715                 if (!capable(CAP_NET_ADMIN))
 716                         goto done;
 717
 718                 err = -EFAULT;
 719                 if (copy_from_user(&p, ifr->ifr_ifru.ifru_data, sizeof(p)))
 720                         goto done;
 721
 722                 err = -EINVAL;
 723                 if (p.iph.version != 4 || p.iph.protocol != IPPROTO_IPIP ||
 724                     p.iph.ihl != 5 || (p.iph.frag_off&htons(~IP_DF)))
 725                         goto done;
 726                 if (p.iph.ttl)
 727                         p.iph.frag_off |= htons(IP_DF);
 728
 729                 t = ipip_tunnel_locate(&p, cmd == SIOCADDTUNNEL);
 730
 731                 if (dev != ipip_fb_tunnel_dev && cmd == SIOCCHGTUNNEL) {
 732                         if (t != NULL) {
 733                                 if (t->dev != dev) {
 734                                         err = -EEXIST;
 735                                         break;
 736                                 }
 737                         } else {
 738                                 if (((dev->flags&IFF_POINTOPOINT) && !p.iph.daddr) ||
 739                                     (!(dev->flags&IFF_POINTOPOINT) && p.iph.daddr)) {
 740                                         err = -EINVAL;
 741                                         break;
 742                                 }
 743                                 t = netdev_priv(dev);
 744                                 ipip_tunnel_unlink(t);
 745                                 t->parms.iph.saddr = p.iph.saddr;
 746                                 t->parms.iph.daddr = p.iph.daddr;
 747                                 memcpy(dev->dev_addr, &p.iph.saddr, 4);
 748                                 memcpy(dev->broadcast, &p.iph.daddr, 4);
 749                                 ipip_tunnel_link(t);
 750                                 netdev_state_change(dev);
 751                         }
 752                 }
 753
 754                 if (t) {
 755                         err = 0;
 756                         if (cmd == SIOCCHGTUNNEL) {
 757                                 t->parms.iph.ttl = p.iph.ttl;
 758                                 t->parms.iph.tos = p.iph.tos;
 759                                 t->parms.iph.frag_off = p.iph.frag_off;
 760                                 if (t->parms.link != p.link) {
 761                                         t->parms.link = p.link;
 762                                         ipip_tunnel_bind_dev(dev);
 763                                         netdev_state_change(dev);
 764                                 }
 765                         }
 766                         if (copy_to_user(ifr->ifr_ifru.ifru_data, &t->parms, sizeof(p)))
 767                                 err = -EFAULT;
 768                 } else
 769                         err = (cmd == SIOCADDTUNNEL ? -ENOBUFS : -ENOENT);
 770                 break;
 771
 772         case SIOCDELTUNNEL:
 773                 err = -EPERM;
 774                 if (!capable(CAP_NET_ADMIN))
 775                         goto done;
 776
 777                 if (dev == ipip_fb_tunnel_dev) {
 778                         err = -EFAULT;
 779                         if (copy_from_user(&p, ifr->ifr_ifru.ifru_data, sizeof(p)))
 780                                 goto done;
 781                         err = -ENOENT;
 782                         if ((t = ipip_tunnel_locate(&p, 0)) == NULL)
 783                                 goto done;
 784                         err = -EPERM;
 785                         if (t->dev == ipip_fb_tunnel_dev)
 786                                 goto done;
 787                         dev = t->dev;
 788                 }
 789                 unregister_netdevice(dev);
 790                 err = 0;
 791                 break;
 792
 793         default:
 794                 err = -EINVAL;
 795         }
 796
 797 done:
 798         return err;
 799 }
 800
 801 static struct net_device_stats *ipip_tunnel_get_stats(struct net_device *dev)
 802 {
 803         return &(((struct ip_tunnel*)netdev_priv(dev))->stat);
 804 }
 805
 806 static int ipip_tunnel_change_mtu(struct net_device *dev, int new_mtu)
 807 {
 808         if (new_mtu < 68 || new_mtu > 0xFFF8 - sizeof(struct iphdr))
 809                 return -EINVAL;
 810         dev->mtu = new_mtu;
 811         return 0;
 812 }
 813
 814 static void ipip_tunnel_setup(struct net_device *dev)
 815 {
 816         dev->uninit             = ipip_tunnel_uninit;
 817         dev->hard_start_xmit    = ipip_tunnel_xmit;
 818         dev->get_stats          = ipip_tunnel_get_stats;
 819         dev->do_ioctl           = ipip_tunnel_ioctl;
 820         dev->change_mtu         = ipip_tunnel_change_mtu;
 821         dev->destructor         = free_netdev;
 822
 823         dev->type               = ARPHRD_TUNNEL;
 824         dev->hard_header_len    = LL_MAX_HEADER + sizeof(struct iphdr);
 825         dev->mtu                = ETH_DATA_LEN - sizeof(struct iphdr);
 826         dev->flags              = IFF_NOARP;
 827         dev->iflink             = 0;
 828         dev->addr_len           = 4;
 829 }
 830
 831 static int ipip_tunnel_init(struct net_device *dev)
 832 {
 833         struct ip_tunnel *tunnel;
 834
 835         tunnel = netdev_priv(dev);
 836
 837         tunnel->dev = dev;
 838         strcpy(tunnel->parms.name, dev->name);
 839
 840         memcpy(dev->dev_addr, &tunnel->parms.iph.saddr, 4);
 841         memcpy(dev->broadcast, &tunnel->parms.iph.daddr, 4);
 842
 843         ipip_tunnel_bind_dev(dev);
 844
 845         return 0;
 846 }
 847
 848 static int __init ipip_fb_tunnel_init(struct net_device *dev)
 849 {
 850         struct ip_tunnel *tunnel = netdev_priv(dev);
 851         struct iphdr *iph = &tunnel->parms.iph;
 852
 853         tunnel->dev = dev;
 854         strcpy(tunnel->parms.name, dev->name);
 855
 856         iph->version            = 4;
 857         iph->protocol           = IPPROTO_IPIP;
 858         iph->ihl                = 5;
 859
 860         dev_hold(dev);
 861         tunnels_wc[0]           = tunnel;
 862         return 0;
 863 }
 864
 865 static struct xfrm_tunnel ipip_handler = {
 866         .handler        =       ipip_rcv,
 867         .err_handler    =       ipip_err,
 868         .priority       =       1,
 869 };
 870
 871 static char banner[] __initdata =
 872         KERN_INFO "IPv4 over IPv4 tunneling driver\n";
 873
 874 static int __init ipip_init(void)
 875 {
 876         int err;
 877
 878         printk(banner);
 879
 880         if (xfrm4_tunnel_register(&ipip_handler, AF_INET)) {
 881                 printk(KERN_INFO "ipip init: can't register tunnel\n");
 882                 return -EAGAIN;
 883         }
 884
 885         ipip_fb_tunnel_dev = alloc_netdev(sizeof(struct ip_tunnel),
 886                                            "tunl0",
 887                                            ipip_tunnel_setup);
 888         if (!ipip_fb_tunnel_dev) {
 889                 err = -ENOMEM;
 890                 goto err1;
 891         }
 892
 893         ipip_fb_tunnel_dev->init = ipip_fb_tunnel_init;
 894
 895         if ((err = register_netdev(ipip_fb_tunnel_dev)))
 896                 goto err2;
 897  out:
 898         return err;
 899  err2:
 900         free_netdev(ipip_fb_tunnel_dev);
 901  err1:
 902         xfrm4_tunnel_deregister(&ipip_handler, AF_INET);
 903         goto out;
 904 }
 905
 906 static void __exit ipip_destroy_tunnels(void)
 907 {
 908         int prio;
 909
 910         for (prio = 1; prio < 4; prio++) {
 911                 int h;
 912                 for (h = 0; h < HASH_SIZE; h++) {
 913                         struct ip_tunnel *t;
 914                         while ((t = tunnels[prio][h]) != NULL)
 915                                 unregister_netdevice(t->dev);
 916                 }
 917         }
 918 }
 919
 920 static void __exit ipip_fini(void)
 921 {
 922         if (xfrm4_tunnel_deregister(&ipip_handler, AF_INET))
 923                 printk(KERN_INFO "ipip close: can't deregister tunnel\n");
 924
 925         rtnl_lock();
 926         ipip_destroy_tunnels();
 927         unregister_netdevice(ipip_fb_tunnel_dev);
 928         rtnl_unlock();
 929 }
 930
 931 module_init(ipip_init);
 932 module_exit(ipip_fini);
 933 MODULE_LICENSE("GPL");