src/lib/krb5/ccache/file/fcc_gprin.c

   1 /*
   2  * lib/krb5/ccache/file/fcc_gprin.c
   3  *
   4  * Copyright 1990,1991 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  * This file contains the source code for krb5_fcc_get_principal.
  25  */
  26
  27
  28 #include "fcc.h"
  29
  30 /*
  31  * Modifies:
  32  * id, princ
  33  *
  34  * Effects:
  35  * Retrieves the primary principal from id, as set with
  36  * krb5_fcc_initialize.  The principal is returned is allocated
  37  * storage that must be freed by the caller via krb5_free_principal.
  38  *
  39  * Errors:
  40  * system errors
  41  * KRB5_CC_NOMEM
  42  */
  43 krb5_error_code INTERFACE
  44 krb5_fcc_get_principal(context, id, princ)
  45    krb5_context context;
  46    krb5_ccache id;
  47    krb5_principal *princ;
  48 {
  49      krb5_error_code kret = KRB5_OK;
  50
  51      MAYBE_OPEN(context, id, FCC_OPEN_RDONLY);
  52      /* make sure we're beyond the vno */
  53      lseek(((krb5_fcc_data *) id->data)->fd, sizeof(krb5_int16), SEEK_SET);
  54
  55      kret = krb5_fcc_read_principal(context, id, princ);
  56
  57      MAYBE_CLOSE(context, id, kret);
  58      return kret;
  59 }
  60
  61