/*++
/* NAME
/*	cleanup_rewrite 3
/* SUMMARY
/*	address canonicalization
/* SYNOPSIS
/*	#include <cleanup.h>
/*
/*	int	cleanup_rewrite_external(context_name, result, addr)
/*	const char *context;
/*	VSTRING	*result;
/*	const char *addr;
/*
/*	int	cleanup_rewrite_internal(context_name, result, addr)
/*	const char *context;
/*	VSTRING	*result;
/*	const char *addr;
/*
/*	int	cleanup_rewrite_tree(context_name, tree)
/*	const char *context;
/*	TOK822	*tree;
/* DESCRIPTION
/*	This module rewrites addresses to canonical form, adding missing
/*	domains and stripping source routes etc., and performs
/*	\fIcanonical\fR map lookups to map addresses to official form.
/*	These functions return non-zero when the address was changed.
/*
/*	cleanup_rewrite_init() performs one-time initialization.
/*
/*	cleanup_rewrite_external() rewrites the external (quoted) string
/*	form of an address.
/*
/*	cleanup_rewrite_internal() is a wrapper around the
/*	cleanup_rewrite_external() routine that transforms from
/*	internal (quoted) string form to external form and back.
/*
/*	cleanup_rewrite_tree() is a wrapper around the
/*	cleanup_rewrite_external() routine that transforms from
/*	internal parse tree form to external form and back.
/*
/*	Arguments:
/* .IP context_name
/*	The name of an address rewriting context that supplies
/*	the equivalents of myorigin and mydomain.
/* .IP result
/*	Result buffer.
/* .IP addr
/*	Input buffer.
/* DIAGNOSTICS
/* 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>

/* Utility library. */

#include <msg.h>
#include <vstring.h>

/* Global library. */

#include <tok822.h>
#include <rewrite_clnt.h>
#include <quote_822_local.h>

/* Application-specific. */

#include "cleanup.h"

#define STR		vstring_str

/* cleanup_rewrite_external - rewrite address external form */

int     cleanup_rewrite_external(const char *context_name, VSTRING *result,
				         const char *addr)
{
    rewrite_clnt(context_name, addr, result);
    return (strcmp(STR(result), addr) != 0);
}

/* cleanup_rewrite_tree - rewrite address node */

int    cleanup_rewrite_tree(const char *context_name, TOK822 *tree)
{
    VSTRING *dst = vstring_alloc(100);
    VSTRING *src = vstring_alloc(100);
    int     did_rewrite;

    tok822_externalize(src, tree->head, TOK822_STR_DEFL);
    did_rewrite = cleanup_rewrite_external(context_name, dst, STR(src));
    tok822_free_tree(tree->head);
    tree->head = tok822_scan(STR(dst), &tree->tail);
    vstring_free(dst);
    vstring_free(src);
    return (did_rewrite);
}

/* cleanup_rewrite_internal - rewrite address internal form */

int     cleanup_rewrite_internal(const char *context_name,
				         VSTRING *result, const char *addr)
{
    VSTRING *dst = vstring_alloc(100);
    VSTRING *src = vstring_alloc(100);
    int     did_rewrite;

    quote_822_local(src, addr);
    did_rewrite = cleanup_rewrite_external(context_name, dst, STR(src));
    unquote_822_local(result, STR(dst));
    vstring_free(dst);
    vstring_free(src);
    return (did_rewrite);
}