3 * mhbuild.c -- expand/translate MIME composition files
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.
12 #include <h/signals.h>
19 #include <h/mhparse.h>
20 #include <h/mhcachesbr.h>
23 static struct swit switches[] = {
31 { "nodirectives", 0 },
35 { "noebcdicsafe", 0 },
51 { "norfc934mode", 0 },
57 { "rcache policy", 0 },
59 { "wcache policy", 0 },
60 #define CONTENTIDSW 18
62 #define NCONTENTIDSW 19
75 extern char *tmp; /* directory to place temp files */
80 extern char *cache_public;
81 extern char *cache_private;
94 static char infile[BUFSIZ];
95 static int unlink_infile = 0;
97 static char outfile[BUFSIZ];
98 static int unlink_outfile = 0;
100 static void unlink_done (int) NORETURN;
103 CT build_mime (char *, int);
104 int output_message (CT, char *);
105 int output_message_fp (CT, FILE *, char*);
108 int list_all_messages (CT *, int, int, int, int);
111 void free_content (CT);
115 main (int argc, char **argv)
117 int sizesw = 1, headsw = 1, directives = 1;
119 char *cp, buf[BUFSIZ];
120 char buffer[BUFSIZ], *compfile = NULL;
121 char **argp, **arguments;
129 setlocale(LC_ALL, "");
131 invo_name = r1bindex (argv[0], '/');
133 /* read user profile/context */
136 arguments = getarguments (invo_name, argc, argv, 1);
139 while ((cp = *argp++)) {
140 if (cp[0] == '-' && cp[1] == '\0') {
142 adios (NULL, "cannot specify both standard input and a file");
145 listsw = 0; /* turn off -list if using standard in/out */
146 verbosw = 0; /* turn off -verbose listings */
150 switch (smatch (++cp, switches)) {
152 ambigsw (cp, switches);
155 adios (NULL, "-%s unknown", cp);
158 snprintf (buf, sizeof(buf), "%s [switches] file", invo_name);
159 print_help (buf, switches, 1);
162 print_version(invo_name);
166 icachesw = &rcachesw;
169 icachesw = &wcachesw;
171 if (!(cp = *argp++) || *cp == '-')
172 adios (NULL, "missing argument to %s", argp[-2]);
173 switch (*icachesw = smatch (cp, caches)) {
175 ambigsw (cp, caches);
178 adios (NULL, "%s unknown", cp);
252 adios (NULL, "only one composition file allowed");
259 if ((cp = getenv ("MM_NOASK")) && !strcmp (cp, "1"))
263 * Check if we've specified an additional profile
265 if ((cp = getenv ("MHBUILD"))) {
266 if ((fp = fopen (cp, "r"))) {
267 readconfig ((struct node **) 0, fp, cp, 0);
270 admonish ("", "unable to read $MHBUILD profile (%s)", cp);
275 * Read the standard profile setup
277 if ((fp = fopen (cp = etcpath ("mhn.defaults"), "r"))) {
278 readconfig ((struct node **) 0, fp, cp, 0);
282 /* Check for public cache location */
283 if ((cache_public = context_find (nmhcache)) && *cache_public != '/')
286 /* Check for private cache location */
287 if (!(cache_private = context_find (nmhprivcache)))
288 cache_private = ".cache";
289 cache_private = getcpy (m_maildir (cache_private));
292 * Check for storage directory. If defined, we
293 * will store temporary files there. Else we
294 * store them in standard nmh directory.
296 if ((cp = context_find (nmhstorage)) && *cp)
297 tmp = concat (cp, "/", invo_name, NULL);
299 tmp = add (m_maildir (invo_name), NULL);
301 if (!context_find ("path"))
302 free (path ("./", TFOLDER));
304 /* Check if we have a file to process */
306 adios (NULL, "need to specify a %s composition file", invo_name);
309 * Process the composition file from standard input.
311 if (compfile[0] == '-' && compfile[1] == '\0') {
312 /* copy standard input to temporary file */
313 strncpy (infile, m_mktemp(invo_name, NULL, &fp), sizeof(infile));
314 while (fgets (buffer, BUFSIZ, stdin))
319 /* build the content structures for MIME message */
320 ct = build_mime (infile, directives);
324 /* output MIME message to this temporary file */
325 strncpy (outfile, m_mktemp(invo_name, NULL, &fp_out), sizeof(outfile));
328 /* output the message */
329 output_message_fp (ct, fp_out, outfile);
332 /* output the temp file to standard output */
333 if ((fp = fopen (outfile, "r")) == NULL)
334 adios (outfile, "unable to open");
335 while (fgets (buffer, BUFSIZ, fp))
336 fputs (buffer, stdout);
350 * Process the composition file from a file.
353 /* build the content structures for MIME message */
354 ct = build_mime (compfile, directives);
358 /* output MIME message to this temporary file */
359 strncpy(outfile, m_mktemp2(compfile, invo_name, NULL, &fp_out),
363 /* output the message */
364 output_message_fp (ct, fp_out, outfile);
368 * List the message info
371 list_all_messages (cts, headsw, sizesw, verbosw, debugsw);
373 /* Rename composition draft */
374 snprintf (buffer, sizeof(buffer), "%s.orig", m_backup (compfile));
375 if (rename (compfile, buffer) == NOTOK) {
376 adios (compfile, "unable to rename comp draft %s to", buffer);
379 /* Rename output file to take its place */
380 if (rename (outfile, compfile) == NOTOK) {
381 advise (outfile, "unable to rename output %s to", compfile);
382 rename (buffer, compfile);
394 unlink_done (int status)
397 * Check if we need to remove stray