Added mhmail.in. start of a replacement for compiled mhmail.
[mmh] / uip / mhn.c
1
2 /*
3  * mhn.c -- display, list, cache, or store the contents of 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 <fcntl.h>
12 #include <h/signals.h>
13 #include <h/md5.h>
14 #include <errno.h>
15 #include <signal.h>
16 #include <h/mts.h>
17 #include <h/tws.h>
18 #include <h/mime.h>
19 #include <h/mhparse.h>
20 #include <h/mhcachesbr.h>
21 #include <h/utils.h>
22
23 static struct swit switches[] = {
24 #define AUTOSW                  0
25     { "auto", 0 },
26 #define NAUTOSW                 1
27     { "noauto", 0 },
28 #define CACHESW                 2
29     { "cache", 0 },
30 #define NCACHESW                3
31     { "nocache", 0 },
32 #define CHECKSW                 4
33     { "check", 0 },
34 #define NCHECKSW                5
35     { "nocheck", 0 },
36 #define HEADSW                  6
37     { "headers", 0 },
38 #define NHEADSW                 7
39     { "noheaders", 0 },
40 #define LISTSW                  8
41     { "list", 0 },
42 #define NLISTSW                 9
43     { "nolist", 0 },
44 #define PAUSESW                10
45     { "pause", 0 },
46 #define NPAUSESW               11
47     { "nopause", 0 },
48 #define SIZESW                 12
49     { "realsize", 0 },
50 #define NSIZESW                13
51     { "norealsize", 0 },
52 #define SERIALSW               14
53     { "serialonly", 0 },
54 #define NSERIALSW              15
55     { "noserialonly", 0 },
56 #define SHOWSW                 16
57     { "show", 0 },
58 #define NSHOWSW                17
59     { "noshow", 0 },
60 #define STORESW                18
61     { "store", 0 },
62 #define NSTORESW               19
63     { "nostore", 0 },
64 #define VERBSW                 20
65     { "verbose", 0 },
66 #define NVERBSW                21
67     { "noverbose", 0 },
68 #define FILESW                 22       /* interface from show */
69     { "file file", 0 },
70 #define FORMSW                 23
71     { "form formfile", 0 },
72 #define PARTSW                 24
73     { "part number", 0 },
74 #define TYPESW                 25
75     { "type content", 0 },
76 #define RCACHESW               26
77     { "rcache policy", 0 },
78 #define WCACHESW               27
79     { "wcache policy", 0 },
80 #define VERSIONSW              28
81     { "version", 0 },
82 #define HELPSW                 29
83     { "help", 0 },
84
85 /*
86  * switches for debugging
87  */
88 #define DEBUGSW                30
89     { "debug", -5 },
90
91 /*
92  * switches for moreproc/mhlproc
93  */
94 #define PROGSW                 31
95     { "moreproc program", -4 },
96 #define NPROGSW                32
97     { "nomoreproc", -3 },
98 #define LENSW                  33
99     { "length lines", -4 },
100 #define WIDTHSW                34
101     { "width columns", -4 },
102
103 /*
104  * switches for mhbuild
105  */
106 #define BUILDSW                35
107     { "build", -5 },
108 #define NBUILDSW               36
109     { "nobuild", -7 },
110 #define EBCDICSW               37
111     { "ebcdicsafe", -10 },
112 #define NEBCDICSW              38
113     { "noebcdicsafe", -12 },
114 #define RFC934SW               39
115     { "rfc934mode", -10 },
116 #define NRFC934SW              40
117     { "norfc934mode", -12 },
118     { NULL, 0 }
119 };
120
121
122 /* mhparse.c */
123 extern char *tmp;       /* directory to place temp files */
124
125 /* mhcachesbr.c */
126 extern int rcachesw;
127 extern int wcachesw;
128 extern char *cache_public;
129 extern char *cache_private;
130
131 /* mhshowsbr.c */
132 extern int pausesw;
133 extern int serialsw;
134 extern char *progsw;
135 extern int nolist;
136 extern int nomore;      /* flags for moreproc/header display */
137 extern char *formsw;
138
139 /* mhstoresbr.c */
140 extern int autosw;
141 extern char *cwd;       /* cache current working directory */
142
143 /* mhmisc.c */
144 extern int npart;
145 extern int ntype;
146 extern char *parts[NPARTS + 1];
147 extern char *types[NTYPES + 1];
148 extern int userrs;
149
150 int debugsw = 0;
151 int verbosw = 0;
152
153 /*
154  * variables for mhbuild (mhn -build)
155  */
156 static int buildsw  = 0;
157 static int ebcdicsw = 0;
158 static int rfc934sw = 0;
159
160 /*
161  * what action to take?
162  */
163 static int cachesw = 0;
164 static int listsw  = 0;
165 static int showsw  = 0;
166 static int storesw = 0;
167
168 #define quitser pipeser
169
170 /* mhparse.c */
171 CT parse_mime (char *);
172
173 /* mhmisc.c */
174 int part_ok (CT, int);
175 int type_ok (CT, int);
176 void flush_errors (void);
177
178 /* mhshowsbr.c */
179 void show_all_messages (CT *);
180
181 /* mhlistsbr.c */
182 void list_all_messages (CT *, int, int, int, int);
183
184 /* mhstoresbr.c */
185 void store_all_messages (CT *);
186
187 /* mhcachesbr.c */
188 void cache_all_messages (CT *);
189
190 /* mhfree.c */
191 void free_content (CT);
192 extern CT *cts;
193 void freects_done (int) NORETURN;
194
195 /*
196  * static prototypes
197  */
198 static void pipeser (int);
199
200
201 int
202 main (int argc, char **argv)
203 {
204     int sizesw = 1, headsw = 1;
205     int msgnum, *icachesw;
206     char *cp, *file = NULL, *folder = NULL;
207     char *maildir, buf[100], **argp;
208     char **arguments;
209     struct msgs_array msgs = { 0, 0, NULL };
210     struct msgs *mp = NULL;
211     CT ct, *ctp;
212     FILE *fp;
213
214     done=freects_done;
215
216 #ifdef LOCALE
217     setlocale(LC_ALL, "");
218 #endif
219     invo_name = r1bindex (argv[0], '/');
220
221     /* read user profile/context */
222     context_read();
223
224     arguments = getarguments (invo_name, argc, argv, 1);
225     argp = arguments;
226
227     /*
228      * Parse arguments
229      */
230     while ((cp = *argp++)) {
231         if (*cp == '-') {
232             switch (smatch (++cp, switches)) {
233             case AMBIGSW: 
234                 ambigsw (cp, switches);
235                 done (1);
236             case UNKWNSW: 
237                 adios (NULL, "-%s unknown", cp);
238
239             case HELPSW: 
240                 snprintf (buf, sizeof(buf), "%s [+folder] [msgs] [switches]",
241                         invo_name);
242                 print_help (buf, switches, 1);
243                 done (0);
244             case VERSIONSW:
245                 print_version(invo_name);
246                 done (0);
247
248             case AUTOSW:
249                 autosw++;
250                 continue;
251             case NAUTOSW:
252                 autosw = 0;
253                 continue;
254
255             case CACHESW:
256                 cachesw++;
257                 continue;
258             case NCACHESW:
259                 cachesw = 0;
260                 continue;
261
262             case RCACHESW:
263                 icachesw = &rcachesw;
264                 goto do_cache;
265             case WCACHESW:
266                 icachesw = &wcachesw;
267 do_cache:
268                 if (!(cp = *argp++) || *cp == '-')
269                     adios (NULL, "missing argument to %s", argp[-2]);
270                 switch (*icachesw = smatch (cp, caches)) {
271                 case AMBIGSW:
272                     ambigsw (cp, caches);
273                     done (1);
274                 case UNKWNSW:
275                     adios (NULL, "%s unknown", cp);
276                 default:
277                     break;
278                 }
279                 continue;
280
281             case CHECKSW:
282                 checksw++;
283                 continue;
284             case NCHECKSW:
285                 checksw = 0;
286                 continue;
287
288             case HEADSW:
289                 headsw = 1;
290                 continue;
291             case NHEADSW:
292                 headsw = 0;
293                 continue;
294
295             case LISTSW:
296                 listsw = 1;
297                 continue;
298             case NLISTSW:
299                 listsw = 0;
300                 continue;
301
302             case PAUSESW:
303                 pausesw = 1;
304                 continue;
305             case NPAUSESW:
306                 pausesw = 0;
307                 continue;
308
309             case SERIALSW:
310                 serialsw = 1;
311                 continue;
312             case NSERIALSW:
313                 serialsw = 0;
314                 continue;
315
316             case SHOWSW:
317                 showsw = 1;
318                 continue;
319             case NSHOWSW:
320                 showsw = 0;
321                 continue;
322
323             case SIZESW:
324                 sizesw = 1;
325                 continue;
326             case NSIZESW:
327                 sizesw = 0;
328                 continue;
329
330             case STORESW:
331                 storesw = 1;
332                 continue;
333             case NSTORESW:
334                 storesw = 0;
335                 continue;
336
337             case PARTSW:
338                 if (!(cp = *argp++) || *cp == '-')
339                     adios (NULL, "missing argument to %s", argp[-2]);
340                 if (npart >= NPARTS)
341                     adios (NULL, "too many parts (starting with %s), %d max",
342                            cp, NPARTS);
343                 parts[npart++] = cp;
344                 continue;
345
346             case TYPESW:
347                 if (!(cp = *argp++) || *cp == '-')
348                     adios (NULL, "missing argument to %s", argp[-2]);
349                 if (ntype >= NTYPES)
350                     adios (NULL, "too many types (starting with %s), %d max",
351                            cp, NTYPES);
352                 types[ntype++] = cp;
353                 continue;
354
355             case FILESW:
356                 if (!(cp = *argp++) || (*cp == '-' && cp[1]))
357                     adios (NULL, "missing argument to %s", argp[-2]);
358                 file = *cp == '-' ? cp : path (cp, TFILE);
359                 continue;
360
361             case FORMSW:
362                 if (!(cp = *argp++) || *cp == '-')
363                     adios (NULL, "missing argument to %s", argp[-2]);
364                 if (formsw)
365                     free (formsw);
366                 formsw = getcpy (etcpath (cp));
367                 continue;
368
369             /*
370              * Switches for moreproc/mhlproc
371              */
372             case PROGSW:
373                 if (!(progsw = *argp++) || *progsw == '-')
374                     adios (NULL, "missing argument to %s", argp[-2]);
375                 continue;
376             case NPROGSW:
377                 nomore++;
378                 continue;
379
380             case LENSW:
381             case WIDTHSW:
382                 if (!(cp = *argp++) || *cp == '-')
383                     adios (NULL, "missing argument to %s", argp[-2]);
384                 continue;
385
386             /*
387              * Switches for mhbuild
388              */
389             case BUILDSW:
390                 buildsw = 1;
391                 continue;
392             case NBUILDSW:
393                 buildsw = 0;
394                 continue;
395             case RFC934SW:
396                 rfc934sw = 1;
397                 continue;
398             case NRFC934SW:
399                 rfc934sw = -1;
400                 continue;
401             case EBCDICSW:
402                 ebcdicsw = 1;
403                 continue;
404             case NEBCDICSW:
405                 ebcdicsw = -1;
406                 continue;
407
408             case VERBSW: 
409                 verbosw = 1;
410                 continue;
411             case NVERBSW: 
412                 verbosw = 0;
413                 continue;
414             case DEBUGSW:
415                 debugsw = 1;
416                 continue;
417             }
418         }
419         if (*cp == '+' || *cp == '@') {
420             if (folder)
421                 adios (NULL, "only one folder at a time!");
422             else
423                 folder = pluspath (cp);
424         } else
425                 app_msgarg(&msgs, cp);
426     }
427
428     /* null terminate the list of acceptable parts/types */
429     parts[npart] = NULL;
430     types[ntype] = NULL;
431
432     set_endian ();
433
434     /*
435      * Check if we've specified an additional profile
436      */
437     if ((cp = getenv ("MHN"))) {
438         if ((fp = fopen (cp, "r"))) {
439             readconfig ((struct node **) 0, fp, cp, 0);
440             fclose (fp);
441         } else {
442             admonish ("", "unable to read $MHN profile (%s)", cp);
443         }
444     }
445
446     /*
447      * Read the standard profile setup
448      */
449     if ((fp = fopen (cp = etcpath ("mhn.defaults"), "r"))) {
450         readconfig ((struct node **) 0, fp, cp, 0);
451         fclose (fp);
452     }
453
454     /* Check for public cache location */
455     if ((cache_public = context_find (nmhcache)) && *cache_public != '/')
456         cache_public = NULL;
457
458     /* Check for private cache location */
459     if (!(cache_private = context_find (nmhprivcache)))
460         cache_private = ".cache";
461     cache_private = getcpy (m_maildir (cache_private));
462
463     /*
464      * Cache the current directory before we do any chdirs()'s.
465      */
466     cwd = getcpy (pwd());
467
468     /*
469      * Check for storage directory.  If specified,
470      * then store temporary files there.  Else we
471      * store them in standard nmh directory.
472      */
473     if ((cp = context_find (nmhstorage)) && *cp)
474         tmp = concat (cp, "/", invo_name, NULL);
475     else
476         tmp = add (m_maildir (invo_name), NULL);
477
478     if (!context_find ("path"))
479         free (path ("./", TFOLDER));
480
481     /*
482      * Process a mhn composition file (mhn -build)
483      */
484     if (buildsw) {
485         char *vec[MAXARGS];
486         int vecp;
487
488         if (showsw || storesw || cachesw)
489             adios (NULL, "cannot use -build with -show, -store, -cache");
490         if (msgs.size < 1)
491             adios (NULL, "need to specify a %s composition file", invo_name);
492         if (msgs.size > 1)
493             adios (NULL, "only one %s composition file at a time", invo_name);
494
495         vecp = 0;
496         vec[vecp++] = "mhbuild";
497
498         if (ebcdicsw == 1)
499             vec[vecp++] = "-ebcdicsafe";
500         else if (ebcdicsw == -1)
501             vec[vecp++] = "-noebcdicsafe";
502
503         if (rfc934sw == 1)
504             vec[vecp++] = "-rfc934mode";
505         else if (rfc934sw == -1)
506             vec[vecp++] = "-norfc934mode";
507
508         vec[vecp++] = msgs.msgs[0];
509         vec[vecp] = NULL;
510
511         execvp ("mhbuild", vec);
512         fprintf (stderr, "unable to exec ");
513         _exit (-1);
514     }
515
516     /*
517      * Process a mhn composition file (old MH style)
518      */
519     if (msgs.size == 1 && !folder && !npart && !cachesw
520         && !showsw && !storesw && !ntype && !file
521         && (cp = getenv ("mhdraft"))
522         && strcmp (cp, msgs.msgs[0]) == 0) {
523
524         char *vec[MAXARGS];
525         int vecp;
526
527         vecp = 0;
528         vec[vecp++] = "mhbuild";
529
530         if (ebcdicsw == 1)
531             vec[vecp++] = "-ebcdicsafe";
532         else if (ebcdicsw == -1)
533             vec[vecp++] = "-noebcdicsafe";
534
535         if (rfc934sw == 1)
536             vec[vecp++] = "-rfc934mode";
537         else if (rfc934sw == -1)
538             vec[vecp++] = "-norfc934mode";
539
540         vec[vecp++] = cp;
541         vec[vecp] = NULL;
542
543         execvp ("mhbuild", vec);
544         fprintf (stderr, "unable to exec ");
545         _exit (-1);
546     }
547
548     if (file && msgs.size)
549         adios (NULL, "cannot specify msg and file at same time!");
550
551     /*
552      * check if message is coming from file
553      */
554     if (file) {
555         if (!(cts = (CT *) calloc ((size_t) 2, sizeof(*cts))))
556             adios (NULL, "out of memory");
557         ctp = cts;
558
559         if ((ct = parse_mime (file)))
560             *ctp++ = ct;
561     } else {
562         /*
563          * message(s) are coming from a folder
564          */
565         if (!msgs.size)
566             app_msgarg(&msgs, "cur");
567         if (!folder)
568             folder = getfolder (1);
569         maildir = m_maildir (folder);
570
571         if (chdir (maildir) == NOTOK)
572             adios (maildir, "unable to change directory to");
573
574         /* read folder and create message structure */
575         if (!(mp = folder_read (folder)))
576             adios (NULL, "unable to read folder %s", folder);
577
578         /* check for empty folder */
579         if (mp->nummsg == 0)
580             adios (NULL, "no messages in %s", folder);
581
582         /* parse all the message ranges/sequences and set SELECTED */
583         for (msgnum = 0; msgnum < msgs.size; msgnum++)
584             if (!m_convert (mp, msgs.msgs[msgnum]))
585                 done (1);
586         seq_setprev (mp);       /* set the previous-sequence */
587
588         if (!(cts = (CT *) calloc ((size_t) (mp->numsel + 1), sizeof(*cts))))
589             adios (NULL, "out of memory");
590         ctp = cts;
591
592         for (msgnum = mp->lowsel; msgnum <= mp->hghsel; msgnum++) {
593             if (is_selected(mp, msgnum)) {
594                 char *msgnam;
595
596                 msgnam = m_name (msgnum);
597                 if ((ct = parse_mime (msgnam)))
598                     *ctp++ = ct;
599             }
600         }
601     }
602
603     if (!*cts)
604         done (1);
605
606     /*
607      * You can't give more than one of these flags
608      * at a time.
609      */
610     if (showsw + listsw + storesw + cachesw > 1)
611         adios (NULL, "can only use one of -show, -list, -store, -cache at same time");
612
613     /* If no action is specified, assume -show */
614     if (!listsw && !showsw && !storesw && !cachesw)
615         showsw = 1;
616
617     userrs = 1;
618     SIGNAL (SIGQUIT, quitser);
619     SIGNAL (SIGPIPE, pipeser);
620
621     /*
622      * Get the associated umask for the relevant contents.
623      */
624     for (ctp = cts; *ctp; ctp++) {
625         struct stat st;
626
627         ct = *ctp;
628         if (type_ok (ct, 1) && !ct->c_umask) {
629             if (stat (ct->c_file, &st) != NOTOK)
630                 ct->c_umask = ~(st.st_mode & 0777);
631             else
632                 ct->c_umask = ~m_gmprot();
633         }
634     }
635
636     /*
637      * List the message content
638      */
639     if (listsw)
640         list_all_messages (cts, headsw, sizesw, verbosw, debugsw);
641
642     /*
643      * Store the message content
644      */
645     if (storesw)
646         store_all_messages (cts);
647
648     /*
649      * Cache the message content
650      */
651     if (cachesw)
652         cache_all_messages (cts);
653
654     /*
655      * Show the message content
656      */
657     if (showsw)
658         show_all_messages (cts);
659
660     /* Now free all the structures for the content */
661     for (ctp = cts; *ctp; ctp++)
662         free_content (*ctp);
663
664     free ((char *) cts);
665     cts = NULL;
666
667     /* If reading from a folder, do some updating */
668     if (mp) {
669         context_replace (pfolder, folder);/* update current folder  */
670         seq_setcur (mp, mp->hghsel);      /* update current message */
671         seq_save (mp);                    /* synchronize sequences  */
672         context_save ();                  /* save the context file  */
673     }
674
675     done (0);
676     return 1;
677 }
678
679
680 static void
681 pipeser (int i)
682 {
683     if (i == SIGQUIT) {
684         unlink ("core");
685         fflush (stdout);
686         fprintf (stderr, "\n");
687         fflush (stderr);
688     }
689
690     done (1);
691     /* NOTREACHED */
692 }