xref: /illumos-gate/usr/src/cmd/mailx/cmd1.c (revision 32991bedc3a6475f1401855c2318ae5b15f8a16b)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License, Version 1.0 only
6  * (the "License").  You may not use this file except in compliance
7  * with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 
23 /*
24  * Copyright 2014 Joyent, Inc.
25  */
26 
27 /*
28  * Copyright 2001 Sun Microsystems, Inc.  All rights reserved.
29  * Use is subject to license terms.
30  */
31 
32 /*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
33 /*	  All Rights Reserved  	*/
34 
35 /*
36  * University Copyright- Copyright (c) 1982, 1986, 1988
37  * The Regents of the University of California
38  * All Rights Reserved
39  *
40  * University Acknowledgment- Portions of this document are derived from
41  * software developed by the University of California, Berkeley, and its
42  * contributors.
43  */
44 
45 #include <err.h>
46 #include "rcv.h"
47 #include <locale.h>
48 
49 /*
50  * mailx -- a modified version of a University of California at Berkeley
51  *	mail program
52  *
53  * User commands.
54  */
55 
56 static char	*dispname(char *hdr);
57 static void	print(register struct message *mp, FILE *obuf, int doign);
58 static int	type1(int *msgvec, int doign, int page);
59 static int	topputs(const char *line, FILE *obuf);
60 
61 void	brokpipe(int sig);
62 jmp_buf	pipestop;
63 
64 /*
65  * Print the current active headings.
66  * Don't change dot if invoker didn't give an argument.
67  */
68 
69 static int curscreen = 0, oldscreensize = 0;
70 
71 int
72 headers(int *msgvec)
73 {
74 	register int n, mesg, flag;
75 	register struct message *mp;
76 	int size;
77 
78 	size = screensize();
79 	n = msgvec[0];
80 	if (n != 0)
81 		curscreen = (n-1)/size;
82 	if (curscreen < 0)
83 		curscreen = 0;
84 	mp = &message[curscreen * size];
85 	if (mp >= &message[msgCount])
86 		mp = &message[msgCount - size];
87 	if (mp < &message[0])
88 		mp = &message[0];
89 	flag = 0;
90 	mesg = mp - &message[0];
91 	if (dot != &message[n-1])
92 		dot = mp;
93 	if (Hflag)
94 		mp = message;
95 	for (; mp < &message[msgCount]; mp++) {
96 		mesg++;
97 		if (mp->m_flag & MDELETED)
98 			continue;
99 		if (flag++ >= size && !Hflag)
100 			break;
101 		printhead(mesg);
102 		sreset();
103 	}
104 	if (flag == 0) {
105 		printf(gettext("No more mail.\n"));
106 		return (1);
107 	}
108 	return (0);
109 }
110 
111 /*
112  * Scroll to the next/previous screen
113  */
114 
115 int
116 scroll(char arg[])
117 {
118 	register int s, size;
119 	int cur[1];
120 
121 	cur[0] = 0;
122 	size = screensize();
123 	s = curscreen;
124 	switch (*arg) {
125 	case 0:
126 	case '+':
127 		s++;
128 		if (s * size > msgCount) {
129 			printf(gettext("On last screenful of messages\n"));
130 			return (0);
131 		}
132 		curscreen = s;
133 		break;
134 
135 	case '-':
136 		if (--s < 0) {
137 			printf(gettext("On first screenful of messages\n"));
138 			return (0);
139 		}
140 		curscreen = s;
141 		break;
142 
143 	default:
144 		printf(gettext("Unrecognized scrolling command \"%s\"\n"), arg);
145 		return (1);
146 	}
147 	return (headers(cur));
148 }
149 
150 /*
151  * Compute what the screen size should be.
152  * We use the following algorithm:
153  *	If user specifies with screen option, use that.
154  *	If baud rate < 1200, use  5
155  *	If baud rate = 1200, use 10
156  *	If baud rate > 1200, use 20
157  */
158 int
159 screensize(void)
160 {
161 	register char *cp;
162 	register int newscreensize, tmp;
163 #ifdef	TIOCGWINSZ
164 	struct winsize ws;
165 #endif
166 
167 	if ((cp = value("screen")) != NOSTR && (tmp = atoi(cp)) > 0)
168 		newscreensize = tmp;
169 	else if (baud < B1200)
170 		newscreensize = 5;
171 	else if (baud == B1200)
172 		newscreensize = 10;
173 #ifdef	TIOCGWINSZ
174 	else if (ioctl(fileno(stdout), TIOCGWINSZ, &ws) == 0 && ws.ws_row > 4)
175 		newscreensize = ws.ws_row - 4;
176 #endif
177 	else
178 		newscreensize = 20;
179 	/* renormalize the value of curscreen */
180 	if (newscreensize != oldscreensize) {
181 		curscreen = curscreen * oldscreensize / newscreensize;
182 		oldscreensize = newscreensize;
183 	}
184 	return (newscreensize);
185 }
186 
187 /*
188  * Print out the headlines for each message
189  * in the passed message list.
190  */
191 
192 int
193 from(int *msgvec)
194 {
195 	register int *ip;
196 
197 	for (ip = msgvec; *ip != NULL; ip++) {
198 		printhead(*ip);
199 		sreset();
200 	}
201 	if (--ip >= msgvec)
202 		dot = &message[*ip - 1];
203 	return (0);
204 }
205 
206 /*
207  * Print out the header of a specific message.
208  * This is a slight improvement to the standard one.
209  */
210 
211 void
212 printhead(int mesg)
213 {
214 	struct message *mp;
215 	FILE *ibuf;
216 	char headline[LINESIZE], *subjline, dispc, curind;
217 	char *fromline;
218 	char pbuf[LINESIZE];
219 	char name[LINESIZE];
220 	headline_t *hl;
221 	register char *cp;
222 	int showto;
223 
224 	if (headline_alloc(&hl) != 0) {
225 		err(1, "could not allocate memory");
226 	}
227 
228 	mp = &message[mesg-1];
229 	ibuf = setinput(mp);
230 	readline(ibuf, headline);
231 	if ((subjline = hfield("subject", mp, addone)) == NOSTR &&
232 	    (subjline = hfield("subj", mp, addone)) == NOSTR &&
233 	    (subjline = hfield("message-status", mp, addone)) == NOSTR)
234 		subjline = "";
235 
236 	curind = (!Hflag && dot == mp) ? '>' : ' ';
237 	dispc = ' ';
238 	showto = 0;
239 	if ((mp->m_flag & (MREAD|MNEW)) == (MREAD|MNEW))
240 		dispc = 'R';
241 	if (!(int)value("bsdcompat") && (mp->m_flag & (MREAD|MNEW)) == MREAD)
242 		dispc = 'O';
243 	if ((mp->m_flag & (MREAD|MNEW)) == MNEW)
244 		dispc = 'N';
245 	if ((mp->m_flag & (MREAD|MNEW)) == 0)
246 		dispc = 'U';
247 	if (mp->m_flag & MSAVED)
248 		if ((int)value("bsdcompat"))
249 			dispc = '*';
250 		else
251 			dispc = 'S';
252 	if (mp->m_flag & MPRESERVE)
253 		if ((int)value("bsdcompat"))
254 			dispc = 'P';
255 		else
256 			dispc = 'H';
257 	if (mp->m_flag & MBOX)
258 		dispc = 'M';
259 	if (parse_headline(headline, hl) == -1) {
260 		headline_reset(hl);
261 	}
262 	if (custr_len(hl->hl_date) == 0) {
263 		if (custr_append(hl->hl_date, "<Unknown date>") != 0) {
264 			err(1, "could not print header");
265 		}
266 	}
267 
268 	/*
269 	 * Netnews interface?
270 	 */
271 
272 	if (newsflg) {
273 		if ((fromline = hfield("newsgroups", mp, addone)) == NOSTR &&
274 		    (fromline = hfield("article-id", mp, addone)) == NOSTR)
275 			fromline = "<>";
276 		else
277 			for (cp = fromline; *cp; cp++) { /* limit length */
278 				if (any(*cp, " ,\n")) {
279 					*cp = '\0';
280 					break;
281 				}
282 			}
283 	/*
284 	 * else regular.
285 	 */
286 
287 	} else {
288 		fromline = nameof(mp);
289 		if (value("showto") &&
290 		    samebody(myname, skin(fromline), FALSE) &&
291 		    (cp = hfield("to", mp, addto))) {
292 			showto = 1;
293 			yankword(cp, fromline = name, sizeof (name),
294 				docomma(cp));
295 		}
296 		if (value("showname"))
297 			fromline = dispname(fromline);
298 		else
299 			fromline = skin(fromline);
300 	}
301 	printf("%c%c%3d ", curind, dispc, mesg);
302 	if ((int)value("showfull")) {
303 		if (showto)
304 			printf("To %-15s ", fromline);
305 		else
306 			printf("%-18s ", fromline);
307 	} else {
308 		if (showto)
309 			printf("To %-15.15s ", fromline);
310 		else
311 			printf("%-18.18s ", fromline);
312 	}
313 	if (mp->m_text) {
314 		printf("%16.16s %4ld/%-5ld %-.25s\n",
315 		    custr_cstr(hl->hl_date), mp->m_lines, mp->m_size,
316 		    subjline);
317 	} else {
318 		printf("%16.16s binary/%-5ld %-.25s\n", custr_cstr(hl->hl_date),
319 		    mp->m_size, subjline);
320 	}
321 
322 	headline_free(hl);
323 }
324 
325 /*
326  * Return the full name from an RFC-822 header line
327  * or the last two (or one) component of the address.
328  */
329 
330 static char *
331 dispname(char *hdr)
332 {
333 	char *cp, *cp2;
334 
335 	if (hdr == 0)
336 		return (0);
337 	if (((cp = strchr(hdr, '<')) != 0) && (cp > hdr)) {
338 		*cp = 0;
339 		if ((*hdr == '"') && ((cp = strrchr(++hdr, '"')) != 0))
340 			*cp = 0;
341 		return (hdr);
342 	} else if ((cp = strchr(hdr, '(')) != 0) {
343 		hdr = ++cp;
344 		if ((cp = strchr(hdr, '+')) != 0)
345 			*cp = 0;
346 		if ((cp = strrchr(hdr, ')')) != 0)
347 			*cp = 0;
348 		return (hdr);
349 	}
350 	cp = skin(hdr);
351 	if ((cp2 = strrchr(cp, '!')) != 0) {
352 		while (cp2 >= cp && *--cp2 != '!');
353 		cp = ++cp2;
354 	}
355 	return (cp);
356 }
357 
358 /*
359  * Print out the value of dot.
360  */
361 
362 int
363 pdot(void)
364 {
365 	printf("%d\n", dot - &message[0] + 1);
366 	return (0);
367 }
368 
369 /*
370  * Print out all the possible commands.
371  */
372 
373 int
374 pcmdlist(void)
375 {
376 	register const struct cmd *cp;
377 	register int cc;
378 
379 	printf("Commands are:\n");
380 	for (cc = 0, cp = cmdtab; cp->c_name != NULL; cp++) {
381 		cc += strlen(cp->c_name) + 2;
382 		if (cc > 72) {
383 			printf("\n");
384 			cc = strlen(cp->c_name) + 2;
385 		}
386 		if ((cp+1)->c_name != NOSTR)
387 			printf("%s, ", cp->c_name);
388 		else
389 			printf("%s\n", cp->c_name);
390 	}
391 	return (0);
392 }
393 
394 /*
395  * Paginate messages, honor ignored fields.
396  */
397 int
398 more(int *msgvec)
399 {
400 	return (type1(msgvec, 1, 1));
401 }
402 
403 /*
404  * Paginate messages, even printing ignored fields.
405  */
406 int
407 More(int *msgvec)
408 {
409 
410 	return (type1(msgvec, 0, 1));
411 }
412 
413 /*
414  * Type out messages, honor ignored fields.
415  */
416 int
417 type(int *msgvec)
418 {
419 
420 	return (type1(msgvec, 1, 0));
421 }
422 
423 /*
424  * Type out messages, even printing ignored fields.
425  */
426 int
427 Type(int *msgvec)
428 {
429 
430 	return (type1(msgvec, 0, 0));
431 }
432 
433 /*
434  * Type out the messages requested.
435  */
436 static int
437 type1(int *msgvec, int doign, int page)
438 {
439 	int *ip;
440 	register struct message *mp;
441 	register int mesg;
442 	register char *cp;
443 	long nlines;
444 	FILE *obuf;
445 	void (*sigint)(int), (*sigpipe)(int);
446 	int setsigs = 0;
447 
448 	obuf = stdout;
449 	if (setjmp(pipestop)) {
450 		if (obuf != stdout) {
451 			pipef = NULL;
452 			npclose(obuf);
453 		}
454 		goto ret0;
455 	}
456 	if (intty && outtty && (page || (cp = value("crt")) != NOSTR)) {
457 		if (!page) {
458 			nlines = 0;
459 			for (ip = msgvec, nlines = 0;
460 			    *ip && ip-msgvec < msgCount; ip++)
461 				nlines += message[*ip - 1].m_lines;
462 		}
463 		if (page ||
464 		    nlines > (*cp == '\0' ? screensize() - 2 : atoi(cp))) {
465 			obuf = npopen(MORE, "w");
466 			if (obuf == NULL) {
467 				perror(MORE);
468 				obuf = stdout;
469 			} else {
470 				pipef = obuf;
471 				sigint = sigset(SIGINT, SIG_IGN);
472 				sigpipe = sigset(SIGPIPE, brokpipe);
473 				setsigs++;
474 			}
475 		}
476 	}
477 	for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++) {
478 		mesg = *ip;
479 		touch(mesg);
480 		mp = &message[mesg-1];
481 		dot = mp;
482 		print(mp, obuf, doign);
483 	}
484 	if (obuf != stdout) {
485 		pipef = NULL;
486 		npclose(obuf);
487 	}
488 ret0:
489 	if (setsigs) {
490 		sigset(SIGPIPE, sigpipe);
491 		sigset(SIGINT, sigint);
492 	}
493 	return (0);
494 }
495 
496 /*
497  * Respond to a broken pipe signal --
498  * probably caused by user quitting more.
499  */
500 void
501 #ifdef	__cplusplus
502 brokpipe(int)
503 #else
504 /* ARGSUSED */
505 brokpipe(int s)
506 #endif
507 {
508 #ifdef OLD_BSD_SIGS
509 	sigrelse(SIGPIPE);
510 #endif
511 	longjmp(pipestop, 1);
512 }
513 
514 /*
515  * Print the indicated message on standard output.
516  */
517 
518 static void
519 print(register struct message *mp, FILE *obuf, int doign)
520 {
521 
522 	if (value("quiet") == NOSTR && (!doign || !isign("message", 0)))
523 		fprintf(obuf, "Message %2d:\n", mp - &message[0] + 1);
524 	touch(mp - &message[0] + 1);
525 	if (mp->m_text) {
526 		(void) msend(mp, obuf, doign ? M_IGNORE : 0, fputs);
527 	} else {
528 		fprintf(obuf, "\n%s\n", gettext(binmsg));
529 	}
530 }
531 
532 /*
533  * Print the top so many lines of each desired message.
534  * The number of lines is taken from the variable "toplines"
535  * and defaults to 5.
536  */
537 
538 static	long	top_linecount, top_maxlines, top_lineb;
539 static	jmp_buf	top_buf;
540 
541 int
542 top(int *msgvec)
543 {
544 	register int *ip;
545 	register struct message *mp;
546 	register int mesg;
547 	char *valtop;
548 
549 	top_maxlines = 5;
550 	valtop = value("toplines");
551 	if (valtop != NOSTR) {
552 		top_maxlines = atoi(valtop);
553 		if (top_maxlines < 0 || top_maxlines > 10000)
554 			top_maxlines = 5;
555 	}
556 	top_lineb = 1;
557 	for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++) {
558 		mesg = *ip;
559 		touch(mesg);
560 		mp = &message[mesg-1];
561 		dot = mp;
562 		if (value("quiet") == NOSTR)
563 			printf("Message %2d:\n", mesg);
564 		if (!top_lineb)
565 			printf("\n");
566 		top_linecount = 0;
567 		if (setjmp(top_buf) == 0) {
568 			if (mp->m_text) {
569 				(void) msend(mp, stdout, M_IGNORE, topputs);
570 			} else {
571 				printf("\n%s\n", gettext(binmsg));
572 			}
573 		}
574 	}
575 	return (0);
576 }
577 
578 int
579 topputs(const char *line, FILE *obuf)
580 {
581 	if (top_linecount++ >= top_maxlines)
582 		longjmp(top_buf, 1);
583 	top_lineb = blankline(line);
584 	return (fputs(line, obuf));
585 }
586 
587 /*
588  * Touch all the given messages so that they will
589  * get mboxed.
590  */
591 
592 int
593 stouch(int msgvec[])
594 {
595 	register int *ip;
596 
597 	for (ip = msgvec; *ip != 0; ip++) {
598 		dot = &message[*ip-1];
599 		dot->m_flag |= MTOUCH;
600 		dot->m_flag &= ~MPRESERVE;
601 	}
602 	return (0);
603 }
604 
605 /*
606  * Make sure all passed messages get mboxed.
607  */
608 
609 int
610 mboxit(int msgvec[])
611 {
612 	register int *ip;
613 
614 	for (ip = msgvec; *ip != 0; ip++) {
615 		dot = &message[*ip-1];
616 		dot->m_flag |= MTOUCH|MBOX;
617 		dot->m_flag &= ~MPRESERVE;
618 	}
619 	return (0);
620 }
621 
622 /*
623  * List the folders the user currently has.
624  */
625 int
626 folders(char **arglist)
627 {
628 	char dirname[BUFSIZ], cmd[BUFSIZ];
629 
630 	if (getfold(dirname) < 0) {
631 		printf(gettext("No value set for \"folder\"\n"));
632 		return (-1);
633 	}
634 	if (*arglist) {
635 		nstrcat(dirname, sizeof (dirname), "/");
636 		nstrcat(dirname, sizeof (dirname), *arglist);
637 	}
638 	snprintf(cmd, sizeof (cmd), "%s %s", LS, dirname);
639 	return (system(cmd));
640 }
641