src/lib/krb5/keytab/ktbase.c

   1 /*
   2  * lib/krb5/keytab/ktbase.c
   3  *
   4  * Copyright 1990 by the Massachusetts Institute of Technology.
   5  * All Rights Reserved.
   6  *
   7  * Export of this software from the United States of America may
   8  *   require a specific license from the United States Government.
   9  *   It is the responsibility of any person or organization contemplating
  10  *   export to obtain such a license before exporting.
  11  *
  12  * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
  13  * distribute this software and its documentation for any purpose and
  14  * without fee is hereby granted, provided that the above copyright
  15  * notice appear in all copies and that both that copyright notice and
  16  * this permission notice appear in supporting documentation, and that
  17  * the name of M.I.T. not be used in advertising or publicity pertaining
  18  * to distribution of the software without specific, written prior
  19  * permission.  M.I.T. makes no representations about the suitability of
  20  * this software for any purpose.  It is provided "as is" without express
  21  * or implied warranty.
  22  *
  23  *
  24  * Registration functions for keytab.
  25  */
  26
  27
  28 #include <krb5/krb5.h>
  29 #include <krb5/ext-proto.h>
  30
  31 struct krb5_kt_typelist
  32  {
  33   krb5_kt_ops *ops;
  34   struct krb5_kt_typelist *next;
  35  };
  36 static struct krb5_kt_typelist krb5_kt_typelist_dfl = { &krb5_kt_dfl_ops, 0 };
  37 static struct krb5_kt_typelist *kt_typehead = &krb5_kt_typelist_dfl;
  38
  39 /*
  40  * Register a new key table type
  41  * don't replace if it already exists; return an error instead.
  42  */
  43
  44 krb5_error_code
  45 krb5_kt_register(context, ops)
  46     krb5_context context;
  47     krb5_kt_ops *ops;
  48 {
  49     struct krb5_kt_typelist *t;
  50     for (t = kt_typehead;t && strcmp(t->ops->prefix,ops->prefix);t = t->next)
  51         ;
  52     if (t) {
  53         return KRB5_KT_TYPE_EXISTS;
  54     }
  55     if (!(t = (struct krb5_kt_typelist *) malloc(sizeof(*t))))
  56         return ENOMEM;
  57     t->next = kt_typehead;
  58     t->ops = ops;
  59     kt_typehead = t;
  60     return 0;
  61 }
  62
  63 /*
  64  * Resolve a key table name into a keytab object.
  65  *
  66  * The name is currently constrained to be of the form "type:residual";
  67  *
  68  * The "type" portion corresponds to one of the registered key table
  69  * types, while the "residual" portion is specific to the
  70  * particular keytab type.
  71  */
  72
  73 krb5_error_code krb5_kt_resolve (context, name, ktid)
  74     krb5_context context;
  75     const char *name;
  76     krb5_keytab *ktid;
  77 {
  78     struct krb5_kt_typelist *tlist;
  79     char *pfx, *resid, *cp;
  80     int pfxlen;
  81
  82     cp = strchr (name, ':');
  83     if (!cp) {
  84             return (*krb5_kt_dfl_ops.resolve)(context, name, ktid);
  85     }
  86
  87     pfxlen = cp - (char *)name;
  88     resid = (char *)name + pfxlen + 1;
  89
  90     pfx = malloc (pfxlen+1);
  91     if (!pfx)
  92         return ENOMEM;
  93
  94     memcpy (pfx, name, pfxlen);
  95     pfx[pfxlen] = '\0';
  96
  97     *ktid = (krb5_keytab) 0;
  98
  99     for (tlist = kt_typehead; tlist; tlist = tlist->next) {
 100         if (strcmp (tlist->ops->prefix, pfx) == 0) {
 101             free(pfx);
 102             return (*tlist->ops->resolve)(context, resid, ktid);
 103         }
 104     }
 105     free(pfx);
 106     return KRB5_KT_UNKNOWN_TYPE;
 107 }