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