Added list of hand picked types initially genereted by...
[mmh] / uip / mhmisc.c
1
2 /*
3  * mhparse.c -- misc routines to process MIME messages
4  *
5  * This code is Copyright (c) 2002, by the authors of nmh.  See the
6  * COPYRIGHT file in the root directory of the nmh distribution for
7  * complete copyright information.
8  */
9
10 #include <h/mh.h>
11 #include <errno.h>
12 #include <h/mime.h>
13 #include <h/mhparse.h>
14 #include <h/utils.h>
15
16 extern int debugsw;
17
18 /*
19  * limit actions to specified parts or content types
20  */
21 int npart = 0;
22 int ntype = 0;
23 char *parts[NPARTS + 1];
24 char *types[NTYPES + 1];
25
26 int endian = 0;         /* little or big endian */
27 int userrs = 0;
28
29 static char *errs = NULL;
30
31
32 /*
33  * prototypes
34  */
35 int part_ok (CT, int);
36 int type_ok (CT, int);
37 void content_error (char *, CT, char *, ...);
38 void flush_errors (void);
39
40
41 int
42 part_ok (CT ct, int sP)
43 {
44     char **ap;
45     int len;
46
47     if (npart == 0 || (ct->c_type == CT_MULTIPART && (sP || ct->c_subtype)))
48         return 1;
49
50     for (ap = parts; *ap; ap++) {
51         len = strlen(*ap);
52         if (!strncmp (*ap, ct->c_partno, len) &&
53                 (!ct->c_partno[len] || ct->c_partno[len] == '.' ))
54             return 1;
55     }
56
57     return 0;
58 }
59
60
61 int
62 type_ok (CT ct, int sP)
63 {
64     char **ap;
65     char buffer[BUFSIZ];
66     CI ci = &ct->c_ctinfo;
67
68     if (ntype == 0 || (ct->c_type == CT_MULTIPART && (sP || ct->c_subtype)))
69         return 1;
70
71     snprintf (buffer, sizeof(buffer), "%s/%s", ci->ci_type, ci->ci_subtype);
72     for (ap = types; *ap; ap++)
73         if (!mh_strcasecmp (*ap, ci->ci_type) || !mh_strcasecmp (*ap, buffer))
74             return 1;
75
76     return 0;
77 }
78
79
80 void
81 set_endian (void)
82 {
83     union {
84         long l;
85         char c[sizeof(long)];
86     } un;
87
88     un.l = 1;
89     endian = un.c[0] ? -1 : 1;
90     if (debugsw)
91         fprintf (stderr, "%s endian architecture\n",
92                 endian > 0 ? "big" : "little");
93 }
94
95
96 int
97 make_intermediates (char *file)
98 {
99     char *cp;
100
101     for (cp = file + 1; (cp = strchr(cp, '/')); cp++) {
102         struct stat st;
103
104         *cp = '\0';
105         if (stat (file, &st) == NOTOK) {
106             int answer;
107             char *ep;
108             if (errno != ENOENT) {
109                 advise (file, "error on directory");
110 losing_directory:
111                 *cp = '/';
112                 return NOTOK;
113             }
114
115             ep = concat ("Create directory \"", file, "\"? ", NULL);
116             answer = getanswer (ep);
117             free (ep);
118
119             if (!answer)
120                 goto losing_directory;
121             if (!makedir (file)) {
122                 advise (NULL, "unable to create directory %s", file);
123                 goto losing_directory;
124             }
125         }
126
127         *cp = '/';
128     }
129
130     return OK;
131 }
132
133
134 /*
135  * Construct error message for content
136  */
137
138 void
139 content_error (char *what, CT ct, char *fmt, ...)
140 {
141     va_list arglist;
142     int i, len, buflen;
143     char *bp, buffer[BUFSIZ];
144     CI ci;
145
146     bp = buffer;
147     buflen = sizeof(buffer);
148
149     if (userrs && invo_name && *invo_name) {
150         snprintf (bp, buflen, "%s: ", invo_name);
151         len = strlen (bp);
152         bp += len;
153         buflen -= len;
154     }
155
156     va_start (arglist, fmt);
157
158     vsnprintf (bp, buflen, fmt, arglist);
159     len = strlen (bp);
160     bp += len;
161     buflen -= len;
162
163     ci = &ct->c_ctinfo;
164
165     if (what) {
166         char *s;
167
168         if (*what) {
169             snprintf (bp, buflen, " %s: ", what);
170             len = strlen (bp);
171             bp += len;
172             buflen -= len;
173         }
174
175         if ((s = strerror (errno)))
176             snprintf (bp, buflen, "%s", s);
177         else
178             snprintf (bp, buflen, "Error %d", errno);
179
180         len = strlen (bp);
181         bp += len;
182         buflen -= len;
183     }
184
185     i = strlen (invo_name) + 2;
186
187     /* Now add content type and subtype */
188     snprintf (bp, buflen, "\n%*.*s(content %s/%s", i, i, "",
189         ci->ci_type, ci->ci_subtype);
190     len = strlen (bp);
191     bp += len;
192     buflen -= len;
193
194     /* Now add the message/part number */
195     if (ct->c_file) {
196         snprintf (bp, buflen, " in message %s", ct->c_file);
197         len = strlen (bp);
198         bp += len;
199         buflen -= len;
200
201         if (ct->c_partno) {
202             snprintf (bp, buflen, ", part %s", ct->c_partno);
203             len = strlen (bp);
204             bp += len;
205             buflen -= len;
206         }
207     }
208
209     snprintf (bp, buflen, ")");
210     len = strlen (bp);
211     bp += len;
212     buflen -= len;
213
214     if (userrs) {
215         *bp++ = '\n';
216         *bp = '\0';
217         buflen--;
218
219         errs = add (buffer, errs);
220     } else {
221         advise (NULL, "%s", buffer);
222     }
223 }
224
225
226 void
227 flush_errors (void)
228 {
229     if (errs) {
230         fflush (stdout);
231         fprintf (stderr, "%s", errs);
232         free (errs);
233         errs = NULL;
234     }
235 }