src/plugins/ikev2/ikev2_cli.c

   1 /*
   2  * Copyright (c) 2015 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 #include <vlib/vlib.h>
  16 #include <vnet/vnet.h>
  17 #include <vppinfra/error.h>
  18 #include <vnet/ipsec/ipsec_sa.h>
  19 #include <plugins/ikev2/ikev2.h>
  20 #include <plugins/ikev2/ikev2_priv.h>
  21
  22 u8 *
  23 format_ikev2_id_type_and_data (u8 * s, va_list * args)
  24 {
  25   ikev2_id_t *id = va_arg (*args, ikev2_id_t *);
  26
  27   if (id->type == 0 || vec_len (id->data) == 0)
  28     return format (s, "none");
  29
  30   s = format (s, "id-type %U data ", format_ikev2_id_type, id->type);
  31
  32   switch (id->type)
  33     {
  34     case IKEV2_ID_TYPE_ID_IPV4_ADDR:
  35       s = format (s, "%U", format_ip4_address, id->data);
  36       break;
  37     case IKEV2_ID_TYPE_ID_IPV6_ADDR:
  38       s = format (s, "%U", format_ip6_address, id->data);
  39       break;
  40     case IKEV2_ID_TYPE_ID_FQDN: /* fallthrough */
  41     case IKEV2_ID_TYPE_ID_RFC822_ADDR:
  42       s = format (s, "%v", id->data);
  43       break;
  44     default:
  45       s = format (s, "0x%U", format_hex_bytes, &id->data,
  46                   (uword) (vec_len (id->data)));
  47       break;
  48     }
  49
  50   return s;
  51 }
  52
  53 static u8 *
  54 format_ikev2_traffic_selector (u8 * s, va_list * va)
  55 {
  56   ikev2_ts_t *ts = va_arg (*va, ikev2_ts_t *);
  57   u32 index = va_arg (*va, u32);
  58
  59   s = format (s, "%u type %u protocol_id %u addr "
  60               "%U - %U port %u - %u\n",
  61               index, ts->ts_type, ts->protocol_id,
  62               format_ip_address, &ts->start_addr,
  63               format_ip_address, &ts->end_addr,
  64               clib_net_to_host_u16 (ts->start_port),
  65               clib_net_to_host_u16 (ts->end_port));
  66   return s;
  67 }
  68
  69 static u8 *
  70 format_ikev2_child_sa (u8 * s, va_list * va)
  71 {
  72   ikev2_child_sa_t *child = va_arg (*va, ikev2_child_sa_t *);
  73   u32 index = va_arg (*va, u32);
  74   ikev2_ts_t *ts;
  75   ikev2_sa_transform_t *tr;
  76   u8 *c = 0;
  77
  78   u32 indent = format_get_indent (s);
  79   indent += 1;
  80
  81   s = format (s, "child sa %u:", index);
  82
  83   tr = ikev2_sa_get_td_for_type (child->r_proposals,
  84                                  IKEV2_TRANSFORM_TYPE_ENCR);
  85   c = format (c, "%U ", format_ikev2_sa_transform, tr);
  86
  87   tr = ikev2_sa_get_td_for_type (child->r_proposals,
  88                                  IKEV2_TRANSFORM_TYPE_INTEG);
  89   c = format (c, "%U ", format_ikev2_sa_transform, tr);
  90
  91   tr = ikev2_sa_get_td_for_type (child->r_proposals,
  92                                  IKEV2_TRANSFORM_TYPE_ESN);
  93   c = format (c, "%U ", format_ikev2_sa_transform, tr);
  94
  95   s = format (s, "%v\n", c);
  96   vec_free (c);
  97
  98   s = format (s, "%Uspi(i) %lx spi(r) %lx\n", format_white_space, indent,
  99               child->i_proposals ? child->i_proposals[0].spi : 0,
 100               child->r_proposals ? child->r_proposals[0].spi : 0);
 101
 102   s = format (s, "%USK_e  i:%U\n%Ur:%U\n",
 103               format_white_space, indent,
 104               format_hex_bytes, child->sk_ei, vec_len (child->sk_ei),
 105               format_white_space, indent + 6,
 106               format_hex_bytes, child->sk_er, vec_len (child->sk_er));
 107   if (child->sk_ai)
 108     {
 109       s = format (s, "%USK_a  i:%U\n%Ur:%U\n",
 110                   format_white_space, indent,
 111                   format_hex_bytes, child->sk_ai, vec_len (child->sk_ai),
 112                   format_white_space, indent + 6,
 113                   format_hex_bytes, child->sk_ar, vec_len (child->sk_ar));
 114     }
 115   s = format (s, "%Utraffic selectors (i):", format_white_space, indent);
 116   vec_foreach (ts, child->tsi)
 117     s = format (s, "%U", format_ikev2_traffic_selector, ts, ts - child->tsi);
 118   s = format (s, "%Utraffic selectors (r):", format_white_space, indent);
 119   vec_foreach (ts, child->tsr)
 120     s = format (s, "%U", format_ikev2_traffic_selector, ts, ts - child->tsr);
 121   return s;
 122 }
 123
 124 static u8 *
 125 format_ikev2_sa (u8 * s, va_list * va)
 126 {
 127   ikev2_sa_t *sa = va_arg (*va, ikev2_sa_t *);
 128   int details = va_arg (*va, int);
 129   ikev2_sa_transform_t *tr;
 130   ikev2_child_sa_t *child;
 131   u32 indent = 1;
 132
 133   s = format (s, "iip %U ispi %lx rip %U rspi %lx",
 134               format_ip_address, &sa->iaddr, sa->ispi,
 135               format_ip_address, &sa->raddr, sa->rspi);
 136   if (!details)
 137     return s;
 138
 139   s = format (s, "\n%U", format_white_space, indent);
 140
 141   tr = ikev2_sa_get_td_for_type (sa->r_proposals, IKEV2_TRANSFORM_TYPE_ENCR);
 142   s = format (s, "%U ", format_ikev2_sa_transform, tr);
 143
 144   tr = ikev2_sa_get_td_for_type (sa->r_proposals, IKEV2_TRANSFORM_TYPE_PRF);
 145   s = format (s, "%U ", format_ikev2_sa_transform, tr);
 146
 147   tr = ikev2_sa_get_td_for_type (sa->r_proposals, IKEV2_TRANSFORM_TYPE_INTEG);
 148   s = format (s, "%U ", format_ikev2_sa_transform, tr);
 149
 150   tr = ikev2_sa_get_td_for_type (sa->r_proposals, IKEV2_TRANSFORM_TYPE_DH);
 151   s = format (s, "%U", format_ikev2_sa_transform, tr);
 152
 153   s = format (s, "\n%U", format_white_space, indent);
 154
 155   s = format (s, "nonce i:%U\n%Ur:%U\n",
 156               format_hex_bytes, sa->i_nonce, vec_len (sa->i_nonce),
 157               format_white_space, indent + 6,
 158               format_hex_bytes, sa->r_nonce, vec_len (sa->r_nonce));
 159
 160   s = format (s, "%USK_d    %U\n", format_white_space, indent,
 161               format_hex_bytes, sa->sk_d, vec_len (sa->sk_d));
 162   if (sa->sk_ai)
 163     {
 164       s = format (s, "%USK_a  i:%U\n%Ur:%U\n",
 165                   format_white_space, indent,
 166                   format_hex_bytes, sa->sk_ai, vec_len (sa->sk_ai),
 167                   format_white_space, indent + 6,
 168                   format_hex_bytes, sa->sk_ar, vec_len (sa->sk_ar));
 169     }
 170   s = format (s, "%USK_e  i:%U\n%Ur:%U\n",
 171               format_white_space, indent,
 172               format_hex_bytes, sa->sk_ei, vec_len (sa->sk_ei),
 173               format_white_space, indent + 6,
 174               format_hex_bytes, sa->sk_er, vec_len (sa->sk_er));
 175   s = format (s, "%USK_p  i:%U\n%Ur:%U\n",
 176               format_white_space, indent,
 177               format_hex_bytes, sa->sk_pi, vec_len (sa->sk_pi),
 178               format_white_space, indent + 6,
 179               format_hex_bytes, sa->sk_pr, vec_len (sa->sk_pr));
 180
 181   s = format (s, "%Uidentifier (i) %U\n",
 182               format_white_space, indent,
 183               format_ikev2_id_type_and_data, &sa->i_id);
 184   s = format (s, "%Uidentifier (r) %U\n",
 185               format_white_space, indent,
 186               format_ikev2_id_type_and_data, &sa->r_id);
 187
 188   vec_foreach (child, sa->childs)
 189   {
 190     s = format (s, "%U%U", format_white_space, indent + 2,
 191                 format_ikev2_child_sa, child, child - sa->childs);
 192   }
 193
 194   s = format (s, "Stats:\n");
 195   s = format (s, " keepalives :%u\n", sa->stats.n_keepalives);
 196   s = format (s, " rekey :%u\n", sa->stats.n_rekey_req);
 197   s = format (s, " SA init :%u (retransmit: %u)\n", sa->stats.n_sa_init_req,
 198               sa->stats.n_init_retransmit);
 199   s = format (s, " retransmit: %u\n", sa->stats.n_retransmit);
 200   s = format (s, " SA auth :%u\n", sa->stats.n_sa_auth_req);
 201
 202   return s;
 203 }
 204
 205 static clib_error_t *
 206 show_ikev2_sa_command_fn (vlib_main_t * vm,
 207                           unformat_input_t * input, vlib_cli_command_t * cmd)
 208 {
 209   unformat_input_t _line_input, *line_input = &_line_input;
 210   ikev2_main_t *km = &ikev2_main;
 211   ikev2_main_per_thread_data_t *tkm;
 212   ikev2_sa_t *sa;
 213   u64 rspi;
 214   u8 *s = 0;
 215   int details = 0, show_one = 0;
 216
 217   if (unformat_user (input, unformat_line_input, line_input))
 218     {
 219       while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
 220         {
 221           if (unformat (line_input, "rspi %lx", &rspi))
 222             {
 223               show_one = 1;
 224             }
 225           else if (unformat (line_input, "details"))
 226             details = 1;
 227           else
 228             break;
 229         }
 230       unformat_free (line_input);
 231     }
 232
 233   vec_foreach (tkm, km->per_thread_data)
 234   {
 235     /* *INDENT-OFF* */
 236     pool_foreach (sa, tkm->sas)  {
 237       if (show_one)
 238         {
 239           if (sa->rspi == rspi)
 240             {
 241               s = format (s, "%U\n", format_ikev2_sa, sa, 1);
 242               break;
 243             }
 244         }
 245       else
 246         s = format (s, "%U\n", format_ikev2_sa, sa, details);
 247     }
 248     /* *INDENT-ON* */
 249   }
 250
 251   vlib_cli_output (vm, "%v", s);
 252   vec_free (s);
 253   return 0;
 254 }
 255
 256 /* *INDENT-OFF* */
 257 VLIB_CLI_COMMAND (show_ikev2_sa_command, static) = {
 258     .path = "show ikev2 sa",
 259     .short_help = "show ikev2 sa [rspi <rspi>] [details]",
 260     .function = show_ikev2_sa_command_fn,
 261 };
 262 /* *INDENT-ON* */
 263
 264 static clib_error_t *
 265 ikev2_disable_dpd_command_fn (vlib_main_t * vm,
 266                               unformat_input_t * input,
 267                               vlib_cli_command_t * cmd)
 268 {
 269   ikev2_disable_dpd ();
 270   return 0;
 271 }
 272
 273 /* *INDENT-OFF* */
 274 VLIB_CLI_COMMAND (ikev2_cli_disable_dpd_command, static) = {
 275   .path = "ikev2 dpd disable",
 276   .short_help = "ikev2 dpd disable",
 277   .function = ikev2_disable_dpd_command_fn,
 278 };
 279 /* *INDENT-ON* */
 280
 281 static uword
 282 unformat_ikev2_token (unformat_input_t * input, va_list * va)
 283 {
 284   u8 **string_return = va_arg (*va, u8 **);
 285   const char *token_chars = "a-zA-Z0-9_";
 286   if (*string_return)
 287     {
 288       /* if string_return was already allocated (eg. because of a previous
 289        * partial match with a successful unformat_token()), we must free it
 290        * before reusing the pointer, otherwise we'll be leaking memory
 291        */
 292       vec_free (*string_return);
 293       *string_return = 0;
 294     }
 295   return unformat_user (input, unformat_token, token_chars, string_return);
 296 }
 297
 298 static clib_error_t *
 299 ikev2_profile_add_del_command_fn (vlib_main_t * vm,
 300                                   unformat_input_t * input,
 301                                   vlib_cli_command_t * cmd)
 302 {
 303   vnet_main_t *vnm = vnet_get_main ();
 304   unformat_input_t _line_input, *line_input = &_line_input;
 305   u8 *name = 0;
 306   clib_error_t *r = 0;
 307   u32 id_type;
 308   u8 *data = 0;
 309   u32 tmp1, tmp2, tmp3;
 310   u64 tmp4, tmp5;
 311   ip_address_t ip, end_addr;
 312   u32 responder_sw_if_index = (u32) ~ 0;
 313   u32 tun_sw_if_index = (u32) ~ 0;
 314   ikev2_transform_encr_type_t crypto_alg;
 315   ikev2_transform_integ_type_t integ_alg;
 316   ikev2_transform_dh_type_t dh_type;
 317
 318   if (!unformat_user (input, unformat_line_input, line_input))
 319     return 0;
 320
 321   while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
 322     {
 323       if (unformat (line_input, "add %U", unformat_ikev2_token, &name))
 324         {
 325           r = ikev2_add_del_profile (vm, name, 1);
 326           goto done;
 327         }
 328       else if (unformat (line_input, "del %U", unformat_ikev2_token, &name))
 329         {
 330           r = ikev2_add_del_profile (vm, name, 0);
 331           goto done;
 332         }
 333       else if (unformat (line_input, "set %U auth shared-key-mic string %v",
 334                          unformat_ikev2_token, &name, &data))
 335         {
 336           r =
 337             ikev2_set_profile_auth (vm, name,
 338                                     IKEV2_AUTH_METHOD_SHARED_KEY_MIC, data,
 339                                     0);
 340           goto done;
 341         }
 342       else if (unformat (line_input, "set %U auth shared-key-mic hex %U",
 343                          unformat_ikev2_token, &name,
 344                          unformat_hex_string, &data))
 345         {
 346           r =
 347             ikev2_set_profile_auth (vm, name,
 348                                     IKEV2_AUTH_METHOD_SHARED_KEY_MIC, data,
 349                                     1);
 350           goto done;
 351         }
 352       else if (unformat (line_input, "set %U auth rsa-sig cert-file %v",
 353                          unformat_ikev2_token, &name, &data))
 354         {
 355           r =
 356             ikev2_set_profile_auth (vm, name, IKEV2_AUTH_METHOD_RSA_SIG, data,
 357                                     0);
 358           goto done;
 359         }
 360       else if (unformat (line_input, "set %U id local %U %U",
 361                          unformat_ikev2_token, &name,
 362                          unformat_ikev2_id_type, &id_type,
 363                          unformat_ip_address, &ip))
 364         {
 365           data = vec_new (u8, ip_address_size (&ip));
 366           clib_memcpy (data, ip_addr_bytes (&ip), ip_address_size (&ip));
 367           r =
 368             ikev2_set_profile_id (vm, name, (u8) id_type, data, /*local */ 1);
 369           goto done;
 370         }
 371       else if (unformat (line_input, "set %U id local %U 0x%U",
 372                          unformat_ikev2_token, &name,
 373                          unformat_ikev2_id_type, &id_type,
 374                          unformat_hex_string, &data))
 375         {
 376           r =
 377             ikev2_set_profile_id (vm, name, (u8) id_type, data, /*local */ 1);
 378           goto done;
 379         }
 380       else if (unformat (line_input, "set %U id local %U %v",
 381                          unformat_ikev2_token, &name,
 382                          unformat_ikev2_id_type, &id_type, &data))
 383         {
 384           r =
 385             ikev2_set_profile_id (vm, name, (u8) id_type, data, /*local */ 1);
 386           goto done;
 387         }
 388       else if (unformat (line_input, "set %U id remote %U %U",
 389                          unformat_ikev2_token, &name,
 390                          unformat_ikev2_id_type, &id_type,
 391                          unformat_ip_address, &ip))
 392         {
 393           data = vec_new (u8, ip_address_size (&ip));
 394           clib_memcpy (data, ip_addr_bytes (&ip), ip_address_size (&ip));
 395           r = ikev2_set_profile_id (vm, name, (u8) id_type, data,       /*remote */
 396                                     0);
 397           goto done;
 398         }
 399       else if (unformat (line_input, "set %U id remote %U 0x%U",
 400                          unformat_ikev2_token, &name,
 401                          unformat_ikev2_id_type, &id_type,
 402                          unformat_hex_string, &data))
 403         {
 404           r = ikev2_set_profile_id (vm, name, (u8) id_type, data,       /*remote */
 405                                     0);
 406           goto done;
 407         }
 408       else if (unformat (line_input, "set %U id remote %U %v",
 409                          unformat_ikev2_token, &name,
 410                          unformat_ikev2_id_type, &id_type, &data))
 411         {
 412           r = ikev2_set_profile_id (vm, name, (u8) id_type, data,       /*remote */
 413                                     0);
 414           goto done;
 415         }
 416       else if (unformat (line_input, "set %U traffic-selector local "
 417                          "ip-range %U - %U port-range %u - %u protocol %u",
 418                          unformat_ikev2_token, &name,
 419                          unformat_ip_address, &ip,
 420                          unformat_ip_address, &end_addr, &tmp1, &tmp2, &tmp3))
 421         {
 422           r =
 423             ikev2_set_profile_ts (vm, name, (u8) tmp3, (u16) tmp1, (u16) tmp2,
 424                                   ip, end_addr, /*local */ 1);
 425           goto done;
 426         }
 427       else if (unformat (line_input, "set %U traffic-selector remote "
 428                          "ip-range %U - %U port-range %u - %u protocol %u",
 429                          unformat_ikev2_token, &name,
 430                          unformat_ip_address, &ip,
 431                          unformat_ip_address, &end_addr, &tmp1, &tmp2, &tmp3))
 432         {
 433           r =
 434             ikev2_set_profile_ts (vm, name, (u8) tmp3, (u16) tmp1, (u16) tmp2,
 435                                   ip, end_addr, /*remote */ 0);
 436           goto done;
 437         }
 438       else if (unformat (line_input, "set %U responder %U %U",
 439                          unformat_ikev2_token, &name,
 440                          unformat_vnet_sw_interface, vnm,
 441                          &responder_sw_if_index, unformat_ip_address, &ip))
 442         {
 443           r =
 444             ikev2_set_profile_responder (vm, name, responder_sw_if_index, ip);
 445           goto done;
 446         }
 447       else if (unformat (line_input, "set %U responder %U %v",
 448                          unformat_ikev2_token, &name,
 449                          unformat_vnet_sw_interface, vnm,
 450                          &responder_sw_if_index, &data))
 451         {
 452           r = ikev2_set_profile_responder_hostname (vm, name, data,
 453                                                     responder_sw_if_index);
 454           goto done;
 455         }
 456       else if (unformat (line_input, "set %U tunnel %U",
 457                          unformat_ikev2_token, &name,
 458                          unformat_vnet_sw_interface, vnm, &tun_sw_if_index))
 459         {
 460           r = ikev2_set_profile_tunnel_interface (vm, name, tun_sw_if_index);
 461           goto done;
 462         }
 463       else
 464         if (unformat
 465             (line_input,
 466              "set %U ike-crypto-alg %U %u ike-integ-alg %U ike-dh %U",
 467              unformat_ikev2_token, &name,
 468              unformat_ikev2_transform_encr_type, &crypto_alg, &tmp1,
 469              unformat_ikev2_transform_integ_type, &integ_alg,
 470              unformat_ikev2_transform_dh_type, &dh_type))
 471         {
 472           r =
 473             ikev2_set_profile_ike_transforms (vm, name, crypto_alg, integ_alg,
 474                                               dh_type, tmp1);
 475           goto done;
 476         }
 477       else
 478         if (unformat
 479             (line_input,
 480              "set %U ike-crypto-alg %U %u ike-dh %U",
 481              unformat_ikev2_token, &name,
 482              unformat_ikev2_transform_encr_type, &crypto_alg, &tmp1,
 483              unformat_ikev2_transform_dh_type, &dh_type))
 484         {
 485           r =
 486             ikev2_set_profile_ike_transforms (vm, name, crypto_alg,
 487                                               IKEV2_TRANSFORM_INTEG_TYPE_NONE,
 488                                               dh_type, tmp1);
 489           goto done;
 490         }
 491       else
 492         if (unformat
 493             (line_input,
 494              "set %U esp-crypto-alg %U %u esp-integ-alg %U",
 495              unformat_ikev2_token, &name,
 496              unformat_ikev2_transform_encr_type, &crypto_alg, &tmp1,
 497              unformat_ikev2_transform_integ_type, &integ_alg))
 498         {
 499           r =
 500             ikev2_set_profile_esp_transforms (vm, name, crypto_alg, integ_alg,
 501                                               tmp1);
 502           goto done;
 503         }
 504       else if (unformat
 505                (line_input,
 506                 "set %U esp-crypto-alg %U %u",
 507                 unformat_ikev2_token, &name,
 508                 unformat_ikev2_transform_encr_type, &crypto_alg, &tmp1))
 509         {
 510           r =
 511             ikev2_set_profile_esp_transforms (vm, name, crypto_alg, 0, tmp1);
 512           goto done;
 513         }
 514       else if (unformat (line_input, "set %U sa-lifetime %lu %u %u %lu",
 515                          unformat_ikev2_token, &name,
 516                          &tmp4, &tmp1, &tmp2, &tmp5))
 517         {
 518           r =
 519             ikev2_set_profile_sa_lifetime (vm, name, tmp4, tmp1, tmp2, tmp5);
 520           goto done;
 521         }
 522       else if (unformat (line_input, "set %U udp-encap",
 523                          unformat_ikev2_token, &name))
 524         {
 525           r = ikev2_set_profile_udp_encap (vm, name);
 526           goto done;
 527         }
 528       else if (unformat (line_input, "set %U ipsec-over-udp port %u",
 529                          unformat_ikev2_token, &name, &tmp1))
 530         {
 531           int rv = ikev2_set_profile_ipsec_udp_port (vm, name, tmp1, 1);
 532           if (rv)
 533             r = clib_error_return (0, "Error: %U", format_vnet_api_errno, rv);
 534           goto done;
 535         }
 536       else if (unformat (line_input, "set %U disable natt",
 537                          unformat_ikev2_token, &name))
 538         {
 539           r = ikev2_profile_natt_disable (name);
 540           goto done;
 541         }
 542       else
 543         break;
 544     }
 545
 546   r = clib_error_return (0, "parse error: '%U'",
 547                          format_unformat_error, line_input);
 548
 549 done:
 550   vec_free (name);
 551   vec_free (data);
 552   unformat_free (line_input);
 553   return r;
 554 }
 555
 556 /* *INDENT-OFF* */
 557 VLIB_CLI_COMMAND (ikev2_profile_add_del_command, static) = {
 558     .path = "ikev2 profile",
 559     .short_help =
 560     "ikev2 profile [add|del] <id>\n"
 561     "ikev2 profile set <id> auth [rsa-sig|shared-key-mic] [cert-file|string|hex]"
 562     " <data>\n"
 563     "ikev2 profile set <id> id <local|remote> <type> <data>\n"
 564     "ikev2 profile set <id> tunnel <interface>\n"
 565     "ikev2 profile set <id> udp-encap\n"
 566     "ikev2 profile set <id> traffic-selector <local|remote> ip-range "
 567     "<start-addr> - <end-addr> port-range <start-port> - <end-port> "
 568     "protocol <protocol-number>\n"
 569     "ikev2 profile set <id> responder <interface> <addr>\n"
 570     "ikev2 profile set <id> ike-crypto-alg <crypto alg> <key size> ike-integ-alg <integ alg> ike-dh <dh type>\n"
 571     "ikev2 profile set <id> esp-crypto-alg <crypto alg> <key size> "
 572       "[esp-integ-alg <integ alg>]\n"
 573     "ikev2 profile set <id> sa-lifetime <seconds> <jitter> <handover> <max bytes>"
 574     "ikev2 profile set <id> disable natt\n",
 575     .function = ikev2_profile_add_del_command_fn,
 576 };
 577 /* *INDENT-ON* */
 578
 579 static clib_error_t *
 580 show_ikev2_profile_command_fn (vlib_main_t * vm,
 581                                unformat_input_t * input,
 582                                vlib_cli_command_t * cmd)
 583 {
 584   ikev2_main_t *km = &ikev2_main;
 585   ikev2_profile_t *p;
 586
 587   /* *INDENT-OFF* */
 588   pool_foreach (p, km->profiles)  {
 589     vlib_cli_output(vm, "profile %v", p->name);
 590
 591     if (p->auth.data)
 592       {
 593         if (p->auth.hex)
 594           vlib_cli_output(vm, "  auth-method %U auth data 0x%U",
 595                           format_ikev2_auth_method, p->auth.method,
 596                           format_hex_bytes, p->auth.data, vec_len(p->auth.data));
 597         else
 598           vlib_cli_output(vm, "  auth-method %U auth data %v",
 599                    format_ikev2_auth_method, p->auth.method, p->auth.data);
 600       }
 601
 602     if (p->loc_id.data)
 603       vlib_cli_output(vm, "  local %U", format_ikev2_id_type_and_data, &p->loc_id);
 604
 605     if (p->rem_id.data)
 606       vlib_cli_output(vm, "  remote %U", format_ikev2_id_type_and_data, &p->rem_id);
 607
 608     if (!ip_address_is_zero (&p->loc_ts.start_addr))
 609       vlib_cli_output(vm, "  local traffic-selector addr %U - %U port %u - %u"
 610                       " protocol %u",
 611                       format_ip_address, &p->loc_ts.start_addr,
 612                       format_ip_address, &p->loc_ts.end_addr,
 613                       p->loc_ts.start_port, p->loc_ts.end_port,
 614                       p->loc_ts.protocol_id);
 615
 616     if (!ip_address_is_zero (&p->rem_ts.start_addr))
 617       vlib_cli_output(vm, "  remote traffic-selector addr %U - %U port %u - %u"
 618                       " protocol %u",
 619                       format_ip_address, &p->rem_ts.start_addr,
 620                       format_ip_address, &p->rem_ts.end_addr,
 621                       p->rem_ts.start_port, p->rem_ts.end_port,
 622                       p->rem_ts.protocol_id);
 623     if (~0 != p->tun_itf)
 624       vlib_cli_output(vm, "  protected tunnel %U",
 625                       format_vnet_sw_if_index_name, vnet_get_main(), p->tun_itf);
 626     if (~0 != p->responder.sw_if_index)
 627       vlib_cli_output (vm, "  responder %U %U %v",
 628                        format_vnet_sw_if_index_name, vnet_get_main (),
 629                        p->responder.sw_if_index, format_ip_address,
 630                        &p->responder.addr, p->responder.hostname);
 631     if (p->udp_encap)
 632       vlib_cli_output(vm, "  udp-encap");
 633
 634     if (p->natt_disabled)
 635       vlib_cli_output(vm, "  NAT-T disabled");
 636
 637     if (p->ipsec_over_udp_port != IPSEC_UDP_PORT_NONE)
 638       vlib_cli_output(vm, "  ipsec-over-udp port %d", p->ipsec_over_udp_port);
 639
 640     if (p->ike_ts.crypto_alg || p->ike_ts.integ_alg || p->ike_ts.dh_type || p->ike_ts.crypto_key_size)
 641       vlib_cli_output(vm, "  ike-crypto-alg %U %u ike-integ-alg %U ike-dh %U",
 642                     format_ikev2_transform_encr_type, p->ike_ts.crypto_alg, p->ike_ts.crypto_key_size,
 643                     format_ikev2_transform_integ_type, p->ike_ts.integ_alg,
 644                     format_ikev2_transform_dh_type, p->ike_ts.dh_type);
 645
 646     if (p->esp_ts.crypto_alg || p->esp_ts.integ_alg || p->esp_ts.dh_type)
 647       vlib_cli_output(vm, "  esp-crypto-alg %U %u esp-integ-alg %U",
 648                     format_ikev2_transform_encr_type, p->esp_ts.crypto_alg, p->esp_ts.crypto_key_size,
 649                     format_ikev2_transform_integ_type, p->esp_ts.integ_alg);
 650
 651     vlib_cli_output(vm, "  lifetime %d jitter %d handover %d maxdata %d",
 652                     p->lifetime, p->lifetime_jitter, p->handover, p->lifetime_maxdata);
 653   }
 654   /* *INDENT-ON* */
 655
 656   return 0;
 657 }
 658
 659 /* *INDENT-OFF* */
 660 VLIB_CLI_COMMAND (show_ikev2_profile_command, static) = {
 661     .path = "show ikev2 profile",
 662     .short_help = "show ikev2 profile",
 663     .function = show_ikev2_profile_command_fn,
 664 };
 665 /* *INDENT-ON* */
 666
 667 static clib_error_t *
 668 set_ikev2_liveness_period_fn (vlib_main_t * vm,
 669                               unformat_input_t * input,
 670                               vlib_cli_command_t * cmd)
 671 {
 672   unformat_input_t _line_input, *line_input = &_line_input;
 673   clib_error_t *r = 0;
 674   u32 period = 0, max_retries = 0;
 675
 676   if (!unformat_user (input, unformat_line_input, line_input))
 677     return 0;
 678
 679   while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
 680     {
 681       if (unformat (line_input, "%d %d", &period, &max_retries))
 682         {
 683           r = ikev2_set_liveness_params (period, max_retries);
 684           goto done;
 685         }
 686       else
 687         break;
 688     }
 689
 690   r = clib_error_return (0, "parse error: '%U'",
 691                          format_unformat_error, line_input);
 692
 693 done:
 694   unformat_free (line_input);
 695   return r;
 696 }
 697
 698 /* *INDENT-OFF* */
 699 VLIB_CLI_COMMAND (set_ikev2_liveness_command, static) = {
 700   .path = "ikev2 set liveness",
 701   .short_help = "ikev2 set liveness <period> <max-retires>",
 702   .function = set_ikev2_liveness_period_fn,
 703 };
 704 /* *INDENT-ON* */
 705
 706 static clib_error_t *
 707 set_ikev2_local_key_command_fn (vlib_main_t * vm,
 708                                 unformat_input_t * input,
 709                                 vlib_cli_command_t * cmd)
 710 {
 711   unformat_input_t _line_input, *line_input = &_line_input;
 712   clib_error_t *r = 0;
 713   u8 *data = 0;
 714
 715   if (!unformat_user (input, unformat_line_input, line_input))
 716     return 0;
 717
 718   while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
 719     {
 720       if (unformat (line_input, "%s", &data))
 721         {
 722           r = ikev2_set_local_key (vm, data);
 723           goto done;
 724         }
 725       else
 726         break;
 727     }
 728
 729   r = clib_error_return (0, "parse error: '%U'",
 730                          format_unformat_error, line_input);
 731
 732 done:
 733   vec_free (data);
 734   unformat_free (line_input);
 735   return r;
 736 }
 737
 738 /* *INDENT-OFF* */
 739 VLIB_CLI_COMMAND (set_ikev2_local_key_command, static) = {
 740     .path = "set ikev2 local key",
 741     .short_help =
 742     "set ikev2 local key <file>",
 743     .function = set_ikev2_local_key_command_fn,
 744 };
 745 /* *INDENT-ON* */
 746
 747
 748 static clib_error_t *
 749 ikev2_initiate_command_fn (vlib_main_t * vm,
 750                            unformat_input_t * input, vlib_cli_command_t * cmd)
 751 {
 752   unformat_input_t _line_input, *line_input = &_line_input;
 753   clib_error_t *r = 0;
 754   u8 *name = 0;
 755   u32 tmp1;
 756   u64 tmp2;
 757
 758   if (!unformat_user (input, unformat_line_input, line_input))
 759     return 0;
 760
 761   while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
 762     {
 763       if (unformat (line_input, "sa-init %U", unformat_ikev2_token, &name))
 764         {
 765           r = ikev2_initiate_sa_init (vm, name);
 766           goto done;
 767         }
 768       else if (unformat (line_input, "del-child-sa %x", &tmp1))
 769         {
 770           r = ikev2_initiate_delete_child_sa (vm, tmp1);
 771           goto done;
 772         }
 773       else if (unformat (line_input, "del-sa %lx", &tmp2))
 774         {
 775           r = ikev2_initiate_delete_ike_sa (vm, tmp2);
 776           goto done;
 777         }
 778       else if (unformat (line_input, "rekey-child-sa %x", &tmp1))
 779         {
 780           r = ikev2_initiate_rekey_child_sa (vm, tmp1);
 781           goto done;
 782         }
 783       else
 784         break;
 785     }
 786
 787   r = clib_error_return (0, "parse error: '%U'",
 788                          format_unformat_error, line_input);
 789
 790 done:
 791   vec_free (name);
 792   unformat_free (line_input);
 793   return r;
 794 }
 795
 796 /* *INDENT-OFF* */
 797 VLIB_CLI_COMMAND (ikev2_initiate_command, static) = {
 798     .path = "ikev2 initiate",
 799     .short_help =
 800         "ikev2 initiate sa-init <profile id>\n"
 801         "ikev2 initiate del-child-sa <child sa ispi>\n"
 802         "ikev2 initiate del-sa <sa ispi>\n"
 803         "ikev2 initiate rekey-child-sa <child sa ispi>\n",
 804     .function = ikev2_initiate_command_fn,
 805 };
 806 /* *INDENT-ON* */
 807
 808 void
 809 ikev2_cli_reference (void)
 810 {
 811 }
 812
 813 static clib_error_t *
 814 ikev2_set_log_level_command_fn (vlib_main_t * vm,
 815                                 unformat_input_t * input,
 816                                 vlib_cli_command_t * cmd)
 817 {
 818   unformat_input_t _line_input, *line_input = &_line_input;
 819   u32 log_level = IKEV2_LOG_NONE;
 820   clib_error_t *error = 0;
 821
 822   /* Get a line of input. */
 823   if (!unformat_user (input, unformat_line_input, line_input))
 824     return 0;
 825
 826   if (!unformat (line_input, "%d", &log_level))
 827     {
 828       error = clib_error_return (0, "unknown input '%U'",
 829                                  format_unformat_error, line_input);
 830       goto done;
 831     }
 832   int rc = ikev2_set_log_level (log_level);
 833   if (rc < 0)
 834     error = clib_error_return (0, "setting log level failed!");
 835
 836 done:
 837   unformat_free (line_input);
 838   return error;
 839 }
 840
 841 /* *INDENT-OFF* */
 842 VLIB_CLI_COMMAND (ikev2_set_log_level_command, static) = {
 843   .path = "ikev2 set logging level",
 844   .function = ikev2_set_log_level_command_fn,
 845   .short_help = "ikev2 set logging level <0-5>",
 846 };
 847 /* *INDENT-ON* */
 848
 849 /*
 850  * fd.io coding-style-patch-verification: ON
 851  *
 852  * Local Variables:
 853  * eval: (c-set-style "gnu")
 854  * End:
 855  */