3 * distsbr.c -- routines to do additional "dist-style" processing
7 * This code is Copyright (c) 2002, by the authors of nmh. See the
8 * COPYRIGHT file in the root directory of the nmh distribution for
9 * complete copyright information.
16 static int hdrfd = NOTOK;
17 static int txtfd = NOTOK;
19 #define BADHDR "please re-edit %s to remove the ``%s'' header!"
20 #define BADTXT "please re-edit %s to consist of headers only!"
21 #define BADMSG "please re-edit %s to include a ``Resent-To:''!"
22 #define BADRFT "please re-edit %s and fix that header!"
27 static void ready_msg(char *);
30 distout (char *drft, char *msgnam, char *backup)
33 register unsigned char *dp;
34 register char *resent;
35 char name[NAMESZ], buffer[BUFSIZ];
36 register FILE *ifp, *ofp;
38 if (rename (drft, strcpy (backup, m_backup (drft))) == NOTOK)
39 adios (backup, "unable to rename %s to",drft);
40 if ((ifp = fopen (backup, "r")) == NULL)
41 adios (backup, "unable to read");
43 if ((ofp = fopen (drft, "w")) == NULL)
44 adios (drft, "unable to create temporary file");
45 chmod (drft, m_gmprot ());
48 lseek (hdrfd, (off_t) 0, SEEK_SET); /* msgnam not accurate */
49 cpydata (hdrfd, fileno (ofp), msgnam, drft);
51 for (state = FLD, resent = NULL;;)
53 m_getfld (state, name, buffer, sizeof buffer, ifp)) {
57 if (uprf (name, "distribute-"))
58 snprintf (name, sizeof(name), "%s%s", "Resent", &name[10]);
59 if (uprf (name, "distribution-"))
60 snprintf (name, sizeof(name), "%s%s", "Resent", &name[12]);
61 if (!uprf (name, "resent")) {
62 advise (NULL, BADHDR, "draft", name);
66 resent = add (":", add (name, resent));
67 resent = add (buffer, resent);
68 fprintf (ofp, "%s: %s", name, buffer);
69 while (state == FLDPLUS) {
70 state = m_getfld (state, name,
71 buffer, sizeof buffer, ifp);
72 resent = add (buffer, resent);
81 for (dp = buffer; *dp; dp++)
83 advise (NULL, BADTXT, "draft");
92 advise (NULL, BADRFT, "draft");
97 if (rename (backup, drft) == NOTOK)
98 adios (drft, "unable to rename %s to", backup);
102 adios (NULL, "getfld() returned %d", state);
109 advise (NULL, BADMSG, "draft");
112 if (rename (backup, drft) == NOTOK)
113 adios (drft, "unable to rename %s to", backup);
118 if (txtfd != NOTOK) {
119 lseek (txtfd, (off_t) 0, SEEK_SET); /* msgnam not accurate */
120 cpydata (txtfd, fileno (ofp), msgnam, drft);
130 ready_msg (char *msgnam)
133 char name[NAMESZ], buffer[BUFSIZ], tmpfil[BUFSIZ];
134 register FILE *ifp, *ofp;
138 close (hdrfd), hdrfd = NOTOK;
140 close (txtfd), txtfd = NOTOK;
142 if ((ifp = fopen (msgnam, "r")) == NULL)
143 adios (msgnam, "unable to open message");
145 cp = m_mktemp2(NULL, "dist", &hdrfd, NULL);
147 adios("distsbr", "unable to create temporary file");
150 strncpy(tmpfil, cp, sizeof(tmpfil));
151 if ((out = dup (hdrfd)) == NOTOK
152 || (ofp = fdopen (out, "w")) == NULL)
153 adios (NULL, "no file descriptors -- you lose big");
158 m_getfld (state, name, buffer, sizeof buffer, ifp)) {
162 if (uprf (name, "resent"))
163 fprintf (ofp, "Prev-");
164 fprintf (ofp, "%s: %s", name, buffer);
165 while (state == FLDPLUS) {
166 state = m_getfld (state, name,
167 buffer, sizeof buffer, ifp);
178 cp = m_mktemp2(NULL, "dist", &txtfd, NULL);
180 adios("distsbr", "unable to create temporary file");
183 strncpy (tmpfil, cp, sizeof(tmpfil));
184 if ((out = dup (txtfd)) == NOTOK
185 || (ofp = fdopen (out, "w")) == NULL)
186 adios (NULL, "no file descriptors -- you lose big");
188 fprintf (ofp, "\n%s", buffer);
189 while (state == BODY) {
190 state = m_getfld (state, name,
191 buffer, sizeof buffer, ifp);
199 adios (NULL, "format error in message %s", msgnam);
202 adios (NULL, "getfld() returned %d", state);