lib/libtelnet/forward.c

   1 /*
   2  * appl/telnet/libtelnet/forward.c
   3  */
   4
   5 /*
   6  * Copyright (c) 1983 Regents of the University of California.
   7  * All rights reserved.
   8  *
   9  * Redistribution and use in source and binary forms are permitted
  10  * provided that the above copyright notice and this paragraph are
  11  * duplicated in all such forms and that any documentation,
  12  * advertising materials, and other materials related to such
  13  * distribution and use acknowledge that the software was developed
  14  * by the University of California, Berkeley.  The name of the
  15  * University may not be used to endorse or promote products derived
  16  * from this software without specific prior written permission.
  17  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  18  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  19  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  20  */
  21
  22
  23 /* General-purpose forwarding routines. These routines may be put into */
  24 /* libkrb5.a to allow widespread use */
  25
  26 #if defined(KERBEROS) || defined(KRB5)
  27 #include <stdio.h>
  28 #include <netdb.h>
  29
  30 #include "k5-int.h"
  31
  32 extern char *line;              /* see sys_term.c */
  33
  34 krb5_error_code rd_and_store_for_creds(krb5_context, krb5_auth_context, krb5_data *, krb5_ticket *);
  35
  36 /* Decode, decrypt and store the forwarded creds in the local ccache. */
  37 krb5_error_code
  38 rd_and_store_for_creds(context, auth_context, inbuf, ticket)
  39     krb5_context context;
  40     krb5_auth_context auth_context;
  41     krb5_data *inbuf;
  42     krb5_ticket *ticket;
  43 {
  44     krb5_creds **creds;
  45     krb5_error_code retval;
  46     char ccname[35];
  47     krb5_ccache ccache = NULL;
  48
  49     if ((retval = krb5_rd_cred(context, auth_context, inbuf, &creds, NULL)) != 0)
  50         return(retval);
  51
  52     snprintf(ccname, sizeof(ccname), "FILE:/tmp/krb5cc_p%d", getpid());
  53     setenv(KRB5_ENV_CCNAME, ccname, 1);
  54
  55     if ((retval = krb5_cc_resolve(context, ccname, &ccache)) != 0)
  56         goto cleanup;
  57
  58     if ((retval = krb5_cc_initialize(context, ccache, ticket->enc_part2->client)) != 0)
  59         goto cleanup;
  60
  61     if ((retval = krb5_cc_store_cred(context, ccache, *creds)) != 0)
  62         goto cleanup;
  63
  64 cleanup:
  65     krb5_free_creds(context, *creds);
  66     return retval;
  67 }
  68
  69 #endif /* defined(KRB5) && defined(FORWARD) */