home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / Lib / format / trace2rfc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-18  |  1002 b   |  48 lines
  1. /* trace2rfc.c - Converts a Trace struct into a RFC string */
  2.  
  3. # ifndef lint
  4. static char Rcsid[] = "@(#)$Header: /xtel/pp/pp-beta/Lib/format/RCS/trace2rfc.c,v 6.0 1991/12/18 20:22:06 jpo Rel $";
  5. # endif
  6.  
  7. /*
  8.  * $Header: /xtel/pp/pp-beta/Lib/format/RCS/trace2rfc.c,v 6.0 1991/12/18 20:22:06 jpo Rel $
  9.  *
  10.  * $Log: trace2rfc.c,v $
  11.  * Revision 6.0  1991/12/18  20:22:06  jpo
  12.  * Release 6.0
  13.  *
  14.  */
  15.  
  16.  
  17.  
  18. #include        "util.h"
  19. #include        "mta.h"
  20.  
  21. extern int globalid2rfc ();
  22. extern int domsinfo2rfc ();
  23.  
  24. /* ---------------------  Begin  Routines  -------------------------------- */
  25.  
  26.  
  27. int trace2rfc (trace, buffer)  /* TraceInformation -> RFC */
  28. Trace   *trace;
  29. char    *buffer;
  30. {
  31.     char    *cp;
  32.     Trace   *tp = trace;
  33.  
  34.     if (tp == (Trace *) NULL)
  35.         return DONE;
  36.  
  37.     if (globalid2rfc (&tp -> trace_DomId, buffer) == NOTOK)
  38.         return NOTOK;
  39.     cp = buffer + strlen(buffer);
  40.  
  41.     if (domsinfo2rfc (&tp -> trace_DomSinfo, cp) == NOTOK)
  42.         return NOTOK;
  43.  
  44.     PP_DBG (("Lib/trace2rfc returns (%s)", buffer));
  45.  
  46.     return OK;
  47. }
  48.