1 /* 2 * Copyright (c) 1997-2006 Kungliga Tekniska Högskolan 3 * (Royal Institute of Technology, Stockholm, Sweden). 4 * All rights reserved. 5 * 6 * Redistribution and use in source and binary forms, with or without 7 * modification, are permitted provided that the following conditions 8 * are met: 9 * 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 13 * 2. Redistributions in binary form must reproduce the above copyright 14 * notice, this list of conditions and the following disclaimer in the 15 * documentation and/or other materials provided with the distribution. 16 * 17 * 3. Neither the name of the Institute nor the names of its contributors 18 * may be used to endorse or promote products derived from this software 19 * without specific prior written permission. 20 * 21 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND 22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 24 * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE 25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 31 * SUCH DAMAGE. 32 */ 33 34 #include "kadmin_locl.h" 35 #include "kadmin-commands.h" 36 #include <parse_units.h> 37 #include <rtbl.h> 38 39 static struct field_name { 40 const char *fieldname; 41 unsigned int fieldvalue; 42 unsigned int subvalue; 43 uint32_t extra_mask; 44 const char *default_header; 45 const char *def_longheader; 46 unsigned int flags; 47 } field_names[] = { 48 { "principal", KADM5_PRINCIPAL, 0, 0, "Principal", "Principal", 0 }, 49 { "princ_expire_time", KADM5_PRINC_EXPIRE_TIME, 0, 0, "Expiration", "Principal expires", 0 }, 50 { "pw_expiration", KADM5_PW_EXPIRATION, 0, 0, "PW-exp", "Password expires", 0 }, 51 { "last_pwd_change", KADM5_LAST_PWD_CHANGE, 0, 0, "PW-change", "Last password change", 0 }, 52 { "max_life", KADM5_MAX_LIFE, 0, 0, "Max life", "Max ticket life", 0 }, 53 { "max_rlife", KADM5_MAX_RLIFE, 0, 0, "Max renew", "Max renewable life", 0 }, 54 { "mod_time", KADM5_MOD_TIME, 0, 0, "Mod time", "Last modified", 0 }, 55 { "mod_name", KADM5_MOD_NAME, 0, 0, "Modifier", "Modifier", 0 }, 56 { "attributes", KADM5_ATTRIBUTES, 0, 0, "Attributes", "Attributes", 0 }, 57 { "kvno", KADM5_KVNO, 0, 0, "Kvno", "Kvno", RTBL_ALIGN_RIGHT }, 58 { "mkvno", KADM5_MKVNO, 0, 0, "Mkvno", "Mkvno", RTBL_ALIGN_RIGHT }, 59 { "last_success", KADM5_LAST_SUCCESS, 0, 0, "Last login", "Last successful login", 0 }, 60 { "last_failed", KADM5_LAST_FAILED, 0, 0, "Last fail", "Last failed login", 0 }, 61 { "fail_auth_count", KADM5_FAIL_AUTH_COUNT, 0, 0, "Fail count", "Failed login count", RTBL_ALIGN_RIGHT }, 62 { "policy", KADM5_POLICY, 0, 0, "Policy", "Policy", 0 }, 63 { "keytypes", KADM5_KEY_DATA, 0, KADM5_PRINCIPAL, "Keytypes", "Keytypes", 0 }, 64 { "password", KADM5_TL_DATA, KRB5_TL_PASSWORD, KADM5_KEY_DATA, "Password", "Password", 0 }, 65 { "pkinit-acl", KADM5_TL_DATA, KRB5_TL_PKINIT_ACL, 0, "PK-INIT ACL", "PK-INIT ACL", 0 }, 66 { "aliases", KADM5_TL_DATA, KRB5_TL_ALIASES, 0, "Aliases", "Aliases", 0 }, 67 { NULL } 68 }; 69 70 struct field_info { 71 struct field_name *ff; 72 char *header; 73 struct field_info *next; 74 }; 75 76 struct get_entry_data { 77 void (*format)(struct get_entry_data*, kadm5_principal_ent_t); 78 rtbl_t table; 79 uint32_t mask; 80 uint32_t extra_mask; 81 struct field_info *chead, **ctail; 82 }; 83 84 static int 85 add_column(struct get_entry_data *data, struct field_name *ff, const char *header) 86 { 87 struct field_info *f = malloc(sizeof(*f)); 88 if (f == NULL) 89 return ENOMEM; 90 f->ff = ff; 91 if(header) 92 f->header = strdup(header); 93 else 94 f->header = NULL; 95 f->next = NULL; 96 *data->ctail = f; 97 data->ctail = &f->next; 98 data->mask |= ff->fieldvalue; 99 data->extra_mask |= ff->extra_mask; 100 if(data->table != NULL) 101 rtbl_add_column_by_id(data->table, ff->fieldvalue, 102 header ? header : ff->default_header, ff->flags); 103 return 0; 104 } 105 106 /* 107 * return 0 iff `salt' actually is the same as the current salt in `k' 108 */ 109 110 static int 111 cmp_salt (const krb5_salt *salt, const krb5_key_data *k) 112 { 113 if (salt->salttype != (size_t)k->key_data_type[1]) 114 return 1; 115 if (salt->saltvalue.length != (size_t)k->key_data_length[1]) 116 return 1; 117 return memcmp (salt->saltvalue.data, k->key_data_contents[1], 118 salt->saltvalue.length); 119 } 120 121 static void 122 format_keytype(krb5_key_data *k, krb5_salt *def_salt, char *buf, size_t buf_len) 123 { 124 krb5_error_code ret; 125 char *s; 126 127 ret = krb5_enctype_to_string (context, 128 k->key_data_type[0], 129 &s); 130 if (ret) 131 asprintf (&s, "unknown(%d)", k->key_data_type[0]); 132 strlcpy(buf, s, buf_len); 133 free(s); 134 135 strlcat(buf, "(", buf_len); 136 137 ret = krb5_salttype_to_string (context, 138 k->key_data_type[0], 139 k->key_data_type[1], 140 &s); 141 if (ret) 142 asprintf (&s, "unknown(%d)", k->key_data_type[1]); 143 strlcat(buf, s, buf_len); 144 free(s); 145 146 if (cmp_salt(def_salt, k) == 0) 147 s = strdup(""); 148 else if(k->key_data_length[1] == 0) 149 s = strdup("()"); 150 else 151 asprintf (&s, "(%.*s)", k->key_data_length[1], 152 (char *)k->key_data_contents[1]); 153 strlcat(buf, s, buf_len); 154 free(s); 155 156 strlcat(buf, ")", buf_len); 157 } 158 159 static void 160 format_field(kadm5_principal_ent_t princ, unsigned int field, 161 unsigned int subfield, char *buf, size_t buf_len, int condensed) 162 { 163 switch(field) { 164 case KADM5_PRINCIPAL: 165 if(condensed) 166 krb5_unparse_name_fixed_short(context, princ->principal, buf, buf_len); 167 else 168 krb5_unparse_name_fixed(context, princ->principal, buf, buf_len); 169 break; 170 171 case KADM5_PRINC_EXPIRE_TIME: 172 time_t2str(princ->princ_expire_time, buf, buf_len, !condensed); 173 break; 174 175 case KADM5_PW_EXPIRATION: 176 time_t2str(princ->pw_expiration, buf, buf_len, !condensed); 177 break; 178 179 case KADM5_LAST_PWD_CHANGE: 180 time_t2str(princ->last_pwd_change, buf, buf_len, !condensed); 181 break; 182 183 case KADM5_MAX_LIFE: 184 deltat2str(princ->max_life, buf, buf_len); 185 break; 186 187 case KADM5_MAX_RLIFE: 188 deltat2str(princ->max_renewable_life, buf, buf_len); 189 break; 190 191 case KADM5_MOD_TIME: 192 time_t2str(princ->mod_date, buf, buf_len, !condensed); 193 break; 194 195 case KADM5_MOD_NAME: 196 if (princ->mod_name == NULL) 197 strlcpy(buf, "unknown", buf_len); 198 else if(condensed) 199 krb5_unparse_name_fixed_short(context, princ->mod_name, buf, buf_len); 200 else 201 krb5_unparse_name_fixed(context, princ->mod_name, buf, buf_len); 202 break; 203 case KADM5_ATTRIBUTES: 204 attributes2str (princ->attributes, buf, buf_len); 205 break; 206 case KADM5_KVNO: 207 snprintf(buf, buf_len, "%d", princ->kvno); 208 break; 209 case KADM5_MKVNO: 210 /* XXX libkadm5srv decrypts the keys, so mkvno is always 0. */ 211 strlcpy(buf, "unknown", buf_len); 212 break; 213 case KADM5_LAST_SUCCESS: 214 time_t2str(princ->last_success, buf, buf_len, !condensed); 215 break; 216 case KADM5_LAST_FAILED: 217 time_t2str(princ->last_failed, buf, buf_len, !condensed); 218 break; 219 case KADM5_FAIL_AUTH_COUNT: 220 snprintf(buf, buf_len, "%d", princ->fail_auth_count); 221 break; 222 case KADM5_POLICY: 223 if(princ->policy != NULL) 224 strlcpy(buf, princ->policy, buf_len); 225 else 226 strlcpy(buf, "none", buf_len); 227 break; 228 case KADM5_KEY_DATA:{ 229 krb5_salt def_salt; 230 int i; 231 char buf2[1024]; 232 krb5_get_pw_salt (context, princ->principal, &def_salt); 233 234 *buf = '\0'; 235 for (i = 0; i < princ->n_key_data; ++i) { 236 format_keytype(&princ->key_data[i], &def_salt, buf2, sizeof(buf2)); 237 if(i > 0) 238 strlcat(buf, ", ", buf_len); 239 strlcat(buf, buf2, buf_len); 240 } 241 krb5_free_salt (context, def_salt); 242 break; 243 } 244 case KADM5_TL_DATA: { 245 krb5_tl_data *tl; 246 247 for (tl = princ->tl_data; tl != NULL; tl = tl->tl_data_next) 248 if ((unsigned)tl->tl_data_type == subfield) 249 break; 250 if (tl == NULL) { 251 strlcpy(buf, "", buf_len); 252 break; 253 } 254 255 switch (subfield) { 256 case KRB5_TL_PASSWORD: 257 snprintf(buf, buf_len, "\"%.*s\"", 258 (int)tl->tl_data_length, 259 (const char *)tl->tl_data_contents); 260 break; 261 case KRB5_TL_PKINIT_ACL: { 262 HDB_Ext_PKINIT_acl acl; 263 size_t size; 264 int ret; 265 size_t i; 266 267 ret = decode_HDB_Ext_PKINIT_acl(tl->tl_data_contents, 268 tl->tl_data_length, 269 &acl, 270 &size); 271 if (ret) { 272 snprintf(buf, buf_len, "failed to decode ACL"); 273 break; 274 } 275 276 buf[0] = '\0'; 277 for (i = 0; i < acl.len; i++) { 278 strlcat(buf, "subject: ", buf_len); 279 strlcat(buf, acl.val[i].subject, buf_len); 280 if (acl.val[i].issuer) { 281 strlcat(buf, " issuer:", buf_len); 282 strlcat(buf, *acl.val[i].issuer, buf_len); 283 } 284 if (acl.val[i].anchor) { 285 strlcat(buf, " anchor:", buf_len); 286 strlcat(buf, *acl.val[i].anchor, buf_len); 287 } 288 if (i + 1 < acl.len) 289 strlcat(buf, ", ", buf_len); 290 } 291 free_HDB_Ext_PKINIT_acl(&acl); 292 break; 293 } 294 case KRB5_TL_ALIASES: { 295 HDB_Ext_Aliases alias; 296 size_t size; 297 int ret; 298 size_t i; 299 300 ret = decode_HDB_Ext_Aliases(tl->tl_data_contents, 301 tl->tl_data_length, 302 &alias, 303 &size); 304 if (ret) { 305 snprintf(buf, buf_len, "failed to decode alias"); 306 break; 307 } 308 buf[0] = '\0'; 309 for (i = 0; i < alias.aliases.len; i++) { 310 char *p; 311 ret = krb5_unparse_name(context, &alias.aliases.val[i], &p); 312 if (ret) 313 break; 314 if (i > 0) 315 strlcat(buf, " ", buf_len); 316 strlcat(buf, p, buf_len); 317 free(p); 318 } 319 free_HDB_Ext_Aliases(&alias); 320 break; 321 } 322 default: 323 snprintf(buf, buf_len, "unknown type %d", subfield); 324 break; 325 } 326 break; 327 } 328 default: 329 strlcpy(buf, "<unknown>", buf_len); 330 break; 331 } 332 } 333 334 static void 335 print_entry_short(struct get_entry_data *data, kadm5_principal_ent_t princ) 336 { 337 char buf[1024]; 338 struct field_info *f; 339 340 for(f = data->chead; f != NULL; f = f->next) { 341 format_field(princ, f->ff->fieldvalue, f->ff->subvalue, buf, sizeof(buf), 1); 342 rtbl_add_column_entry_by_id(data->table, f->ff->fieldvalue, buf); 343 } 344 } 345 346 static void 347 print_entry_long(struct get_entry_data *data, kadm5_principal_ent_t princ) 348 { 349 char buf[1024]; 350 struct field_info *f; 351 int width = 0; 352 353 for(f = data->chead; f != NULL; f = f->next) { 354 int w = strlen(f->header ? f->header : f->ff->def_longheader); 355 if(w > width) 356 width = w; 357 } 358 for(f = data->chead; f != NULL; f = f->next) { 359 format_field(princ, f->ff->fieldvalue, f->ff->subvalue, buf, sizeof(buf), 0); 360 printf("%*s: %s\n", width, f->header ? f->header : f->ff->def_longheader, buf); 361 } 362 printf("\n"); 363 } 364 365 static int 366 do_get_entry(krb5_principal principal, void *data) 367 { 368 kadm5_principal_ent_rec princ; 369 krb5_error_code ret; 370 struct get_entry_data *e = data; 371 372 memset(&princ, 0, sizeof(princ)); 373 ret = kadm5_get_principal(kadm_handle, principal, 374 &princ, 375 e->mask | e->extra_mask); 376 if(ret) 377 return ret; 378 else { 379 (e->format)(e, &princ); 380 kadm5_free_principal_ent(kadm_handle, &princ); 381 } 382 return 0; 383 } 384 385 static void 386 free_columns(struct get_entry_data *data) 387 { 388 struct field_info *f, *next; 389 for(f = data->chead; f != NULL; f = next) { 390 free(f->header); 391 next = f->next; 392 free(f); 393 } 394 data->chead = NULL; 395 data->ctail = &data->chead; 396 } 397 398 static int 399 setup_columns(struct get_entry_data *data, const char *column_info) 400 { 401 char buf[1024], *q; 402 char *field, *header; 403 struct field_name *f; 404 405 while(strsep_copy(&column_info, ",", buf, sizeof(buf)) != -1) { 406 q = buf; 407 field = strsep(&q, "="); 408 header = strsep(&q, "="); 409 for(f = field_names; f->fieldname != NULL; f++) { 410 if(strcasecmp(field, f->fieldname) == 0) { 411 add_column(data, f, header); 412 break; 413 } 414 } 415 if(f->fieldname == NULL) { 416 krb5_warnx(context, "unknown field name \"%s\"", field); 417 free_columns(data); 418 return -1; 419 } 420 } 421 return 0; 422 } 423 424 static int 425 do_list_entry(krb5_principal principal, void *data) 426 { 427 char buf[1024]; 428 krb5_error_code ret; 429 430 ret = krb5_unparse_name_fixed_short(context, principal, buf, sizeof(buf)); 431 if (ret != 0) 432 return ret; 433 printf("%s\n", buf); 434 return 0; 435 } 436 437 static int 438 listit(const char *funcname, int argc, char **argv) 439 { 440 int i; 441 krb5_error_code ret, saved_ret = 0; 442 443 for (i = 0; i < argc; i++) { 444 ret = foreach_principal(argv[i], do_list_entry, funcname, NULL); 445 if (saved_ret == 0 && ret != 0) 446 saved_ret = ret; 447 } 448 return saved_ret != 0; 449 } 450 451 #define DEFAULT_COLUMNS_SHORT "principal,princ_expire_time,pw_expiration,last_pwd_change,max_life,max_rlife" 452 #define DEFAULT_COLUMNS_LONG "principal,princ_expire_time,pw_expiration,last_pwd_change,max_life,max_rlife,kvno,mkvno,last_success,last_failed,fail_auth_count,mod_time,mod_name,attributes,keytypes,pkinit-acl,aliases" 453 454 static int 455 getit(struct get_options *opt, const char *name, int argc, char **argv) 456 { 457 int i; 458 krb5_error_code ret; 459 struct get_entry_data data; 460 461 if(opt->long_flag == -1 && (opt->short_flag == 1 || opt->terse_flag == 1)) 462 opt->long_flag = 0; 463 if(opt->short_flag == -1 && (opt->long_flag == 1 || opt->terse_flag == 1)) 464 opt->short_flag = 0; 465 if(opt->terse_flag == -1 && (opt->long_flag == 1 || opt->short_flag == 1)) 466 opt->terse_flag = 0; 467 if(opt->long_flag == 0 && opt->short_flag == 0 && opt->terse_flag == 0) 468 opt->short_flag = 1; 469 470 if (opt->terse_flag) 471 return listit(name, argc, argv); 472 473 data.table = NULL; 474 data.chead = NULL; 475 data.ctail = &data.chead; 476 data.mask = 0; 477 data.extra_mask = 0; 478 479 if(opt->short_flag) { 480 data.table = rtbl_create(); 481 rtbl_set_separator(data.table, " "); 482 data.format = print_entry_short; 483 } else 484 data.format = print_entry_long; 485 if(opt->column_info_string == NULL) { 486 if(opt->long_flag) 487 ret = setup_columns(&data, DEFAULT_COLUMNS_LONG); 488 else 489 ret = setup_columns(&data, DEFAULT_COLUMNS_SHORT); 490 } else 491 ret = setup_columns(&data, opt->column_info_string); 492 493 if(ret != 0) { 494 if(data.table != NULL) 495 rtbl_destroy(data.table); 496 return 0; 497 } 498 499 for(i = 0; i < argc; i++) 500 ret = foreach_principal(argv[i], do_get_entry, name, &data); 501 502 if(data.table != NULL) { 503 rtbl_format(data.table, stdout); 504 rtbl_destroy(data.table); 505 } 506 free_columns(&data); 507 return ret != 0; 508 } 509 510 int 511 get_entry(struct get_options *opt, int argc, char **argv) 512 { 513 return getit(opt, "get", argc, argv); 514 } 515 516 int 517 list_princs(struct list_options *opt, int argc, char **argv) 518 { 519 if(sizeof(struct get_options) != sizeof(struct list_options)) { 520 krb5_warnx(context, "programmer error: sizeof(struct get_options) != sizeof(struct list_options)"); 521 return 0; 522 } 523 return getit((struct get_options*)opt, "list", argc, argv); 524 } 525