home *** CD-ROM | disk | FTP | other *** search
- /* $Header: debug.c,v 1.1 88/06/06 09:38:23 chip Exp $
- *
- * Debugging output.
- *
- * $Log: debug.c,v $
- * Revision 1.1 88/06/06 09:38:23 chip
- * Initial revision
- *
- */
-
- #include "deliver.h"
-
- /*----------------------------------------------------------------------
- * Print out a complete dump of all destinations
- */
-
- dumpdests(when)
- char *when;
- {
- DEST *d;
-
- message("Destinations %s:\n", when);
- for (d = first_dest(); d; d = next_dest(d))
- {
- message("\t%s", d->name);
- if (d->class == CL_MBOX)
- message(":%s", d->mailbox);
-
- message(" (");
- switch (d->class)
- {
- case CL_USER:
- message("User");
- break;
- case CL_MBOX:
- message("Mailbox");
- break;
- case CL_UUCP:
- message("UUCP");
- break;
- }
- message(", ");
- switch (d->state)
- {
- case ST_WORKING:
- message("Working");
- break;
- case ST_HOLD:
- message("Hold");
- break;
- case ST_DONE:
- message("Done");
- break;
- case ST_ERROR:
- message("Error: %s", d->error);
- break;
- }
- message(")\n");
- }
- }
-