source: trunk/third/moira/lib/kname_unparse.c @ 23899

/* $Id: kname_unparse.c,v 1.7 2009-06-21 15:29:55 zacheiss Exp $
 *
 * Don't know why this function is not in libkrb.a.  It's the inverse
 * of kname_parse() which is there.
 *
 * Copyright (C) 1993-1998 by the Massachusetts Institute of Technology
 * For copying and distribution information, please see the file
 * <mit-copyright.h>.
 */

#include <mit-copyright.h>
#include <moira.h>

#include <stdio.h>

#ifdef HAVE_KRB4
#include <krb.h>
#else
#include <mr_krb.h>
#endif

RCSID("$Header: /afs/athena.mit.edu/astaff/project/moiradev/repository/moira/lib/kname_unparse.c,v 1.7 2009-06-21 15:29:55 zacheiss Exp $");

/* Turn a principal, instance, realm triple into a single non-ambiguous
 * string.  This is the inverse of kname_parse().  It returns a pointer
 * to a static buffer, or NULL on error.
 */

char *mr_kname_unparse(char *p, char *i, char *r)
{
  static char name[MAX_K_NAME_SZ];
  char *s;

  s = name;
  if (!p || strlen(p) > ANAME_SZ)
    return NULL;
  while (*p)
    {
      switch (*p)
        {
        case '@':
          *s++ = '\\';
          *s++ = '@';
          break;
        case '.':
          *s++ = '\\';
          *s++ = '.';
          break;
        case '\\':
          *s++ = '\\';
          *s++ = '\\';
          break;
        default:
          *s++ = *p;
        }
      p++;
    }
  if (i && *i)
    {
      if (strlen(i) > INST_SZ)
        return NULL;
      *s++ = '.';
      while (*i)
        {
          switch (*i)
            {
            case '@':
              *s++ = '\\';
              *s++ = '@';
              break;
            case '.':
              *s++ = '\\';
              *s++ = '.';
              break;
            case '\\':
              *s++ = '\\';
              *s++ = '\\';
              break;
            default:
              *s++ = *i;
            }
          i++;
        }
    }
  *s++ = '@';
  if (!r || strlen(r) > REALM_SZ)
    return NULL;
  while (*r)
    {
      switch (*r)
        {
        case '@':
          *s++ = '\\';
          *s++ = '@';
          break;
        case '\\':
          *s++ = '\\';
          *s++ = '\\';
          break;
        default:
          *s++ = *r;
        }
      r++;
    }
  *s = '\0';
  return &name[0];
}