diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/uip/distsbr.c

   1 /* distsbr.c - routines to do additional "dist-style" processing */
   2 #ifndef lint
   3 static char ident[] = "@(#)$Id: distsbr.c,v 1.6 1993/08/25 22:26:24 jromine Exp $";
   4 #endif  /* lint */
   5
   6 #include "../h/mh.h"
   7 #include <ctype.h>
   8 #include <stdio.h>
   9 #include <sys/types.h>  /* for off_t */
  10
  11 static          ready_msg();
  12
  13 static int  hdrfd = NOTOK;
  14 static int  txtfd = NOTOK;
  15
  16
  17 off_t   lseek ();
  18
  19 /* \f */
  20
  21 #define BADHDR  "please re-edit %s to remove the ``%s'' header!"
  22 #define BADTXT  "please re-edit %s to consist of headers only!"
  23 #define BADMSG  "please re-edit %s to include a ``Resent-To:''!"
  24 #define BADRFT  "please re-edit %s and fix that header!"
  25
  26 int     distout (drft, msgnam, backup)
  27 register char   *drft,
  28        *msgnam,
  29        *backup;
  30 {
  31     int     state;
  32     register char  *dp,
  33                    *resent;
  34     char    name[NAMESZ],
  35             buffer[BUFSIZ];
  36     register    FILE *ifp,
  37                      *ofp;
  38
  39     if (rename (drft, strcpy (backup, m_backup (drft))) == NOTOK)
  40         adios (backup, "unable to rename %s to",drft);
  41     if ((ifp = fopen (backup, "r")) == NULL)
  42         adios (backup, "unable to read");
  43
  44     if ((ofp = fopen (drft, "w")) == NULL)
  45         adios (drft, "unable to create temporary file");
  46     (void) chmod (drft, m_gmprot ());
  47
  48     ready_msg (msgnam);
  49     (void) lseek (hdrfd, (off_t)0, 0);  /* msgnam not accurate */
  50     cpydata (hdrfd, fileno (ofp), msgnam, drft);
  51
  52 /* \f */
  53
  54     for (state = FLD, resent = NULL;;)
  55         switch (state =
  56                 m_getfld (state, name, buffer, sizeof buffer, ifp)) {
  57             case FLD:
  58             case FLDPLUS:
  59             case FLDEOF:
  60                 if (uprf (name, "distribute-"))
  61                     (void) sprintf (name, "%s%s", "Resent", &name[10]);
  62                 if (uprf (name, "distribution-"))
  63                     (void) sprintf (name, "%s%s", "Resent", &name[12]);
  64                 if (!uprf (name, "resent")) {
  65                     advise (NULLCP, BADHDR, "draft", name);
  66                     goto leave_bad;
  67                 }
  68                 if (state == FLD)
  69                     resent = add (":", add (name, resent));
  70                 resent = add (buffer, resent);
  71                 fprintf (ofp, "%s: %s", name, buffer);
  72                 while (state == FLDPLUS) {
  73                     state = m_getfld (state, name,
  74                             buffer, sizeof buffer, ifp);
  75                     resent = add (buffer, resent);
  76                     fputs (buffer, ofp);
  77                 }
  78                 if (state == FLDEOF)
  79                     goto process;
  80                 break;
  81
  82             case BODY:
  83             case BODYEOF:
  84                 for (dp = buffer; *dp; dp++)
  85                     if (!isspace (*dp)) {
  86                         advise (NULLCP, BADTXT, "draft");
  87                         goto leave_bad;
  88                     }
  89
  90             case FILEEOF:
  91                 goto process;
  92
  93             case LENERR:
  94             case FMTERR:
  95                 advise (NULLCP, BADRFT, "draft");
  96         leave_bad: ;
  97                 (void) fclose (ifp);
  98                 (void) fclose (ofp);
  99                 (void) unlink (drft);
 100                 if (rename (backup, drft) == NOTOK)
 101                     adios (drft, "unable to rename %s to", backup);
 102                 return NOTOK;
 103
 104             default:
 105                 adios (NULLCP, "getfld() returned %d", state);
 106         }
 107 process: ;
 108     (void) fclose (ifp);
 109     (void) fflush (ofp);
 110
 111 /* \f */
 112
 113     if (!resent) {
 114         advise (NULLCP, BADMSG, "draft");
 115         (void) fclose (ofp);
 116         (void) unlink (drft);
 117         if (rename (backup, drft) == NOTOK)
 118             adios (drft, "unable to rename %s to", backup);
 119         return NOTOK;
 120     }
 121     free (resent);
 122
 123     if (txtfd != NOTOK) {
 124         (void) lseek (txtfd, (off_t)0, 0);      /* msgnam not accurate */
 125         cpydata (txtfd, fileno (ofp), msgnam, drft);
 126     }
 127
 128     (void) fclose (ofp);
 129
 130     return OK;
 131 }
 132
 133 /* \f */
 134
 135 static  ready_msg (msgnam)
 136 register char   *msgnam;
 137 {
 138     int     state,
 139             out;
 140     char    name[NAMESZ],
 141             buffer[BUFSIZ],
 142             tmpfil[BUFSIZ];
 143     register    FILE *ifp,
 144                      *ofp;
 145
 146     if (hdrfd != NOTOK)
 147         (void) close (hdrfd), hdrfd = NOTOK;
 148     if (txtfd != NOTOK)
 149         (void) close (txtfd), txtfd = NOTOK;
 150
 151     if ((ifp = fopen (msgnam, "r")) == NULL)
 152         adios (msgnam, "unable to open message");
 153
 154     (void) strcpy (tmpfil, m_tmpfil ("dist"));
 155     if ((hdrfd = creat (tmpfil, 0600)) == NOTOK)
 156         adios (tmpfil, "unable to create temporary file");
 157     (void) close (hdrfd);
 158     if ((hdrfd = open (tmpfil, 2)) == NOTOK)
 159         adios (tmpfil, "unable to re-open temporary file");
 160     if ((out = dup (hdrfd)) == NOTOK
 161             || (ofp = fdopen (out, "w")) == NULL)
 162         adios (NULLCP, "no file descriptors -- you lose big");
 163     (void) unlink (tmpfil);
 164
 165 /* \f */
 166
 167     for (state = FLD;;)
 168         switch (state =
 169                 m_getfld (state, name, buffer, sizeof buffer, ifp)) {
 170             case FLD:
 171             case FLDPLUS:
 172             case FLDEOF:
 173                 if (uprf (name, "resent"))
 174                     fprintf (ofp, "Prev-");
 175                 fprintf (ofp, "%s: %s", name, buffer);
 176                 while (state == FLDPLUS) {
 177                     state = m_getfld (state, name,
 178                             buffer, sizeof buffer, ifp);
 179                     fputs (buffer, ofp);
 180                 }
 181                 if (state == FLDEOF)
 182                     goto process;
 183                 break;
 184
 185             case BODY:
 186             case BODYEOF:
 187                 (void) fclose (ofp);
 188
 189                 (void) strcpy (tmpfil, m_tmpfil ("dist"));
 190                 if ((txtfd = creat (tmpfil, 0600)) == NOTOK)
 191                     adios (tmpfil, "unable to create temporary file");
 192                 (void) close (txtfd);
 193                 if ((txtfd = open (tmpfil, 2)) == NOTOK)
 194                     adios (tmpfil, "unable to re-open temporary file");
 195                 if ((out = dup (txtfd)) == NOTOK
 196                         || (ofp = fdopen (out, "w")) == NULL)
 197                     adios (NULLCP, "no file descriptors -- you lose big");
 198                 (void) unlink (tmpfil);
 199                 fprintf (ofp, "\n%s", buffer);
 200                 while (state == BODY) {
 201                     state = m_getfld (state, name,
 202                             buffer, sizeof buffer, ifp);
 203                     fputs (buffer, ofp);
 204                 }
 205             case FILEEOF:
 206                 goto process;
 207
 208             case LENERR:
 209             case FMTERR:
 210                 adios (NULLCP, "format error in message %s", msgnam);
 211
 212             default:
 213                 adios (NULLCP, "getfld() returned %d", state);
 214         }
 215 process: ;
 216     (void) fclose (ifp);
 217     (void) fclose (ofp);
 218 }