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 char *dp, *resent;
34 char name[NAMESZ], buffer[BUFSIZ];
35 register FILE *ifp, *ofp;
37 if (rename (drft, strcpy (backup, m_backup (drft))) == NOTOK)
38 adios (backup, "unable to rename %s to",drft);
39 if ((ifp = fopen (backup, "r")) == NULL)
40 adios (backup, "unable to read");
42 if ((ofp = fopen (drft, "w")) == NULL)
43 adios (drft, "unable to create temporary file");
44 chmod (drft, m_gmprot ());
47 lseek (hdrfd, (off_t) 0, SEEK_SET); /* msgnam not accurate */
48 cpydata (hdrfd, fileno (ofp), msgnam, drft);
50 for (state = FLD, resent = NULL;;)
52 m_getfld (state, name, buffer, sizeof buffer, ifp)) {
56 if (uprf (name, "distribute-"))
57 snprintf (name, sizeof(name), "%s%s", "Resent", &name[10]);
58 if (uprf (name, "distribution-"))
59 snprintf (name, sizeof(name), "%s%s", "Resent", &name[12]);
60 if (!uprf (name, "resent")) {
61 advise (NULL, BADHDR, "draft", name);
65 resent = add (":", add (name, resent));
66 resent = add (buffer, resent);
67 fprintf (ofp, "%s: %s", name, buffer);
68 while (state == FLDPLUS) {
69 state = m_getfld (state, name,
70 buffer, sizeof buffer, ifp);
71 resent = add (buffer, resent);
80 for (dp = buffer; *dp; dp++)
82 advise (NULL, BADTXT, "draft");
91 advise (NULL, BADRFT, "draft");
96 if (rename (backup, drft) == NOTOK)
97 adios (drft, "unable to rename %s to", backup);
101 adios (NULL, "getfld() returned %d", state);
108 advise (NULL, BADMSG, "draft");
111 if (rename (backup, drft) == NOTOK)
112 adios (drft, "unable to rename %s to", backup);
117 if (txtfd != NOTOK) {
118 lseek (txtfd, (off_t) 0, SEEK_SET); /* msgnam not accurate */
119 cpydata (txtfd, fileno (ofp), msgnam, drft);
129 ready_msg (char *msgnam)
132 char name[NAMESZ], buffer[BUFSIZ], tmpfil[BUFSIZ];
133 register FILE *ifp, *ofp;
136 close (hdrfd), hdrfd = NOTOK;
138 close (txtfd), txtfd = NOTOK;
140 if ((ifp = fopen (msgnam, "r")) == NULL)
141 adios (msgnam, "unable to open message");
143 strncpy (tmpfil, m_tmpfil ("dist"), sizeof(tmpfil));
144 if ((hdrfd = open (tmpfil, O_RDWR | O_CREAT | O_TRUNC, 0600)) == NOTOK)
145 adios (tmpfil, "unable to re-open temporary file");
146 if ((out = dup (hdrfd)) == NOTOK
147 || (ofp = fdopen (out, "w")) == NULL)
148 adios (NULL, "no file descriptors -- you lose big");
153 m_getfld (state, name, buffer, sizeof buffer, ifp)) {
157 if (uprf (name, "resent"))
158 fprintf (ofp, "Prev-");
159 fprintf (ofp, "%s: %s", name, buffer);
160 while (state == FLDPLUS) {
161 state = m_getfld (state, name,
162 buffer, sizeof buffer, ifp);
173 strncpy (tmpfil, m_tmpfil ("dist"), sizeof(tmpfil));
174 if ((txtfd = open (tmpfil, O_RDWR | O_CREAT | O_TRUNC, 0600)) == NOTOK)
175 adios (tmpfil, "unable to open temporary file");
176 if ((out = dup (txtfd)) == NOTOK
177 || (ofp = fdopen (out, "w")) == NULL)
178 adios (NULL, "no file descriptors -- you lose big");
180 fprintf (ofp, "\n%s", buffer);
181 while (state == BODY) {
182 state = m_getfld (state, name,
183 buffer, sizeof buffer, ifp);
191 adios (NULL, "format error in message %s", msgnam);
194 adios (NULL, "getfld() returned %d", state);