/*++
/* NAME
/*	qmgr_error 3
/* SUMMARY
/*	look up/create error/retry queue
/* SYNOPSIS
/*	#include "qmgr.h"
/*
/*	QMGR_TRANSPORT *qmgr_error_transport(service)
/*	const char *service;
/*
/*	QMGR_QUEUE *qmgr_error_queue(service, dsn)
/*	const char *service;
/*	DSN	*dsn;
/*
/*	char	*qmgr_error_nexthop(dsn)
/*	DSN	*dsn;
/* DESCRIPTION
/*	qmgr_error_transport() looks up the error transport for the
/*	specified service. The result is null if the transport is
/*	not available.
/*
/*	qmgr_error_queue() looks up an error queue for the specified
/*	service and problem. The result is null if the queue is not
/*	available.
/*
/*	qmgr_error_nexthop() computes the next-hop information for
/*	the specified problem. The result must be passed to myfree().
/*
/*	Arguments:
/* .IP dsn
/*	See dsn(3).
/* .IP service
/*	One of MAIL_SERVICE_ERROR or MAIL_SERVICE_RETRY.
/* DIAGNOSTICS
/*	Panic: consistency check failure. Fatal: out of memory.
/* 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 <mymalloc.h>
#include <stringops.h>

/* Global library. */

/* Application-specific. */

#include "qmgr.h"

/* qmgr_error_transport - look up error transport for specified service */

QMGR_TRANSPORT *qmgr_error_transport(const char *service)
{
    QMGR_TRANSPORT *transport;

    /*
     * Find or create retry transport.
     */
    if ((transport = qmgr_transport_find(service)) == 0)
	transport = qmgr_transport_create(service);
    if (QMGR_TRANSPORT_THROTTLED(transport))
	return (0);

    /*
     * Done.
     */
    return (transport);
}

/* qmgr_error_queue - look up error queue for specified service and problem */

QMGR_QUEUE *qmgr_error_queue(const char *service, DSN *dsn)
{
    QMGR_TRANSPORT *transport;
    QMGR_QUEUE *queue;
    char   *nexthop;

    /*
     * Find or create transport.
     */
    if ((transport = qmgr_error_transport(service)) == 0)
	return (0);

    /*
     * Find or create queue.
     */
    nexthop = qmgr_error_nexthop(dsn);
    if ((queue = qmgr_queue_find(transport, nexthop)) == 0)
	queue = qmgr_queue_create(transport, nexthop, nexthop);
    myfree(nexthop);
    if (QMGR_QUEUE_THROTTLED(queue))
	return (0);

    /*
     * Done.
     */
    return (queue);
}

/* qmgr_error_nexthop - compute next-hop information from problem description */

char   *qmgr_error_nexthop(DSN *dsn)
{
    char   *nexthop;

    nexthop = concatenate(dsn->status, " ", dsn->reason, (char *) 0);
    return (nexthop);
}