crypto/heimdal/kadmin/get.c

   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 }