FD.io VPP  v18.07.1-13-g909ba93
Vector Packet Processing
control.c
Go to the documentation of this file.
1 /*
2  * Copyright (c) 2016 Cisco and/or its affiliates.
3  * Licensed under the Apache License, Version 2.0 (the "License");
4  * you may not use this file except in compliance with the License.
5  * You may obtain a copy of the License at:
6  *
7  * http://www.apache.org/licenses/LICENSE-2.0
8  *
9  * Unless required by applicable law or agreed to in writing, software
10  * distributed under the License is distributed on an "AS IS" BASIS,
11  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
12  * See the License for the specific language governing permissions and
13  * limitations under the License.
14  */
15 
16 #include <vlibmemory/api.h>
17 #include <vnet/lisp-cp/control.h>
18 #include <vnet/lisp-cp/packets.h>
23 #include <vnet/fib/fib_entry.h>
24 #include <vnet/fib/fib_table.h>
26 #include <vnet/ethernet/packet.h>
27 
28 #include <openssl/evp.h>
29 #include <openssl/hmac.h>
30 
31 #define MAX_VALUE_U24 0xffffff
32 
33 /* mapping timer control constants (in seconds) */
34 #define TIME_UNTIL_REFETCH_OR_DELETE 20
35 #define MAPPING_TIMEOUT (((m->ttl) * 60) - TIME_UNTIL_REFETCH_OR_DELETE)
36 
38 
39 u8 *format_lisp_cp_input_trace (u8 * s, va_list * args);
40 static void *send_map_request_thread_fn (void *arg);
41 
42 typedef enum
43 {
47 
48 typedef struct
49 {
55 
56 u8
58 {
60  return lcm->map_request_mode;
61 }
62 
63 static u16
65 {
66  switch (key_id)
67  {
68  case HMAC_SHA_1_96:
69  return SHA1_AUTH_DATA_LEN;
70  case HMAC_SHA_256_128:
71  return SHA256_AUTH_DATA_LEN;
72  default:
73  clib_warning ("unsupported key type: %d!", key_id);
74  return (u16) ~ 0;
75  }
76  return (u16) ~ 0;
77 }
78 
79 static const EVP_MD *
81 {
82  switch (key_id)
83  {
84  case HMAC_SHA_1_96:
85  return EVP_sha1 ();
86  case HMAC_SHA_256_128:
87  return EVP_sha256 ();
88  default:
89  clib_warning ("unsupported encryption key type: %d!", key_id);
90  break;
91  }
92  return 0;
93 }
94 
95 static int
97  u8 smr_invoked, u8 is_resend);
98 
101  u32 sw_if_index, u8 loop)
102 {
103  vnet_main_t *vnm = vnet_get_main ();
104  vnet_sw_interface_t *swif = vnet_get_sw_interface (vnm, sw_if_index);
105  if (loop && swif->flags & VNET_SW_INTERFACE_FLAG_UNNUMBERED)
106  sw_if_index = swif->unnumbered_sw_if_index;
107  u32 ia =
108  (vec_len ((lm)->if_address_pool_index_by_sw_if_index) > (sw_if_index)) ?
109  vec_elt ((lm)->if_address_pool_index_by_sw_if_index, (sw_if_index)) :
110  (u32) ~ 0;
111  return pool_elt_at_index ((lm)->if_address_pool, ia);
112 }
113 
114 void *
116  u8 version)
117 {
119 
120  ia = ip_interface_get_first_interface_address (lm, sw_if_index, 1);
121  if (!ia)
122  return 0;
123  return ip_interface_address_get_address (lm, ia);
124 }
125 
126 int
128  u8 version, ip_address_t * result)
129 {
130  ip_lookup_main_t *lm;
131  void *addr;
132 
133  lm = (version == IP4) ? &lcm->im4->lookup_main : &lcm->im6->lookup_main;
134  addr = ip_interface_get_first_address (lm, sw_if_index, version);
135  if (!addr)
136  return 0;
137 
138  ip_address_set (result, addr, version);
139  return 1;
140 }
141 
142 /**
143  * convert from a LISP address to a FIB prefix
144  */
145 void
147 {
148  if (addr->version == IP4)
149  {
150  prefix->fp_len = 32;
151  prefix->fp_proto = FIB_PROTOCOL_IP4;
152  memset (&prefix->fp_addr.pad, 0, sizeof (prefix->fp_addr.pad));
153  memcpy (&prefix->fp_addr.ip4, &addr->ip, sizeof (prefix->fp_addr.ip4));
154  }
155  else
156  {
157  prefix->fp_len = 128;
158  prefix->fp_proto = FIB_PROTOCOL_IP6;
159  memcpy (&prefix->fp_addr.ip6, &addr->ip, sizeof (prefix->fp_addr.ip6));
160  }
161 }
162 
163 /**
164  * convert from a LISP to a FIB prefix
165  */
166 void
167 ip_prefix_to_fib_prefix (const ip_prefix_t * ip_prefix,
168  fib_prefix_t * fib_prefix)
169 {
170  ip_address_to_fib_prefix (&ip_prefix->addr, fib_prefix);
171  fib_prefix->fp_len = ip_prefix->len;
172 }
173 
174 /**
175  * Find the sw_if_index of the interface that would be used to egress towards
176  * dst.
177  */
178 u32
180 {
181  fib_node_index_t fei;
183 
184  ip_address_to_fib_prefix (dst, &prefix);
185 
186  fei = fib_table_lookup (0, &prefix);
187 
188  return (fib_entry_get_resolving_interface (fei));
189 }
190 
191 /**
192  * Find first IP of the interface that would be used to egress towards dst.
193  * Returns 1 if the address is found 0 otherwise.
194  */
195 int
197  ip_address_t * result)
198 {
199  u32 si;
200  ip_lookup_main_t *lm;
201  void *addr = 0;
202  u8 ipver;
203 
204  ASSERT (result != 0);
205 
206  ipver = ip_addr_version (dst);
207 
208  lm = (ipver == IP4) ? &lcm->im4->lookup_main : &lcm->im6->lookup_main;
209  si = ip_fib_get_egress_iface_for_dst (lcm, dst);
210 
211  if ((u32) ~ 0 == si)
212  return 0;
213 
214  /* find the first ip address */
215  addr = ip_interface_get_first_address (lm, si, ipver);
216  if (0 == addr)
217  return 0;
218 
219  ip_address_set (result, addr, ipver);
220  return 1;
221 }
222 
223 static int
224 dp_add_del_iface (lisp_cp_main_t * lcm, u32 vni, u8 is_l2, u8 is_add,
225  u8 with_default_route)
226 {
227  uword *dp_table;
228 
229  if (!is_l2)
230  {
231  dp_table = hash_get (lcm->table_id_by_vni, vni);
232 
233  if (!dp_table)
234  {
235  clib_warning ("vni %d not associated to a vrf!", vni);
236  return VNET_API_ERROR_INVALID_VALUE;
237  }
238  }
239  else
240  {
241  dp_table = hash_get (lcm->bd_id_by_vni, vni);
242  if (!dp_table)
243  {
244  clib_warning ("vni %d not associated to a bridge domain!", vni);
245  return VNET_API_ERROR_INVALID_VALUE;
246  }
247  }
248 
249  /* enable/disable data-plane interface */
250  if (is_add)
251  {
252  if (is_l2)
253  lisp_gpe_tenant_l2_iface_add_or_lock (vni, dp_table[0]);
254  else
255  lisp_gpe_tenant_l3_iface_add_or_lock (vni, dp_table[0],
256  with_default_route);
257  }
258  else
259  {
260  if (is_l2)
262  else
264  }
265 
266  return 0;
267 }
268 
269 static void
270 dp_del_fwd_entry (lisp_cp_main_t * lcm, u32 dst_map_index)
271 {
273  fwd_entry_t *fe = 0;
274  uword *feip = 0;
275  memset (a, 0, sizeof (*a));
276 
277  feip = hash_get (lcm->fwd_entry_by_mapping_index, dst_map_index);
278  if (!feip)
279  return;
280 
281  fe = pool_elt_at_index (lcm->fwd_entry_pool, feip[0]);
282 
283  /* delete dp fwd entry */
284  u32 sw_if_index;
285  a->is_add = 0;
286  a->locator_pairs = fe->locator_pairs;
287  a->vni = gid_address_vni (&fe->reid);
288  gid_address_copy (&a->rmt_eid, &fe->reid);
289  if (fe->is_src_dst)
290  gid_address_copy (&a->lcl_eid, &fe->leid);
291 
292  vnet_lisp_gpe_del_fwd_counters (a, feip[0]);
293  vnet_lisp_gpe_add_del_fwd_entry (a, &sw_if_index);
294 
295  /* delete entry in fwd table */
296  hash_unset (lcm->fwd_entry_by_mapping_index, dst_map_index);
297  vec_free (fe->locator_pairs);
298  pool_put (lcm->fwd_entry_pool, fe);
299 }
300 
301 /**
302  * Finds first remote locator with best (lowest) priority that has a local
303  * peer locator with an underlying route to it.
304  *
305  */
306 static u32
308  mapping_t * rmt_map, locator_pair_t ** locator_pairs)
309 {
310  u32 i, limitp = 0, li, found = 0, esi;
311  locator_set_t *rmt_ls, *lcl_ls;
312  ip_address_t _lcl_addr, *lcl_addr = &_lcl_addr;
313  locator_t *lp, *rmt = 0;
314  uword *checked = 0;
315  locator_pair_t pair;
316 
317  rmt_ls =
319  lcl_ls =
321 
322  if (!rmt_ls || vec_len (rmt_ls->locator_indices) == 0)
323  return 0;
324 
325  while (1)
326  {
327  rmt = 0;
328 
329  /* find unvisited remote locator with best priority */
330  for (i = 0; i < vec_len (rmt_ls->locator_indices); i++)
331  {
332  if (0 != hash_get (checked, i))
333  continue;
334 
335  li = vec_elt (rmt_ls->locator_indices, i);
336  lp = pool_elt_at_index (lcm->locator_pool, li);
337 
338  /* we don't support non-IP locators for now */
340  continue;
341 
342  if ((found && lp->priority == limitp)
343  || (!found && lp->priority >= limitp))
344  {
345  rmt = lp;
346 
347  /* don't search for locators with lower priority and don't
348  * check this locator again*/
349  limitp = lp->priority;
350  hash_set (checked, i, 1);
351  break;
352  }
353  }
354  /* check if a local locator with a route to remote locator exists */
355  if (rmt != 0)
356  {
357  /* find egress sw_if_index for rmt locator */
358  esi =
360  &gid_address_ip (&rmt->address));
361  if ((u32) ~ 0 == esi)
362  continue;
363 
364  for (i = 0; i < vec_len (lcl_ls->locator_indices); i++)
365  {
366  li = vec_elt (lcl_ls->locator_indices, i);
367  locator_t *sl = pool_elt_at_index (lcm->locator_pool, li);
368 
369  /* found local locator with the needed sw_if_index */
370  if (sl->sw_if_index == esi)
371  {
372  /* and it has an address */
373  if (0 == ip_interface_get_first_ip_address (lcm,
374  sl->sw_if_index,
376  (&rmt->address),
377  lcl_addr))
378  continue;
379 
380  memset (&pair, 0, sizeof (pair));
381  ip_address_copy (&pair.rmt_loc,
382  &gid_address_ip (&rmt->address));
383  ip_address_copy (&pair.lcl_loc, lcl_addr);
384  pair.weight = rmt->weight;
385  pair.priority = rmt->priority;
386  vec_add1 (locator_pairs[0], pair);
387  found = 1;
388  }
389  }
390  }
391  else
392  break;
393  }
394 
395  hash_free (checked);
396  return found;
397 }
398 
399 static void
401  fid_address_t * fid)
402 {
404 
405  dst[0] = src[0];
406 
407  switch (fid_addr_type (fid))
408  {
409  case FID_ADDR_IP_PREF:
411  gid_address_ippref (dst) = fid_addr_ippref (fid);
412  break;
413  case FID_ADDR_MAC:
415  mac_copy (gid_address_mac (dst), fid_addr_mac (fid));
416  break;
417  default:
418  clib_warning ("Unsupported fid type %d!", fid_addr_type (fid));
419  break;
420  }
421 }
422 
423 u8
425 {
427  return lcm->map_registering;
428 }
429 
430 u8
432 {
434  return lcm->rloc_probing;
435 }
436 
437 static void
438 dp_add_fwd_entry (lisp_cp_main_t * lcm, u32 src_map_index, u32 dst_map_index)
439 {
441  gid_address_t *rmt_eid, *lcl_eid;
442  mapping_t *lcl_map, *rmt_map;
443  u32 sw_if_index, **rmts, rmts_idx;
444  uword *feip = 0, *dpid, *rmts_stored_idxp = 0;
445  fwd_entry_t *fe;
446  u8 type, is_src_dst = 0;
447  int rv;
448 
449  memset (a, 0, sizeof (*a));
450 
451  /* remove entry if it already exists */
452  feip = hash_get (lcm->fwd_entry_by_mapping_index, dst_map_index);
453  if (feip)
454  dp_del_fwd_entry (lcm, dst_map_index);
455 
456  /*
457  * Determine local mapping and eid
458  */
459  if (lcm->flags & LISP_FLAG_PITR_MODE)
460  {
461  if (lcm->pitr_map_index != ~0)
462  lcl_map = pool_elt_at_index (lcm->mapping_pool, lcm->pitr_map_index);
463  else
464  {
465  clib_warning ("no PITR mapping configured!");
466  return;
467  }
468  }
469  else
470  lcl_map = pool_elt_at_index (lcm->mapping_pool, src_map_index);
471  lcl_eid = &lcl_map->eid;
472 
473  /*
474  * Determine remote mapping and eid
475  */
476  rmt_map = pool_elt_at_index (lcm->mapping_pool, dst_map_index);
477  rmt_eid = &rmt_map->eid;
478 
479  /*
480  * Build and insert data plane forwarding entry
481  */
482  a->is_add = 1;
483 
484  if (MR_MODE_SRC_DST == lcm->map_request_mode)
485  {
486  if (GID_ADDR_SRC_DST == gid_address_type (rmt_eid))
487  {
488  gid_address_sd_to_flat (&a->rmt_eid, rmt_eid,
489  &gid_address_sd_dst (rmt_eid));
490  gid_address_sd_to_flat (&a->lcl_eid, rmt_eid,
491  &gid_address_sd_src (rmt_eid));
492  }
493  else
494  {
495  gid_address_copy (&a->rmt_eid, rmt_eid);
496  gid_address_copy (&a->lcl_eid, lcl_eid);
497  }
498  is_src_dst = 1;
499  }
500  else
501  gid_address_copy (&a->rmt_eid, rmt_eid);
502 
503  a->vni = gid_address_vni (&a->rmt_eid);
504  a->is_src_dst = is_src_dst;
505 
506  /* get vrf or bd_index associated to vni */
507  type = gid_address_type (&a->rmt_eid);
508  if (GID_ADDR_IP_PREFIX == type)
509  {
510  dpid = hash_get (lcm->table_id_by_vni, a->vni);
511  if (!dpid)
512  {
513  clib_warning ("vni %d not associated to a vrf!", a->vni);
514  return;
515  }
516  a->table_id = dpid[0];
517  }
518  else if (GID_ADDR_MAC == type)
519  {
520  dpid = hash_get (lcm->bd_id_by_vni, a->vni);
521  if (!dpid)
522  {
523  clib_warning ("vni %d not associated to a bridge domain !", a->vni);
524  return;
525  }
526  a->bd_id = dpid[0];
527  }
528 
529  /* find best locator pair that 1) verifies LISP policy 2) are connected */
530  rv = get_locator_pairs (lcm, lcl_map, rmt_map, &a->locator_pairs);
531 
532  /* Either rmt mapping is negative or we can't find underlay path.
533  * Try again with petr if configured */
534  if (rv == 0 && (lcm->flags & LISP_FLAG_USE_PETR))
535  {
536  rmt_map = lisp_get_petr_mapping (lcm);
537  rv = get_locator_pairs (lcm, lcl_map, rmt_map, &a->locator_pairs);
538  }
539 
540  /* negative entry */
541  if (rv == 0)
542  {
543  a->is_negative = 1;
544  a->action = rmt_map->action;
545  }
546 
547  rv = vnet_lisp_gpe_add_del_fwd_entry (a, &sw_if_index);
548  if (rv)
549  {
550  if (a->locator_pairs)
551  vec_free (a->locator_pairs);
552  return;
553  }
554 
555  /* add tunnel to fwd entry table */
556  pool_get (lcm->fwd_entry_pool, fe);
558 
559  fe->locator_pairs = a->locator_pairs;
560  gid_address_copy (&fe->reid, &a->rmt_eid);
561 
562  if (is_src_dst)
563  gid_address_copy (&fe->leid, &a->lcl_eid);
564  else
565  gid_address_copy (&fe->leid, lcl_eid);
566 
567  fe->is_src_dst = is_src_dst;
568  hash_set (lcm->fwd_entry_by_mapping_index, dst_map_index,
569  fe - lcm->fwd_entry_pool);
570 
571  /* Add rmt mapping to the vector of adjacent mappings to lcl mapping */
572  rmts_stored_idxp =
573  hash_get (lcm->lcl_to_rmt_adjs_by_lcl_idx, src_map_index);
574  if (!rmts_stored_idxp)
575  {
576  pool_get (lcm->lcl_to_rmt_adjacencies, rmts);
577  memset (rmts, 0, sizeof (*rmts));
578  rmts_idx = rmts - lcm->lcl_to_rmt_adjacencies;
579  hash_set (lcm->lcl_to_rmt_adjs_by_lcl_idx, src_map_index, rmts_idx);
580  }
581  else
582  {
583  rmts_idx = (u32) (*rmts_stored_idxp);
584  rmts = pool_elt_at_index (lcm->lcl_to_rmt_adjacencies, rmts_idx);
585  }
586  vec_add1 (rmts[0], dst_map_index);
587 }
588 
589 typedef struct
590 {
594 
595 static void *
597 {
598  fwd_entry_mt_arg_t *a = arg;
600  dp_add_fwd_entry (lcm, a->si, a->di);
601  return 0;
602 }
603 
604 static int
606 {
608 
609  memset (&a, 0, sizeof (a));
610  a.si = si;
611  a.di = di;
612 
614  (u8 *) & a, sizeof (a));
615  return 0;
616 }
617 
618 /**
619  * Returns vector of adjacencies.
620  *
621  * The caller must free the vector returned by this function.
622  *
623  * @param vni virtual network identifier
624  * @return vector of adjacencies
625  */
628 {
630  fwd_entry_t *fwd;
631  lisp_adjacency_t *adjs = 0, adj;
632 
633  /* *INDENT-OFF* */
634  pool_foreach(fwd, lcm->fwd_entry_pool,
635  ({
636  if (gid_address_vni (&fwd->reid) != vni)
637  continue;
638 
639  gid_address_copy (&adj.reid, &fwd->reid);
640  gid_address_copy (&adj.leid, &fwd->leid);
641  vec_add1 (adjs, adj);
642  }));
643  /* *INDENT-ON* */
644 
645  return adjs;
646 }
647 
648 static lisp_msmr_t *
649 get_map_server (ip_address_t * a)
650 {
652  lisp_msmr_t *m;
653 
654  vec_foreach (m, lcm->map_servers)
655  {
656  if (!ip_address_cmp (&m->address, a))
657  {
658  return m;
659  }
660  }
661  return 0;
662 }
663 
664 static lisp_msmr_t *
665 get_map_resolver (ip_address_t * a)
666 {
668  lisp_msmr_t *m;
669 
670  vec_foreach (m, lcm->map_resolvers)
671  {
672  if (!ip_address_cmp (&m->address, a))
673  {
674  return m;
675  }
676  }
677  return 0;
678 }
679 
680 int
681 vnet_lisp_add_del_map_server (ip_address_t * addr, u8 is_add)
682 {
683  u32 i;
685  lisp_msmr_t _ms, *ms = &_ms;
686 
688  {
689  clib_warning ("LISP is disabled!");
690  return VNET_API_ERROR_LISP_DISABLED;
691  }
692 
693  if (is_add)
694  {
695  if (get_map_server (addr))
696  {
697  clib_warning ("map-server %U already exists!", format_ip_address,
698  addr);
699  return -1;
700  }
701 
702  memset (ms, 0, sizeof (*ms));
703  ip_address_copy (&ms->address, addr);
704  vec_add1 (lcm->map_servers, ms[0]);
705 
706  if (vec_len (lcm->map_servers) == 1)
707  lcm->do_map_server_election = 1;
708  }
709  else
710  {
711  for (i = 0; i < vec_len (lcm->map_servers); i++)
712  {
713  ms = vec_elt_at_index (lcm->map_servers, i);
714  if (!ip_address_cmp (&ms->address, addr))
715  {
716  if (!ip_address_cmp (&ms->address, &lcm->active_map_server))
717  lcm->do_map_server_election = 1;
718 
719  vec_del1 (lcm->map_servers, i);
720  break;
721  }
722  }
723  }
724 
725  return 0;
726 }
727 
728 /**
729  * Add/remove mapping to/from map-cache. Overwriting not allowed.
730  */
731 int
733  u32 * map_index_result)
734 {
736  u32 mi, *map_indexp, map_index, i;
737  u32 **rmts = 0, *remote_idxp, rmts_itr, remote_idx;
738  uword *rmts_idxp;
739  mapping_t *m, *old_map;
740  u32 **eid_indexes;
741 
742  if (gid_address_type (&a->eid) == GID_ADDR_NSH)
743  {
744  if (gid_address_vni (&a->eid) != 0)
745  {
746  clib_warning ("Supported only default VNI for NSH!");
747  return VNET_API_ERROR_INVALID_ARGUMENT;
748  }
750  {
751  clib_warning ("SPI is greater than 24bit!");
752  return VNET_API_ERROR_INVALID_ARGUMENT;
753  }
754  }
755 
757  old_map = mi != ~0 ? pool_elt_at_index (lcm->mapping_pool, mi) : 0;
758  if (a->is_add)
759  {
760  /* TODO check if overwriting and take appropriate actions */
761  if (mi != GID_LOOKUP_MISS && !gid_address_cmp (&old_map->eid, &a->eid))
762  {
763  clib_warning ("eid %U found in the eid-table", format_gid_address,
764  &a->eid);
765  return VNET_API_ERROR_VALUE_EXIST;
766  }
767 
768  pool_get (lcm->mapping_pool, m);
769  gid_address_copy (&m->eid, &a->eid);
771  m->ttl = a->ttl;
772  m->action = a->action;
773  m->local = a->local;
774  m->is_static = a->is_static;
775  m->key = vec_dup (a->key);
776  m->key_id = a->key_id;
777 
778  map_index = m - lcm->mapping_pool;
779  gid_dictionary_add_del (&lcm->mapping_index_by_gid, &a->eid, map_index,
780  1);
781 
783  {
784  clib_warning ("Locator set with index %d doesn't exist",
785  a->locator_set_index);
786  return VNET_API_ERROR_INVALID_VALUE;
787  }
788 
789  /* add eid to list of eids supported by locator-set */
791  eid_indexes = vec_elt_at_index (lcm->locator_set_to_eids,
792  a->locator_set_index);
793  vec_add1 (eid_indexes[0], map_index);
794 
795  if (a->local)
796  {
797  /* mark as local */
798  vec_add1 (lcm->local_mappings_indexes, map_index);
799  }
800  map_index_result[0] = map_index;
801  }
802  else
803  {
804  if (mi == GID_LOOKUP_MISS)
805  {
806  clib_warning ("eid %U not found in the eid-table",
807  format_gid_address, &a->eid);
808  return VNET_API_ERROR_INVALID_VALUE;
809  }
810 
811  /* clear locator-set to eids binding */
812  eid_indexes = vec_elt_at_index (lcm->locator_set_to_eids,
813  a->locator_set_index);
814  for (i = 0; i < vec_len (eid_indexes[0]); i++)
815  {
816  map_indexp = vec_elt_at_index (eid_indexes[0], i);
817  if (map_indexp[0] == mi)
818  break;
819  }
820  vec_del1 (eid_indexes[0], i);
821 
822  /* remove local mark if needed */
823  m = pool_elt_at_index (lcm->mapping_pool, mi);
824  if (m->local)
825  {
826  /* Remove adjacencies associated with the local mapping */
827  rmts_idxp = hash_get (lcm->lcl_to_rmt_adjs_by_lcl_idx, mi);
828  if (rmts_idxp)
829  {
830  rmts =
831  pool_elt_at_index (lcm->lcl_to_rmt_adjacencies, rmts_idxp[0]);
832  vec_foreach (remote_idxp, rmts[0])
833  {
834  dp_del_fwd_entry (lcm, remote_idxp[0]);
835  }
836  vec_free (rmts[0]);
837  pool_put (lcm->lcl_to_rmt_adjacencies, rmts);
839  }
840 
841  u32 k, *lm_indexp;
842  for (k = 0; k < vec_len (lcm->local_mappings_indexes); k++)
843  {
844  lm_indexp = vec_elt_at_index (lcm->local_mappings_indexes, k);
845  if (lm_indexp[0] == mi)
846  break;
847  }
849  }
850  else
851  {
852  /* Remove remote (if present) from the vectors of lcl-to-rmts
853  * TODO: Address this in a more efficient way.
854  */
855  /* *INDENT-OFF* */
857  ({
858  vec_foreach_index (rmts_itr, rmts[0])
859  {
860  remote_idx = vec_elt (rmts[0], rmts_itr);
861  if (mi == remote_idx)
862  {
863  vec_del1 (rmts[0], rmts_itr);
864  break;
865  }
866  }
867  }));
868  /* *INDENT-ON* */
869  }
870 
871  /* remove mapping from dictionary */
873  gid_address_free (&m->eid);
874  pool_put_index (lcm->mapping_pool, mi);
875  }
876 
877  return 0;
878 }
879 
880 /**
881  * Add/update/delete mapping to/in/from map-cache.
882  */
883 int
885  u32 * map_index_result)
886 {
887  uword *dp_table = 0;
888  u32 vni;
889  u8 type;
890 
892 
894  {
895  clib_warning ("LISP is disabled!");
896  return VNET_API_ERROR_LISP_DISABLED;
897  }
898 
899  vni = gid_address_vni (&a->eid);
900  type = gid_address_type (&a->eid);
901  if (GID_ADDR_IP_PREFIX == type)
902  dp_table = hash_get (lcm->table_id_by_vni, vni);
903  else if (GID_ADDR_MAC == type)
904  dp_table = hash_get (lcm->bd_id_by_vni, vni);
905 
906  if (!dp_table && GID_ADDR_NSH != type)
907  {
908  clib_warning ("vni %d not associated to a %s!", vni,
909  GID_ADDR_IP_PREFIX == type ? "vrf" : "bd");
910  return VNET_API_ERROR_INVALID_VALUE;
911  }
912 
913  /* store/remove mapping from map-cache */
914  return vnet_lisp_map_cache_add_del (a, map_index_result);
915 }
916 
917 static void
918 add_l2_arp_bd (BVT (clib_bihash_kv) * kvp, void *arg)
919 {
920  u32 **ht = arg;
921  u32 version = (u32) kvp->key[0];
922  if (IP6 == version)
923  return;
924 
925  u32 bd = (u32) (kvp->key[0] >> 32);
926  hash_set (ht[0], bd, 0);
927 }
928 
929 u32 *
931 {
933  u32 *bds = 0;
934 
936  add_l2_arp_bd, &bds);
937  return bds;
938 }
939 
940 static void
941 add_ndp_bd (BVT (clib_bihash_kv) * kvp, void *arg)
942 {
943  u32 **ht = arg;
944  u32 version = (u32) kvp->key[0];
945  if (IP4 == version)
946  return;
947 
948  u32 bd = (u32) (kvp->key[0] >> 32);
949  hash_set (ht[0], bd, 0);
950 }
951 
952 u32 *
954 {
956  u32 *bds = 0;
957 
959  add_ndp_bd, &bds);
960  return bds;
961 }
962 
963 typedef struct
964 {
965  void *vector;
968 
969 static void
970 add_l2_arp_entry (BVT (clib_bihash_kv) * kvp, void *arg)
971 {
973  lisp_api_l2_arp_entry_t **vector = a->vector, e;
974 
975  u32 version = (u32) kvp->key[0];
976  if (IP6 == version)
977  return;
978 
979  u32 bd = (u32) (kvp->key[0] >> 32);
980 
981  if (bd == a->bd)
982  {
983  mac_copy (e.mac, (void *) &kvp->value);
984  e.ip4 = (u32) kvp->key[1];
985  vec_add1 (vector[0], e);
986  }
987 }
988 
991 {
995 
996  a.vector = &entries;
997  a.bd = bd;
998 
1000  add_l2_arp_entry, &a);
1001  return entries;
1002 }
1003 
1004 static void
1005 add_ndp_entry (BVT (clib_bihash_kv) * kvp, void *arg)
1006 {
1008  lisp_api_ndp_entry_t **vector = a->vector, e;
1009 
1010  u32 version = (u32) kvp->key[0];
1011  if (IP4 == version)
1012  return;
1013 
1014  u32 bd = (u32) (kvp->key[0] >> 32);
1015 
1016  if (bd == a->bd)
1017  {
1018  mac_copy (e.mac, (void *) &kvp->value);
1019  clib_memcpy (e.ip6, &kvp->key[1], 16);
1020  vec_add1 (vector[0], e);
1021  }
1022 }
1023 
1026 {
1030 
1031  a.vector = &entries;
1032  a.bd = bd;
1033 
1035  add_ndp_entry, &a);
1036  return entries;
1037 }
1038 
1039 int
1041 {
1042  if (vnet_lisp_enable_disable_status () == 0)
1043  {
1044  clib_warning ("LISP is disabled!");
1045  return VNET_API_ERROR_LISP_DISABLED;
1046  }
1047 
1049  int rc = 0;
1050 
1051  u64 res = gid_dictionary_lookup (&lcm->mapping_index_by_gid, key);
1052  if (is_add)
1053  {
1054  if (res != GID_LOOKUP_MISS_L2)
1055  {
1056  clib_warning ("Entry %U exists in DB!", format_gid_address, key);
1057  return VNET_API_ERROR_ENTRY_ALREADY_EXISTS;
1058  }
1059  u64 val = mac_to_u64 (mac);
1061  1 /* is_add */ );
1062  }
1063  else
1064  {
1065  if (res == GID_LOOKUP_MISS_L2)
1066  {
1067  clib_warning ("ONE entry %U not found - cannot delete!",
1068  format_gid_address, key);
1069  return -1;
1070  }
1072  0 /* is_add */ );
1073  }
1074 
1075  return rc;
1076 }
1077 
1078 int
1079 vnet_lisp_eid_table_map (u32 vni, u32 dp_id, u8 is_l2, u8 is_add)
1080 {
1082  uword *dp_idp, *vnip, **dp_table_by_vni, **vni_by_dp_table;
1083 
1084  if (vnet_lisp_enable_disable_status () == 0)
1085  {
1086  clib_warning ("LISP is disabled!");
1087  return VNET_API_ERROR_LISP_DISABLED;
1088  }
1089 
1090  dp_table_by_vni = is_l2 ? &lcm->bd_id_by_vni : &lcm->table_id_by_vni;
1091  vni_by_dp_table = is_l2 ? &lcm->vni_by_bd_id : &lcm->vni_by_table_id;
1092 
1093  if (!is_l2 && (vni == 0 || dp_id == 0))
1094  {
1095  clib_warning ("can't add/del default vni-vrf mapping!");
1096  return -1;
1097  }
1098 
1099  dp_idp = hash_get (dp_table_by_vni[0], vni);
1100  vnip = hash_get (vni_by_dp_table[0], dp_id);
1101 
1102  if (is_add)
1103  {
1104  if (dp_idp || vnip)
1105  {
1106  clib_warning ("vni %d or vrf %d already used in vrf/vni "
1107  "mapping!", vni, dp_id);
1108  return -1;
1109  }
1110  hash_set (dp_table_by_vni[0], vni, dp_id);
1111  hash_set (vni_by_dp_table[0], dp_id, vni);
1112 
1113  /* create dp iface */
1114  dp_add_del_iface (lcm, vni, is_l2, 1 /* is_add */ ,
1115  1 /* with_default_route */ );
1116  }
1117  else
1118  {
1119  if (!dp_idp || !vnip)
1120  {
1121  clib_warning ("vni %d or vrf %d not used in any vrf/vni! "
1122  "mapping!", vni, dp_id);
1123  return -1;
1124  }
1125  /* remove dp iface */
1126  dp_add_del_iface (lcm, vni, is_l2, 0 /* is_add */ , 0 /* unused */ );
1127 
1128  hash_unset (dp_table_by_vni[0], vni);
1129  hash_unset (vni_by_dp_table[0], dp_id);
1130  }
1131  return 0;
1132 
1133 }
1134 
1135 /* return 0 if the two locator sets are identical 1 otherwise */
1136 static u8
1137 compare_locators (lisp_cp_main_t * lcm, u32 * old_ls_indexes,
1138  locator_t * new_locators)
1139 {
1140  u32 i, old_li;
1141  locator_t *old_loc, *new_loc;
1142 
1143  if (vec_len (old_ls_indexes) != vec_len (new_locators))
1144  return 1;
1145 
1146  for (i = 0; i < vec_len (new_locators); i++)
1147  {
1148  old_li = vec_elt (old_ls_indexes, i);
1149  old_loc = pool_elt_at_index (lcm->locator_pool, old_li);
1150 
1151  new_loc = vec_elt_at_index (new_locators, i);
1152 
1153  if (locator_cmp (old_loc, new_loc))
1154  return 1;
1155  }
1156  return 0;
1157 }
1158 
1159 typedef struct
1160 {
1162  void *lcm;
1165 
1166 /**
1167  * Callback invoked when a sub-prefix is found
1168  */
1169 static void
1171 {
1172  u8 delete = 0;
1173  remove_mapping_args_t *a = arg;
1174  lisp_cp_main_t *lcm = a->lcm;
1175  mapping_t *m;
1176  locator_set_t *ls;
1177 
1178  m = pool_elt_at_index (lcm->mapping_pool, mi);
1179  if (!m)
1180  return;
1181 
1183 
1184  if (a->is_negative)
1185  {
1186  if (0 != vec_len (ls->locator_indices))
1187  delete = 1;
1188  }
1189  else
1190  {
1191  if (0 == vec_len (ls->locator_indices))
1192  delete = 1;
1193  }
1194 
1195  if (delete)
1196  vec_add1 (a->eids_to_be_deleted, m->eid);
1197 }
1198 
1199 /**
1200  * This function searches map cache and looks for IP prefixes that are subset
1201  * of the provided one. If such prefix is found depending on 'is_negative'
1202  * it does follows:
1203  *
1204  * 1) if is_negative is true and found prefix points to positive mapping,
1205  * then the mapping is removed
1206  * 2) if is_negative is false and found prefix points to negative mapping,
1207  * then the mapping is removed
1208  */
1209 static void
1211  u8 is_negative)
1212 {
1213  gid_address_t *e;
1215 
1216  memset (&a, 0, sizeof (a));
1217 
1218  /* do this only in src/dst mode ... */
1219  if (MR_MODE_SRC_DST != lcm->map_request_mode)
1220  return;
1221 
1222  /* ... and only for IP prefix */
1223  if (GID_ADDR_SRC_DST != gid_address_type (eid)
1225  return;
1226 
1227  a.is_negative = is_negative;
1228  a.lcm = lcm;
1229 
1232 
1234  {
1235  vnet_lisp_add_del_adjacency_args_t _adj_args, *adj_args = &_adj_args;
1236 
1237  memset (adj_args, 0, sizeof (adj_args[0]));
1238  gid_address_copy (&adj_args->reid, e);
1239  adj_args->is_add = 0;
1240  if (vnet_lisp_add_del_adjacency (adj_args))
1241  clib_warning ("failed to del adjacency!");
1242 
1244  }
1245 
1247 }
1248 
1249 static void
1251 {
1252  timing_wheel_delete (&lcm->wheel, mi);
1253 }
1254 
1255 static int
1256 is_local_ip (lisp_cp_main_t * lcm, ip_address_t * addr)
1257 {
1258  fib_node_index_t fei;
1261 
1262  ip_address_to_fib_prefix (addr, &prefix);
1263 
1264  fei = fib_table_lookup (0, &prefix);
1265  flags = fib_entry_get_flags (fei);
1266  return (FIB_ENTRY_FLAG_LOCAL & flags);
1267 }
1268 
1269 /**
1270  * Adds/updates mapping. Does not program forwarding.
1271  *
1272  * @param a parameters of the new mapping
1273  * @param rlocs vector of remote locators
1274  * @param res_map_index index of the newly created mapping
1275  * @param locators_changed indicator if locators were updated in the mapping
1276  * @return return code
1277  */
1278 int
1280  locator_t * rlocs,
1281  u32 * res_map_index, u8 * is_updated)
1282 {
1283  vnet_lisp_add_del_locator_set_args_t _ls_args, *ls_args = &_ls_args;
1285  u32 mi, ls_index = 0, dst_map_index;
1286  mapping_t *old_map;
1287  locator_t *loc;
1288 
1289  if (vnet_lisp_enable_disable_status () == 0)
1290  {
1291  clib_warning ("LISP is disabled!");
1292  return VNET_API_ERROR_LISP_DISABLED;
1293  }
1294 
1295  if (res_map_index)
1296  res_map_index[0] = ~0;
1297  if (is_updated)
1298  is_updated[0] = 0;
1299 
1300  memset (ls_args, 0, sizeof (ls_args[0]));
1301 
1302  ls_args->locators = rlocs;
1304  old_map = ((u32) ~ 0 != mi) ? pool_elt_at_index (lcm->mapping_pool, mi) : 0;
1305 
1306  /* check if none of the locators match localy configured address */
1307  vec_foreach (loc, rlocs)
1308  {
1309  ip_prefix_t *p = &gid_address_ippref (&loc->address);
1310  if (is_local_ip (lcm, &ip_prefix_addr (p)))
1311  {
1312  clib_warning ("RLOC %U matches a local address!",
1313  format_gid_address, &loc->address);
1314  return VNET_API_ERROR_LISP_RLOC_LOCAL;
1315  }
1316  }
1317 
1318  /* overwrite: if mapping already exists, decide if locators should be
1319  * updated and be done */
1320  if (old_map && gid_address_cmp (&old_map->eid, &a->eid) == 0)
1321  {
1322  if (!a->is_static && (old_map->is_static || old_map->local))
1323  {
1324  /* do not overwrite local or static remote mappings */
1325  clib_warning ("mapping %U rejected due to collision with local "
1326  "or static remote mapping!", format_gid_address,
1327  &a->eid);
1328  return 0;
1329  }
1330 
1331  locator_set_t *old_ls;
1332 
1333  /* update mapping attributes */
1334  old_map->action = a->action;
1335  if (old_map->action != a->action && NULL != is_updated)
1336  is_updated[0] = 1;
1337 
1338  old_map->authoritative = a->authoritative;
1339  old_map->ttl = a->ttl;
1340 
1341  old_ls = pool_elt_at_index (lcm->locator_set_pool,
1342  old_map->locator_set_index);
1343  if (compare_locators (lcm, old_ls->locator_indices, ls_args->locators))
1344  {
1345  /* set locator-set index to overwrite */
1346  ls_args->is_add = 1;
1347  ls_args->index = old_map->locator_set_index;
1348  vnet_lisp_add_del_locator_set (ls_args, 0);
1349  if (is_updated)
1350  is_updated[0] = 1;
1351  }
1352  if (res_map_index)
1353  res_map_index[0] = mi;
1354  }
1355  /* new mapping */
1356  else
1357  {
1358  if (is_updated)
1359  is_updated[0] = 1;
1360  remove_overlapping_sub_prefixes (lcm, &a->eid, 0 == ls_args->locators);
1361 
1362  ls_args->is_add = 1;
1363  ls_args->index = ~0;
1364 
1365  vnet_lisp_add_del_locator_set (ls_args, &ls_index);
1366 
1367  /* add mapping */
1368  a->is_add = 1;
1369  a->locator_set_index = ls_index;
1370  vnet_lisp_map_cache_add_del (a, &dst_map_index);
1371 
1372  if (res_map_index)
1373  res_map_index[0] = dst_map_index;
1374  }
1375 
1376  /* success */
1377  return 0;
1378 }
1379 
1380 /**
1381  * Removes a mapping. Does not program forwarding.
1382  *
1383  * @param eid end-host indetifier
1384  * @param res_map_index index of the removed mapping
1385  * @return return code
1386  */
1387 int
1388 vnet_lisp_del_mapping (gid_address_t * eid, u32 * res_map_index)
1389 {
1391  vnet_lisp_add_del_mapping_args_t _m_args, *m_args = &_m_args;
1392  vnet_lisp_add_del_locator_set_args_t _ls_args, *ls_args = &_ls_args;
1393  mapping_t *old_map;
1394  u32 mi;
1395 
1396  memset (ls_args, 0, sizeof (ls_args[0]));
1397  memset (m_args, 0, sizeof (m_args[0]));
1398  if (res_map_index)
1399  res_map_index[0] = ~0;
1400 
1401  mi = gid_dictionary_lookup (&lcm->mapping_index_by_gid, eid);
1402  old_map = ((u32) ~ 0 != mi) ? pool_elt_at_index (lcm->mapping_pool, mi) : 0;
1403 
1404  if (old_map == 0 || gid_address_cmp (&old_map->eid, eid) != 0)
1405  {
1406  clib_warning ("cannot delete mapping for eid %U",
1407  format_gid_address, eid);
1408  return -1;
1409  }
1410 
1411  m_args->is_add = 0;
1412  gid_address_copy (&m_args->eid, eid);
1413  m_args->locator_set_index = old_map->locator_set_index;
1414 
1415  /* delete mapping associated from map-cache */
1416  vnet_lisp_map_cache_add_del (m_args, 0);
1417 
1418  ls_args->is_add = 0;
1419  ls_args->index = old_map->locator_set_index;
1420 
1421  /* delete locator set */
1422  vnet_lisp_add_del_locator_set (ls_args, 0);
1423 
1424  /* delete timer associated to the mapping if any */
1425  if (old_map->timer_set)
1426  mapping_delete_timer (lcm, mi);
1427 
1428  /* return old mapping index */
1429  if (res_map_index)
1430  res_map_index[0] = mi;
1431 
1432  /* success */
1433  return 0;
1434 }
1435 
1436 int
1438 {
1439  int rv = 0;
1440  u32 mi, *map_indices = 0, *map_indexp;
1442  vnet_lisp_add_del_mapping_args_t _dm_args, *dm_args = &_dm_args;
1443  vnet_lisp_add_del_locator_set_args_t _ls, *ls = &_ls;
1444 
1445  /* *INDENT-OFF* */
1446  pool_foreach_index (mi, lcm->mapping_pool,
1447  ({
1448  vec_add1 (map_indices, mi);
1449  }));
1450  /* *INDENT-ON* */
1451 
1452  vec_foreach (map_indexp, map_indices)
1453  {
1454  mapping_t *map = pool_elt_at_index (lcm->mapping_pool, map_indexp[0]);
1455  if (!map->local)
1456  {
1457  dp_del_fwd_entry (lcm, map_indexp[0]);
1458 
1459  dm_args->is_add = 0;
1460  gid_address_copy (&dm_args->eid, &map->eid);
1461  dm_args->locator_set_index = map->locator_set_index;
1462 
1463  /* delete mapping associated to fwd entry */
1464  vnet_lisp_map_cache_add_del (dm_args, 0);
1465 
1466  ls->is_add = 0;
1467  ls->local = 0;
1468  ls->index = map->locator_set_index;
1469  /* delete locator set */
1470  rv = vnet_lisp_add_del_locator_set (ls, 0);
1471  if (rv != 0)
1472  goto cleanup;
1473  }
1474  }
1475 
1476 cleanup:
1477  if (map_indices)
1478  vec_free (map_indices);
1479  return rv;
1480 }
1481 
1482 /**
1483  * Adds adjacency or removes forwarding entry associated to remote mapping.
1484  * Note that adjacencies are not stored, they only result in forwarding entries
1485  * being created.
1486  */
1487 int
1489 {
1491  u32 local_mi, remote_mi = ~0;
1492 
1493  if (vnet_lisp_enable_disable_status () == 0)
1494  {
1495  clib_warning ("LISP is disabled!");
1496  return VNET_API_ERROR_LISP_DISABLED;
1497  }
1498 
1500  &a->reid, &a->leid);
1501  if (GID_LOOKUP_MISS == remote_mi)
1502  {
1503  clib_warning ("Remote eid %U not found. Cannot add adjacency!",
1504  format_gid_address, &a->reid);
1505 
1506  return -1;
1507  }
1508 
1509  if (a->is_add)
1510  {
1511  /* check if source eid has an associated mapping. If pitr mode is on,
1512  * just use the pitr's mapping */
1513  if (lcm->flags & LISP_FLAG_PITR_MODE)
1514  {
1515  if (lcm->pitr_map_index != ~0)
1516  {
1517  local_mi = lcm->pitr_map_index;
1518  }
1519  else
1520  {
1521  /* PITR mode is on, but no mapping is configured */
1522  return -1;
1523  }
1524  }
1525  else
1526  {
1527  if (gid_address_type (&a->reid) == GID_ADDR_NSH)
1528  {
1529  if (lcm->nsh_map_index == ~0)
1530  local_mi = GID_LOOKUP_MISS;
1531  else
1532  local_mi = lcm->nsh_map_index;
1533  }
1534  else
1535  {
1536  local_mi = gid_dictionary_lookup (&lcm->mapping_index_by_gid,
1537  &a->leid);
1538  }
1539  }
1540 
1541  if (GID_LOOKUP_MISS == local_mi)
1542  {
1543  clib_warning ("Local eid %U not found. Cannot add adjacency!",
1544  format_gid_address, &a->leid);
1545 
1546  return -1;
1547  }
1548 
1549  /* update forwarding */
1550  dp_add_fwd_entry (lcm, local_mi, remote_mi);
1551  }
1552  else
1553  dp_del_fwd_entry (lcm, remote_mi);
1554 
1555  return 0;
1556 }
1557 
1558 int
1560 {
1562 
1563  if (vnet_lisp_enable_disable_status () == 0)
1564  {
1565  clib_warning ("LISP is disabled!");
1566  return VNET_API_ERROR_LISP_DISABLED;
1567  }
1568 
1569  if (mode >= _MR_MODE_MAX)
1570  {
1571  clib_warning ("Invalid LISP map request mode %d!", mode);
1572  return VNET_API_ERROR_INVALID_ARGUMENT;
1573  }
1574 
1575  lcm->map_request_mode = mode;
1576  return 0;
1577 }
1578 
1579 int
1580 vnet_lisp_nsh_set_locator_set (u8 * locator_set_name, u8 is_add)
1581 {
1584  u32 locator_set_index = ~0;
1585  mapping_t *m;
1586  uword *p;
1587 
1588  if (vnet_lisp_enable_disable_status () == 0)
1589  {
1590  clib_warning ("LISP is disabled!");
1591  return VNET_API_ERROR_LISP_DISABLED;
1592  }
1593 
1594  if (is_add)
1595  {
1596  if (lcm->nsh_map_index == (u32) ~ 0)
1597  {
1598  p = hash_get_mem (lcm->locator_set_index_by_name, locator_set_name);
1599  if (!p)
1600  {
1601  clib_warning ("locator-set %v doesn't exist", locator_set_name);
1602  return -1;
1603  }
1604  locator_set_index = p[0];
1605 
1606  pool_get (lcm->mapping_pool, m);
1607  memset (m, 0, sizeof *m);
1608  m->locator_set_index = locator_set_index;
1609  m->local = 1;
1610  m->nsh_set = 1;
1611  lcm->nsh_map_index = m - lcm->mapping_pool;
1612 
1613  if (~0 == vnet_lisp_gpe_add_nsh_iface (lgm))
1614  return -1;
1615  }
1616  }
1617  else
1618  {
1619  if (lcm->nsh_map_index != (u32) ~ 0)
1620  {
1621  /* remove NSH mapping */
1623  lcm->nsh_map_index = ~0;
1625  }
1626  }
1627  return 0;
1628 }
1629 
1630 int
1631 vnet_lisp_pitr_set_locator_set (u8 * locator_set_name, u8 is_add)
1632 {
1634  u32 locator_set_index = ~0;
1635  mapping_t *m;
1636  uword *p;
1637 
1638  if (vnet_lisp_enable_disable_status () == 0)
1639  {
1640  clib_warning ("LISP is disabled!");
1641  return VNET_API_ERROR_LISP_DISABLED;
1642  }
1643 
1644  p = hash_get_mem (lcm->locator_set_index_by_name, locator_set_name);
1645  if (!p)
1646  {
1647  clib_warning ("locator-set %v doesn't exist", locator_set_name);
1648  return -1;
1649  }
1650  locator_set_index = p[0];
1651 
1652  if (is_add)
1653  {
1654  pool_get (lcm->mapping_pool, m);
1655  m->locator_set_index = locator_set_index;
1656  m->local = 1;
1657  m->pitr_set = 1;
1658  lcm->pitr_map_index = m - lcm->mapping_pool;
1659  }
1660  else
1661  {
1662  /* remove pitr mapping */
1664  lcm->pitr_map_index = ~0;
1665  }
1666  return 0;
1667 }
1668 
1669 int
1671 {
1673  if (0 == value)
1674  {
1675  return VNET_API_ERROR_INVALID_ARGUMENT;
1676  }
1677 
1678  lcm->max_expired_map_registers = value;
1679  return 0;
1680 }
1681 
1682 u32
1684 {
1686  return lcm->max_expired_map_registers;
1687 }
1688 
1689 /**
1690  * Configure Proxy-ETR
1691  *
1692  * @param ip PETR's IP address
1693  * @param is_add Flag that indicates if this is an addition or removal
1694  *
1695  * return 0 on success
1696  */
1697 int
1698 vnet_lisp_use_petr (ip_address_t * ip, u8 is_add)
1699 {
1701  u32 ls_index = ~0;
1702  mapping_t *m;
1703  vnet_lisp_add_del_locator_set_args_t _ls_args, *ls_args = &_ls_args;
1704  locator_t loc;
1705 
1706  if (vnet_lisp_enable_disable_status () == 0)
1707  {
1708  clib_warning ("LISP is disabled!");
1709  return VNET_API_ERROR_LISP_DISABLED;
1710  }
1711 
1712  memset (ls_args, 0, sizeof (*ls_args));
1713 
1714  if (is_add)
1715  {
1716  /* Create dummy petr locator-set */
1717  memset (&loc, 0, sizeof (loc));
1718  gid_address_from_ip (&loc.address, ip);
1719  loc.priority = 1;
1720  loc.state = loc.weight = 1;
1721  loc.local = 0;
1722 
1723  ls_args->is_add = 1;
1724  ls_args->index = ~0;
1725  vec_add1 (ls_args->locators, loc);
1726  vnet_lisp_add_del_locator_set (ls_args, &ls_index);
1727 
1728  /* Add petr mapping */
1729  pool_get (lcm->mapping_pool, m);
1730  m->locator_set_index = ls_index;
1731  lcm->petr_map_index = m - lcm->mapping_pool;
1732 
1733  /* Enable use-petr */
1734  lcm->flags |= LISP_FLAG_USE_PETR;
1735  }
1736  else
1737  {
1739 
1740  /* Remove petr locator */
1741  ls_args->is_add = 0;
1742  ls_args->index = m->locator_set_index;
1743  vnet_lisp_add_del_locator_set (ls_args, 0);
1744 
1745  /* Remove petr mapping */
1747 
1748  /* Disable use-petr */
1749  lcm->flags &= ~LISP_FLAG_USE_PETR;
1750  lcm->petr_map_index = ~0;
1751  }
1752  return 0;
1753 }
1754 
1755 /* cleans locator to locator-set data and removes locators not part of
1756  * any locator-set */
1757 static void
1759 {
1760  u32 i, j, *loc_indexp, *ls_indexp, **ls_indexes, *to_be_deleted = 0;
1762  for (i = 0; i < vec_len (ls->locator_indices); i++)
1763  {
1764  loc_indexp = vec_elt_at_index (ls->locator_indices, i);
1765  ls_indexes = vec_elt_at_index (lcm->locator_to_locator_sets,
1766  loc_indexp[0]);
1767  for (j = 0; j < vec_len (ls_indexes[0]); j++)
1768  {
1769  ls_indexp = vec_elt_at_index (ls_indexes[0], j);
1770  if (ls_indexp[0] == lsi)
1771  break;
1772  }
1773 
1774  /* delete index for removed locator-set */
1775  vec_del1 (ls_indexes[0], j);
1776 
1777  /* delete locator if it's part of no locator-set */
1778  if (vec_len (ls_indexes[0]) == 0)
1779  {
1780  pool_put_index (lcm->locator_pool, loc_indexp[0]);
1781  vec_add1 (to_be_deleted, i);
1782  }
1783  }
1784 
1785  if (to_be_deleted)
1786  {
1787  for (i = 0; i < vec_len (to_be_deleted); i++)
1788  {
1789  loc_indexp = vec_elt_at_index (to_be_deleted, i);
1790  vec_del1 (ls->locator_indices, loc_indexp[0]);
1791  }
1792  vec_free (to_be_deleted);
1793  }
1794 }
1795 
1796 static inline uword *
1798 {
1800 
1801  ASSERT (a != NULL);
1802  ASSERT (p != NULL);
1803 
1804  /* find locator-set */
1805  if (a->local)
1806  {
1807  ASSERT (a->name);
1809  }
1810  else
1811  {
1812  *p = a->index;
1813  }
1814 
1815  return p;
1816 }
1817 
1818 static inline int
1820  locator_t * loc)
1821 {
1822  locator_t *itloc;
1823  u32 *locit;
1824 
1825  ASSERT (ls != NULL);
1826  ASSERT (loc != NULL);
1827 
1828  vec_foreach (locit, ls->locator_indices)
1829  {
1830  itloc = pool_elt_at_index (lcm->locator_pool, locit[0]);
1831  if ((ls->local && itloc->sw_if_index == loc->sw_if_index) ||
1832  (!ls->local && !gid_address_cmp (&itloc->address, &loc->address)))
1833  {
1834  clib_warning ("Duplicate locator");
1835  return VNET_API_ERROR_VALUE_EXIST;
1836  }
1837  }
1838 
1839  return 0;
1840 }
1841 
1842 static void
1844  u32 mapping_index, u8 remove_only)
1845 {
1846  fwd_entry_t *fwd;
1847  mapping_t *map;
1848  uword *fei = 0, *rmts_idxp = 0;
1849  u32 **rmts = 0, *remote_idxp = 0, *rmts_copy = 0;
1851  memset (a, 0, sizeof (*a));
1852 
1853  map = pool_elt_at_index (lcm->mapping_pool, mapping_index);
1854 
1855  if (map->local)
1856  {
1857  rmts_idxp = hash_get (lcm->lcl_to_rmt_adjs_by_lcl_idx, mapping_index);
1858  if (rmts_idxp)
1859  {
1860  rmts =
1861  pool_elt_at_index (lcm->lcl_to_rmt_adjacencies, rmts_idxp[0]);
1862  rmts_copy = vec_dup (rmts[0]);
1863 
1864  vec_foreach (remote_idxp, rmts_copy)
1865  {
1866  fei = hash_get (lcm->fwd_entry_by_mapping_index, remote_idxp[0]);
1867  if (!fei)
1868  continue;
1869 
1870  fwd = pool_elt_at_index (lcm->fwd_entry_pool, fei[0]);
1871  a->is_add = 0;
1872  gid_address_copy (&a->leid, &fwd->leid);
1873  gid_address_copy (&a->reid, &fwd->reid);
1875 
1876  if (!remove_only)
1877  {
1878  a->is_add = 1;
1880  }
1881  }
1882  vec_free (rmts_copy);
1883  }
1884  }
1885  else
1886  {
1887  fei = hash_get (lcm->fwd_entry_by_mapping_index, mapping_index);
1888  if (!fei)
1889  return;
1890 
1891  fwd = pool_elt_at_index (lcm->fwd_entry_pool, fei[0]);
1892  a->is_add = 0;
1893  gid_address_copy (&a->leid, &fwd->leid);
1894  gid_address_copy (&a->reid, &fwd->reid);
1896 
1897  if (!remove_only)
1898  {
1899  a->is_add = 1;
1901  }
1902  }
1903 }
1904 
1905 static void
1907  u32 ls_index, u8 remove_only)
1908 {
1909  u32 i, *map_indexp;
1910  u32 **eid_indexes;
1911 
1912  if (vec_len (lcm->locator_set_to_eids) <= ls_index)
1913  return;
1914 
1915  eid_indexes = vec_elt_at_index (lcm->locator_set_to_eids, ls_index);
1916 
1917  for (i = 0; i < vec_len (eid_indexes[0]); i++)
1918  {
1919  map_indexp = vec_elt_at_index (eid_indexes[0], i);
1920  update_adjacencies_by_map_index (lcm, map_indexp[0], remove_only);
1921  }
1922 }
1923 
1924 static inline void
1926  u32 ls_index, u32 loc_id)
1927 {
1929  u32 **ls_indexes = NULL;
1930 
1931  ASSERT (ls != NULL);
1932  ASSERT (locit != NULL);
1933 
1934  ls_indexes = vec_elt_at_index (lcm->locator_to_locator_sets, locit[0]);
1935  pool_put_index (lcm->locator_pool, locit[0]);
1936  vec_del1 (ls->locator_indices, loc_id);
1937  vec_del1 (ls_indexes[0], ls_index);
1938 }
1939 
1940 int
1942  locator_set_t * ls, u32 * ls_result)
1943 {
1945  locator_t *loc = NULL, *itloc = NULL;
1946  uword _p = (u32) ~ 0, *p = &_p;
1947  u32 loc_index = ~0, ls_index = ~0, *locit = NULL, **ls_indexes = NULL;
1948  u32 loc_id = ~0;
1949  int ret = 0;
1950 
1951  ASSERT (a != NULL);
1952 
1953  if (vnet_lisp_enable_disable_status () == 0)
1954  {
1955  clib_warning ("LISP is disabled!");
1956  return VNET_API_ERROR_LISP_DISABLED;
1957  }
1958 
1959  p = get_locator_set_index (a, p);
1960  if (!p)
1961  {
1962  clib_warning ("locator-set %v doesn't exist", a->name);
1963  return VNET_API_ERROR_INVALID_ARGUMENT;
1964  }
1965 
1966  if (ls == 0)
1967  {
1968  ls = pool_elt_at_index (lcm->locator_set_pool, p[0]);
1969  if (!ls)
1970  {
1971  clib_warning ("locator-set %d to be overwritten doesn't exist!",
1972  p[0]);
1973  return VNET_API_ERROR_INVALID_ARGUMENT;
1974  }
1975  }
1976 
1977  if (a->is_add)
1978  {
1979  if (ls_result)
1980  ls_result[0] = p[0];
1981 
1982  /* allocate locators */
1983  vec_foreach (itloc, a->locators)
1984  {
1985  ret = is_locator_in_locator_set (lcm, ls, itloc);
1986  if (0 != ret)
1987  {
1988  return ret;
1989  }
1990 
1991  pool_get (lcm->locator_pool, loc);
1992  loc[0] = itloc[0];
1993  loc_index = loc - lcm->locator_pool;
1994 
1995  vec_add1 (ls->locator_indices, loc_index);
1996 
1997  vec_validate (lcm->locator_to_locator_sets, loc_index);
1998  ls_indexes = vec_elt_at_index (lcm->locator_to_locator_sets,
1999  loc_index);
2000  vec_add1 (ls_indexes[0], p[0]);
2001  }
2002  }
2003  else
2004  {
2005  ls_index = p[0];
2006  u8 removed;
2007 
2008  vec_foreach (itloc, a->locators)
2009  {
2010  removed = 0;
2011  loc_id = 0;
2012  vec_foreach (locit, ls->locator_indices)
2013  {
2014  loc = pool_elt_at_index (lcm->locator_pool, locit[0]);
2015 
2016  if (loc->local && loc->sw_if_index == itloc->sw_if_index)
2017  {
2018  removed = 1;
2019  remove_locator_from_locator_set (ls, locit, ls_index, loc_id);
2020  }
2021  if (0 == loc->local &&
2022  !gid_address_cmp (&loc->address, &itloc->address))
2023  {
2024  removed = 1;
2025  remove_locator_from_locator_set (ls, locit, ls_index, loc_id);
2026  }
2027 
2028  if (removed)
2029  {
2030  /* update fwd entries using this locator in DP */
2031  update_fwd_entries_by_locator_set (lcm, ls_index,
2032  vec_len (ls->locator_indices)
2033  == 0);
2034  }
2035 
2036  loc_id++;
2037  }
2038  }
2039  }
2040 
2041  return 0;
2042 }
2043 
2044 int
2046  u32 * ls_result)
2047 {
2049  locator_set_t *ls;
2050  uword _p = (u32) ~ 0, *p = &_p;
2051  u32 ls_index;
2052  u32 **eid_indexes;
2053  int ret = 0;
2054 
2055  if (vnet_lisp_enable_disable_status () == 0)
2056  {
2057  clib_warning ("LISP is disabled!");
2058  return VNET_API_ERROR_LISP_DISABLED;
2059  }
2060 
2061  if (a->is_add)
2062  {
2063  p = get_locator_set_index (a, p);
2064 
2065  /* overwrite */
2066  if (p && p[0] != (u32) ~ 0)
2067  {
2068  ls = pool_elt_at_index (lcm->locator_set_pool, p[0]);
2069  if (!ls)
2070  {
2071  clib_warning ("locator-set %d to be overwritten doesn't exist!",
2072  p[0]);
2073  return -1;
2074  }
2075 
2076  /* clean locator to locator-set vectors and remove locators if
2077  * they're not part of another locator-set */
2078  clean_locator_to_locator_set (lcm, p[0]);
2079 
2080  /* remove locator indices from locator set */
2081  vec_free (ls->locator_indices);
2082 
2083  ls_index = p[0];
2084 
2085  if (ls_result)
2086  ls_result[0] = p[0];
2087  }
2088  /* new locator-set */
2089  else
2090  {
2091  pool_get (lcm->locator_set_pool, ls);
2092  memset (ls, 0, sizeof (*ls));
2093  ls_index = ls - lcm->locator_set_pool;
2094 
2095  if (a->local)
2096  {
2097  ls->name = vec_dup (a->name);
2098 
2099  if (!lcm->locator_set_index_by_name)
2101  /* size */
2102  0,
2103  sizeof
2104  (ls->name
2105  [0]),
2106  sizeof
2107  (uword));
2109  ls_index);
2110 
2111  /* mark as local locator-set */
2112  vec_add1 (lcm->local_locator_set_indexes, ls_index);
2113  }
2114  ls->local = a->local;
2115  if (ls_result)
2116  ls_result[0] = ls_index;
2117  }
2118 
2119  ret = vnet_lisp_add_del_locator (a, ls, NULL);
2120  if (0 != ret)
2121  {
2122  return ret;
2123  }
2124  }
2125  else
2126  {
2127  p = get_locator_set_index (a, p);
2128  if (!p)
2129  {
2130  clib_warning ("locator-set %v doesn't exists", a->name);
2131  return -1;
2132  }
2133 
2134  ls = pool_elt_at_index (lcm->locator_set_pool, p[0]);
2135  if (!ls)
2136  {
2137  clib_warning ("locator-set with index %d doesn't exists", p[0]);
2138  return -1;
2139  }
2140 
2141  if (lcm->mreq_itr_rlocs == p[0])
2142  {
2143  clib_warning ("Can't delete the locator-set used to constrain "
2144  "the itr-rlocs in map-requests!");
2145  return -1;
2146  }
2147 
2148  if (vec_len (lcm->locator_set_to_eids) != 0)
2149  {
2150  eid_indexes = vec_elt_at_index (lcm->locator_set_to_eids, p[0]);
2151  if (vec_len (eid_indexes[0]) != 0)
2152  {
2153  clib_warning
2154  ("Can't delete a locator that supports a mapping!");
2155  return -1;
2156  }
2157  }
2158 
2159  /* clean locator to locator-sets data */
2160  clean_locator_to_locator_set (lcm, p[0]);
2161 
2162  if (ls->local)
2163  {
2164  u32 it, lsi;
2165 
2167  {
2168  lsi = vec_elt (lcm->local_locator_set_indexes, it);
2169  if (lsi == p[0])
2170  {
2172  break;
2173  }
2174  }
2176  }
2177  vec_free (ls->name);
2178  vec_free (ls->locator_indices);
2179  pool_put (lcm->locator_set_pool, ls);
2180  }
2181  return 0;
2182 }
2183 
2184 int
2186 {
2188 
2189  lcm->rloc_probing = is_enable;
2190  return 0;
2191 }
2192 
2193 int
2195 {
2197 
2198  lcm->map_registering = is_enable;
2199  return 0;
2200 }
2201 
2202 static void
2204 {
2205  udp_register_dst_port (vm, UDP_DST_PORT_lisp_cp,
2206  lisp_cp_input_node.index, 1 /* is_ip4 */ );
2207  udp_register_dst_port (vm, UDP_DST_PORT_lisp_cp6,
2208  lisp_cp_input_node.index, 0 /* is_ip4 */ );
2209 }
2210 
2211 static void
2213 {
2214  udp_unregister_dst_port (vm, UDP_DST_PORT_lisp_cp, 0 /* is_ip4 */ );
2215  udp_unregister_dst_port (vm, UDP_DST_PORT_lisp_cp6, 1 /* is_ip4 */ );
2216 }
2217 
2218 /**
2219  * lisp_cp_enable_l2_l3_ifaces
2220  *
2221  * Enable all l2 and l3 ifaces
2222  */
2223 static void
2224 lisp_cp_enable_l2_l3_ifaces (lisp_cp_main_t * lcm, u8 with_default_route)
2225 {
2226  u32 vni, dp_table;
2227 
2228  /* *INDENT-OFF* */
2229  hash_foreach(vni, dp_table, lcm->table_id_by_vni, ({
2230  dp_add_del_iface(lcm, vni, /* is_l2 */ 0, /* is_add */1,
2231  with_default_route);
2232  }));
2233  hash_foreach(vni, dp_table, lcm->bd_id_by_vni, ({
2234  dp_add_del_iface(lcm, vni, /* is_l2 */ 1, 1,
2235  with_default_route);
2236  }));
2237  /* *INDENT-ON* */
2238 }
2239 
2240 static void
2242 {
2243  u32 **rmts;
2244 
2245  /* clear interface table */
2247  pool_free (lcm->fwd_entry_pool);
2248  /* Clear state tracking rmt-lcl fwd entries */
2249  /* *INDENT-OFF* */
2251  {
2252  vec_free(rmts[0]);
2253  });
2254  /* *INDENT-ON* */
2257 }
2258 
2259 clib_error_t *
2261 {
2262  clib_error_t *error = 0;
2265 
2266  a->is_en = is_enable;
2267  error = vnet_lisp_gpe_enable_disable (a);
2268  if (error)
2269  {
2270  return clib_error_return (0, "failed to %s data-plane!",
2271  a->is_en ? "enable" : "disable");
2272  }
2273 
2274  /* decide what to do based on mode */
2275 
2276  if (lcm->flags & LISP_FLAG_XTR_MODE)
2277  {
2278  if (is_enable)
2279  {
2281  lisp_cp_enable_l2_l3_ifaces (lcm, 1 /* with_default_route */ );
2282  }
2283  else
2284  {
2287  }
2288  }
2289 
2290  if (lcm->flags & LISP_FLAG_PETR_MODE)
2291  {
2292  /* if in xTR mode, the LISP ports were already (un)registered above */
2293  if (!(lcm->flags & LISP_FLAG_XTR_MODE))
2294  {
2295  if (is_enable)
2297  else
2299  }
2300  }
2301 
2302  if (lcm->flags & LISP_FLAG_PITR_MODE)
2303  {
2304  if (is_enable)
2305  {
2306  /* install interfaces, but no default routes */
2307  lisp_cp_enable_l2_l3_ifaces (lcm, 0 /* with_default_route */ );
2308  }
2309  else
2310  {
2312  }
2313  }
2314 
2315  /* update global flag */
2316  lcm->is_enabled = is_enable;
2317 
2318  return 0;
2319 }
2320 
2321 u8
2323 {
2325  return lcm->is_enabled;
2326 }
2327 
2328 int
2330 {
2332  u32 i;
2333  lisp_msmr_t _mr, *mr = &_mr;
2334 
2335  if (vnet_lisp_enable_disable_status () == 0)
2336  {
2337  clib_warning ("LISP is disabled!");
2338  return VNET_API_ERROR_LISP_DISABLED;
2339  }
2340 
2341  if (a->is_add)
2342  {
2343 
2344  if (get_map_resolver (&a->address))
2345  {
2346  clib_warning ("map-resolver %U already exists!", format_ip_address,
2347  &a->address);
2348  return -1;
2349  }
2350 
2351  memset (mr, 0, sizeof (*mr));
2352  ip_address_copy (&mr->address, &a->address);
2353  vec_add1 (lcm->map_resolvers, *mr);
2354 
2355  if (vec_len (lcm->map_resolvers) == 1)
2356  lcm->do_map_resolver_election = 1;
2357  }
2358  else
2359  {
2360  for (i = 0; i < vec_len (lcm->map_resolvers); i++)
2361  {
2362  mr = vec_elt_at_index (lcm->map_resolvers, i);
2363  if (!ip_address_cmp (&mr->address, &a->address))
2364  {
2365  if (!ip_address_cmp (&mr->address, &lcm->active_map_resolver))
2366  lcm->do_map_resolver_election = 1;
2367 
2368  vec_del1 (lcm->map_resolvers, i);
2369  break;
2370  }
2371  }
2372  }
2373  return 0;
2374 }
2375 
2376 int
2378 {
2380  lcm->map_register_ttl = ttl;
2381  return 0;
2382 }
2383 
2384 u32
2386 {
2388  return lcm->map_register_ttl;
2389 }
2390 
2391 int
2393 {
2395  uword *p = 0;
2396 
2397  if (vnet_lisp_enable_disable_status () == 0)
2398  {
2399  clib_warning ("LISP is disabled!");
2400  return VNET_API_ERROR_LISP_DISABLED;
2401  }
2402 
2403  if (a->is_add)
2404  {
2406  if (!p)
2407  {
2408  clib_warning ("locator-set %v doesn't exist", a->locator_set_name);
2409  return VNET_API_ERROR_INVALID_ARGUMENT;
2410  }
2411 
2412  lcm->mreq_itr_rlocs = p[0];
2413  }
2414  else
2415  {
2416  lcm->mreq_itr_rlocs = ~0;
2417  }
2418 
2419  return 0;
2420 }
2421 
2422 /* Statistics (not really errors) */
2423 #define foreach_lisp_cp_lookup_error \
2424 _(DROP, "drop") \
2425 _(MAP_REQUESTS_SENT, "map-request sent") \
2426 _(ARP_REPLY_TX, "ARP replies sent") \
2427 _(NDP_NEIGHBOR_ADVERTISEMENT_TX, \
2428  "neighbor advertisement sent")
2429 
2431 #define _(sym,string) string,
2433 #undef _
2434 };
2435 
2436 typedef enum
2437 {
2438 #define _(sym,str) LISP_CP_LOOKUP_ERROR_##sym,
2440 #undef _
2443 
2444 typedef enum
2445 {
2450 
2451 typedef struct
2452 {
2454  ip_address_t map_resolver_ip;
2456 
2457 u8 *
2458 format_lisp_cp_lookup_trace (u8 * s, va_list * args)
2459 {
2460  CLIB_UNUSED (vlib_main_t * vm) = va_arg (*args, vlib_main_t *);
2461  CLIB_UNUSED (vlib_node_t * node) = va_arg (*args, vlib_node_t *);
2462  lisp_cp_lookup_trace_t *t = va_arg (*args, lisp_cp_lookup_trace_t *);
2463 
2464  s = format (s, "LISP-CP-LOOKUP: map-resolver: %U destination eid %U",
2466  &t->dst_eid);
2467  return s;
2468 }
2469 
2470 int
2471 get_mr_and_local_iface_ip (lisp_cp_main_t * lcm, ip_address_t * mr_ip,
2472  ip_address_t * sloc)
2473 {
2474  lisp_msmr_t *mrit;
2475  ip_address_t *a;
2476 
2477  if (vec_len (lcm->map_resolvers) == 0)
2478  {
2479  clib_warning ("No map-resolver configured");
2480  return 0;
2481  }
2482 
2483  /* find the first mr ip we have a route to and the ip of the
2484  * iface that has a route to it */
2485  vec_foreach (mrit, lcm->map_resolvers)
2486  {
2487  a = &mrit->address;
2488  if (0 != ip_fib_get_first_egress_ip_for_dst (lcm, a, sloc))
2489  {
2490  ip_address_copy (mr_ip, a);
2491 
2492  /* also update globals */
2493  return 1;
2494  }
2495  }
2496 
2497  clib_warning ("Can't find map-resolver and local interface ip!");
2498  return 0;
2499 }
2500 
2501 static gid_address_t *
2503 {
2504  void *addr;
2505  u32 i;
2506  locator_t *loc;
2507  u32 *loc_indexp;
2508  ip_interface_address_t *ia = 0;
2509  gid_address_t gid_data, *gid = &gid_data;
2510  gid_address_t *rlocs = 0;
2511  ip_prefix_t *ippref = &gid_address_ippref (gid);
2512  ip_address_t *rloc = &ip_prefix_addr (ippref);
2513 
2514  memset (gid, 0, sizeof (gid[0]));
2516  for (i = 0; i < vec_len (loc_set->locator_indices); i++)
2517  {
2518  loc_indexp = vec_elt_at_index (loc_set->locator_indices, i);
2519  loc = pool_elt_at_index (lcm->locator_pool, loc_indexp[0]);
2520 
2521  /* Add ipv4 locators first TODO sort them */
2522 
2523  /* *INDENT-OFF* */
2525  loc->sw_if_index, 1 /* unnumbered */,
2526  ({
2527  addr = ip_interface_address_get_address (&lcm->im4->lookup_main, ia);
2528  ip_address_set (rloc, addr, IP4);
2529  ip_prefix_len (ippref) = 32;
2530  ip_prefix_normalize (ippref);
2531  vec_add1 (rlocs, gid[0]);
2532  }));
2533 
2534  /* Add ipv6 locators */
2536  loc->sw_if_index, 1 /* unnumbered */,
2537  ({
2538  addr = ip_interface_address_get_address (&lcm->im6->lookup_main, ia);
2539  ip_address_set (rloc, addr, IP6);
2540  ip_prefix_len (ippref) = 128;
2541  ip_prefix_normalize (ippref);
2542  vec_add1 (rlocs, gid[0]);
2543  }));
2544  /* *INDENT-ON* */
2545 
2546  }
2547  return rlocs;
2548 }
2549 
2550 static vlib_buffer_t *
2552  ip_address_t * sloc, ip_address_t * rloc,
2553  gid_address_t * itr_rlocs, u64 * nonce_res, u32 * bi_res)
2554 {
2555  vlib_buffer_t *b;
2556  u32 bi;
2557  vlib_main_t *vm = lcm->vlib_main;
2558 
2559  if (vlib_buffer_alloc (vm, &bi, 1) != 1)
2560  {
2561  clib_warning ("Can't allocate buffer for Map-Request!");
2562  return 0;
2563  }
2564 
2565  b = vlib_get_buffer (vm, bi);
2566 
2567  /* leave some space for the encap headers */
2569 
2570  /* put lisp msg */
2571  lisp_msg_put_mreq (lcm, b, NULL, deid, itr_rlocs, 0 /* smr invoked */ ,
2572  1 /* rloc probe */ , nonce_res);
2573 
2574  /* push outer ip header */
2576  rloc, 1);
2577 
2578  bi_res[0] = bi;
2579 
2580  return b;
2581 }
2582 
2583 static vlib_buffer_t *
2585  gid_address_t * seid, gid_address_t * deid,
2586  locator_set_t * loc_set, ip_address_t * mr_ip,
2587  ip_address_t * sloc, u8 is_smr_invoked,
2588  u64 * nonce_res, u32 * bi_res)
2589 {
2590  vlib_buffer_t *b;
2591  u32 bi;
2592  gid_address_t *rlocs = 0;
2593  vlib_main_t *vm = lcm->vlib_main;
2594 
2595  if (vlib_buffer_alloc (vm, &bi, 1) != 1)
2596  {
2597  clib_warning ("Can't allocate buffer for Map-Request!");
2598  return 0;
2599  }
2600 
2601  b = vlib_get_buffer (vm, bi);
2602  b->flags = 0;
2603 
2604  /* leave some space for the encap headers */
2606 
2607  /* get rlocs */
2608  rlocs = build_itr_rloc_list (lcm, loc_set);
2609 
2610  if (MR_MODE_SRC_DST == lcm->map_request_mode
2611  && GID_ADDR_SRC_DST != gid_address_type (deid))
2612  {
2613  gid_address_t sd;
2614  memset (&sd, 0, sizeof (sd));
2615  build_src_dst (&sd, seid, deid);
2616  lisp_msg_put_mreq (lcm, b, seid, &sd, rlocs, is_smr_invoked,
2617  0 /* rloc probe */ , nonce_res);
2618  }
2619  else
2620  {
2621  /* put lisp msg */
2622  lisp_msg_put_mreq (lcm, b, seid, deid, rlocs, is_smr_invoked,
2623  0 /* rloc probe */ , nonce_res);
2624  }
2625 
2626  /* push ecm: udp-ip-lisp */
2628 
2629  /* push outer ip header */
2631  mr_ip, 1);
2632 
2633  bi_res[0] = bi;
2634 
2635  vec_free (rlocs);
2636  return b;
2637 }
2638 
2639 static void
2641 {
2643  r->retries_num = 0;
2644 }
2645 
2646 #define foreach_msmr \
2647  _(server) \
2648  _(resolver)
2649 
2650 #define _(name) \
2651 static int \
2652 elect_map_ ## name (lisp_cp_main_t * lcm) \
2653 { \
2654  lisp_msmr_t *mr; \
2655  vec_foreach (mr, lcm->map_ ## name ## s) \
2656  { \
2657  if (!mr->is_down) \
2658  { \
2659  ip_address_copy (&lcm->active_map_ ##name, &mr->address); \
2660  lcm->do_map_ ## name ## _election = 0; \
2661  return 1; \
2662  } \
2663  } \
2664  return 0; \
2665 }
2667 #undef _
2668  static void
2670 {
2671  mapping_t *map;
2672  vec_foreach (map, maps) vec_free (map->locators);
2673 
2674  vec_free (maps);
2675 }
2676 
2677 static void
2678 add_locators (lisp_cp_main_t * lcm, mapping_t * m, u32 locator_set_index,
2679  ip_address_t * probed_loc)
2680 {
2681  u32 *li;
2682  locator_t *loc, new;
2683  ip_interface_address_t *ia = 0;
2684  void *addr;
2685  ip_address_t *new_ip = &gid_address_ip (&new.address);
2686 
2687  m->locators = 0;
2689  locator_set_index);
2690  vec_foreach (li, ls->locator_indices)
2691  {
2692  loc = pool_elt_at_index (lcm->locator_pool, li[0]);
2693  new = loc[0];
2694  if (loc->local)
2695  {
2696  /* *INDENT-OFF* */
2698  loc->sw_if_index, 1 /* unnumbered */,
2699  ({
2700  addr = ip_interface_address_get_address (&lcm->im4->lookup_main,
2701  ia);
2702  ip_address_set (new_ip, addr, IP4);
2703  }));
2704 
2705  /* Add ipv6 locators */
2707  loc->sw_if_index, 1 /* unnumbered */,
2708  ({
2709  addr = ip_interface_address_get_address (&lcm->im6->lookup_main,
2710  ia);
2711  ip_address_set (new_ip, addr, IP6);
2712  }));
2713  /* *INDENT-ON* */
2714 
2715  if (probed_loc && ip_address_cmp (probed_loc, new_ip) == 0)
2716  new.probed = 1;
2717  }
2718  vec_add1 (m->locators, new);
2719  }
2720 }
2721 
2722 static mapping_t *
2724 {
2725  mapping_t *recs = 0, rec, *m;
2726 
2727  /* *INDENT-OFF* */
2728  pool_foreach(m, lcm->mapping_pool,
2729  {
2730  /* for now build only local mappings */
2731  if (!m->local)
2732  continue;
2733 
2734  rec = m[0];
2735  add_locators (lcm, &rec, m->locator_set_index, NULL);
2736  vec_add1 (recs, rec);
2737  });
2738  /* *INDENT-ON* */
2739 
2740  return recs;
2741 }
2742 
2743 static int
2745  lisp_key_type_t key_id, u8 * key,
2746  u16 auth_data_len, u32 msg_len)
2747 {
2748  MREG_KEY_ID (map_reg_hdr) = clib_host_to_net_u16 (key_id);
2749  MREG_AUTH_DATA_LEN (map_reg_hdr) = clib_host_to_net_u16 (auth_data_len);
2750 
2751  unsigned char *result = HMAC (get_encrypt_fcn (key_id), key, vec_len (key),
2752  (unsigned char *) map_reg_hdr, msg_len, NULL,
2753  NULL);
2754  clib_memcpy (MREG_DATA (map_reg_hdr), result, auth_data_len);
2755 
2756  return 0;
2757 }
2758 
2759 static vlib_buffer_t *
2760 build_map_register (lisp_cp_main_t * lcm, ip_address_t * sloc,
2761  ip_address_t * ms_ip, u64 * nonce_res, u8 want_map_notif,
2762  mapping_t * records, lisp_key_type_t key_id, u8 * key,
2763  u32 * bi_res)
2764 {
2765  void *map_reg_hdr;
2766  vlib_buffer_t *b;
2767  u32 bi, auth_data_len = 0, msg_len = 0;
2768  vlib_main_t *vm = lcm->vlib_main;
2769 
2770  if (vlib_buffer_alloc (vm, &bi, 1) != 1)
2771  {
2772  clib_warning ("Can't allocate buffer for Map-Register!");
2773  return 0;
2774  }
2775 
2776  b = vlib_get_buffer (vm, bi);
2777 
2778  /* leave some space for the encap headers */
2780 
2781  auth_data_len = auth_data_len_by_key_id (key_id);
2782  map_reg_hdr = lisp_msg_put_map_register (b, records, want_map_notif,
2783  auth_data_len, nonce_res,
2784  &msg_len);
2785 
2786  update_map_register_auth_data (map_reg_hdr, key_id, key, auth_data_len,
2787  msg_len);
2788 
2789  /* push outer ip header */
2791  ms_ip, 1);
2792 
2793  bi_res[0] = bi;
2794  return b;
2795 }
2796 
2797 #define _(name) \
2798 static int \
2799 get_egress_map_ ##name## _ip (lisp_cp_main_t * lcm, ip_address_t * ip) \
2800 { \
2801  lisp_msmr_t *mr; \
2802  while (lcm->do_map_ ## name ## _election \
2803  | (0 == ip_fib_get_first_egress_ip_for_dst \
2804  (lcm, &lcm->active_map_ ##name, ip))) \
2805  { \
2806  if (0 == elect_map_ ## name (lcm)) \
2807  /* all map resolvers/servers are down */ \
2808  { \
2809  /* restart MR/MS checking by marking all of them up */ \
2810  vec_foreach (mr, lcm->map_ ## name ## s) mr->is_down = 0; \
2811  return -1; \
2812  } \
2813  } \
2814  return 0; \
2815 }
2816 
2818 #undef _
2819 /* CP output statistics */
2820 #define foreach_lisp_cp_output_error \
2821 _(MAP_REGISTERS_SENT, "map-registers sent") \
2822 _(MAP_REQUESTS_SENT, "map-requests sent") \
2823 _(RLOC_PROBES_SENT, "rloc-probes sent")
2825 #define _(sym,string) string,
2827 #undef _
2828 };
2829 
2830 typedef enum
2831 {
2832 #define _(sym,str) LISP_CP_OUTPUT_ERROR_##sym,
2834 #undef _
2837 
2838 static uword
2840  vlib_frame_t * from_frame)
2841 {
2842  return 0;
2843 }
2844 
2845 /* dummy node used only for statistics */
2846 /* *INDENT-OFF* */
2848  .function = lisp_cp_output,
2849  .name = "lisp-cp-output",
2850  .vector_size = sizeof (u32),
2851  .format_trace = format_lisp_cp_input_trace,
2852  .type = VLIB_NODE_TYPE_INTERNAL,
2853 
2854  .n_errors = LISP_CP_OUTPUT_N_ERROR,
2855  .error_strings = lisp_cp_output_error_strings,
2856 
2857  .n_next_nodes = LISP_CP_INPUT_N_NEXT,
2858 
2859  .next_nodes = {
2860  [LISP_CP_INPUT_NEXT_DROP] = "error-drop",
2861  },
2862 };
2863 /* *INDENT-ON* */
2864 
2865 static int
2867  u32 local_locator_set_index, ip_address_t * sloc,
2868  ip_address_t * rloc)
2869 {
2870  locator_set_t *ls;
2871  u32 bi;
2872  vlib_buffer_t *b;
2873  vlib_frame_t *f;
2874  u64 nonce = 0;
2875  u32 next_index, *to_next;
2876  gid_address_t *itr_rlocs;
2877 
2878  ls = pool_elt_at_index (lcm->locator_set_pool, local_locator_set_index);
2879  itr_rlocs = build_itr_rloc_list (lcm, ls);
2880 
2881  b = build_map_request (lcm, deid, sloc, rloc, itr_rlocs, &nonce, &bi);
2882  vec_free (itr_rlocs);
2883  if (!b)
2884  return -1;
2885 
2886  vnet_buffer (b)->sw_if_index[VLIB_TX] = 0;
2887 
2888  next_index = (ip_addr_version (rloc) == IP4) ?
2889  ip4_lookup_node.index : ip6_lookup_node.index;
2890 
2891  f = vlib_get_frame_to_node (lcm->vlib_main, next_index);
2892 
2893  /* Enqueue the packet */
2894  to_next = vlib_frame_vector_args (f);
2895  to_next[0] = bi;
2896  f->n_vectors = 1;
2897  vlib_put_frame_to_node (lcm->vlib_main, next_index, f);
2898 
2899  return 0;
2900 }
2901 
2902 static int
2904 {
2905  u8 lprio = 0;
2906  mapping_t *lm;
2907  fwd_entry_t *e;
2908  locator_pair_t *lp;
2909  u32 si, rloc_probes_sent = 0;
2910 
2911  /* *INDENT-OFF* */
2912  pool_foreach (e, lcm->fwd_entry_pool,
2913  {
2914  if (vec_len (e->locator_pairs) == 0)
2915  continue;
2916 
2917  si = gid_dictionary_lookup (&lcm->mapping_index_by_gid, &e->leid);
2918  if (~0 == si)
2919  {
2920  clib_warning ("internal error: cannot find local eid %U in "
2921  "map-cache!", format_gid_address, &e->leid);
2922  continue;
2923  }
2924  lm = pool_elt_at_index (lcm->mapping_pool, si);
2925 
2926  /* get the best (lowest) priority */
2927  lprio = e->locator_pairs[0].priority;
2928 
2929  /* send rloc-probe for pair(s) with the best remote locator priority */
2930  vec_foreach (lp, e->locator_pairs)
2931  {
2932  if (lp->priority != lprio)
2933  break;
2934 
2935  /* get first remote locator */
2936  send_rloc_probe (lcm, &e->reid, lm->locator_set_index, &lp->lcl_loc,
2937  &lp->rmt_loc);
2938  rloc_probes_sent++;
2939  }
2940  });
2941  /* *INDENT-ON* */
2942 
2944  LISP_CP_OUTPUT_ERROR_RLOC_PROBES_SENT,
2945  rloc_probes_sent);
2946  return 0;
2947 }
2948 
2949 static int
2950 send_map_register (lisp_cp_main_t * lcm, u8 want_map_notif)
2951 {
2953  u32 bi, map_registers_sent = 0;
2954  vlib_buffer_t *b;
2955  ip_address_t sloc;
2956  vlib_frame_t *f;
2957  u64 nonce = 0;
2958  u32 next_index, *to_next;
2959  mapping_t *records, *r, *group, *k;
2960 
2961  if (get_egress_map_server_ip (lcm, &sloc) < 0)
2962  return -1;
2963 
2964  records = build_map_register_record_list (lcm);
2965  if (!records)
2966  return -1;
2967 
2968  vec_foreach (r, records)
2969  {
2970  u8 *key = r->key;
2971  u8 key_id = r->key_id;
2972 
2973  if (!key)
2974  continue; /* no secret key -> map-register cannot be sent */
2975 
2976  group = 0;
2977  vec_add1 (group, r[0]);
2978 
2979  /* group mappings that share common key */
2980  for (k = r + 1; k < vec_end (records); k++)
2981  {
2982  if (k->key_id != r->key_id)
2983  continue;
2984 
2985  if (vec_is_equal (k->key, r->key))
2986  {
2987  vec_add1 (group, k[0]);
2988  k->key = 0; /* don't process this mapping again */
2989  }
2990  }
2991 
2992  b = build_map_register (lcm, &sloc, &lcm->active_map_server, &nonce,
2993  want_map_notif, group, key_id, key, &bi);
2994  vec_free (group);
2995  if (!b)
2996  continue;
2997 
2998  vnet_buffer (b)->sw_if_index[VLIB_TX] = 0;
2999 
3000  next_index = (ip_addr_version (&lcm->active_map_server) == IP4) ?
3001  ip4_lookup_node.index : ip6_lookup_node.index;
3002 
3003  f = vlib_get_frame_to_node (lcm->vlib_main, next_index);
3004 
3005  /* Enqueue the packet */
3006  to_next = vlib_frame_vector_args (f);
3007  to_next[0] = bi;
3008  f->n_vectors = 1;
3009  vlib_put_frame_to_node (lcm->vlib_main, next_index, f);
3010  map_registers_sent++;
3011 
3013  memset (pmr, 0, sizeof (*pmr));
3016  pmr - lcm->pending_map_registers_pool);
3017  }
3018  free_map_register_records (records);
3019 
3021  LISP_CP_OUTPUT_ERROR_MAP_REGISTERS_SENT,
3022  map_registers_sent);
3023 
3024  return 0;
3025 }
3026 
3027 #define send_encapsulated_map_request(lcm, seid, deid, smr) \
3028  _send_encapsulated_map_request(lcm, seid, deid, smr, 0)
3029 
3030 #define resend_encapsulated_map_request(lcm, seid, deid, smr) \
3031  _send_encapsulated_map_request(lcm, seid, deid, smr, 1)
3032 
3033 static int
3034 _send_encapsulated_map_request (lisp_cp_main_t * lcm,
3035  gid_address_t * seid, gid_address_t * deid,
3036  u8 is_smr_invoked, u8 is_resend)
3037 {
3038  u32 next_index, bi = 0, *to_next, map_index;
3039  vlib_buffer_t *b;
3040  vlib_frame_t *f;
3041  u64 nonce = 0;
3042  locator_set_t *loc_set;
3043  mapping_t *map;
3044  pending_map_request_t *pmr, *duplicate_pmr = 0;
3045  ip_address_t sloc;
3046  u32 ls_index;
3047 
3048  /* if there is already a pending request remember it */
3049 
3050  /* *INDENT-OFF* */
3052  ({
3053  if (!gid_address_cmp (&pmr->src, seid)
3054  && !gid_address_cmp (&pmr->dst, deid))
3055  {
3056  duplicate_pmr = pmr;
3057  break;
3058  }
3059  }));
3060  /* *INDENT-ON* */
3061 
3062  if (!is_resend && duplicate_pmr)
3063  {
3064  /* don't send the request if there is a pending map request already */
3065  return 0;
3066  }
3067 
3068  u8 pitr_mode = lcm->flags & LISP_FLAG_PITR_MODE;
3069 
3070  /* get locator-set for seid */
3071  if (!pitr_mode && gid_address_type (deid) != GID_ADDR_NSH)
3072  {
3073  map_index = gid_dictionary_lookup (&lcm->mapping_index_by_gid, seid);
3074  if (map_index == ~0)
3075  {
3076  clib_warning ("No local mapping found in eid-table for %U!",
3077  format_gid_address, seid);
3078  return -1;
3079  }
3080 
3081  map = pool_elt_at_index (lcm->mapping_pool, map_index);
3082 
3083  if (!map->local)
3084  {
3085  clib_warning
3086  ("Mapping found for src eid %U is not marked as local!",
3087  format_gid_address, seid);
3088  return -1;
3089  }
3090  ls_index = map->locator_set_index;
3091  }
3092  else
3093  {
3094  if (pitr_mode)
3095  {
3096  if (lcm->pitr_map_index != ~0)
3097  {
3098  map =
3099  pool_elt_at_index (lcm->mapping_pool, lcm->pitr_map_index);
3100  ls_index = map->locator_set_index;
3101  }
3102  else
3103  {
3104  return -1;
3105  }
3106  }
3107  else
3108  {
3109  if (lcm->nsh_map_index == (u32) ~ 0)
3110  {
3111  clib_warning ("No locator-set defined for NSH!");
3112  return -1;
3113  }
3114  else
3115  {
3116  map = pool_elt_at_index (lcm->mapping_pool, lcm->nsh_map_index);
3117  ls_index = map->locator_set_index;
3118  }
3119  }
3120  }
3121 
3122  /* overwrite locator set if map-request itr-rlocs configured */
3123  if (~0 != lcm->mreq_itr_rlocs)
3124  {
3125  ls_index = lcm->mreq_itr_rlocs;
3126  }
3127 
3128  loc_set = pool_elt_at_index (lcm->locator_set_pool, ls_index);
3129 
3130  if (get_egress_map_resolver_ip (lcm, &sloc) < 0)
3131  {
3132  if (duplicate_pmr)
3133  duplicate_pmr->to_be_removed = 1;
3134  return -1;
3135  }
3136 
3137  /* build the encapsulated map request */
3138  b = build_encapsulated_map_request (lcm, seid, deid, loc_set,
3139  &lcm->active_map_resolver,
3140  &sloc, is_smr_invoked, &nonce, &bi);
3141 
3142  if (!b)
3143  return -1;
3144 
3145  /* set fib index to default and lookup node */
3146  vnet_buffer (b)->sw_if_index[VLIB_TX] = 0;
3147  next_index = (ip_addr_version (&lcm->active_map_resolver) == IP4) ?
3148  ip4_lookup_node.index : ip6_lookup_node.index;
3149 
3150  f = vlib_get_frame_to_node (lcm->vlib_main, next_index);
3151 
3152  /* Enqueue the packet */
3153  to_next = vlib_frame_vector_args (f);
3154  to_next[0] = bi;
3155  f->n_vectors = 1;
3156  vlib_put_frame_to_node (lcm->vlib_main, next_index, f);
3157 
3159  LISP_CP_OUTPUT_ERROR_MAP_REQUESTS_SENT, 1);
3160 
3161  if (duplicate_pmr)
3162  /* if there is a pending request already update it */
3163  {
3164  if (clib_fifo_elts (duplicate_pmr->nonces) >= PENDING_MREQ_QUEUE_LEN)
3165  {
3166  /* remove the oldest nonce */
3167  u64 CLIB_UNUSED (tmp), *nonce_del;
3168  nonce_del = clib_fifo_head (duplicate_pmr->nonces);
3169  hash_unset (lcm->pending_map_requests_by_nonce, nonce_del[0]);
3170  clib_fifo_sub1 (duplicate_pmr->nonces, tmp);
3171  }
3172 
3173  clib_fifo_add1 (duplicate_pmr->nonces, nonce);
3174  hash_set (lcm->pending_map_requests_by_nonce, nonce,
3175  duplicate_pmr - lcm->pending_map_requests_pool);
3176  }
3177  else
3178  {
3179  /* add map-request to pending requests table */
3180  pool_get (lcm->pending_map_requests_pool, pmr);
3181  memset (pmr, 0, sizeof (*pmr));
3182  gid_address_copy (&pmr->src, seid);
3183  gid_address_copy (&pmr->dst, deid);
3184  clib_fifo_add1 (pmr->nonces, nonce);
3185  pmr->is_smr_invoked = is_smr_invoked;
3187  hash_set (lcm->pending_map_requests_by_nonce, nonce,
3188  pmr - lcm->pending_map_requests_pool);
3189  }
3190 
3191  return 0;
3192 }
3193 
3194 static void
3195 get_src_and_dst_ip (void *hdr, ip_address_t * src, ip_address_t * dst)
3196 {
3197  ip4_header_t *ip4 = hdr;
3198  ip6_header_t *ip6;
3199 
3200  if ((ip4->ip_version_and_header_length & 0xF0) == 0x40)
3201  {
3202  ip_address_set (src, &ip4->src_address, IP4);
3203  ip_address_set (dst, &ip4->dst_address, IP4);
3204  }
3205  else
3206  {
3207  ip6 = hdr;
3208  ip_address_set (src, &ip6->src_address, IP6);
3209  ip_address_set (dst, &ip6->dst_address, IP6);
3210  }
3211 }
3212 
3213 static u32
3215  u8 version)
3216 {
3217  uword *vnip;
3218  u32 vni = ~0, table_id = ~0;
3219 
3220  table_id = fib_table_get_table_id_for_sw_if_index ((version ==
3221  IP4 ? FIB_PROTOCOL_IP4 :
3223  vnet_buffer
3224  (b)->sw_if_index
3225  [VLIB_RX]);
3226 
3227  vnip = hash_get (lcm->vni_by_table_id, table_id);
3228  if (vnip)
3229  vni = vnip[0];
3230  else
3231  clib_warning ("vrf %d is not mapped to any vni!", table_id);
3232 
3233  return vni;
3234 }
3235 
3238 {
3239  u32 sw_if_index0;
3240 
3241  l2input_main_t *l2im = &l2input_main;
3242  l2_input_config_t *config;
3243  l2_bridge_domain_t *bd_config;
3244 
3245  sw_if_index0 = vnet_buffer (b)->sw_if_index[VLIB_RX];
3246  config = vec_elt_at_index (l2im->configs, sw_if_index0);
3247  bd_config = vec_elt_at_index (l2im->bd_configs, config->bd_index);
3248 
3249  return bd_config->bd_id;
3250 }
3251 
3254 {
3255  uword *vnip;
3256  u32 vni = ~0;
3258 
3259  vnip = hash_get (lcm->vni_by_bd_id, bd);
3260  if (vnip)
3261  vni = vnip[0];
3262  else
3263  clib_warning ("bridge domain %d is not mapped to any vni!", bd);
3264 
3265  return vni;
3266 }
3267 
3268 void
3270  gid_address_t * src, gid_address_t * dst,
3271  u16 type)
3272 {
3273  ethernet_header_t *eh;
3274  u32 vni = 0;
3275  icmp6_neighbor_discovery_ethernet_link_layer_address_option_t *opt;
3276 
3277  memset (src, 0, sizeof (*src));
3278  memset (dst, 0, sizeof (*dst));
3279 
3282 
3283  if (LISP_AFI_IP == type || LISP_AFI_IP6 == type)
3284  {
3285  ip4_header_t *ip;
3286  u8 version, preflen;
3287 
3290 
3291  ip = vlib_buffer_get_current (b);
3292  get_src_and_dst_ip (ip, &gid_address_ip (src), &gid_address_ip (dst));
3293 
3294  version = gid_address_ip_version (src);
3295  preflen = ip_address_max_len (version);
3296  gid_address_ippref_len (src) = preflen;
3297  gid_address_ippref_len (dst) = preflen;
3298 
3299  vni = lisp_get_vni_from_buffer_ip (lcm, b, version);
3300  gid_address_vni (dst) = vni;
3301  gid_address_vni (src) = vni;
3302  }
3303  else if (LISP_AFI_MAC == type)
3304  {
3306 
3307  eh = vlib_buffer_get_current (b);
3308 
3309  if (clib_net_to_host_u16 (eh->type) == ETHERNET_TYPE_ARP)
3310  {
3311  ah = (ethernet_arp_header_t *) (((u8 *) eh) + sizeof (*eh));
3313 
3314  if (clib_net_to_host_u16 (ah->opcode)
3315  != ETHERNET_ARP_OPCODE_request)
3316  {
3317  memset (&gid_address_arp_ndp_ip (dst), 0,
3318  sizeof (ip_address_t));
3320  gid_address_arp_ndp_bd (dst) = ~0;
3321  return;
3322  }
3323 
3326  &ah->ip4_over_ethernet[1].ip4, 4);
3327  }
3328  else
3329  {
3330  if (clib_net_to_host_u16 (eh->type) == ETHERNET_TYPE_IP6)
3331  {
3332  ip6_header_t *ip;
3333  ip = (ip6_header_t *) (eh + 1);
3334 
3335  if (IP_PROTOCOL_ICMP6 == ip->protocol)
3336  {
3337  icmp6_neighbor_solicitation_or_advertisement_header_t *ndh;
3338  ndh = ip6_next_header (ip);
3339  if (ndh->icmp.type == ICMP6_neighbor_solicitation)
3340  {
3342 
3343  /* check that source link layer address option is present */
3344  opt = (void *) (ndh + 1);
3345  if ((opt->header.type !=
3346  ICMP6_NEIGHBOR_DISCOVERY_OPTION_source_link_layer_address)
3347  || (opt->header.n_data_u64s != 1))
3348  {
3349  memset (&gid_address_arp_ndp_ip (dst), 0,
3350  sizeof (ip_address_t));
3352  IP6;
3353  gid_address_arp_ndp_bd (dst) = ~0;
3355  return;
3356  }
3357 
3358  gid_address_ndp_bd (dst) =
3361  &ndh->target_address, IP6);
3362  return;
3363  }
3364  }
3365  }
3366 
3369  mac_copy (&gid_address_mac (src), eh->src_address);
3370  mac_copy (&gid_address_mac (dst), eh->dst_address);
3371 
3372  /* get vni */
3373  vni = lisp_get_vni_from_buffer_eth (lcm, b);
3374 
3375  gid_address_vni (dst) = vni;
3376  gid_address_vni (src) = vni;
3377  }
3378  }
3379  else if (LISP_AFI_LCAF == type)
3380  {
3381  lisp_nsh_hdr_t *nh;
3382  eh = vlib_buffer_get_current (b);
3383 
3384  if (clib_net_to_host_u16 (eh->type) == ETHERNET_TYPE_NSH)
3385  {
3386  nh = (lisp_nsh_hdr_t *) (((u8 *) eh) + sizeof (*eh));
3387  u32 spi = clib_net_to_host_u32 (nh->spi_si << 8);
3388  u8 si = (u8) clib_net_to_host_u32 (nh->spi_si);
3389  gid_address_nsh_spi (dst) = spi;
3390  gid_address_nsh_si (dst) = si;
3391 
3394  }
3395  }
3396 }
3397 
3398 static uword
3400  vlib_node_runtime_t * node,
3401  vlib_frame_t * from_frame, int overlay)
3402 {
3403  icmp6_neighbor_discovery_ethernet_link_layer_address_option_t *opt;
3404  u32 *from, *to_next, di, si;
3406  u32 next_index;
3407  uword n_left_from, n_left_to_next;
3408  vnet_main_t *vnm = vnet_get_main ();
3409 
3410  from = vlib_frame_vector_args (from_frame);
3411  n_left_from = from_frame->n_vectors;
3412  next_index = node->cached_next_index;
3413 
3414  while (n_left_from > 0)
3415  {
3416  vlib_get_next_frame (vm, node, next_index, to_next, n_left_to_next);
3417 
3418  while (n_left_from > 0 && n_left_to_next > 0)
3419  {
3420  u32 pi0, sw_if_index0, next0;
3421  u64 mac0;
3422  vlib_buffer_t *b0;
3423  gid_address_t src, dst;
3424  ethernet_arp_header_t *arp0;
3425  ethernet_header_t *eth0;
3426  vnet_hw_interface_t *hw_if0;
3427  ethernet_header_t *eh0;
3428  icmp6_neighbor_solicitation_or_advertisement_header_t *ndh;
3429  ip6_header_t *ip0;
3430 
3431  pi0 = from[0];
3432  from += 1;
3433  n_left_from -= 1;
3434  to_next[0] = pi0;
3435  to_next += 1;
3436  n_left_to_next -= 1;
3437 
3438  b0 = vlib_get_buffer (vm, pi0);
3439 
3440  /* src/dst eid pair */
3441  get_src_and_dst_eids_from_buffer (lcm, b0, &src, &dst, overlay);
3442 
3443  if (gid_address_type (&dst) == GID_ADDR_ARP)
3444  {
3445  mac0 = gid_dictionary_lookup (&lcm->mapping_index_by_gid, &dst);
3446  if (GID_LOOKUP_MISS_L2 == mac0)
3447  goto drop;
3448 
3449  /* send ARP reply */
3450  sw_if_index0 = vnet_buffer (b0)->sw_if_index[VLIB_RX];
3451  vnet_buffer (b0)->sw_if_index[VLIB_TX] = sw_if_index0;
3452 
3453  hw_if0 = vnet_get_sup_hw_interface (vnm, sw_if_index0);
3454 
3455  eth0 = vlib_buffer_get_current (b0);
3456  arp0 = (ethernet_arp_header_t *) (((u8 *) eth0)
3457  + sizeof (*eth0));
3458  arp0->opcode = clib_host_to_net_u16 (ETHERNET_ARP_OPCODE_reply);
3459  arp0->ip4_over_ethernet[1] = arp0->ip4_over_ethernet[0];
3460  clib_memcpy (arp0->ip4_over_ethernet[0].ethernet,
3461  (u8 *) & mac0, 6);
3462  clib_memcpy (&arp0->ip4_over_ethernet[0].ip4,
3463  &gid_address_arp_ip4 (&dst), 4);
3464 
3465  /* Hardware must be ethernet-like. */
3466  ASSERT (vec_len (hw_if0->hw_address) == 6);
3467 
3468  clib_memcpy (eth0->dst_address, eth0->src_address, 6);
3469  clib_memcpy (eth0->src_address, hw_if0->hw_address, 6);
3470 
3471  b0->error = node->errors[LISP_CP_LOOKUP_ERROR_ARP_REPLY_TX];
3473  goto enqueue;
3474  }
3475  else if (gid_address_type (&dst) == GID_ADDR_NDP)
3476  {
3477  mac0 = gid_dictionary_lookup (&lcm->mapping_index_by_gid, &dst);
3478  if (GID_LOOKUP_MISS_L2 == mac0)
3479  goto drop;
3480 
3481  sw_if_index0 = vnet_buffer (b0)->sw_if_index[VLIB_RX];
3482  vnet_buffer (b0)->sw_if_index[VLIB_TX] = sw_if_index0;
3483 
3484  eh0 = vlib_buffer_get_current (b0);
3485  ip0 = (ip6_header_t *) (eh0 + 1);
3486  ndh = ip6_next_header (ip0);
3487  int bogus_length;
3488  ip0->dst_address = ip0->src_address;
3489  ip0->src_address = ndh->target_address;
3490  ip0->hop_limit = 255;
3491  opt = (void *) (ndh + 1);
3492  opt->header.type =
3493  ICMP6_NEIGHBOR_DISCOVERY_OPTION_target_link_layer_address;
3494  clib_memcpy (opt->ethernet_address, (u8 *) & mac0, 6);
3495  ndh->icmp.type = ICMP6_neighbor_advertisement;
3496  ndh->advertisement_flags = clib_host_to_net_u32
3499  ndh->icmp.checksum = 0;
3500  ndh->icmp.checksum =
3501  ip6_tcp_udp_icmp_compute_checksum (vm, b0, ip0,
3502  &bogus_length);
3503  clib_memcpy (eh0->dst_address, eh0->src_address, 6);
3504  clib_memcpy (eh0->src_address, (u8 *) & mac0, 6);
3505  b0->error =
3506  node->errors
3507  [LISP_CP_LOOKUP_ERROR_NDP_NEIGHBOR_ADVERTISEMENT_TX];
3509  goto enqueue;
3510  }
3511 
3512  /* if we have remote mapping for destination already in map-chache
3513  add forwarding tunnel directly. If not send a map-request */
3515  &src);
3516  if (~0 != di)
3517  {
3518  mapping_t *m = vec_elt_at_index (lcm->mapping_pool, di);
3519  /* send a map-request also in case of negative mapping entry
3520  with corresponding action */
3521  if (m->action == LISP_SEND_MAP_REQUEST)
3522  {
3523  /* send map-request */
3524  queue_map_request (&src, &dst, 0 /* smr_invoked */ ,
3525  0 /* is_resend */ );
3526  }
3527  else
3528  {
3529  if (GID_ADDR_NSH != gid_address_type (&dst))
3530  {
3532  &src);
3533  }
3534  else
3535  si = lcm->nsh_map_index;
3536 
3537  if (~0 != si)
3538  {
3539  dp_add_fwd_entry_from_mt (si, di);
3540  }
3541  }
3542  }
3543  else
3544  {
3545  /* send map-request */
3546  queue_map_request (&src, &dst, 0 /* smr_invoked */ ,
3547  0 /* is_resend */ );
3548  }
3549 
3550  drop:
3551  b0->error = node->errors[LISP_CP_LOOKUP_ERROR_DROP];
3552  next0 = LISP_CP_LOOKUP_NEXT_DROP;
3553  enqueue:
3554  if (PREDICT_FALSE (b0->flags & VLIB_BUFFER_IS_TRACED))
3555  {
3556  lisp_cp_lookup_trace_t *tr = vlib_add_trace (vm, node, b0,
3557  sizeof (*tr));
3558 
3559  memset (tr, 0, sizeof (*tr));
3560  gid_address_copy (&tr->dst_eid, &dst);
3562  &lcm->active_map_resolver);
3563  }
3564  gid_address_free (&dst);
3565  gid_address_free (&src);
3566  vlib_validate_buffer_enqueue_x1 (vm, node, next_index,
3567  to_next,
3568  n_left_to_next, pi0, next0);
3569  }
3570 
3571  vlib_put_next_frame (vm, node, next_index, n_left_to_next);
3572  }
3573  return from_frame->n_vectors;
3574 }
3575 
3576 static uword
3578  vlib_node_runtime_t * node, vlib_frame_t * from_frame)
3579 {
3580  return (lisp_cp_lookup_inline (vm, node, from_frame, LISP_AFI_IP));
3581 }
3582 
3583 static uword
3585  vlib_node_runtime_t * node, vlib_frame_t * from_frame)
3586 {
3587  return (lisp_cp_lookup_inline (vm, node, from_frame, LISP_AFI_IP6));
3588 }
3589 
3590 static uword
3592  vlib_node_runtime_t * node, vlib_frame_t * from_frame)
3593 {
3594  return (lisp_cp_lookup_inline (vm, node, from_frame, LISP_AFI_MAC));
3595 }
3596 
3597 static uword
3599  vlib_node_runtime_t * node, vlib_frame_t * from_frame)
3600 {
3601  /* TODO decide if NSH should be propagated as LCAF or not */
3602  return (lisp_cp_lookup_inline (vm, node, from_frame, LISP_AFI_LCAF));
3603 }
3604 
3605 /* *INDENT-OFF* */
3607  .function = lisp_cp_lookup_ip4,
3608  .name = "lisp-cp-lookup-ip4",
3609  .vector_size = sizeof (u32),
3610  .format_trace = format_lisp_cp_lookup_trace,
3611  .type = VLIB_NODE_TYPE_INTERNAL,
3612 
3613  .n_errors = LISP_CP_LOOKUP_N_ERROR,
3614  .error_strings = lisp_cp_lookup_error_strings,
3615 
3616  .n_next_nodes = LISP_CP_LOOKUP_N_NEXT,
3617 
3618  .next_nodes = {
3619  [LISP_CP_LOOKUP_NEXT_DROP] = "error-drop",
3620  [LISP_CP_LOOKUP_NEXT_ARP_NDP_REPLY_TX] = "interface-output",
3621  },
3622 };
3623 /* *INDENT-ON* */
3624 
3625 /* *INDENT-OFF* */
3627  .function = lisp_cp_lookup_ip6,
3628  .name = "lisp-cp-lookup-ip6",
3629  .vector_size = sizeof (u32),
3630  .format_trace = format_lisp_cp_lookup_trace,
3631  .type = VLIB_NODE_TYPE_INTERNAL,
3632 
3633  .n_errors = LISP_CP_LOOKUP_N_ERROR,
3634  .error_strings = lisp_cp_lookup_error_strings,
3635 
3636  .n_next_nodes = LISP_CP_LOOKUP_N_NEXT,
3637 
3638  .next_nodes = {
3639  [LISP_CP_LOOKUP_NEXT_DROP] = "error-drop",
3640  [LISP_CP_LOOKUP_NEXT_ARP_NDP_REPLY_TX] = "interface-output",
3641  },
3642 };
3643 /* *INDENT-ON* */
3644 
3645 /* *INDENT-OFF* */
3647  .function = lisp_cp_lookup_l2,
3648  .name = "lisp-cp-lookup-l2",
3649  .vector_size = sizeof (u32),
3650  .format_trace = format_lisp_cp_lookup_trace,
3651  .type = VLIB_NODE_TYPE_INTERNAL,
3652 
3653  .n_errors = LISP_CP_LOOKUP_N_ERROR,
3654  .error_strings = lisp_cp_lookup_error_strings,
3655 
3656  .n_next_nodes = LISP_CP_LOOKUP_N_NEXT,
3657 
3658  .next_nodes = {
3659  [LISP_CP_LOOKUP_NEXT_DROP] = "error-drop",
3660  [LISP_CP_LOOKUP_NEXT_ARP_NDP_REPLY_TX] = "interface-output",
3661  },
3662 };
3663 /* *INDENT-ON* */
3664 
3665 /* *INDENT-OFF* */
3667  .function = lisp_cp_lookup_nsh,
3668  .name = "lisp-cp-lookup-nsh",
3669  .vector_size = sizeof (u32),
3670  .format_trace = format_lisp_cp_lookup_trace,
3671  .type = VLIB_NODE_TYPE_INTERNAL,
3672 
3673  .n_errors = LISP_CP_LOOKUP_N_ERROR,
3674  .error_strings = lisp_cp_lookup_error_strings,
3675 
3676  .n_next_nodes = LISP_CP_LOOKUP_N_NEXT,
3677 
3678  .next_nodes = {
3679  [LISP_CP_LOOKUP_NEXT_DROP] = "error-drop",
3680  [LISP_CP_LOOKUP_NEXT_ARP_NDP_REPLY_TX] = "interface-output",
3681  },
3682 };
3683 /* *INDENT-ON* */
3684 
3685 /* lisp_cp_input statistics */
3686 #define foreach_lisp_cp_input_error \
3687 _(DROP, "drop") \
3688 _(RLOC_PROBE_REQ_RECEIVED, "rloc-probe requests received") \
3689 _(RLOC_PROBE_REP_RECEIVED, "rloc-probe replies received") \
3690 _(MAP_NOTIFIES_RECEIVED, "map-notifies received") \
3691 _(MAP_REPLIES_RECEIVED, "map-replies received")
3692 
3694 #define _(sym,string) string,
3696 #undef _
3697 };
3698 
3699 typedef enum
3700 {
3701 #define _(sym,str) LISP_CP_INPUT_ERROR_##sym,
3703 #undef _
3706 
3707 typedef struct
3708 {
3712 
3713 u8 *
3714 format_lisp_cp_input_trace (u8 * s, va_list * args)
3715 {
3716  CLIB_UNUSED (vlib_main_t * vm) = va_arg (*args, vlib_main_t *);
3717  CLIB_UNUSED (vlib_node_t * node) = va_arg (*args, vlib_node_t *);
3719  va_arg (*args, lisp_cp_input_trace_t *);
3720 
3721  s = format (s, "LISP-CP-INPUT: TODO");
3722  return s;
3723 }
3724 
3725 static void
3727 {
3728  mapping_t *m;
3729  vnet_lisp_add_del_adjacency_args_t _adj_args, *adj_args = &_adj_args;
3730  memset (adj_args, 0, sizeof (adj_args[0]));
3731 
3732  m = pool_elt_at_index (lcm->mapping_pool, mi);
3733 
3734  gid_address_copy (&adj_args->reid, &m->eid);
3735  adj_args->is_add = 0;
3736  if (vnet_lisp_add_del_adjacency (adj_args))
3737  clib_warning ("failed to del adjacency!");
3738 
3740  mapping_delete_timer (lcm, mi);
3741 }
3742 
3743 static void
3745  f64 expiration_time)
3746 {
3747  mapping_t *m;
3748  u64 now = clib_cpu_time_now ();
3749  u64 cpu_cps = lcm->vlib_main->clib_time.clocks_per_second;
3750  u64 exp_clock_time = now + expiration_time * cpu_cps;
3751 
3752  m = pool_elt_at_index (lcm->mapping_pool, mi);
3753 
3754  m->timer_set = 1;
3755  timing_wheel_insert (&lcm->wheel, exp_clock_time, mi);
3756 }
3757 
3758 static void
3760 {
3761  int rv;
3763  mapping_t *m = pool_elt_at_index (lcm->mapping_pool, mi);
3764  uword *fei;
3765  fwd_entry_t *fe;
3766  vlib_counter_t c;
3767  u8 have_stats = 0;
3768 
3769  if (m->delete_after_expiration)
3770  {
3771  remove_expired_mapping (lcm, mi);
3772  return;
3773  }
3774 
3775  fei = hash_get (lcm->fwd_entry_by_mapping_index, mi);
3776  if (!fei)
3777  return;
3778 
3779  fe = pool_elt_at_index (lcm->fwd_entry_pool, fei[0]);
3780 
3781  memset (a, 0, sizeof (*a));
3782  a->rmt_eid = fe->reid;
3783  if (fe->is_src_dst)
3784  a->lcl_eid = fe->leid;
3785  a->vni = gid_address_vni (&fe->reid);
3786 
3787  rv = vnet_lisp_gpe_get_fwd_stats (a, &c);
3788  if (0 == rv)
3789  have_stats = 1;
3790 
3791  if (m->almost_expired)
3792  {
3793  m->almost_expired = 0; /* reset flag */
3794  if (have_stats)
3795  {
3796  if (m->packets != c.packets)
3797  {
3798  /* mapping is in use, re-fetch */
3799  map_request_args_t mr_args;
3800  memset (&mr_args, 0, sizeof (mr_args));
3801  mr_args.seid = fe->leid;
3802  mr_args.deid = fe->reid;
3803 
3804  send_map_request_thread_fn (&mr_args);
3805  }
3806  else
3807  remove_expired_mapping (lcm, mi);
3808  }
3809  else
3810  remove_expired_mapping (lcm, mi);
3811  }
3812  else
3813  {
3814  m->almost_expired = 1;
3816 
3817  if (have_stats)
3818  /* save counter */
3819  m->packets = c.packets;
3820  else
3821  m->delete_after_expiration = 1;
3822  }
3823 }
3824 
3825 static void
3827 {
3829  mapping_t *m;
3830  vec_foreach (m, a->mappings)
3831  {
3832  vec_free (m->locators);
3833  gid_address_free (&m->eid);
3834  }
3836 }
3837 
3838 void *
3840 {
3841  mapping_t *m;
3843  u32 dst_map_index = 0;
3844  pending_map_request_t *pmr;
3845  u64 *noncep;
3846  uword *pmr_index;
3847  u8 is_changed = 0;
3848 
3849  if (a->is_rloc_probe)
3850  goto done;
3851 
3852  /* Check pending requests table and nonce */
3853  pmr_index = hash_get (lcm->pending_map_requests_by_nonce, a->nonce);
3854  if (!pmr_index)
3855  {
3856  clib_warning ("No pending map-request entry with nonce %lu!", a->nonce);
3857  goto done;
3858  }
3859  pmr = pool_elt_at_index (lcm->pending_map_requests_pool, pmr_index[0]);
3860 
3861  vec_foreach (m, a->mappings)
3862  {
3863  vnet_lisp_add_del_mapping_args_t _m_args, *m_args = &_m_args;
3864  memset (m_args, 0, sizeof (m_args[0]));
3865  gid_address_copy (&m_args->eid, &m->eid);
3866  m_args->action = m->action;
3867  m_args->authoritative = m->authoritative;
3868  m_args->ttl = m->ttl;
3869  m_args->is_static = 0;
3870 
3871  /* insert/update mappings cache */
3872  vnet_lisp_add_mapping (m_args, m->locators, &dst_map_index, &is_changed);
3873 
3874  if (dst_map_index == (u32) ~ 0)
3875  continue;
3876 
3877  if (is_changed)
3878  {
3879  /* try to program forwarding only if mapping saved or updated */
3880  vnet_lisp_add_del_adjacency_args_t _adj_args, *adj_args = &_adj_args;
3881  memset (adj_args, 0, sizeof (adj_args[0]));
3882 
3883  gid_address_copy (&adj_args->leid, &pmr->src);
3884  gid_address_copy (&adj_args->reid, &m->eid);
3885  adj_args->is_add = 1;
3886 
3887  if (vnet_lisp_add_del_adjacency (adj_args))
3888  clib_warning ("failed to add adjacency!");
3889  }
3890 
3891  if ((u32) ~ 0 != m->ttl)
3892  mapping_start_expiration_timer (lcm, dst_map_index,
3893  (m->ttl == 0) ? 0 : MAPPING_TIMEOUT);
3894  }
3895 
3896  /* remove pending map request entry */
3897 
3898  /* *INDENT-OFF* */
3899  clib_fifo_foreach (noncep, pmr->nonces, ({
3900  hash_unset(lcm->pending_map_requests_by_nonce, noncep[0]);
3901  }));
3902  /* *INDENT-ON* */
3903 
3904  clib_fifo_free (pmr->nonces);
3905  pool_put (lcm->pending_map_requests_pool, pmr);
3906 
3907 done:
3908  a->is_free = 1;
3909  return 0;
3910 }
3911 
3912 static int
3914  lisp_key_type_t key_id, u8 * key)
3915 {
3916  u8 *auth_data = 0;
3917  u16 auth_data_len;
3918  int result;
3919 
3920  auth_data_len = auth_data_len_by_key_id (key_id);
3921  if ((u16) ~ 0 == auth_data_len)
3922  {
3923  clib_warning ("invalid length for key_id %d!", key_id);
3924  return 0;
3925  }
3926 
3927  /* save auth data */
3928  vec_validate (auth_data, auth_data_len - 1);
3929  clib_memcpy (auth_data, MNOTIFY_DATA (h), auth_data_len);
3930 
3931  /* clear auth data */
3932  memset (MNOTIFY_DATA (h), 0, auth_data_len);
3933 
3934  /* get hash of the message */
3935  unsigned char *code = HMAC (get_encrypt_fcn (key_id), key, vec_len (key),
3936  (unsigned char *) h, msg_len, NULL, NULL);
3937 
3938  result = memcmp (code, auth_data, auth_data_len);
3939 
3940  vec_free (auth_data);
3941 
3942  return !result;
3943 }
3944 
3945 static void
3947 {
3949  uword *pmr_index;
3950 
3951  pmr_index = hash_get (lcm->map_register_messages_by_nonce, a->nonce);
3952  if (!pmr_index)
3953  {
3954  clib_warning ("No pending map-register entry with nonce %lu!",
3955  a->nonce);
3956  return;
3957  }
3958 
3959  a->is_free = 1;
3960  pool_put_index (lcm->pending_map_registers_pool, pmr_index[0]);
3962 
3963  /* reset map-notify counter */
3964  lcm->expired_map_registers = 0;
3965 }
3966 
3967 static mapping_t *
3969 {
3970  u32 mi;
3971 
3973  if (~0 == mi)
3974  {
3975  clib_warning ("eid %U not found in map-cache!", unformat_gid_address,
3976  e);
3977  return 0;
3978  }
3979  return pool_elt_at_index (lcm->mapping_pool, mi);
3980 }
3981 
3982 /**
3983  * When map-notify is received it is necessary that all EIDs in the record
3984  * list share common key. The key is then used to verify authentication
3985  * data in map-notify message.
3986  */
3987 static int
3989  u32 key_id, u8 ** key_out)
3990 {
3991  u32 i, len = vec_len (maps);
3992  mapping_t *m;
3993 
3994  /* get key of the first mapping */
3995  m = get_mapping (lcm, &maps[0].eid);
3996  if (!m || !m->key)
3997  return -1;
3998 
3999  key_out[0] = m->key;
4000 
4001  for (i = 1; i < len; i++)
4002  {
4003  m = get_mapping (lcm, &maps[i].eid);
4004  if (!m || !m->key)
4005  return -1;
4006 
4007  if (key_id != m->key_id || vec_cmp (m->key, key_out[0]))
4008  {
4009  clib_warning ("keys does not match! %v, %v", key_out[0], m->key);
4010  return -1;
4011  }
4012  }
4013  return 0;
4014 }
4015 
4016 static int
4018 {
4019  locator_t *locators = 0;
4020  u32 i, len;
4021  gid_address_t deid;
4022  mapping_t m;
4023  locator_t *loc;
4024 
4025  memset (&m, 0, sizeof (m));
4026 
4027  /* parse record eid */
4028  for (i = 0; i < count; i++)
4029  {
4030  locators = 0;
4031  len = lisp_msg_parse_mapping_record (b, &deid, &locators, NULL);
4032  if (len == ~0)
4033  {
4034  clib_warning ("Failed to parse mapping record!");
4035  vec_foreach (loc, locators) locator_free (loc);
4036  vec_free (locators);
4037  return -1;
4038  }
4039 
4040  m.locators = locators;
4041  gid_address_copy (&m.eid, &deid);
4042  vec_add1 (a->mappings, m);
4043  }
4044 
4045  return 0;
4046 }
4047 
4048 static map_records_arg_t *
4050 {
4052  map_records_arg_t *rec;
4053 
4054  /* Cleanup first */
4055  /* *INDENT-OFF* */
4057  if (rec->is_free)
4058  map_records_arg_free (rec);
4059  }));
4060  /* *INDENT-ON* */
4061 
4063  return rec;
4064 }
4065 
4066 static map_records_arg_t *
4068 {
4069  int rc = 0;
4070  map_notify_hdr_t *mnotif_hdr;
4071  lisp_key_type_t key_id;
4073  u8 *key = 0;
4074  gid_address_t deid;
4075  u16 auth_data_len = 0;
4076  u8 record_count;
4078 
4079  a = map_record_args_get ();
4080  memset (a, 0, sizeof (*a));
4081  mnotif_hdr = vlib_buffer_get_current (b);
4082  vlib_buffer_pull (b, sizeof (*mnotif_hdr));
4083  memset (&deid, 0, sizeof (deid));
4084 
4085  a->nonce = MNOTIFY_NONCE (mnotif_hdr);
4086  key_id = clib_net_to_host_u16 (MNOTIFY_KEY_ID (mnotif_hdr));
4087  auth_data_len = auth_data_len_by_key_id (key_id);
4088 
4089  /* advance buffer by authentication data */
4090  vlib_buffer_pull (b, auth_data_len);
4091 
4092  record_count = MNOTIFY_REC_COUNT (mnotif_hdr);
4093  rc = parse_map_records (b, a, record_count);
4094  if (rc != 0)
4095  {
4097  return 0;
4098  }
4099 
4100  rc = map_record_integrity_check (lcm, a->mappings, key_id, &key);
4101  if (rc != 0)
4102  {
4104  return 0;
4105  }
4106 
4107  /* verify authentication data */
4108  if (!is_auth_data_valid (mnotif_hdr, vlib_buffer_get_tail (b)
4109  - (u8 *) mnotif_hdr, key_id, key))
4110  {
4111  clib_warning ("Map-notify auth data verification failed for nonce "
4112  "0x%lx!", a->nonce);
4114  return 0;
4115  }
4116  return a;
4117 }
4118 
4119 static vlib_buffer_t *
4120 build_map_reply (lisp_cp_main_t * lcm, ip_address_t * sloc,
4121  ip_address_t * dst, u64 nonce, u8 probe_bit,
4122  mapping_t * records, u16 dst_port, u32 * bi_res)
4123 {
4124  vlib_buffer_t *b;
4125  u32 bi;
4126  vlib_main_t *vm = lcm->vlib_main;
4127 
4128  if (vlib_buffer_alloc (vm, &bi, 1) != 1)
4129  {
4130  clib_warning ("Can't allocate buffer for Map-Register!");
4131  return 0;
4132  }
4133 
4134  b = vlib_get_buffer (vm, bi);
4135 
4136  /* leave some space for the encap headers */
4138 
4139  lisp_msg_put_map_reply (b, records, nonce, probe_bit);
4140 
4141  /* push outer ip header */
4142  pkt_push_udp_and_ip (vm, b, LISP_CONTROL_PORT, dst_port, sloc, dst, 1);
4143 
4144  bi_res[0] = bi;
4145  return b;
4146 }
4147 
4148 static int
4149 send_map_reply (lisp_cp_main_t * lcm, u32 mi, ip_address_t * dst,
4150  u8 probe_bit, u64 nonce, u16 dst_port,
4151  ip_address_t * probed_loc)
4152 {
4153  ip_address_t src;
4154  u32 bi;
4155  vlib_buffer_t *b;
4156  vlib_frame_t *f;
4157  u32 next_index, *to_next;
4158  mapping_t *records = 0, *m;
4159 
4160  m = pool_elt_at_index (lcm->mapping_pool, mi);
4161  if (!m)
4162  return -1;
4163 
4164  vec_add1 (records, m[0]);
4165  add_locators (lcm, &records[0], m->locator_set_index, probed_loc);
4166  memset (&src, 0, sizeof (src));
4167 
4168  if (!ip_fib_get_first_egress_ip_for_dst (lcm, dst, &src))
4169  {
4170  clib_warning ("can't find inteface address for %U", format_ip_address,
4171  dst);
4172  return -1;
4173  }
4174 
4175  b = build_map_reply (lcm, &src, dst, nonce, probe_bit, records, dst_port,
4176  &bi);
4177  if (!b)
4178  return -1;
4179  free_map_register_records (records);
4180 
4181  vnet_buffer (b)->sw_if_index[VLIB_TX] = 0;
4182  next_index = (ip_addr_version (&lcm->active_map_resolver) == IP4) ?
4183  ip4_lookup_node.index : ip6_lookup_node.index;
4184 
4185  f = vlib_get_frame_to_node (lcm->vlib_main, next_index);
4186 
4187  /* Enqueue the packet */
4188  to_next = vlib_frame_vector_args (f);
4189  to_next[0] = bi;
4190  f->n_vectors = 1;
4191  vlib_put_frame_to_node (lcm->vlib_main, next_index, f);
4192  return 0;
4193 }
4194 
4195 static void
4197 {
4198  const i32 start = vnet_buffer (b)->l3_hdr_offset;
4199  if (start < 0 && start < -sizeof (b->pre_data))
4200  {
4201  *ip_hdr = 0;
4202  return;
4203  }
4204 
4205  *ip_hdr = b->data + start;
4206  if ((u8 *) * ip_hdr > (u8 *) vlib_buffer_get_current (b))
4207  *ip_hdr = 0;
4208 }
4209 
4210 void
4212  lisp_cp_main_t * lcm, vlib_buffer_t * b)
4213 {
4214  u8 *ip_hdr = 0;
4215  ip_address_t *dst_loc = 0, probed_loc, src_loc;
4216  mapping_t m;
4217  map_request_hdr_t *mreq_hdr;
4218  gid_address_t src, dst;
4219  u64 nonce;
4220  u32 i, len = 0, rloc_probe_recv = 0;
4221  gid_address_t *itr_rlocs = 0;
4222 
4223  mreq_hdr = vlib_buffer_get_current (b);
4224  if (!MREQ_SMR (mreq_hdr) && !MREQ_RLOC_PROBE (mreq_hdr))
4225  {
4226  clib_warning
4227  ("Only SMR Map-Requests and RLOC probe supported for now!");
4228  return;
4229  }
4230 
4231  vlib_buffer_pull (b, sizeof (*mreq_hdr));
4232  nonce = MREQ_NONCE (mreq_hdr);
4233 
4234  /* parse src eid */
4235  len = lisp_msg_parse_addr (b, &src);
4236  if (len == ~0)
4237  return;
4238 
4239  len = lisp_msg_parse_itr_rlocs (b, &itr_rlocs,
4240  MREQ_ITR_RLOC_COUNT (mreq_hdr) + 1);
4241  if (len == ~0)
4242  goto done;
4243 
4244  /* parse eid records and send SMR-invoked map-requests */
4245  for (i = 0; i < MREQ_REC_COUNT (mreq_hdr); i++)
4246  {
4247  memset (&dst, 0, sizeof (dst));
4248  len = lisp_msg_parse_eid_rec (b, &dst);
4249  if (len == ~0)
4250  {
4251  clib_warning ("Can't parse map-request EID-record");
4252  goto done;
4253  }
4254 
4255  if (MREQ_SMR (mreq_hdr))
4256  {
4257  /* send SMR-invoked map-requests */
4258  queue_map_request (&dst, &src, 1 /* invoked */ , 0 /* resend */ );
4259  }
4260  else if (MREQ_RLOC_PROBE (mreq_hdr))
4261  {
4262  find_ip_header (b, &ip_hdr);
4263  if (!ip_hdr)
4264  {
4265  clib_warning ("Cannot find the IP header!");
4266  goto done;
4267  }
4268  rloc_probe_recv++;
4269  memset (&m, 0, sizeof (m));
4270  u32 mi = gid_dictionary_lookup (&lcm->mapping_index_by_gid, &dst);
4271 
4272  // TODO: select best locator; for now use the first one
4273  dst_loc = &gid_address_ip (&itr_rlocs[0]);
4274 
4275  /* get src/dst IP addresses */
4276  get_src_and_dst_ip (ip_hdr, &src_loc, &probed_loc);
4277 
4278  // TODO get source port from buffer
4279  u16 src_port = LISP_CONTROL_PORT;
4280 
4281  send_map_reply (lcm, mi, dst_loc, 1 /* probe-bit */ , nonce,
4282  src_port, &probed_loc);
4283  }
4284  }
4285 
4286 done:
4288  LISP_CP_INPUT_ERROR_RLOC_PROBE_REQ_RECEIVED,
4289  rloc_probe_recv);
4290  vec_free (itr_rlocs);
4291 }
4292 
4295 {
4296  locator_t probed;
4297  gid_address_t deid;
4298  void *h;
4299  u32 i, len = 0;
4300  mapping_t m;
4301  map_reply_hdr_t *mrep_hdr;
4303 
4304  a = map_record_args_get ();
4305  memset (a, 0, sizeof (*a));
4306 
4307  locator_t *locators;
4308 
4309  mrep_hdr = vlib_buffer_get_current (b);
4310  a->nonce = MREP_NONCE (mrep_hdr);
4311  a->is_rloc_probe = MREP_RLOC_PROBE (mrep_hdr);
4312  if (!vlib_buffer_has_space (b, sizeof (*mrep_hdr)))
4313  {
4314  clib_mem_free (a);
4315  return 0;
4316  }
4317  vlib_buffer_pull (b, sizeof (*mrep_hdr));
4318 
4319  for (i = 0; i < MREP_REC_COUNT (mrep_hdr); i++)
4320  {
4321  memset (&m, 0, sizeof (m));
4322  locators = 0;
4323  h = vlib_buffer_get_current (b);
4324 
4325  m.ttl = clib_net_to_host_u32 (MAP_REC_TTL (h));
4326  m.action = MAP_REC_ACTION (h);
4327  m.authoritative = MAP_REC_AUTH (h);
4328 
4329  len = lisp_msg_parse_mapping_record (b, &deid, &locators, &probed);
4330  if (len == ~0)
4331  {
4332  clib_warning ("Failed to parse mapping record!");
4334  return 0;
4335  }
4336 
4337  m.locators = locators;
4338  gid_address_copy (&m.eid, &deid);
4339  vec_add1 (a->mappings, m);
4340  }
4341  return a;
4342 }
4343 
4344 static void
4346 {
4347  vl_api_rpc_call_main_thread (process_map_reply, (u8 *) a, sizeof (*a));
4348 }
4349 
4350 static void
4352 {
4353  vl_api_rpc_call_main_thread (process_map_notify, (u8 *) a, sizeof (a[0]));
4354 }
4355 
4356 static uword
4358  vlib_frame_t * from_frame)
4359 {
4360  u32 n_left_from, *from, *to_next_drop, rloc_probe_rep_recv = 0,
4361  map_notifies_recv = 0;
4362  lisp_msg_type_e type;
4365 
4366  from = vlib_frame_vector_args (from_frame);
4367  n_left_from = from_frame->n_vectors;
4368 
4369 
4370  while (n_left_from > 0)
4371  {
4372  u32 n_left_to_next_drop;
4373 
4375  to_next_drop, n_left_to_next_drop);
4376  while (n_left_from > 0 && n_left_to_next_drop > 0)
4377  {
4378  u32 bi0;
4379  vlib_buffer_t *b0;
4380 
4381  bi0 = from[0];
4382  from += 1;
4383  n_left_from -= 1;
4384  to_next_drop[0] = bi0;
4385  to_next_drop += 1;
4386  n_left_to_next_drop -= 1;
4387 
4388  b0 = vlib_get_buffer (vm, bi0);
4389 
4390  type = lisp_msg_type (vlib_buffer_get_current (b0));
4391  switch (type)
4392  {
4393  case LISP_MAP_REPLY:
4394  a = parse_map_reply (b0);
4395  if (a)
4396  {
4397  if (a->is_rloc_probe)
4398  rloc_probe_rep_recv++;
4400  }
4401  break;
4402  case LISP_MAP_REQUEST:
4403  process_map_request (vm, node, lcm, b0);
4404  break;
4405  case LISP_MAP_NOTIFY:
4406  a = parse_map_notify (b0);
4407  if (a)
4408  {
4409  map_notifies_recv++;
4411  }
4412  break;
4413  default:
4414  clib_warning ("Unsupported LISP message type %d", type);
4415  break;
4416  }
4417 
4418  b0->error = node->errors[LISP_CP_INPUT_ERROR_DROP];
4419 
4420  if (PREDICT_FALSE (b0->flags & VLIB_BUFFER_IS_TRACED))
4421  {
4422 
4423  }
4424  }
4425 
4427  n_left_to_next_drop);
4428  }
4430  LISP_CP_INPUT_ERROR_RLOC_PROBE_REP_RECEIVED,
4431  rloc_probe_rep_recv);
4433  LISP_CP_INPUT_ERROR_MAP_NOTIFIES_RECEIVED,
4434  map_notifies_recv);
4435  return from_frame->n_vectors;
4436 }
4437 
4438 /* *INDENT-OFF* */
4440  .function = lisp_cp_input,
4441  .name = "lisp-cp-input",
4442  .vector_size = sizeof (u32),
4443  .format_trace = format_lisp_cp_input_trace,
4444  .type = VLIB_NODE_TYPE_INTERNAL,
4445 
4446  .n_errors = LISP_CP_INPUT_N_ERROR,
4447  .error_strings = lisp_cp_input_error_strings,
4448 
4449  .n_next_nodes = LISP_CP_INPUT_N_NEXT,
4450 
4451  .next_nodes = {
4452  [LISP_CP_INPUT_NEXT_DROP] = "error-drop",
4453  },
4454 };
4455 /* *INDENT-ON* */
4456 
4457 clib_error_t *
4459 {
4461  clib_error_t *error = 0;
4463  u32 num_threads;
4464 
4465  if ((error = vlib_call_init_function (vm, lisp_gpe_init)))
4466  return error;
4467 
4468  lcm->im4 = &ip4_main;
4469  lcm->im6 = &ip6_main;
4470  lcm->vlib_main = vm;
4471  lcm->vnet_main = vnet_get_main ();
4472  lcm->mreq_itr_rlocs = ~0;
4473  lcm->flags = 0;
4474  lcm->pitr_map_index = ~0;
4475  lcm->petr_map_index = ~0;
4476  memset (&lcm->active_map_resolver, 0, sizeof (lcm->active_map_resolver));
4477  memset (&lcm->active_map_server, 0, sizeof (lcm->active_map_server));
4478 
4480  lcm->do_map_resolver_election = 1;
4481  lcm->do_map_server_election = 1;
4483 
4484  num_threads = 1 /* main thread */ + vtm->n_threads;
4485  vec_validate (lcm->map_records_args_pool, num_threads - 1);
4486 
4487  /* default vrf mapped to vni 0 */
4488  hash_set (lcm->table_id_by_vni, 0, 0);
4489  hash_set (lcm->vni_by_table_id, 0, 0);
4490 
4492 
4493  u64 now = clib_cpu_time_now ();
4495  lcm->nsh_map_index = ~0;
4498  lcm->expired_map_registers = 0;
4500  lcm->flags |= LISP_FLAG_XTR_MODE;
4501  return 0;
4502 }
4503 
4504 static int
4506  lisp_api_stats_t * stat, lisp_stats_key_t * key,
4507  u32 stats_index)
4508 {
4509  vlib_counter_t v;
4511  lisp_gpe_fwd_entry_key_t fwd_key;
4512  const lisp_gpe_tunnel_t *lgt;
4513  fwd_entry_t *fe;
4514 
4515  memset (stat, 0, sizeof (*stat));
4516  memset (&fwd_key, 0, sizeof (fwd_key));
4517 
4519  ASSERT (fe != 0);
4520 
4521  gid_to_dp_address (&fe->reid, &stat->deid);
4522  gid_to_dp_address (&fe->leid, &stat->seid);
4523  stat->vni = gid_address_vni (&fe->reid);
4524 
4525  lgt = lisp_gpe_tunnel_get (key->tunnel_index);
4526  stat->loc_rloc = lgt->key->lcl;
4527  stat->rmt_rloc = lgt->key->rmt;
4528 
4529  vlib_get_combined_counter (cm, stats_index, &v);
4530  stat->counters = v;
4531  return 1;
4532 }
4533 
4536 {
4539  lisp_api_stats_t *stats = 0, stat;
4540  lisp_stats_key_t *key;
4541  u32 index;
4542 
4543  /* *INDENT-OFF* */
4544  hash_foreach_mem (key, index, lgm->lisp_stats_index_by_key,
4545  {
4546  if (lisp_stats_api_fill (lcm, lgm, &stat, key, index))
4547  vec_add1 (stats, stat);
4548  });
4549  /* *INDENT-ON* */
4550 
4551  return stats;
4552 }
4553 
4554 static void *
4556 {
4557  map_request_args_t *a = arg;
4559 
4560  if (a->is_resend)
4562  else
4563  send_encapsulated_map_request (lcm, &a->seid, &a->deid, a->smr_invoked);
4564 
4565  return 0;
4566 }
4567 
4568 static int
4570  u8 smr_invoked, u8 is_resend)
4571 {
4573 
4574  a.is_resend = is_resend;
4575  gid_address_copy (&a.seid, seid);
4576  gid_address_copy (&a.deid, deid);
4577  a.smr_invoked = smr_invoked;
4578 
4580  (u8 *) & a, sizeof (a));
4581  return 0;
4582 }
4583 
4584 /**
4585  * Take an action with a pending map request depending on expiration time
4586  * and re-try counters.
4587  */
4588 static void
4590 {
4592  lisp_msmr_t *mr;
4593 
4594  if (r->time_to_expire - dt < 0)
4595  /* it's time to decide what to do with this pending request */
4596  {
4597  if (r->retries_num >= NUMBER_OF_RETRIES)
4598  /* too many retries -> assume current map resolver is not available */
4599  {
4601  if (!mr)
4602  {
4603  clib_warning ("Map resolver %U not found - probably deleted "
4604  "by the user recently.", format_ip_address,
4605  &lcm->active_map_resolver);
4606  }
4607  else
4608  {
4609  clib_warning ("map resolver %U is unreachable, ignoring",
4611 
4612  /* mark current map resolver unavailable so it won't be
4613  * selected next time */
4614  mr->is_down = 1;
4615  mr->last_update = vlib_time_now (lcm->vlib_main);
4616  }
4617 
4619  elect_map_resolver (lcm);
4620 
4621  /* try to find a next eligible map resolver and re-send */
4622  queue_map_request (&r->src, &r->dst, r->is_smr_invoked,
4623  1 /* resend */ );
4624  }
4625  else
4626  {
4627  /* try again */
4628  queue_map_request (&r->src, &r->dst, r->is_smr_invoked,
4629  1 /* resend */ );
4630  r->retries_num++;
4632  }
4633  }
4634  else
4635  r->time_to_expire -= dt;
4636 }
4637 
4638 static void
4640 {
4641  u64 *nonce;
4642  pending_map_request_t *pmr;
4643  u32 *to_be_removed = 0, *pmr_index;
4644 
4645  /* *INDENT-OFF* */
4647  ({
4648  if (pmr->to_be_removed)
4649  {
4650  clib_fifo_foreach (nonce, pmr->nonces, ({
4651  hash_unset (lcm->pending_map_requests_by_nonce, nonce[0]);
4652  }));
4653 
4654  vec_add1 (to_be_removed, pmr - lcm->pending_map_requests_pool);
4655  }
4656  }));
4657  /* *INDENT-ON* */
4658 
4659  vec_foreach (pmr_index, to_be_removed)
4660  pool_put_index (lcm->pending_map_requests_pool, pmr_index[0]);
4661 
4662  vec_free (to_be_removed);
4663 }
4664 
4665 static void
4667 {
4668  static f64 time_left = RLOC_PROBING_INTERVAL;
4669 
4670  if (!lcm->is_enabled || !lcm->rloc_probing)
4671  return;
4672 
4673  time_left -= dt;
4674  if (time_left <= 0)
4675  {
4676  time_left = RLOC_PROBING_INTERVAL;
4677  send_rloc_probes (lcm);
4678  }
4679 }
4680 
4681 static int
4683 {
4685  lisp_msmr_t *ms;
4686  del_all[0] = 0;
4687 
4688  r->time_to_expire -= dt;
4689 
4690  if (r->time_to_expire < 0)
4691  {
4692  lcm->expired_map_registers++;
4693 
4695  {
4696  ms = get_map_server (&lcm->active_map_server);
4697  if (!ms)
4698  {
4699  clib_warning ("Map server %U not found - probably deleted "
4700  "by the user recently.", format_ip_address,
4701  &lcm->active_map_server);
4702  }
4703  else
4704  {
4705  clib_warning ("map server %U is unreachable, ignoring",
4707 
4708  /* mark current map server unavailable so it won't be
4709  * elected next time */
4710  ms->is_down = 1;
4711  ms->last_update = vlib_time_now (lcm->vlib_main);
4712  }
4713 
4714  elect_map_server (lcm);
4715 
4716  /* indication for deleting all pending map registers */
4717  del_all[0] = 1;
4718  lcm->expired_map_registers = 0;
4719  return 0;
4720  }
4721  else
4722  {
4723  /* delete pending map register */
4724  return 0;
4725  }
4726  }
4727  return 1;
4728 }
4729 
4730 static void
4732 {
4733  u32 *to_be_removed = 0, *pmr_index;
4734  static f64 time_left = QUICK_MAP_REGISTER_INTERVAL;
4735  static u64 mreg_sent_counter = 0;
4736 
4738  u8 del_all = 0;
4739 
4740  if (!lcm->is_enabled || !lcm->map_registering)
4741  return;
4742 
4743  /* *INDENT-OFF* */
4745  ({
4746  if (!update_pending_map_register (pmr, dt, &del_all))
4747  {
4748  if (del_all)
4749  break;
4750  vec_add1 (to_be_removed, pmr - lcm->pending_map_registers_pool);
4751  }
4752  }));
4753  /* *INDENT-ON* */
4754 
4755  if (del_all)
4756  {
4757  /* delete all pending map register messages so they won't
4758  * trigger another map server election.. */
4759  pool_free (lcm->pending_map_registers_pool);
4760  hash_free (lcm->map_register_messages_by_nonce);
4761 
4762  /* ..and trigger registration against next map server (if any) */
4763  time_left = 0;
4764  }
4765  else
4766  {
4767  vec_foreach (pmr_index, to_be_removed)
4768  pool_put_index (lcm->pending_map_registers_pool, pmr_index[0]);
4769  }
4770 
4771  vec_free (to_be_removed);
4772 
4773  time_left -= dt;
4774  if (time_left <= 0)
4775  {
4776  if (mreg_sent_counter >= QUICK_MAP_REGISTER_MSG_COUNT)
4777  time_left = MAP_REGISTER_INTERVAL;
4778  else
4779  {
4780  mreg_sent_counter++;
4781  time_left = QUICK_MAP_REGISTER_INTERVAL;
4782  }
4783  send_map_register (lcm, 1 /* want map notify */ );
4784  }
4785 }
4786 
4787 static uword
4790 {
4791  u32 *expired = 0;
4792  f64 period = 2.0;
4793  pending_map_request_t *pmr;
4795 
4796  while (1)
4797  {
4799 
4800  /* currently no signals are expected - just wait for clock */
4801  (void) vlib_process_get_events (vm, 0);
4802 
4803  /* *INDENT-OFF* */
4805  ({
4806  if (!pmr->to_be_removed)
4807  update_pending_request (pmr, period);
4808  }));
4809  /* *INDENT-ON* */
4810 
4812 
4813  update_map_register (lcm, period);
4814  update_rloc_probing (lcm, period);
4815 
4816  u64 now = clib_cpu_time_now ();
4817 
4818  expired = timing_wheel_advance (&lcm->wheel, now, expired, 0);
4819  if (vec_len (expired) > 0)
4820  {
4821  u32 *mi = 0;
4822  vec_foreach (mi, expired)
4823  {
4824  process_expired_mapping (lcm, mi[0]);
4825  }
4826  _vec_len (expired) = 0;
4827  }
4828  }
4829 
4830  /* unreachable */
4831  return 0;
4832 }
4833 
4836 {
4838 
4839  if (vnet_lisp_enable_disable_status () == 0)
4840  return VNET_API_ERROR_LISP_DISABLED;
4841 
4842  if (enable)
4843  lcm->flags |= LISP_FLAG_STATS_ENABLED;
4844  else
4845  lcm->flags &= ~LISP_FLAG_STATS_ENABLED;
4846 
4847  return 0;
4848 }
4849 
4850 u8
4852 {
4854 
4855  if (vnet_lisp_enable_disable_status () == 0)
4856  return VNET_API_ERROR_LISP_DISABLED;
4857 
4858  return lcm->flags & LISP_FLAG_STATS_ENABLED;
4859 }
4860 
4861 /* *INDENT-OFF* */
4863  .function = send_map_resolver_service,
4864  .type = VLIB_NODE_TYPE_PROCESS,
4865  .name = "lisp-retry-service",
4866  .process_log2_n_stack_bytes = 16,
4867 };
4868 /* *INDENT-ON* */
4869 
4870 u32
4872 {
4874 
4875  if (protocol < LISP_TRANSPORT_PROTOCOL_UDP ||
4876  protocol > LISP_TRANSPORT_PROTOCOL_API)
4877  return VNET_API_ERROR_INVALID_ARGUMENT;
4878 
4879  lcm->transport_protocol = protocol;
4880  return 0;
4881 }
4882 
4885 {
4887  return lcm->transport_protocol;
4888 }
4889 
4890 int
4892 {
4894  u8 pitr_mode = lcm->flags & LISP_FLAG_PITR_MODE;
4895  u8 xtr_mode = lcm->flags & LISP_FLAG_XTR_MODE;
4896  u8 petr_mode = lcm->flags & LISP_FLAG_PETR_MODE;
4897 
4898  if (pitr_mode && is_enabled)
4899  return VNET_API_ERROR_INVALID_ARGUMENT;
4900 
4901  if (is_enabled && xtr_mode)
4902  return 0;
4903  if (!is_enabled && !xtr_mode)
4904  return 0;
4905 
4906  if (is_enabled)
4907  {
4908  if (!petr_mode)
4909  {
4911  }
4912  lisp_cp_enable_l2_l3_ifaces (lcm, 1 /* with_default_route */ );
4913  lcm->flags |= LISP_FLAG_XTR_MODE;
4914  }
4915  else
4916  {
4917  if (!petr_mode)
4918  {
4920  }
4922  lcm->flags &= ~LISP_FLAG_XTR_MODE;
4923  }
4924  return 0;
4925 }
4926 
4927 int
4929 {
4931  u8 xtr_mode = lcm->flags & LISP_FLAG_XTR_MODE;
4932  u8 pitr_mode = lcm->flags & LISP_FLAG_PITR_MODE;
4933 
4934  if (xtr_mode && is_enabled)
4935  return VNET_API_ERROR_INVALID_VALUE;
4936 
4937  if (is_enabled && pitr_mode)
4938  return 0;
4939  if (!is_enabled && !pitr_mode)
4940  return 0;
4941 
4942  if (is_enabled)
4943  {
4944  /* create iface, no default route */
4945  lisp_cp_enable_l2_l3_ifaces (lcm, 0 /* with_default_route */ );
4946  lcm->flags |= LISP_FLAG_PITR_MODE;
4947  }
4948  else
4949  {
4951  lcm->flags &= ~LISP_FLAG_PITR_MODE;
4952  }
4953  return 0;
4954 }
4955 
4956 int
4958 {
4960  u8 xtr_mode = lcm->flags & LISP_FLAG_XTR_MODE;
4961  u8 petr_mode = lcm->flags & LISP_FLAG_PETR_MODE;
4962 
4963  if (is_enabled && petr_mode)
4964  return 0;
4965  if (!is_enabled && !petr_mode)
4966  return 0;
4967 
4968  if (is_enabled)
4969  {
4970  if (!xtr_mode)
4971  {
4973  }
4974  lcm->flags |= LISP_FLAG_PETR_MODE;
4975  }
4976  else
4977  {
4978  if (!xtr_mode)
4979  {
4981  }
4982  lcm->flags &= ~LISP_FLAG_PETR_MODE;
4983  }
4984  return 0;
4985 }
4986 
4987 u8
4989 {
4991  return (lcm->flags & LISP_FLAG_XTR_MODE);
4992 }
4993 
4994 u8
4996 {
4998  return (lcm->flags & LISP_FLAG_PITR_MODE);
4999 }
5000 
5001 u8
5003 {
5005  return (lcm->flags & LISP_FLAG_PETR_MODE);
5006 }
5007 
5009 
5010 /*
5011  * fd.io coding-style-patch-verification: ON
5012  *
5013  * Local Variables:
5014  * eval: (c-set-style "gnu")
5015  * End:
5016  */
void lisp_gpe_tenant_l2_iface_unlock(u32 vni)
Release the lock held on the tenant&#39;s L3 interface.
#define ICMP6_NEIGHBOR_ADVERTISEMENT_FLAG_SOLICITED
#define vec_validate(V, I)
Make sure vector is long enough for given index (no header, unspecified alignment) ...
Definition: vec.h:437
#define MREQ_SMR(h_)
#define foreach_ip_interface_address(lm, a, sw_if_index, loop, body)
Definition: lookup.h:179
#define QUICK_MAP_REGISTER_INTERVAL
Definition: control.h:34
#define MNOTIFY_REC_COUNT(h_)
fib_protocol_t fp_proto
protocol type
Definition: fib_types.h:202
const lisp_gpe_tunnel_t * lisp_gpe_tunnel_get(index_t lgti)
#define VNET_SW_INTERFACE_FLAG_UNNUMBERED
Definition: interface.h:668
#define MREQ_ITR_RLOC_COUNT(h_)
static uword lisp_cp_input(vlib_main_t *vm, vlib_node_runtime_t *node, vlib_frame_t *from_frame)
Definition: control.c:4357
#define gid_address_ip_version(_a)
Definition: lisp_types.h:265
#define vec_foreach_index(var, v)
Iterate over vector indices.
map_records_arg_t ** map_records_args_pool
Per thread pool of records shared with thread0.
Definition: control.h:272
void * lisp_msg_put_mreq(lisp_cp_main_t *lcm, vlib_buffer_t *b, gid_address_t *seid, gid_address_t *deid, gid_address_t *rlocs, u8 is_smr_invoked, u8 rloc_probe_set, u64 *nonce)
u8 is_down
Definition: control.h:86
typedef address
Definition: ip_types.api:35
u32 pitr_map_index
Definition: control.h:250
void * lisp_msg_put_map_register(vlib_buffer_t *b, mapping_t *records, u8 want_map_notify, u16 auth_data_len, u64 *nonce, u32 *msg_len)
#define MREP_REC_COUNT(h_)
static int send_map_register(lisp_cp_main_t *lcm, u8 want_map_notif)
Definition: control.c:2950
vnet_api_error_t
Definition: api_errno.h:147
#define hash_set(h, key, value)
Definition: hash.h:255
l2_input_config_t * configs
Definition: l2_input.h:66
static u8 * vlib_buffer_get_tail(vlib_buffer_t *b)
Get pointer to the end of buffer&#39;s data.
Definition: buffer.h:274
#define clib_fifo_head(v)
Definition: fifo.h:254
u8 vnet_lisp_get_pitr_mode(void)
Definition: control.c:4995
#define gid_address_type(_a)
Definition: lisp_types.h:261
counter_t packets
Definition: lisp_types.h:376
#define CLIB_UNUSED(x)
Definition: clib.h:79
u8 timer_set
Definition: lisp_types.h:375
vlib_node_registration_t lisp_cp_lookup_ip4_node
(constructor) VLIB_REGISTER_NODE (lisp_cp_lookup_ip4_node)
Definition: control.c:3606
map_records_arg_t * parse_map_reply(vlib_buffer_t *b)
Definition: control.c:4294
static void mapping_start_expiration_timer(lisp_cp_main_t *lcm, u32 mi, f64 expiration_time)
Definition: control.c:3744
static f64 vlib_process_wait_for_event_or_clock(vlib_main_t *vm, f64 dt)
Suspend a cooperative multi-tasking thread Waits for an event, or for the indicated number of seconds...
Definition: node_funcs.h:699
#define hash_unset(h, key)
Definition: hash.h:261
u32 * lcl_to_rmt_adjs_by_lcl_idx
Definition: control.h:202
a
Definition: bitmap.h:538
void process_map_request(vlib_main_t *vm, vlib_node_runtime_t *node, lisp_cp_main_t *lcm, vlib_buffer_t *b)
Definition: control.c:4211
gid_address_t deid
Definition: control.c:52
lisp_api_l2_arp_entry_t * vnet_lisp_l2_arp_entries_get_by_bd(u32 bd)
Definition: control.c:990
#define SHA256_AUTH_DATA_LEN
Definition: lisp_types.h:23
lisp_cp_lookup_next_t
Definition: control.c:2444
ip4_address_t src_address
Definition: ip4_packet.h:169
static uword clib_fifo_elts(void *v)
Definition: fifo.h:66
ip_address_t active_map_resolver
Definition: control.h:229
vnet_main_t * vnet_get_main(void)
Definition: misc.c:47
static vnet_hw_interface_t * vnet_get_sup_hw_interface(vnet_main_t *vnm, u32 sw_if_index)
#define RLOC_PROBING_INTERVAL
Definition: control.h:28
u32 bd_id
bridge domain id
Definition: lisp_gpe.h:270
lisp_msmr_t * map_resolvers
Definition: control.h:220
#define MAP_REC_TTL(h)
gid_address_t dst_eid
Definition: control.c:3709
u32 vnet_lisp_set_transport_protocol(u8 protocol)
Definition: control.c:4871
void ip_prefix_to_fib_prefix(const ip_prefix_t *ip_prefix, fib_prefix_t *fib_prefix)
convert from a LISP to a FIB prefix
Definition: control.c:167
#define MREQ_REC_COUNT(h_)
static vlib_buffer_t * build_encapsulated_map_request(lisp_cp_main_t *lcm, gid_address_t *seid, gid_address_t *deid, locator_set_t *loc_set, ip_address_t *mr_ip, ip_address_t *sloc, u8 is_smr_invoked, u64 *nonce_res, u32 *bi_res)
Definition: control.c:2584
static void lisp_cp_register_dst_port(vlib_main_t *vm)
Definition: control.c:2203
locator_pair_t * locator_pairs
Definition: control.h:68
uword * table_id_by_vni
Definition: control.h:239
static void queue_map_notify_for_processing(map_records_arg_t *a)
Definition: control.c:4351
unsigned long u64
Definition: types.h:89
void timing_wheel_init(timing_wheel_t *w, u64 current_cpu_time, f64 cpu_clocks_per_second)
Definition: timing_wheel.c:21
void lisp_gpe_tenant_l3_iface_unlock(u32 vni)
Release the lock held on the tenant&#39;s L3 interface.
clib_error_t * vnet_lisp_gpe_enable_disable(vnet_lisp_gpe_enable_disable_args_t *a)
Enable/disable LISP-GPE.
Definition: lisp_gpe.c:193
#define NULL
Definition: clib.h:55
#define MAPPING_TIMEOUT
Definition: control.c:35
#define foreach_lisp_cp_input_error
Definition: control.c:3686
static uword lisp_cp_lookup_nsh(vlib_main_t *vm, vlib_node_runtime_t *node, vlib_frame_t *from_frame)
Definition: control.c:3598
u32 * local_mappings_indexes
Definition: control.h:192
static f64 vlib_time_now(vlib_main_t *vm)
Definition: main.h:225
static void update_adjacencies_by_map_index(lisp_cp_main_t *lcm, u32 mapping_index, u8 remove_only)
Definition: control.c:1843
u32 vnet_lisp_gpe_add_nsh_iface(lisp_gpe_main_t *lgm)
Add LISP-GPE NSH interface.
Definition: interface.c:754
locator_t * locator_pool
Definition: control.h:177
f64 clocks_per_second
Definition: time.h:53
static void lisp_cp_enable_l2_l3_ifaces(lisp_cp_main_t *lcm, u8 with_default_route)
lisp_cp_enable_l2_l3_ifaces
Definition: control.c:2224
dp_address_t seid
Definition: lisp_gpe.h:103
#define PENDING_MREQ_QUEUE_LEN
Definition: control.h:26
u8 src_address[6]
Definition: packet.h:56
LISP-GPE global state.
Definition: lisp_gpe.h:118
u8 vnet_lisp_get_map_request_mode(void)
Definition: control.c:57
vlib_node_registration_t lisp_cp_lookup_nsh_node
(constructor) VLIB_REGISTER_NODE (lisp_cp_lookup_nsh_node)
Definition: control.c:3666
void ip_address_to_fib_prefix(const ip_address_t *addr, fib_prefix_t *prefix)
convert from a LISP address to a FIB prefix
Definition: control.c:146
ip_address_t loc_rloc
Definition: lisp_gpe.h:104
#define vec_add1(V, E)
Add 1 element to end of vector (unspecified alignment).
Definition: vec.h:523
static uword lisp_cp_output(vlib_main_t *vm, vlib_node_runtime_t *node, vlib_frame_t *from_frame)
Definition: control.c:2839
Definition: control.h:63
static u64 clib_cpu_time_now(void)
Definition: time.h:73
static void dp_del_fwd_entry(lisp_cp_main_t *lcm, u32 dst_map_index)
Definition: control.c:270
Combined counter to hold both packets and byte differences.
Definition: counter.h:140
LISP-GPE definitions.
lisp_cp_input_next_t
Definition: control.c:42
#define QUICK_MAP_REGISTER_MSG_COUNT
Definition: control.h:33
int i
#define MREG_KEY_ID(h_)
u32 ip_fib_get_egress_iface_for_dst(lisp_cp_main_t *lcm, ip_address_t *dst)
Find the sw_if_index of the interface that would be used to egress towards dst.
Definition: control.c:179
#define hash_set_mem(h, key, value)
Definition: hash.h:275
static char * lisp_cp_input_error_strings[]
Definition: control.c:3693
ip_lookup_main_t lookup_main
Definition: ip4.h:97
static vnet_sw_interface_t * vnet_get_sw_interface(vnet_main_t *vnm, u32 sw_if_index)
u32 nsh_map_index
Definition: control.h:257
u8 * format(u8 *s, const char *fmt,...)
Definition: format.c:419
void vnet_lisp_gpe_add_fwd_counters(vnet_lisp_gpe_add_del_fwd_entry_args_t *a, u32 fwd_entry_index)
clib_time_t clib_time
Definition: main.h:63
#define SHA1_AUTH_DATA_LEN
Definition: lisp_types.h:22
static void remove_dead_pending_map_requests(lisp_cp_main_t *lcm)
Definition: control.c:4639
void ip_address_copy(ip_address_t *dst, const ip_address_t *src)
Definition: lisp_types.c:886
ip_address_t address
Definition: control.h:88
vnet_api_error_t vnet_lisp_stats_enable_disable(u8 enable)
Definition: control.c:4835
int vnet_lisp_add_mapping(vnet_lisp_add_del_mapping_args_t *a, locator_t *rlocs, u32 *res_map_index, u8 *is_updated)
Adds/updates mapping.
Definition: control.c:1279
void ip_address_set(ip_address_t *dst, const void *src, u8 version)
Definition: lisp_types.c:908
static lisp_msmr_t * get_map_server(ip_address_t *a)
Definition: control.c:649
void timing_wheel_insert(timing_wheel_t *w, u64 insert_cpu_time, u32 user_data)
Definition: timing_wheel.c:294
vlib_error_t * errors
Vector of errors for this node.
Definition: node.h:451
static int update_pending_map_register(pending_map_register_t *r, f64 dt, u8 *del_all)
Definition: control.c:4682
uword * vni_by_table_id
Definition: control.h:240
static void * send_map_request_thread_fn(void *arg)
Definition: control.c:4555
#define pool_get(P, E)
Allocate an object E from a pool P (unspecified alignment).
Definition: pool.h:228
vhost_vring_addr_t addr
Definition: vhost_user.h:116
ip6_address_t src_address
Definition: ip6_packet.h:347
u8 vnet_lisp_stats_enable_disable_state(void)
Definition: control.c:4851
unsigned char u8
Definition: types.h:56
#define fid_addr_mac(_a)
Definition: lisp_types.h:134
void gid_dictionary_init(gid_dictionary_t *db)
u8 vnet_lisp_map_register_state_get(void)
Definition: control.c:424
static int send_map_reply(lisp_cp_main_t *lcm, u32 mi, ip_address_t *dst, u8 probe_bit, u64 nonce, u16 dst_port, ip_address_t *probed_loc)
Definition: control.c:4149
void gid_address_from_ip(gid_address_t *g, ip_address_t *ip)
Definition: lisp_types.c:861
u8 vnet_lisp_get_petr_mode(void)
Definition: control.c:5002
int vnet_lisp_set_map_request_mode(u8 mode)
Definition: control.c:1559
static int is_local_ip(lisp_cp_main_t *lcm, ip_address_t *addr)
Definition: control.c:1256
static void clean_locator_to_locator_set(lisp_cp_main_t *lcm, u32 lsi)
Definition: control.c:1758
int vnet_lisp_add_del_adjacency(vnet_lisp_add_del_adjacency_args_t *a)
Adds adjacency or removes forwarding entry associated to remote mapping.
Definition: control.c:1488
double f64
Definition: types.h:142
static char * lisp_cp_output_error_strings[]
Definition: control.c:2824
#define NUMBER_OF_RETRIES
Definition: control.h:24
vlib_node_registration_t ip4_lookup_node
(constructor) VLIB_REGISTER_NODE (ip4_lookup_node)
Definition: ip4_forward.c:104
#define MNOTIFY_NONCE(h_)
static int update_map_register_auth_data(map_register_hdr_t *map_reg_hdr, lisp_key_type_t key_id, u8 *key, u16 auth_data_len, u32 msg_len)
Definition: control.c:2744
lisp_msmr_t * map_servers
Definition: control.h:223
lisp_transport_protocol_t vnet_lisp_get_transport_protocol(void)
Definition: control.c:4884
#define MREQ_NONCE(h_)
int vnet_lisp_enable_disable_petr_mode(u8 is_enabled)
Definition: control.c:4957
static lisp_gpe_main_t * vnet_lisp_gpe_get_main()
Definition: lisp_gpe.h:183
static void reset_pending_mr_counters(pending_map_request_t *r)
Definition: control.c:2640
u32 ** locator_to_locator_sets
Definition: control.h:183
vlib_main_t * vlib_main
Definition: control.h:287
u32 gid_dictionary_add_del(gid_dictionary_t *db, gid_address_t *key, u64 value, u8 is_add)
int vnet_lisp_enable_disable_pitr_mode(u8 is_enabled)
Definition: control.c:4928
#define pool_foreach(VAR, POOL, BODY)
Iterate through pool.
Definition: pool.h:443
ethernet_arp_ip4_over_ethernet_address_t ip4_over_ethernet[2]
Definition: arp_packet.h:136
static void add_ndp_bd(BVT(clib_bihash_kv)*kvp, void *arg)
Definition: control.c:941
#define VLIB_INIT_FUNCTION(x)
Definition: init.h:156
u32 fwd_entry_index
Definition: lisp_gpe.h:95
static uword vlib_process_get_events(vlib_main_t *vm, uword **data_vector)
Return the first event type which has occurred and a vector of per-event data of that type...
Definition: node_funcs.h:542
#define always_inline
Definition: clib.h:92
int ip_fib_get_first_egress_ip_for_dst(lisp_cp_main_t *lcm, ip_address_t *dst, ip_address_t *result)
Find first IP of the interface that would be used to egress towards dst.
Definition: control.c:196
u8 * key
Definition: lisp_types.h:373
#define ICMP6_NEIGHBOR_ADVERTISEMENT_FLAG_OVERRIDE
gid_address_t * eids_to_be_deleted
Definition: control.c:1163
ip4_address_t dst_address
Definition: ip4_packet.h:169
ip_address_t rmt_rloc
Definition: lisp_gpe.h:105
u8 dst_address[6]
Definition: packet.h:55
static BVT(clib_bihash)
Definition: adj_nbr.c:26
vlib_combined_counter_main_t counters
Definition: lisp_gpe.h:164
static int dp_add_fwd_entry_from_mt(u32 si, u32 di)
Definition: control.c:605
LISP-GPE fwd entry key.
u8 is_add
Definition: lisp_gpe.h:234
#define hash_foreach(key_var, value_var, h, body)
Definition: hash.h:442
void di(unformat_input_t *i)
Definition: unformat.c:163
#define gid_address_sd_src(_a)
Definition: lisp_types.h:278
#define vec_elt_at_index(v, i)
Get vector value at index i checking that i is in bounds.
void vnet_lisp_gpe_del_fwd_counters(vnet_lisp_gpe_add_del_fwd_entry_args_t *a, u32 fwd_entry_index)
Aggregrate type for a prefix.
Definition: fib_types.h:193
vlib_frame_t * vlib_get_frame_to_node(vlib_main_t *vm, u32 to_node_index)
Definition: main.c:182
u32 * fwd_entry_by_mapping_index
Definition: control.h:196
#define clib_error_return(e, args...)
Definition: error.h:99
u32 expired_map_registers
Definition: control.h:279
void vl_api_rpc_call_main_thread(void *fp, u8 *data, u32 data_length)
Definition: vlib_api.c:638
u8 pre_data[VLIB_BUFFER_PRE_DATA_SIZE]
Space for inserting data before buffer start.
Definition: buffer.h:164
static mapping_t * get_mapping(lisp_cp_main_t *lcm, gid_address_t *e)
Definition: control.c:3968
int vnet_lisp_eid_table_map(u32 vni, u32 dp_id, u8 is_l2, u8 is_add)
Definition: control.c:1079
static u32 get_locator_pairs(lisp_cp_main_t *lcm, mapping_t *lcl_map, mapping_t *rmt_map, locator_pair_t **locator_pairs)
Finds first remote locator with best (lowest) priority that has a local peer locator with an underlyi...
Definition: control.c:307
lisp_api_ndp_entry_t * vnet_lisp_ndp_entries_get_by_bd(u32 bd)
Definition: control.c:1025
unsigned int u32
Definition: types.h:88
#define vec_end(v)
End (last data address) of vector.
uword * bd_id_by_vni
Definition: control.h:243
u32 lisp_gpe_tenant_l2_iface_add_or_lock(u32 vni, u32 bd_id)
Add/create and lock a new or find and lock the existing L2 interface for the tenant.
static lisp_cp_main_t * vnet_lisp_cp_get_main()
Definition: control.h:301
u16 fp_len
The mask length.
Definition: fib_types.h:197
#define vlib_call_init_function(vm, x)
Definition: init.h:227
u8 do_map_server_election
Definition: control.h:233
uword * vni_by_bd_id
Definition: control.h:244
u8 delete_after_expiration
Definition: lisp_types.h:370
fib_node_index_t fib_table_lookup(u32 fib_index, const fib_prefix_t *prefix)
Perfom a longest prefix match in the non-forwarding table.
Definition: fib_table.c:66
Definition: lisp_gpe.h:227
gid_address_t src
Definition: control.h:49
u32 petr_map_index
Proxy ETR map index used for &#39;use-petr&#39;.
Definition: control.h:254
#define ip_addr_version(_a)
Definition: lisp_types.h:56
ip6_main_t * im6
Definition: control.h:286
void gid_to_dp_address(gid_address_t *g, dp_address_t *d)
Definition: lisp_types.c:606
static void update_pending_request(pending_map_request_t *r, f64 dt)
Take an action with a pending map request depending on expiration time and re-try counters...
Definition: control.c:4589
clib_error_t * vnet_lisp_enable_disable(u8 is_enable)
Definition: control.c:2260
#define MAX_EXPIRED_MAP_REGISTERS_DEFAULT
Definition: control.h:40
vlib_node_registration_t lisp_cp_lookup_ip6_node
(constructor) VLIB_REGISTER_NODE (lisp_cp_lookup_ip6_node)
Definition: control.c:3626
static void add_locators(lisp_cp_main_t *lcm, mapping_t *m, u32 locator_set_index, ip_address_t *probed_loc)
Definition: control.c:2678
Definition: fib_entry.h:280
void vnet_lisp_gpe_del_nsh_iface(lisp_gpe_main_t *lgm)
Del LISP-GPE NSH interface.
Definition: interface.c:794
#define hash_get(h, key)
Definition: hash.h:249
#define MREQ_RLOC_PROBE(h_)
static void mapping_delete_timer(lisp_cp_main_t *lcm, u32 mi)
Definition: control.c:1250
u8 is_src_dst
Definition: control.h:67
int vnet_lisp_pitr_set_locator_set(u8 *locator_set_name, u8 is_add)
Definition: control.c:1631
#define pool_elt_at_index(p, i)
Returns pointer to element at given index.
Definition: pool.h:464
u8 vnet_lisp_rloc_probe_state_get(void)
Definition: control.c:431
static void queue_map_reply_for_processing(map_records_arg_t *a)
Definition: control.c:4345
#define hash_unset_mem(h, key)
Definition: hash.h:291
Common utility functions for IPv4, IPv6 and L2 LISP-GPE tunnels.
lisp_cp_lookup_error_t
Definition: control.c:2436
counter_t packets
packet counter
Definition: counter.h:142
u8 do_map_resolver_election
Definition: control.h:232
#define clib_fifo_sub1(f, e)
Definition: fifo.h:224
u32 table_id
table (vrf) id
Definition: lisp_gpe.h:267
#define gid_address_arp_ndp_ip(_a)
Definition: lisp_types.h:284
static void * vlib_buffer_make_headroom(vlib_buffer_t *b, u8 size)
Make head room, typically for packet headers.
Definition: buffer.h:314
f64 last_update
Definition: control.h:87
ip46_address_t fp_addr
The address type is not deriveable from the fp_addr member.
Definition: fib_types.h:216
void gid_dict_foreach_subprefix(gid_dictionary_t *db, gid_address_t *eid, foreach_subprefix_match_cb_t cb, void *arg)
#define gid_address_mac(_a)
Definition: lisp_types.h:267
static u16 auth_data_len_by_key_id(lisp_key_type_t key_id)
Definition: control.c:64
u32 lisp_gpe_tenant_l3_iface_add_or_lock(u32 vni, u32 table_id, u8 with_default_route)
Add/create and lock a new or find and lock the existing L3 interface for the tenant.
int get_mr_and_local_iface_ip(lisp_cp_main_t *lcm, ip_address_t *mr_ip, ip_address_t *sloc)
Definition: control.c:2471
#define v
Definition: acl.c:491
int vnet_lisp_map_cache_add_del(vnet_lisp_add_del_mapping_args_t *a, u32 *map_index_result)
Add/remove mapping to/from map-cache.
Definition: control.c:732
#define MAP_REC_AUTH(h)
unsigned short u16
Definition: types.h:57
int vnet_lisp_add_del_local_mapping(vnet_lisp_add_del_mapping_args_t *a, u32 *map_index_result)
Add/update/delete mapping to/in/from map-cache.
Definition: control.c:884
u32 lisp_msg_parse_addr(vlib_buffer_t *b, gid_address_t *eid)
static vlib_node_registration_t lisp_retry_service_node
(constructor) VLIB_REGISTER_NODE (lisp_retry_service_node)
Definition: control.c:4862
vlib_node_registration_t lisp_cp_input_node
(constructor) VLIB_REGISTER_NODE (lisp_cp_input_node)
Definition: control.c:4439
void vlib_put_frame_to_node(vlib_main_t *vm, u32 to_node_index, vlib_frame_t *f)
Definition: main.c:191
#define MNOTIFY_KEY_ID(h_)
static void * vlib_buffer_get_current(vlib_buffer_t *b)
Get pointer to current data to process.
Definition: buffer.h:202
#define hash_free(h)
Definition: hash.h:310
void gid_address_free(gid_address_t *a)
Definition: lisp_types.c:850
vlib_node_registration_t lisp_cp_lookup_l2_node
(constructor) VLIB_REGISTER_NODE (lisp_cp_lookup_l2_node)
Definition: control.c:3646
#define pool_put(P, E)
Free an object E in pool P.
Definition: pool.h:274
#define gid_address_sd_dst_type(_a)
Definition: lisp_types.h:281
#define vec_dup(V)
Return copy of vector (no header, no alignment)
Definition: vec.h:373
static void cleanup(void)
Definition: client.c:119
u8 authoritative
Definition: lisp_types.h:363
lisp_api_stats_t * vnet_lisp_get_stats(void)
Definition: control.c:4535
static void remove_expired_mapping(lisp_cp_main_t *lcm, u32 mi)
Definition: control.c:3726
u32 * local_locator_set_indexes
Definition: control.h:193
#define PREDICT_FALSE(x)
Definition: clib.h:105
static int map_record_integrity_check(lisp_cp_main_t *lcm, mapping_t *maps, u32 key_id, u8 **key_out)
When map-notify is received it is necessary that all EIDs in the record list share common key...
Definition: control.c:3988
uword unformat_gid_address(unformat_input_t *input, va_list *args)
Definition: lisp_types.c:350
gid_address_t reid
Definition: control.h:66
#define vec_del1(v, i)
Delete the element at index I.
Definition: vec.h:806
u8 * format_gid_address(u8 *s, va_list *args)
Definition: lisp_types.c:265
static uword lisp_cp_lookup_ip4(vlib_main_t *vm, vlib_node_runtime_t *node, vlib_frame_t *from_frame)
Definition: control.c:3577
ip_address_t lcl_loc
Definition: lisp_types.h:386
volatile u8 is_free
Definition: control.h:157
u8 map_request_mode
Definition: control.h:260
static u8 compare_locators(lisp_cp_main_t *lcm, u32 *old_ls_indexes, locator_t *new_locators)
Definition: control.c:1137
#define foreach_lisp_cp_lookup_error
Definition: control.c:2423
u8 vnet_lisp_get_xtr_mode(void)
Definition: control.c:4988
static void lisp_cp_unregister_dst_port(vlib_main_t *vm)
Definition: control.c:2212
vlib_node_registration_t lisp_cp_output_node
(constructor) VLIB_REGISTER_NODE (lisp_cp_output_node)
Definition: control.c:2847
u32 node_index
Node index.
Definition: node.h:473
#define MAX_LISP_MSG_ENCAP_LEN
#define vlib_validate_buffer_enqueue_x1(vm, node, next_index, to_next, n_left_to_next, bi0, next0)
Finish enqueueing one buffer forward in the graph.
Definition: buffer_node.h:218
#define vlib_get_next_frame(vm, node, next_index, vectors, n_vectors_left)
Get pointer to next frame vector data by (vlib_node_runtime_t, next_index).
Definition: node_funcs.h:364
ip_address_t map_resolver_ip
Definition: control.c:2454
#define hash_foreach_mem(key_var, value_var, h, body)
Definition: hash.h:461
#define TIME_UNTIL_REFETCH_OR_DELETE
Definition: control.c:34
#define MREG_AUTH_DATA_LEN(h_)
void * pkt_push_udp_and_ip(vlib_main_t *vm, vlib_buffer_t *b, u16 sp, u16 dp, ip_address_t *sip, ip_address_t *dip, u8 csum_offload)
Definition: packets.c:171
#define clib_fifo_foreach(v, f, body)
Definition: fifo.h:279
static void process_map_notify(map_records_arg_t *a)
Definition: control.c:3946
vlib_error_t error
Error code for buffers to be enqueued to error handler.
Definition: buffer.h:135
u8 map_registering
Definition: control.h:263
static int queue_map_request(gid_address_t *seid, gid_address_t *deid, u8 smr_invoked, u8 is_resend)
Definition: control.c:4569
static void vlib_node_increment_counter(vlib_main_t *vm, u32 node_index, u32 counter_index, u64 increment)
Definition: node_funcs.h:1168
static void remove_locator_from_locator_set(locator_set_t *ls, u32 *locit, u32 ls_index, u32 loc_id)
Definition: control.c:1925
#define gid_address_ippref(_a)
Definition: lisp_types.h:262
u32 flags
Definition: vhost_user.h:110
dp_address_t deid
Definition: lisp_gpe.h:102
lisp_adjacency_t * vnet_lisp_adjacencies_get_by_vni(u32 vni)
Returns vector of adjacencies.
Definition: control.c:627
u32 fib_entry_get_resolving_interface(fib_node_index_t entry_index)
Definition: fib_entry.c:1409
u8 is_negative
type of mapping
Definition: lisp_gpe.h:237
static int is_locator_in_locator_set(lisp_cp_main_t *lcm, locator_set_t *ls, locator_t *loc)
Definition: control.c:1819
#define pool_free(p)
Free a pool.
Definition: pool.h:357
u32 lisp_msg_parse_itr_rlocs(vlib_buffer_t *b, gid_address_t **rlocs, u8 rloc_count)
u32 sw_if_index
Definition: lisp_types.h:324
clib_error_t * lisp_cp_init(vlib_main_t *vm)
Definition: control.c:4458
u32 * vnet_lisp_ndp_bds_get(void)
Definition: control.c:953
u32 vni
VNI/tenant id in HOST byte order.
Definition: lisp_gpe.h:261
u8 * format_lisp_cp_input_trace(u8 *s, va_list *args)
Definition: control.c:3714
static vlib_buffer_t * build_map_reply(lisp_cp_main_t *lcm, ip_address_t *sloc, ip_address_t *dst, u64 nonce, u8 probe_bit, mapping_t *records, u16 dst_port, u32 *bi_res)
Definition: control.c:4120
#define VLIB_REGISTER_NODE(x,...)
Definition: node.h:153
static uword lisp_cp_lookup_l2(vlib_main_t *vm, vlib_node_runtime_t *node, vlib_frame_t *from_frame)
Definition: control.c:3591
uword * pending_map_requests_by_nonce
Definition: control.h:208
static void dp_add_fwd_entry(lisp_cp_main_t *lcm, u32 src_map_index, u32 dst_map_index)
Definition: control.c:438
int vnet_lisp_add_del_mreq_itr_rlocs(vnet_lisp_add_del_mreq_itr_rloc_args_t *a)
Definition: control.c:2392
svmdb_client_t * c
u16 n_vectors
Definition: node.h:380
vlib_counter_t counters
Definition: lisp_gpe.h:107
static_always_inline uword vlib_get_thread_index(void)
Definition: threads.h:221
static lisp_msmr_t * get_map_resolver(ip_address_t *a)
Definition: control.c:665
static void vlib_get_combined_counter(const vlib_combined_counter_main_t *cm, u32 index, vlib_counter_t *result)
Get the value of a combined counter, never called in the speed path Scrapes the entire set of per-thr...
Definition: counter.h:252
#define MAP_REC_ACTION(h)
vlib_main_t * vm
Definition: buffer.c:294
int gid_address_cmp(gid_address_t *a1, gid_address_t *a2)
Definition: lisp_types.c:1632
#define gid_address_arp_bd
Definition: lisp_types.h:288
static void update_fwd_entries_by_locator_set(lisp_cp_main_t *lcm, u32 ls_index, u8 remove_only)
Definition: control.c:1906
#define vec_free(V)
Free vector&#39;s memory (no header).
Definition: vec.h:339
#define gid_address_ippref_len(_a)
Definition: lisp_types.h:263
void udp_unregister_dst_port(vlib_main_t *vm, udp_dst_port_t dst_port, u8 is_ip4)
Definition: udp_local.c:530
static map_records_arg_t * parse_map_notify(vlib_buffer_t *b)
Definition: control.c:4067
u32 lisp_msg_parse_mapping_record(vlib_buffer_t *b, gid_address_t *eid, locator_t **locs, locator_t *probed_)
static void remove_mapping_if_needed(u32 mi, void *arg)
Callback invoked when a sub-prefix is found.
Definition: control.c:1170
#define clib_warning(format, args...)
Definition: error.h:59
u32 locator_set_index
Definition: lisp_types.h:356
void * lisp_msg_push_ecm(vlib_main_t *vm, vlib_buffer_t *b, int lp, int rp, gid_address_t *la, gid_address_t *ra)
#define clib_memcpy(a, b, c)
Definition: string.h:75
u8 almost_expired
Definition: lisp_types.h:369
u32 * timing_wheel_advance(timing_wheel_t *w, u64 advance_cpu_time, u32 *expired_user_data, u64 *next_expiring_element_cpu_time)
Definition: timing_wheel.c:592
void timing_wheel_delete(timing_wheel_t *w, u32 user_data)
Definition: timing_wheel.c:331
u32 locator_cmp(locator_t *l1, locator_t *l2)
Definition: lisp_types.c:1718
static void update_map_register(lisp_cp_main_t *lcm, f64 dt)
Definition: control.c:4731
int vnet_lisp_map_register_enable_disable(u8 is_enable)
Definition: control.c:2194
u32 vnet_lisp_map_register_fallback_threshold_get(void)
Definition: control.c:1683
u32 fib_node_index_t
A typedef of a node index.
Definition: fib_types.h:30
#define pool_is_free_index(P, I)
Use free bitmap to query whether given index is free.
Definition: pool.h:271
void * lisp_msg_put_map_reply(vlib_buffer_t *b, mapping_t *records, u64 nonce, u8 probe_bit)
void vlib_put_next_frame(vlib_main_t *vm, vlib_node_runtime_t *r, u32 next_index, u32 n_vectors_left)
Release pointer to next frame vector data.
Definition: main.c:454
ip4_address_t map_resolver_ip
Definition: control.c:3710
static int send_rloc_probe(lisp_cp_main_t *lcm, gid_address_t *deid, u32 local_locator_set_index, ip_address_t *sloc, ip_address_t *rloc)
Definition: control.c:2866
lisp_key_type_t key_id
Definition: lisp_types.h:374
lisp_transport_protocol_t
Definition: control.h:146
#define PENDING_MREG_EXPIRATION_TIME
Definition: control.h:42
#define gid_address_nsh_si(_a)
Definition: lisp_types.h:270
#define vec_is_equal(v1, v2)
Compare two vectors, not NULL-pointer tolerant.
Definition: vec.h:911
void * ip_interface_get_first_address(ip_lookup_main_t *lm, u32 sw_if_index, u8 version)
Definition: control.c:115
enum fib_entry_flag_t_ fib_entry_flag_t
static void * ip6_next_header(ip6_header_t *i)
Definition: ip6_packet.h:374
#define gid_address_arp_ndp_bd(_a)
Definition: lisp_types.h:283
lisp_gpe_tunnel_key_t * key
RLOC pair and rloc fib_index.
#define fid_addr_ippref(_a)
Definition: lisp_types.h:131
int vnet_lisp_gpe_add_del_fwd_entry(vnet_lisp_gpe_add_del_fwd_entry_args_t *a, u32 *hw_if_indexp)
Forwarding entry create/remove dispatcher.
u8 vnet_lisp_enable_disable_status(void)
Definition: control.c:2322
#define MAX_VALUE_U24
Definition: control.c:31
timing_wheel_t wheel
Definition: control.h:269
int vnet_lisp_enable_disable_xtr_mode(u8 is_enabled)
Definition: control.c:4891
Definition: control.h:106
u16 ip6_tcp_udp_icmp_compute_checksum(vlib_main_t *vm, vlib_buffer_t *p0, ip6_header_t *ip0, int *bogus_lengthp)
Definition: ip6_forward.c:910
Definition: control.c:589
signed int i32
Definition: types.h:81
vlib_node_registration_t ip6_lookup_node
(constructor) VLIB_REGISTER_NODE (ip6_lookup_node)
Definition: ip6_forward.c:512
static uword send_map_resolver_service(vlib_main_t *vm, vlib_node_runtime_t *rt, vlib_frame_t *f)
Definition: control.c:4788
struct _gid_address_t gid_address_t
u32 fib_table_get_table_id_for_sw_if_index(fib_protocol_t proto, u32 sw_if_index)
Get the Table-ID of the FIB bound to the interface.
Definition: fib_table.c:1032
u16 cached_next_index
Next frame index that vector arguments were last enqueued to last time this node ran.
Definition: node.h:492
#define pool_put_index(p, i)
Free pool element with given index.
Definition: pool.h:299
int ip_interface_get_first_ip_address(lisp_cp_main_t *lcm, u32 sw_if_index, u8 version, ip_address_t *result)
Definition: control.c:127
int vnet_lisp_add_del_map_server(ip_address_t *addr, u8 is_add)
Definition: control.c:681
#define ASSERT(truth)
#define fid_addr_type(_a)
Definition: lisp_types.h:136
static lisp_msg_type_e lisp_msg_type(void *b)
u8 * format_ip_address(u8 *s, va_list *args)
Definition: lisp_types.c:144
#define GID_LOOKUP_MISS
static int send_rloc_probes(lisp_cp_main_t *lcm)
Definition: control.c:2903
#define foreach_msmr
Definition: control.c:2646
int vnet_lisp_clear_all_remote_adjacencies(void)
Definition: control.c:1437
ip6_main_t ip6_main
Definition: ip6_forward.c:2574
ip_lookup_main_t lookup_main
Definition: ip6.h:161
#define gid_address_sd_dst(_a)
Definition: lisp_types.h:279
#define MAP_REGISTER_INTERVAL
Definition: control.h:37
gid_address_t seid
Definition: control.c:51
static void get_src_and_dst_ip(void *hdr, ip_address_t *src, ip_address_t *dst)
Definition: control.c:3195
lisp_transport_protocol_t transport_protocol
either UDP based or binary API.
Definition: control.h:282
clib_error_t * lisp_gpe_init(vlib_main_t *vm)
LISP-GPE init function.
Definition: lisp_gpe.c:593
gid_dictionary_t mapping_index_by_gid
Definition: control.h:168
ip_interface_address_t * ip_interface_get_first_interface_address(ip_lookup_main_t *lm, u32 sw_if_index, u8 loop)
Definition: control.c:100
u32 gid_dictionary_sd_lookup(gid_dictionary_t *db, gid_address_t *dst, gid_address_t *src)
static u32 lisp_get_vni_from_buffer_ip(lisp_cp_main_t *lcm, vlib_buffer_t *b, u8 version)
Definition: control.c:3214
locator_set_t * locator_set_pool
Definition: control.h:180
static void clib_mem_free(void *p)
Definition: mem.h:179
option version
Definition: memclnt.api:17
u8 is_static
Definition: lisp_types.h:366
u8 is_src_dst
Definition: lisp_gpe.h:232
static void gid_address_sd_to_flat(gid_address_t *dst, gid_address_t *src, fid_address_t *fid)
Definition: control.c:400
#define gid_address_ndp_bd
Definition: lisp_types.h:287
int vnet_lisp_rloc_probe_enable_disable(u8 is_enable)
Definition: control.c:2185
u32 ** locator_set_to_eids
Definition: control.h:189
#define LISP_CONTROL_PORT
static u64 mac_to_u64(u8 *m)
Definition: load_balance.c:918
size_t count
Definition: vapi.c:46
#define vec_cmp(v1, v2)
Compare two vectors (only applicable to vectors of signed numbers).
Definition: vec.h:921
gid_address_t rmt_eid
remote eid
Definition: lisp_gpe.h:246
u64 gid_dictionary_lookup(gid_dictionary_t *db, gid_address_t *key)
static void add_l2_arp_entry(BVT(clib_bihash_kv)*kvp, void *arg)
Definition: control.c:970
#define foreach_lisp_cp_output_error
Definition: control.c:2820
#define clib_fifo_free(f)
Definition: fifo.h:257
Definition: control.h:100
pending_map_register_t * pending_map_registers_pool
Definition: control.h:214
u32 map_register_ttl
Definition: control.h:275
fwd_entry_t * fwd_entry_pool
Definition: control.h:205
static vlib_main_t * vlib_get_main(void)
Definition: global_funcs.h:23
u32 entries
static void * vlib_add_trace(vlib_main_t *vm, vlib_node_runtime_t *r, vlib_buffer_t *b, u32 n_data_bytes)
Definition: trace_funcs.h:55
#define vec_elt(v, i)
Get vector value at index i.
int vnet_lisp_map_register_fallback_threshold_set(u32 value)
Definition: control.c:1670
pending_map_request_t * pending_map_requests_pool
Definition: control.h:211
int vnet_lisp_add_del_locator_set(vnet_lisp_add_del_locator_set_args_t *a, u32 *ls_result)
Definition: control.c:2045
#define gid_address_ip(_a)
Definition: lisp_types.h:264
Definition: defs.h:47
static void add_ndp_entry(BVT(clib_bihash_kv)*kvp, void *arg)
Definition: control.c:1005
negative_fwd_actions_e action
action for negative mappings
Definition: lisp_gpe.h:240
#define clib_fifo_add1(f, e)
Definition: fifo.h:192
static u32 lisp_get_bd_from_buffer_eth(vlib_buffer_t *b)
Definition: control.c:3237
lisp_key_type_t
Definition: lisp_types.h:25
l2input_main_t l2input_main
Definition: l2_input.c:113
static u8 vlib_buffer_has_space(vlib_buffer_t *b, word l)
Check if there is enough space in buffer to advance.
Definition: buffer.h:229
#define gid_address_vni(_a)
Definition: lisp_types.h:271
#define hash_create_vec(elts, key_bytes, value_bytes)
Definition: hash.h:668
static u32 lisp_get_vni_from_buffer_eth(lisp_cp_main_t *lcm, vlib_buffer_t *b)
Definition: control.c:3253
#define MNOTIFY_DATA(h_)
static vlib_buffer_t * build_map_register(lisp_cp_main_t *lcm, ip_address_t *sloc, ip_address_t *ms_ip, u64 *nonce_res, u8 want_map_notif, mapping_t *records, lisp_key_type_t key_id, u8 *key, u32 *bi_res)
Definition: control.c:2760
static uword * get_locator_set_index(vnet_lisp_add_del_locator_set_args_t *a, uword *p)
Definition: control.c:1797
void locator_free(locator_t *l)
Definition: lisp_types.c:1736
ip_address_t active_map_server
Definition: control.h:230
static void remove_overlapping_sub_prefixes(lisp_cp_main_t *lcm, gid_address_t *eid, u8 is_negative)
This function searches map cache and looks for IP prefixes that are subset of the provided one...
Definition: control.c:1210
#define vec_len(v)
Number of elements in vector (rvalue-only, NULL tolerant)
static char * lisp_cp_lookup_error_strings[]
Definition: control.c:2430
#define GID_LOOKUP_MISS_L2
u64 uword
Definition: types.h:112
static void * vlib_frame_vector_args(vlib_frame_t *f)
Get pointer to frame vector data.
Definition: node_funcs.h:267
#define gid_address_nsh_spi(_a)
Definition: lisp_types.h:269
int vnet_lisp_del_mapping(gid_address_t *eid, u32 *res_map_index)
Removes a mapping.
Definition: control.c:1388
u32 * vnet_lisp_l2_arp_bds_get(void)
Definition: control.c:930
int vnet_lisp_add_del_locator(vnet_lisp_add_del_locator_set_args_t *a, locator_set_t *ls, u32 *ls_result)
Definition: control.c:1941
locator_pair_t * locator_pairs
vector of locator pairs
Definition: lisp_gpe.h:249
static mapping_t * lisp_get_petr_mapping(lisp_cp_main_t *lcm)
Definition: control.h:430
mapping_t * mapping_pool
Definition: control.h:171
u8 ip_address_max_len(u8 version)
Definition: lisp_types.c:549
uword * locator_set_index_by_name
Definition: control.h:186
int vnet_lisp_nsh_set_locator_set(u8 *locator_set_name, u8 is_add)
Definition: control.c:1580
static map_records_arg_t * map_record_args_get()
Definition: control.c:4049
static gid_address_t * build_itr_rloc_list(lisp_cp_main_t *lcm, locator_set_t *loc_set)
Definition: control.c:2502
l2_bridge_domain_t * bd_configs
Definition: l2_input.h:69
void gid_address_copy(gid_address_t *dst, gid_address_t *src)
Definition: lisp_types.c:1495
u32 di
Definition: control.c:592
A collection of combined counters.
Definition: counter.h:181
Definition: lisp_types.h:37
static vlib_buffer_t * build_map_request(lisp_cp_main_t *lcm, gid_address_t *deid, ip_address_t *sloc, ip_address_t *rloc, gid_address_t *itr_rlocs, u64 *nonce_res, u32 *bi_res)
Definition: control.c:2551
gid_address_t eid
Definition: lisp_types.h:351
typedef prefix
Definition: ip_types.api:40
gid_address_t address
Definition: lisp_types.h:325
#define hash_get_mem(h, key)
Definition: hash.h:269
void mac_copy(void *dst, void *src)
Definition: lisp_types.c:1051
static void add_l2_arp_bd(BVT(clib_bihash_kv)*kvp, void *arg)
Definition: control.c:918
u32 lisp_msg_parse_eid_rec(vlib_buffer_t *b, gid_address_t *eid)
#define MREG_DATA(h_)
#define vnet_buffer(b)
Definition: buffer.h:360
gid_address_t dst
Definition: control.h:50
static void map_records_arg_free(map_records_arg_t *a)
Definition: control.c:3826
void get_src_and_dst_eids_from_buffer(lisp_cp_main_t *lcm, vlib_buffer_t *b, gid_address_t *src, gid_address_t *dst, u16 type)
Definition: control.c:3269
int vnet_lisp_add_del_map_resolver(vnet_lisp_add_del_map_resolver_args_t *a)
Definition: control.c:2329
ip4_main_t ip4_main
Global ip4 main structure.
Definition: ip4_forward.c:832
int vnet_lisp_gpe_get_fwd_stats(vnet_lisp_gpe_add_del_fwd_entry_args_t *a, vlib_counter_t *c)
int vnet_lisp_add_del_l2_arp_ndp_entry(gid_address_t *key, u8 *mac, u8 is_add)
Definition: control.c:1040
u32 ** lcl_to_rmt_adjacencies
Definition: control.h:199
static vlib_thread_main_t * vlib_get_thread_main()
Definition: global_funcs.h:32
static void find_ip_header(vlib_buffer_t *b, u8 **ip_hdr)
Definition: control.c:4196
ip_address_t rmt_loc
Definition: lisp_types.h:387
u8 data[0]
Packet data.
Definition: buffer.h:172
static void process_expired_mapping(lisp_cp_main_t *lcm, u32 mi)
Definition: control.c:3759
#define vec_foreach(var, vec)
Vector iterator.
static void * vlib_buffer_pull(vlib_buffer_t *b, u8 size)
Retrieve bytes from buffer head.
Definition: buffer.h:327
uword * map_register_messages_by_nonce
Definition: control.h:217
static void update_rloc_probing(lisp_cp_main_t *lcm, f64 dt)
Definition: control.c:4666
lisp_cp_main_t lisp_control_main
Definition: control.c:37
void udp_register_dst_port(vlib_main_t *vm, udp_dst_port_t dst_port, u32 node_index, u8 is_ip4)
Definition: udp_local.c:492
#define gid_address_arp_ip4(_a)
Definition: lisp_types.h:285
void * process_map_reply(map_records_arg_t *a)
Definition: control.c:3839
gid_address_t dst_eid
Definition: control.c:2453
static int parse_map_records(vlib_buffer_t *b, map_records_arg_t *a, u8 count)
Definition: control.c:4017
u8 ip_version_and_header_length
Definition: ip4_packet.h:137
uword * lisp_stats_index_by_key
Definition: lisp_gpe.h:163
static void * ip_interface_address_get_address(ip_lookup_main_t *lm, ip_interface_address_t *a)
Definition: lookup.h:172
#define MREP_NONCE(h_)
mapping_t * mappings
Definition: control.h:156
#define pool_foreach_index(i, v, body)
Iterate pool by index.
Definition: pool.h:488
static int dp_add_del_iface(lisp_cp_main_t *lcm, u32 vni, u8 is_l2, u8 is_add, u8 with_default_route)
Definition: control.c:224
Definition: lisp_types.h:38
u32 max_expired_map_registers
Definition: control.h:278
static void lisp_cp_disable_l2_l3_ifaces(lisp_cp_main_t *lcm)
Definition: control.c:2241
u32 flags
buffer flags: VLIB_BUFFER_FREE_LIST_INDEX_MASK: bits used to store free list index, VLIB_BUFFER_IS_TRACED: trace this buffer.
Definition: buffer.h:111
int vnet_lisp_map_register_set_ttl(u32 ttl)
Definition: control.c:2377
u32 si
Definition: control.c:591
static u32 vlib_buffer_alloc(vlib_main_t *vm, u32 *buffers, u32 n_buffers)
Allocate buffers into supplied array.
Definition: buffer_funcs.h:490
u32 vnet_lisp_map_register_get_ttl(void)
Definition: control.c:2385
static const EVP_MD * get_encrypt_fcn(lisp_key_type_t key_id)
Definition: control.c:80
static void * dp_add_fwd_entry_thread_fn(void *arg)
Definition: control.c:596
void build_src_dst(gid_address_t *sd, gid_address_t *src, gid_address_t *dst)
Definition: lisp_types.c:1743
static uword lisp_cp_lookup_ip6(vlib_main_t *vm, vlib_node_runtime_t *node, vlib_frame_t *from_frame)
Definition: control.c:3584
int vnet_lisp_use_petr(ip_address_t *ip, u8 is_add)
Configure Proxy-ETR.
Definition: control.c:1698
gid_address_t lcl_eid
local eid
Definition: lisp_gpe.h:243
u32 mreq_itr_rlocs
Definition: control.h:236
static vlib_buffer_t * vlib_get_buffer(vlib_main_t *vm, u32 buffer_index)
Translate buffer index into buffer pointer.
Definition: buffer_funcs.h:57
static foreach_msmr void free_map_register_records(mapping_t *maps)
Definition: control.c:2669
u32 * locator_indices
Definition: lisp_types.h:345
#define send_encapsulated_map_request(lcm, seid, deid, smr)
Definition: control.c:3027
vnet_main_t * vnet_main
Definition: control.h:288
#define MREP_RLOC_PROBE(h_)
static int is_auth_data_valid(map_notify_hdr_t *h, u32 msg_len, lisp_key_type_t key_id, u8 *key)
Definition: control.c:3913
A LISP GPE Tunnel.
static mapping_t * build_map_register_record_list(lisp_cp_main_t *lcm)
Definition: control.c:2723
u8 * format_lisp_cp_lookup_trace(u8 *s, va_list *args)
Definition: control.c:2458
#define MAP_REGISTER_DEFAULT_TTL
Definition: control.h:45
ip4_main_t * im4
Definition: control.h:285
gid_address_t leid
Definition: control.h:65
Definition: defs.h:46
lisp_msg_type_e
#define ip_prefix_addr(_a)
Definition: lisp_types.h:71
ip6_address_t dst_address
Definition: ip6_packet.h:347
#define resend_encapsulated_map_request(lcm, seid, deid, smr)
Definition: control.c:3030
lisp_cp_output_error_t
Definition: control.c:2830
#define PENDING_MREQ_EXPIRATION_TIME
Definition: control.h:25
void gid_dict_foreach_l2_arp_ndp_entry(gid_dictionary_t *db, void(*cb)(BVT(clib_bihash_kv)*kvp, void *arg), void *ht)
static int lisp_stats_api_fill(lisp_cp_main_t *lcm, lisp_gpe_main_t *lgm, lisp_api_stats_t *stat, lisp_stats_key_t *key, u32 stats_index)
Definition: control.c:4505
locator_t * locators
Definition: lisp_types.h:357
lisp_cp_input_error_t
Definition: control.c:3699
static uword lisp_cp_lookup_inline(vlib_main_t *vm, vlib_node_runtime_t *node, vlib_frame_t *from_frame, int overlay)
Definition: control.c:3399
int ip_address_cmp(const ip_address_t *ip1, const ip_address_t *ip2)
Definition: lisp_types.c:869
fib_entry_flag_t fib_entry_get_flags(fib_node_index_t fib_entry_index)
Definition: fib_entry.c:276