/*
 * Copyright 1988 by the Massachusetts Institute of Technology.
 *
 * For copying and distribution information, please see the file
 * <mit-copyright.h>.
 *
 * Support functions for Kerberos administration server & clients
 */

/*
  kadm_supp.c
  this holds the support routines for the kerberos administration server

    error: prints out a kadm error message, returns
    fatal: prints out a kadm fatal error message, exits
    prin_vals: prints out data associated with a Principal in the vals
           structure
*/

#include "conf.h"
#include "kadm.h"
#include "krb_db.h"
#include <time.h>

#if 0

/*
prin_vals:
  recieves    : a vals structure
*/
prin_vals(vals)
Kadm_vals *vals;
{
   printf("Info in Database for %s.%s:\n", vals->name, vals->instance);
   printf("   Max Life: %d   Exp Date: %s\n",vals->max_life,
#ifdef MacOS
          asctime(localtime((time_t *)&vals->exp_date)));
#else
          asctime(localtime((long *)&vals->exp_date)));
#endif

   printf("   Attribs: %.2x  key: %u %u\n",vals->attributes,
          vals->key_low, vals->key_high);
}

nierror(s)
int s;
{
    extern char *error_message();
    printf("Kerberos admin server loses..... %s\n",error_message(s));
    return(s);
}

#endif /* 0 */

/* kadm_prin_to_vals takes a fields arguments, a Kadm_vals and a Principal,
   it copies the fields in Principal specified by fields into Kadm_vals,
   i.e from old to new */

kadm_prin_to_vals(fields, new, old)
u_char fields[FLDSZ];
Kadm_vals *new;
Principal *old;
{
  bzero((char *)new, sizeof(*new));
  if (IS_FIELD(KADM_NAME,fields)) {
      (void) strncpy(new->name, old->name, ANAME_SZ);
      SET_FIELD(KADM_NAME, new->fields);
  }
  if (IS_FIELD(KADM_INST,fields)) {
      (void) strncpy(new->instance, old->instance, INST_SZ);
      SET_FIELD(KADM_INST, new->fields);
  }
  if (IS_FIELD(KADM_EXPDATE,fields)) {
      new->exp_date   = old->exp_date;
      SET_FIELD(KADM_EXPDATE, new->fields);
  }
  if (IS_FIELD(KADM_ATTR,fields)) {
    new->attributes = old->attributes;
      SET_FIELD(KADM_MAXLIFE, new->fields);
  }
  if (IS_FIELD(KADM_MAXLIFE,fields)) {
    new->max_life   = old->max_life;
      SET_FIELD(KADM_MAXLIFE, new->fields);
  }
  if (IS_FIELD(KADM_DESKEY,fields)) {
    new->key_low    = old->key_low;
    new->key_high   = old->key_high;
    SET_FIELD(KADM_DESKEY, new->fields);
  }
}

kadm_vals_to_prin(fields, new, old)
u_char fields[FLDSZ];
Principal *new;
Kadm_vals *old;
{

  bzero((char *)new, sizeof(*new));
  if (IS_FIELD(KADM_NAME,fields))
    (void) strncpy(new->name, old->name, ANAME_SZ);
  if (IS_FIELD(KADM_INST,fields))
    (void) strncpy(new->instance, old->instance, INST_SZ);
  if (IS_FIELD(KADM_EXPDATE,fields))
    new->exp_date   = old->exp_date;
  if (IS_FIELD(KADM_ATTR,fields))
    new->attributes = old->attributes;
  if (IS_FIELD(KADM_MAXLIFE,fields))
    new->max_life   = old->max_life;
  if (IS_FIELD(KADM_DESKEY,fields)) {
    new->key_low    = old->key_low;
    new->key_high   = old->key_high;
  }
}
