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;
137 close (hdrfd), hdrfd = NOTOK;
139 close (txtfd), txtfd = NOTOK;
141 if ((ifp = fopen (msgnam, "r")) == NULL)
142 adios (msgnam, "unable to open message");
144 strncpy (tmpfil, m_tmpfil ("dist"), sizeof(tmpfil));
145 if ((hdrfd = open (tmpfil, O_RDWR | O_CREAT | O_TRUNC, 0600)) == NOTOK)
146 adios (tmpfil, "unable to re-open temporary file");
147 if ((out = dup (hdrfd)) == NOTOK
148 || (ofp = fdopen (out, "w")) == NULL)
149 adios (NULL, "no file descriptors -- you lose big");
154 m_getfld (state, name, buffer, sizeof buffer, ifp)) {
158 if (uprf (name, "resent"))
159 fprintf (ofp, "Prev-");
160 fprintf (ofp, "%s: %s", name, buffer);
161 while (state == FLDPLUS) {
162 state = m_getfld (state, name,
163 buffer, sizeof buffer, ifp);
174 strncpy (tmpfil, m_tmpfil ("dist"), sizeof(tmpfil));
175 if ((txtfd = open (tmpfil, O_RDWR | O_CREAT | O_TRUNC, 0600)) == NOTOK)
176 adios (tmpfil, "unable to open temporary file");
177 if ((out = dup (txtfd)) == NOTOK
178 || (ofp = fdopen (out, "w")) == NULL)
179 adios (NULL, "no file descriptors -- you lose big");
181 fprintf (ofp, "\n%s", buffer);
182 while (state == BODY) {
183 state = m_getfld (state, name,
184 buffer, sizeof buffer, ifp);
192 adios (NULL, "format error in message %s", msgnam);
195 adios (NULL, "getfld() returned %d", state);