2 ** mhshowsbr.c -- routines to display the contents of MIME messages
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.
11 #include <h/signals.h>
19 #include <h/mhparse.h>
22 #ifdef HAVE_SYS_WAIT_H
23 # include <sys/wait.h>
27 ** Just use sigjmp/longjmp on older machines that
28 ** don't have sigsetjmp/siglongjmp.
30 #ifndef HAVE_SIGSETJMP
31 # define sigjmp_buf jmp_buf
32 # define sigsetjmp(env,mask) setjmp(env)
33 # define siglongjmp(env,val) longjmp(env,val)
44 /* flags for moreproc/header display */
50 static sigjmp_buf intrenv;
54 int SOprintf(char *, ...);
62 void content_error(char *, CT, char *, ...);
63 void flush_errors(void);
66 int list_switch(CT, int, int, int, int);
67 int list_content(CT, int, int, int, int);
72 void show_all_messages(CT *);
73 int show_content_aux(CT, int, int, char *, char *);
78 static void show_single_message(CT, char *);
79 static void DisplayMsgHeader(CT, char *);
80 static int show_switch(CT, int, int);
81 static int show_content(CT, int, int);
82 static int show_content_aux2(CT, int, int, char *, char *,
83 int, int, int, int, int);
84 static int show_text(CT, int, int);
85 static int show_multi(CT, int, int);
86 static int show_multi_internal(CT, int, int);
87 static int show_multi_aux(CT, int, int, char *);
88 static int show_message_rfc822(CT, int, int);
89 static int show_partial(CT, int, int);
90 static int show_external(CT, int, int);
91 static RETSIGTYPE intrser(int);
95 ** Top level entry point to show/display a group of messages
99 show_all_messages(CT *cts)
104 ** If form is not specified, then get default form
105 ** for showing headers of MIME messages.
108 formsw = getcpy(etcpath("mhl.headers"));
111 ** If form is "mhl.null", suppress display of header.
113 if (!strcmp(formsw, "mhl.null"))
116 for (ctp = cts; *ctp; ctp++) {
119 /* if top-level type is ok, then display message */
121 show_single_message(ct, formsw);
127 ** Entry point to show/display a single message
131 show_single_message(CT ct, char *form)
135 #ifdef HAVE_UNION_WAIT
142 ** Allow user executable bit so that temporary directories created by
143 ** the viewer (e.g., lynx) are going to be accessible
145 umask(ct->c_umask & ~(0100));
148 ** If you have a format file, then display
149 ** the message headers.
152 DisplayMsgHeader(ct, form);
156 /* Show the body of the message */
157 show_switch(ct, 1, 0);
163 if (ct->c_ceclosefnx)
164 (*ct->c_ceclosefnx) (ct);
166 /* block a few signals */
168 sigaddset(&set, SIGHUP);
169 sigaddset(&set, SIGINT);
170 sigaddset(&set, SIGQUIT);
171 sigaddset(&set, SIGTERM);
172 SIGPROCMASK(SIG_BLOCK, &set, &oset);
174 while (wait(&status) != NOTOK) {
175 #ifdef HAVE_UNION_WAIT
176 pidcheck(status.w_status);
183 /* reset the signal mask */
184 SIGPROCMASK(SIG_SETMASK, &oset, &set);
192 ** Use the mhlproc to show the header fields
196 DisplayMsgHeader(CT ct, char *form)
203 vec[vecp++] = mhbasename(mhlproc);
204 vec[vecp++] = "-form";
206 vec[vecp++] = "-nobody";
207 vec[vecp++] = ct->c_file;
210 ** If we've specified -(no)moreproc,
211 ** then just pass that along.
214 vec[vecp++] = "-nomoreproc";
216 vec[vecp++] = "-moreproc";
217 vec[vecp++] = progsw;
223 for (i = 0; (child_id = fork()) == NOTOK && i < 5; i++)
228 adios("fork", "unable to");
232 execvp(mhlproc, vec);
233 fprintf(stderr, "unable to exec ");
246 ** Switching routine. Call the correct routine
247 ** based on content type.
251 show_switch(CT ct, int serial, int alternate)
253 switch (ct->c_type) {
255 return show_multi(ct, serial, alternate);
259 switch (ct->c_subtype) {
260 case MESSAGE_PARTIAL:
261 return show_partial(ct, serial, alternate);
264 case MESSAGE_EXTERNAL:
265 return show_external(ct, serial, alternate);
270 return show_message_rfc822(ct, serial,
277 return show_text(ct, serial, alternate);
284 return show_content(ct, serial, alternate);
288 adios(NULL, "unknown content type %d", ct->c_type);
292 return 0; /* NOT REACHED */
297 ** Generic method for displaying content
301 show_content(CT ct, int serial, int alternate)
303 char *cp, buffer[BUFSIZ];
304 CI ci = &ct->c_ctinfo;
306 /* Check for mhshow-show-type/subtype */
307 snprintf(buffer, sizeof(buffer), "%s-show-%s/%s",
308 invo_name, ci->ci_type, ci->ci_subtype);
309 if ((cp = context_find(buffer)) && *cp != '\0')
310 return show_content_aux(ct, serial, alternate, cp, NULL);
312 /* Check for mhshow-show-type */
313 snprintf(buffer, sizeof(buffer), "%s-show-%s", invo_name, ci->ci_type);
314 if ((cp = context_find(buffer)) && *cp != '\0')
315 return show_content_aux(ct, serial, alternate, cp, NULL);
317 if ((cp = ct->c_showproc))
318 return show_content_aux(ct, serial, alternate, cp, NULL);
320 /* complain if we are not a part of a multipart/alternative */
322 content_error(NULL, ct, "don't know how to display content");
329 ** Parse the display string for displaying generic content
333 show_content_aux(CT ct, int serial, int alternate, char *cp, char *cracked)
335 int fd, len, buflen, quoted;
336 int xstdin, xlist, xpause, xtty;
337 char *bp, *pp, *file, buffer[BUFSIZ];
338 CI ci = &ct->c_ctinfo;
340 if (!ct->c_ceopenfnx) {
342 content_error(NULL, ct,
343 "don't know how to decode content");
349 if ((fd = (*ct->c_ceopenfnx) (ct, &file)) == NOTOK)
351 if (ct->c_showproc && !strcmp(ct->c_showproc, "true"))
352 return (alternate ? DONE : OK);
360 strncpy(buffer, cp, sizeof(buffer));
364 /* get buffer ready to go */
366 buflen = sizeof(buffer) - 1;
367 bp[0] = bp[buflen] = '\0';
370 /* Now parse display string */
371 for ( ; *cp && buflen > 0; cp++) {
377 /* insert parameters from Content-Type field */
382 for (ap = ci->ci_attrs, ep = ci->ci_values;
384 snprintf(bp, buflen, "%s%s=\"%s\"",
395 /* insert content description */
399 s = trimcpy(ct->c_descr);
400 strncpy(bp, s, buflen);
406 /* exclusive execution */
411 /* %e, %f, and stdin is terminal not content */
417 /* insert filename containing content */
418 snprintf(bp, buflen, "'%s'", file);
420 ** since we've quoted the file argument,
421 ** set things up to look past it, to avoid
422 ** problems with the quoting logic below.
423 ** (I know, I should figure out what's
424 ** broken with the quoting logic, but..)
433 /* %l, and pause prior to displaying content */
439 ** display listing prior to displaying content
445 /* insert subtype of content */
446 strncpy(bp, ci->ci_subtype, buflen);
450 /* insert character % */
463 /* Did we actually insert something? */
466 ** Insert single quote if not inside quotes
469 if (!quoted && buflen) {
471 memmove(pp + 1, pp, len);
476 /* Escape existing quotes */
477 while ((pp = strchr(pp, '\'')) && buflen > 3) {
479 memmove(pp + 3, pp, len);
487 ** If pp is still set, that means we ran
492 if (!quoted && buflen) {
509 if (buflen <= 0 || (ct->c_termproc && buflen <= strlen(ct->c_termproc))) {
511 ** content_error would provide a more useful error message
512 ** here, except that if we got overrun, it probably would
515 fprintf(stderr, "Buffer overflow constructing show command!\n");
519 /* use charset string to modify display method */
520 if (ct->c_termproc) {
523 strncpy(term, buffer, sizeof(term));
524 snprintf(buffer, sizeof(buffer), ct->c_termproc, term);
528 return show_content_aux2(ct, serial, alternate, cracked, buffer,
529 fd, xlist, xpause, xstdin, xtty);
534 ** Routine to actually display the content
538 show_content_aux2(CT ct, int serial, int alternate, char *cracked,
539 char *buffer, int fd, int xlist, int xpause, int xstdin, int xtty)
543 char *vec[4], exec[BUFSIZ + sizeof "exec "];
545 if (debugsw || cracked) {
548 fprintf(stderr, "%s msg %s", cracked ? "storing" : "show",
551 fprintf(stderr, " part %s", ct->c_partno);
553 fprintf(stderr, " using command (cd %s; %s)\n",
556 fprintf(stderr, " using command %s\n", buffer);
559 if (xpid < 0 || (xtty && xpid)) {
562 pidcheck(pidwait(xpid, NOTOK));
569 if (ct->c_type == CT_MULTIPART)
570 list_content(ct, -1, 1, 0, 0);
572 list_switch(ct, -1, 1, 0, 0);
574 if (xpause && SOprintf("Press <return> to show content..."))
575 printf("Press <return> to show content...");
579 SIGNAL_HANDLER istat;
581 istat = SIGNAL(SIGINT, intrser);
582 if ((intr = sigsetjmp(intrenv, 1)) == OK) {
585 read(fileno(stdout), prompt, sizeof(prompt));
587 SIGNAL(SIGINT, istat);
588 if (intr != OK || prompt[0] == 'n') {
589 (*ct->c_ceclosefnx) (ct);
590 return (alternate ? DONE : NOTOK);
592 if (prompt[0] == 'q') done(OK);
596 snprintf(exec, sizeof(exec), "exec %s", buffer);
605 for (i = 0; (child_id = fork()) == NOTOK && i < 5; i++)
609 advise("fork", "unable to");
610 (*ct->c_ceclosefnx) (ct);
619 execvp("/bin/sh", vec);
620 fprintf(stderr, "unable to exec ");
627 ct->c_pid = child_id;
631 pidcheck(pidXwait(child_id, NULL));
635 (*ct->c_ceclosefnx) (ct);
636 return (alternate ? DONE : OK);
642 ** show content of type "text"
646 show_text(CT ct, int serial, int alternate)
648 char *cp, buffer[BUFSIZ];
649 CI ci = &ct->c_ctinfo;
651 /* Check for mhshow-show-type/subtype */
652 snprintf(buffer, sizeof(buffer), "%s-show-%s/%s",
653 invo_name, ci->ci_type, ci->ci_subtype);
654 if ((cp = context_find(buffer)) && *cp != '\0')
655 return show_content_aux(ct, serial, alternate, cp, NULL);
657 /* Check for mhshow-show-type */
658 snprintf(buffer, sizeof(buffer), "%s-show-%s", invo_name, ci->ci_type);
659 if ((cp = context_find(buffer)) && *cp != '\0')
660 return show_content_aux(ct, serial, alternate, cp, NULL);
663 ** Use default method if content is text/plain, or if
664 ** if it is not a text part of a multipart/alternative
666 if (!alternate || ct->c_subtype == TEXT_PLAIN) {
667 snprintf(buffer, sizeof(buffer), "%%p%s '%%F'",
668 progsw ? progsw : moreproc && *moreproc ?
670 cp = (ct->c_showproc = getcpy(buffer));
671 return show_content_aux(ct, serial, alternate, cp, NULL);
679 ** show message body of type "multipart"
683 show_multi(CT ct, int serial, int alternate)
685 char *cp, buffer[BUFSIZ];
686 CI ci = &ct->c_ctinfo;
688 /* Check for mhshow-show-type/subtype */
689 snprintf(buffer, sizeof(buffer), "%s-show-%s/%s",
690 invo_name, ci->ci_type, ci->ci_subtype);
691 if ((cp = context_find(buffer)) && *cp != '\0')
692 return show_multi_aux(ct, serial, alternate, cp);
694 /* Check for mhshow-show-type */
695 snprintf(buffer, sizeof(buffer), "%s-show-%s", invo_name, ci->ci_type);
696 if ((cp = context_find(buffer)) && *cp != '\0')
697 return show_multi_aux(ct, serial, alternate, cp);
699 if ((cp = ct->c_showproc))
700 return show_multi_aux(ct, serial, alternate, cp);
703 ** Use default method to display this multipart content
704 ** if it is not a (nested) part of a multipart/alternative,
705 ** or if it is one of the known subtypes of multipart.
707 if (!alternate || ct->c_subtype != MULTI_UNKNOWN)
708 return show_multi_internal(ct, serial, alternate);
715 ** show message body of subtypes of multipart that
716 ** we understand directly (mixed, alternate, etc...)
720 show_multi_internal(CT ct, int serial, int alternate)
722 int alternating, nowalternate, nowserial, result;
723 struct multipart *m = (struct multipart *) ct->c_ctparams;
729 nowalternate = alternate;
731 if (ct->c_subtype == MULTI_PARALLEL) {
732 nowserial = serialsw;
733 } else if (ct->c_subtype == MULTI_ALTERNATE) {
741 ** unknown subtypes of multipart (treat as mixed per rfc2046)
746 /* block a few signals */
749 sigaddset(&set, SIGHUP);
750 sigaddset(&set, SIGINT);
751 sigaddset(&set, SIGQUIT);
752 sigaddset(&set, SIGTERM);
753 SIGPROCMASK(SIG_BLOCK, &set, &oset);
757 ** alternate -> we are a part inside an multipart/alternative
758 ** alternating -> we are a multipart/alternative
761 result = alternate ? NOTOK : OK;
763 for (part = m->mp_parts; part; part = part->mp_next) {
766 if (part_ok(p, 0) && type_ok(p, 0)) {
769 inneresult = show_switch(p, nowserial, nowalternate);
770 switch (inneresult) {
772 if (alternate && !alternating) {
785 alternate = nowalternate = 0;
795 if (alternating && !part) {
797 content_error(NULL, ct, "don't know how to display any of the contents");
802 if (serial && !nowserial) {
805 #ifdef HAVE_UNION_WAIT
812 for (part = m->mp_parts; part; part = part->mp_next) {
816 if (kill(p->c_pid, 0) == NOTOK)
823 while (kids > 0 && (pid = wait(&status)) != NOTOK) {
824 #ifdef HAVE_UNION_WAIT
825 pidcheck(status.w_status);
830 for (part = m->mp_parts; part; part = part->mp_next) {
835 if (p->c_pid == pid) {
846 /* reset the signal mask */
847 SIGPROCMASK(SIG_SETMASK, &oset, &set);
855 ** Parse display string for multipart content
856 ** and use external program to display it.
860 show_multi_aux(CT ct, int serial, int alternate, char *cp)
862 int len, buflen, quoted;
863 int xlist, xpause, xtty;
864 char *bp, *pp, *file, buffer[BUFSIZ];
865 struct multipart *m = (struct multipart *) ct->c_ctparams;
867 CI ci = &ct->c_ctinfo;
870 for (part = m->mp_parts; part; part = part->mp_next) {
873 if (!p->c_ceopenfnx) {
875 content_error(NULL, p, "don't know how to decode content");
879 if (p->c_storage == NULL) {
881 if ((*p->c_ceopenfnx) (p, &file) == NOTOK)
884 /* I'm not sure if this is necessary? */
885 p->c_storage = getcpy(file);
887 if (p->c_showproc && !strcmp(p->c_showproc, "true"))
888 return (alternate ? DONE : OK);
889 (*p->c_ceclosefnx) (p);
897 /* get buffer ready to go */
899 buflen = sizeof(buffer) - 1;
900 bp[0] = bp[buflen] = '\0';
903 /* Now parse display string */
904 for ( ; *cp && buflen > 0; cp++) {
909 /* insert parameters from Content-Type field */
914 for (ap = ci->ci_attrs, ep = ci->ci_values;
916 snprintf(bp, buflen, "%s%s=\"%s\"",
927 /* insert content description */
931 s = trimcpy(ct->c_descr);
932 strncpy(bp, s, buflen);
938 /* exclusive execution */
948 /* insert filename(s) containing content */
952 for (part = m->mp_parts; part;
953 part = part->mp_next) {
956 snprintf(bp, buflen, "%s'%s'",
964 ** set our starting pointer back to bp,
965 ** to avoid requoting the filenames we
973 /* %l, and pause prior to displaying content */
979 ** display listing prior to displaying content
985 /* insert subtype of content */
986 strncpy(bp, ci->ci_subtype, buflen);
990 /* insert character % */
1003 /* Did we actually insert something? */
1006 ** Insert single quote if not inside quotes
1009 if (!quoted && buflen) {
1011 memmove(pp + 1, pp, len);
1016 /* Escape existing quotes */
1017 while ((pp = strchr(pp, '\'')) && buflen > 3) {
1019 memmove(pp + 3, pp, len);
1027 ** If pp is still set, that means we ran
1032 if (!quoted && buflen) {
1050 (ct->c_termproc && buflen <= strlen(ct->c_termproc))) {
1052 ** content_error would provide a more useful error message
1053 ** here, except that if we got overrun, it probably would
1056 fprintf(stderr, "Buffer overflow constructing show command!\n");
1060 /* use charset string to modify display method */
1061 if (ct->c_termproc) {
1064 strncpy(term, buffer, sizeof(term));
1065 snprintf(buffer, sizeof(buffer), ct->c_termproc, term);
1068 return show_content_aux2(ct, serial, alternate, NULL, buffer,
1069 NOTOK, xlist, xpause, 0, xtty);
1074 ** show content of type "message/rfc822"
1078 show_message_rfc822(CT ct, int serial, int alternate)
1080 char *cp, buffer[BUFSIZ];
1081 CI ci = &ct->c_ctinfo;
1083 /* Check for mhshow-show-type/subtype */
1084 snprintf(buffer, sizeof(buffer), "%s-show-%s/%s",
1085 invo_name, ci->ci_type, ci->ci_subtype);
1086 if ((cp = context_find(buffer)) && *cp != '\0')
1087 return show_content_aux(ct, serial, alternate, cp, NULL);
1089 /* Check for mhshow-show-type */
1090 snprintf(buffer, sizeof(buffer), "%s-show-%s", invo_name, ci->ci_type);
1091 if ((cp = context_find(buffer)) && *cp != '\0')
1092 return show_content_aux(ct, serial, alternate, cp, NULL);
1094 if ((cp = ct->c_showproc))
1095 return show_content_aux(ct, serial, alternate, cp, NULL);
1097 /* default method for message/rfc822 */
1098 if (ct->c_subtype == MESSAGE_RFC822) {
1099 cp = (ct->c_showproc = getcpy("%pshow -file '%F'"));
1100 return show_content_aux(ct, serial, alternate, cp, NULL);
1103 /* complain if we are not a part of a multipart/alternative */
1105 content_error(NULL, ct, "don't know how to display content");
1112 ** Show content of type "message/partial".
1116 show_partial(CT ct, int serial, int alternate)
1118 content_error(NULL, ct,
1119 "in order to display this message, you must reassemble it");
1125 ** Show content of type "message/external".
1127 ** THE ERROR CHECKING IN THIS ONE IS NOT DONE YET.
1131 show_external(CT ct, int serial, int alternate)
1133 struct exbody *e = (struct exbody *) ct->c_ctparams;
1134 CT p = e->eb_content;
1139 return show_switch(p, serial, alternate);
1142 content_error(NULL, p, "don't know how to display content");
1151 #ifndef RELIABLE_SIGNALS
1152 SIGNAL(SIGINT, intrser);
1156 siglongjmp(intrenv, DONE);