2 * distsbr.c -- routines to do additional "dist-style" processing
4 * This code is Copyright (c) 2002, by the authors of nmh. See the
5 * COPYRIGHT file in the root directory of the nmh distribution for
6 * complete copyright information.
13 static int hdrfd = NOTOK;
14 static int txtfd = NOTOK;
16 #define BADHDR "please re-edit %s to remove the ``%s'' header!"
17 #define BADTXT "please re-edit %s to consist of headers only!"
18 #define BADMSG "please re-edit %s to include a ``Resent-To:''!"
19 #define BADRFT "please re-edit %s and fix that header!"
24 static void ready_msg(char *);
27 distout (char *drft, char *msgnam, char *backup)
30 register unsigned char *dp;
31 register char *resent;
32 char name[NAMESZ], buffer[BUFSIZ];
33 register FILE *ifp, *ofp;
35 if (rename (drft, strcpy (backup, m_backup (drft))) == NOTOK)
36 adios (backup, "unable to rename %s to",drft);
37 if ((ifp = fopen (backup, "r")) == NULL)
38 adios (backup, "unable to read");
40 if ((ofp = fopen (drft, "w")) == NULL)
41 adios (drft, "unable to create temporary file");
42 chmod (drft, m_gmprot ());
45 lseek (hdrfd, (off_t) 0, SEEK_SET); /* msgnam not accurate */
46 cpydata (hdrfd, fileno (ofp), msgnam, drft);
48 for (state = FLD, resent = NULL;;)
50 m_getfld (state, name, buffer, sizeof buffer, ifp)) {
54 if (uprf (name, "distribute-"))
55 snprintf (name, sizeof(name), "%s%s", "Resent", &name[10]);
56 if (uprf (name, "distribution-"))
57 snprintf (name, sizeof(name), "%s%s", "Resent", &name[12]);
58 if (!uprf (name, "resent")) {
59 advise (NULL, BADHDR, "draft", name);
63 resent = add (":", add (name, resent));
64 resent = add (buffer, resent);
65 fprintf (ofp, "%s: %s", name, buffer);
66 while (state == FLDPLUS) {
67 state = m_getfld (state, name,
68 buffer, sizeof buffer, ifp);
69 resent = add (buffer, resent);
78 for (dp = buffer; *dp; dp++)
80 advise (NULL, BADTXT, "draft");
89 advise (NULL, BADRFT, "draft");
94 if (rename (backup, drft) == NOTOK)
95 adios (drft, "unable to rename %s to", backup);
99 adios (NULL, "getfld() returned %d", state);
106 advise (NULL, BADMSG, "draft");
109 if (rename (backup, drft) == NOTOK)
110 adios (drft, "unable to rename %s to", backup);
115 if (txtfd != NOTOK) {
116 lseek (txtfd, (off_t) 0, SEEK_SET); /* msgnam not accurate */
117 cpydata (txtfd, fileno (ofp), msgnam, drft);
127 ready_msg (char *msgnam)
130 char name[NAMESZ], buffer[BUFSIZ], tmpfil[BUFSIZ];
131 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 cp = m_mktemp2(NULL, "dist", &hdrfd, NULL);
144 adios("distsbr", "unable to create temporary file");
147 strncpy(tmpfil, cp, sizeof(tmpfil));
148 if ((out = dup (hdrfd)) == NOTOK
149 || (ofp = fdopen (out, "w")) == NULL)
150 adios (NULL, "no file descriptors -- you lose big");
155 m_getfld (state, name, buffer, sizeof buffer, ifp)) {
159 if (uprf (name, "resent"))
160 fprintf (ofp, "Prev-");
161 fprintf (ofp, "%s: %s", name, buffer);
162 while (state == FLDPLUS) {
163 state = m_getfld (state, name,
164 buffer, sizeof buffer, ifp);
175 cp = m_mktemp2(NULL, "dist", &txtfd, NULL);
177 adios("distsbr", "unable to create temporary file");
180 strncpy (tmpfil, cp, sizeof(tmpfil));
181 if ((out = dup (txtfd)) == NOTOK
182 || (ofp = fdopen (out, "w")) == NULL)
183 adios (NULL, "no file descriptors -- you lose big");
185 fprintf (ofp, "\n%s", buffer);
186 while (state == BODY) {
187 state = m_getfld (state, name,
188 buffer, sizeof buffer, ifp);
196 adios (NULL, "format error in message %s", msgnam);
199 adios (NULL, "getfld() returned %d", state);