/*++
/* NAME
/*	midna_adomain 3
/* SUMMARY
/*	address domain part conversion
/* SYNOPSIS
/*	#include <midna_adomain.h>
/*
/*	char	*midna_adomain_to_ascii(
/*	VSTRING	*dest,
/*	const char *name)
/*
/*	char	*midna_adomain_to_utf8(
/*	VSTRING	*dest,
/*	const char *name)
/* DESCRIPTION
/*	The functions in this module transform the domain portion
/*	of an email address between ASCII and UTF-8 form.  Both
/*	functions tolerate a missing domain, and both functions
/*	return a copy of the input when the domain portion requires
/*	no conversion.
/*
/*	midna_adomain_to_ascii() converts an UTF-8 or ASCII domain
/*	portion to ASCII.  The result is a null pointer when
/*	conversion fails.  This function verifies that the resulting
/*	domain passes valid_hostname().
/*
/*	midna_adomain_to_utf8() converts an UTF-8 or ASCII domain
/*	name to UTF-8.  The result is a null pointer when conversion
/*	fails.  This function verifies that the resulting domain,
/*	after conversion to ASCII, passes valid_hostname().
/* SEE ALSO
/*	midna_domain(3), Postfix ASCII/UTF-8 domain name conversion
/* DIAGNOSTICS
/*	Fatal errors: memory allocation problem.
/*	Warnings: conversion error or result validation error.
/* LICENSE
/* .ad
/* .fi
/*	The Secure Mailer license must be distributed with this software.
/* AUTHOR(S)
/*	Wietse Venema
/*	IBM T.J. Watson Research
/*	P.O. Box 704
/*	Yorktown Heights, NY 10598, USA
/*--*/

 /*
  * System library.
  */
#include <sys_defs.h>
#include <string.h>

#ifndef NO_EAI
#include <unicode/uidna.h>

 /*
  * Utility library.
  */
#include <vstring.h>
#include <stringops.h>
#include <midna_domain.h>

 /*
  * Global library.
  */
#include <midna_adomain.h>

#define STR(x)	vstring_str(x)

/* midna_adomain_to_utf8 - convert address domain portion to UTF8 */

char   *midna_adomain_to_utf8(VSTRING *dest, const char *src)
{
    const char *cp;
    const char *domain_utf8;

    if ((cp = strrchr(src, '@')) == 0) {
	vstring_strcpy(dest, src);
    } else {
	vstring_sprintf(dest, "%*s@", (int) (cp - src), src);
	if (*(cp += 1)) {
	    if (allascii(cp) && strstr(cp, "--") == 0) {
		vstring_strcat(dest, cp);
	    } else if ((domain_utf8 = midna_domain_to_utf8(cp)) == 0) {
		return (0);
	    } else {
		vstring_strcat(dest, domain_utf8);
	    }
	}
    }
    return (STR(dest));
}

/* midna_adomain_to_ascii - convert address domain portion to ASCII */

char   *midna_adomain_to_ascii(VSTRING *dest, const char *src)
{
    const char *cp;
    const char *domain_ascii;

    if ((cp = strrchr(src, '@')) == 0) {
	vstring_strcpy(dest, src);
    } else {
	vstring_sprintf(dest, "%*s@", (int) (cp - src), src);
	if (*(cp += 1)) {
	    if (allascii(cp)) {
		vstring_strcat(dest, cp);
	    } else if ((domain_ascii = midna_domain_to_ascii(cp + 1)) == 0) {
		return (0);
	    } else {
		vstring_strcat(dest, domain_ascii);
	    }
	}
    }
    return (STR(dest));
}

#endif					/* NO_IDNA */