|
0
|
1 /* distsbr.c - routines to do additional "dist-style" processing */
|
|
|
2 #ifndef lint
|
|
12
|
3 static char ident[] = "@(#)$Id: distsbr.c,v 1.1.1.1 2005/04/18 14:46:07 kono Exp $";
|
|
0
|
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 /* */
|
|
|
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 /* */
|
|
|
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 /* */
|
|
|
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 /* */
|
|
|
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 /* */
|
|
|
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 }
|
