Added MACHINES to EXTRA_DIST so that it gets put in the distribution.
[mmh] / 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 }