DataMuseum.dk

top - metrics - download

    Length: 2261 (0x8d5)
    Types: TextFile
    Names: »ch_uucp.c«

└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
    └─⟦3658e588a⟧ »EurOpenD3/mail/mh/mh-6.7.tar.Z« 
        └─⟦c75e36ecb⟧ 
            └─⟦this⟧ »mh-6.7/zotnet/mf/mmdfI/src/uucp/ch_uucp.c« 

TextFile

#include "util.h"
#include "mmdf.h"
#include "ch.h"
#include <signal.h>

/*
 *			C H _ U U C P . C
 *
 *		Take message and feed a request to UUX
 *
 *  qu2uu_send does the interesting work.  This interface was developed
 *  for MMDF by Doug Kingston at the US Army Ballistics Research Lab,
 *  Aberdeen, Maryland.    <dpk@brl>
 *
 *		    Original Version 21 Oct 81
 *
 *			Revision History
 *			================
 *
 *    27-Oct-82	Marshall T. Rose <mrose%uci@rand-relay>
 *		Support proper munging by using the UCI mail filtering
 *		routines (enabled by #ifdef MF)
 *
 *    17-Oct-83 Marshall T. Rose <mrose%uci@rand-relay>
 *		Major re-organization and some new interfacing.
 *
 */

/*
 *     MULTI-CHANNEL MEMO DISTRIBUTION FACILITY  (MMDF)
 *     
 *
 *     Department of Electrical Engineering
 *     University of Delaware
 *     Newark, Delaware  19711
 *
 *     Phone:  (302) 738-1163
 *     
 *
 */

/* \f

 */

extern char logdfldir[];

extern struct ll_struct chanlog;
struct ll_struct   *logptr = &chanlog;

char   *dupfpath ();

/* \f

 */

main (argc, argv)
int     argc;
char  **argv;
{
    short   retval;
    Chan * chanptr;

    ll_hdinit (logptr, "UU");
    logptr -> ll_file = dupfpath (logptr -> ll_file, logdfldir);

    siginit ();
    signal (SIGINT, SIG_IGN);

    if ((chanptr = ch_nm2struct (*argv)) == (Chan *) NOTOK)
	err_abrt (RP_PARM, "unknown channel name '%s'", *argv);

    retval = ch_uucp (argc, argv, chanptr);
    ll_close (logptr);

    exit (retval);
}

/* \f

 */

ch_uucp (argc, argv, chanptr)
int     argc;
char  **argv;
Chan * chanptr;
{
#ifdef DEBUG
    logptr -> ll_level = LLOGBTR;
    ll_log (logptr, LLOGBTR, "ch_uucp(argc=%d,*argv='%s')", argc, *argv);
#endif

    if (rp_isbad (qu_init (argc, argv)))
	return RP_NO;
    if (rp_isbad (uu_init (chanptr)))
	return RP_NO;

    if (rp_isbad (qu2uu_send ()))
	return RP_NO;

    qu_end (OK);
    uu_end (OK);

    return RP_OK;
}

/* \f

 */

err_abrt (code, fmt, b, c, d)
short   code;
char    fmt[],
        b[],
        c[],
        d[];
{
    char    linebuf[LINESIZE];

    qu_end (NOTOK);
    uu_end (NOTOK);

    sprintf (linebuf, "%s%s", "[ABEND:  %s]", fmt);
    ll_log (logptr, LLOGFAT, linebuf, rp_valstr (code), b, c, d);
    ll_close (logptr);

    exit (code);
}