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.
15 static int hdrfd = NOTOK;
16 static int txtfd = NOTOK;
18 #define BADHDR "please re-edit %s to remove the ``%s'' header!"
19 #define BADTXT "please re-edit %s to consist of headers only!"
20 #define BADMSG "please re-edit %s to include a ``Resent-To:''!"
21 #define BADRFT "please re-edit %s and fix that header!"
26 static void ready_msg(char *);
29 distout (char *drft, char *msgnam, char *backup)
32 register char *dp, *resent;
33 char name[NAMESZ], buffer[BUFSIZ];
34 register FILE *ifp, *ofp;
36 if (rename (drft, strcpy (backup, m_backup (drft))) == NOTOK)
37 adios (backup, "unable to rename %s to",drft);
38 if ((ifp = fopen (backup, "r")) == NULL)
39 adios (backup, "unable to read");
41 if ((ofp = fopen (drft, "w")) == NULL)
42 adios (drft, "unable to create temporary file");
43 chmod (drft, m_gmprot ());
46 lseek (hdrfd, (off_t) 0, SEEK_SET); /* msgnam not accurate */
47 cpydata (hdrfd, fileno (ofp), msgnam, drft);
49 for (state = FLD, resent = NULL;;)
51 m_getfld (state, name, buffer, sizeof buffer, ifp)) {
55 if (uprf (name, "distribute-"))
56 snprintf (name, sizeof(name), "%s%s", "Resent", &name[10]);
57 if (uprf (name, "distribution-"))
58 snprintf (name, sizeof(name), "%s%s", "Resent", &name[12]);
59 if (!uprf (name, "resent")) {
60 advise (NULL, BADHDR, "draft", name);
64 resent = add (":", add (name, resent));
65 resent = add (buffer, resent);
66 fprintf (ofp, "%s: %s", name, buffer);
67 while (state == FLDPLUS) {
68 state = m_getfld (state, name,
69 buffer, sizeof buffer, ifp);
70 resent = add (buffer, resent);
79 for (dp = buffer; *dp; dp++)
81 advise (NULL, BADTXT, "draft");
90 advise (NULL, BADRFT, "draft");
95 if (rename (backup, drft) == NOTOK)
96 adios (drft, "unable to rename %s to", backup);
100 adios (NULL, "getfld() returned %d", state);
107 advise (NULL, BADMSG, "draft");
110 if (rename (backup, drft) == NOTOK)
111 adios (drft, "unable to rename %s to", backup);
116 if (txtfd != NOTOK) {
117 lseek (txtfd, (off_t) 0, SEEK_SET); /* msgnam not accurate */
118 cpydata (txtfd, fileno (ofp), msgnam, drft);
128 ready_msg (char *msgnam)
131 char name[NAMESZ], buffer[BUFSIZ], tmpfil[BUFSIZ];
132 register FILE *ifp, *ofp;
135 close (hdrfd), hdrfd = NOTOK;
137 close (txtfd), txtfd = NOTOK;
139 if ((ifp = fopen (msgnam, "r")) == NULL)
140 adios (msgnam, "unable to open message");
142 strncpy (tmpfil, m_tmpfil ("dist"), sizeof(tmpfil));
143 if ((hdrfd = open (tmpfil, O_RDWR | O_CREAT | O_TRUNC, 0600)) == NOTOK)
144 adios (tmpfil, "unable to re-open temporary file");
145 if ((out = dup (hdrfd)) == NOTOK
146 || (ofp = fdopen (out, "w")) == NULL)
147 adios (NULL, "no file descriptors -- you lose big");
152 m_getfld (state, name, buffer, sizeof buffer, ifp)) {
156 if (uprf (name, "resent"))
157 fprintf (ofp, "Prev-");
158 fprintf (ofp, "%s: %s", name, buffer);
159 while (state == FLDPLUS) {
160 state = m_getfld (state, name,
161 buffer, sizeof buffer, ifp);
172 strncpy (tmpfil, m_tmpfil ("dist"), sizeof(tmpfil));
173 if ((txtfd = open (tmpfil, O_RDWR | O_CREAT | O_TRUNC, 0600)) == NOTOK)
174 adios (tmpfil, "unable to open temporary file");
175 if ((out = dup (txtfd)) == NOTOK
176 || (ofp = fdopen (out, "w")) == NULL)
177 adios (NULL, "no file descriptors -- you lose big");
179 fprintf (ofp, "\n%s", buffer);
180 while (state == BODY) {
181 state = m_getfld (state, name,
182 buffer, sizeof buffer, ifp);
190 adios (NULL, "format error in message %s", msgnam);
193 adios (NULL, "getfld() returned %d", state);