home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / doc / manual / volume2 / io.c < prev    next >
Encoding:
Text File  |  1990-09-20  |  993 b   |  57 lines
  1. submit_message (orig, recips, fp)
  2. ADDR    *orig;
  3. ADDR    *recips;
  4. FILE    *fp;
  5. {
  6.     RP_Buf    rps, *rp = &rps;
  7.     char    buf[BUFSIZ];
  8.     ADDR    *ap;
  9.  
  10.     if (rp_isbad (io_init(rp)))
  11.         error ();
  12.  
  13.     if (rp_isbad (io_wprm (prm, rp)))
  14.         error ();
  15.  
  16.     if (rp_isbad (io_wrq (q, rp)))
  17.         error ();
  18.  
  19.     if (rp_isbad (io_wadr (orig, AD_ORIGINATOR, rp)))
  20.         error ();
  21.  
  22.     for (ap = ad_recipients; ap; ap = ap -> ad_next)
  23.         if (rp_isbad (io_wadr (ap, AD_RECIPIENT, rp)))
  24.             error ();
  25.  
  26.     if (rp_isbad (io_adend(rp)))
  27.         error ();
  28.  
  29.     if (rp_isbad (io_tinit(rp)))
  30.         error ();
  31.  
  32.     if (rp_isbad (io_tpart ("hdr.822", FALSE, rp)))
  33.         error ();
  34.  
  35.     while (fgets( buf, sizeof buf, fp))
  36.         if (rp_isbad (io_tdata (buf, strlen (buf))))
  37.             error ();
  38.  
  39.     if (rp_isbad (io_tdend(rp)))
  40.         error ();
  41.  
  42.     if (rp_isbad (io_tpart ("1.ia5", FALSE, rp)))
  43.         error ();
  44.  
  45.     while (fgets (buf, sizeof buf, stdin))
  46.         if (rp_isbad (io_tdata (buf, strlen (buf))))
  47.             error ();
  48.  
  49.     if (rp_isbad (io_tdend (rp)))
  50.         error ();
  51.  
  52.     if (rp_isbad (io_tend (rp)))
  53.         error ();
  54.  
  55.      io_end(OK);
  56. }
  57.