Home | History | Annotate | Line # | Download | only in mail
cmd1.c revision 1.1.1.2 
      1 /*-
      2  * Copyright (c) 1980, 1993
      3  *	The Regents of the University of California.  All rights reserved.
      4  *
      5  * Redistribution and use in source and binary forms, with or without
      6  * modification, are permitted provided that the following conditions
      7  * are met:
      8  * 1. Redistributions of source code must retain the above copyright
      9  *    notice, this list of conditions and the following disclaimer.
     10  * 2. Redistributions in binary form must reproduce the above copyright
     11  *    notice, this list of conditions and the following disclaimer in the
     12  *    documentation and/or other materials provided with the distribution.
     13  * 3. All advertising materials mentioning features or use of this software
     14  *    must display the following acknowledgement:
     15  *	This product includes software developed by the University of
     16  *	California, Berkeley and its contributors.
     17  * 4. Neither the name of the University nor the names of its contributors
     18  *    may be used to endorse or promote products derived from this software
     19  *    without specific prior written permission.
     20  *
     21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     31  * SUCH DAMAGE.
     32  */
     33 
     34 #ifndef lint
     35 static char sccsid[] = "@(#)cmd1.c	8.1 (Berkeley) 6/6/93";
     36 #endif /* not lint */
     37 
     38 #include "rcv.h"
     39 #include "extern.h"
     40 
     41 /*
     42  * Mail -- a mail program
     43  *
     44  * User commands.
     45  */
     46 
     47 /*
     48  * Print the current active headings.
     49  * Don't change dot if invoker didn't give an argument.
     50  */
     51 
     52 static int screen;
     53 
     54 int
     55 headers(msgvec)
     56 	int *msgvec;
     57 {
     58 	register int n, mesg, flag;
     59 	register struct message *mp;
     60 	int size;
     61 
     62 	size = screensize();
     63 	n = msgvec[0];
     64 	if (n != 0)
     65 		screen = (n-1)/size;
     66 	if (screen < 0)
     67 		screen = 0;
     68 	mp = &message[screen * size];
     69 	if (mp >= &message[msgCount])
     70 		mp = &message[msgCount - size];
     71 	if (mp < &message[0])
     72 		mp = &message[0];
     73 	flag = 0;
     74 	mesg = mp - &message[0];
     75 	if (dot != &message[n-1])
     76 		dot = mp;
     77 	for (; mp < &message[msgCount]; mp++) {
     78 		mesg++;
     79 		if (mp->m_flag & MDELETED)
     80 			continue;
     81 		if (flag++ >= size)
     82 			break;
     83 		printhead(mesg);
     84 	}
     85 	if (flag == 0) {
     86 		printf("No more mail.\n");
     87 		return(1);
     88 	}
     89 	return(0);
     90 }
     91 
     92 /*
     93  * Scroll to the next/previous screen
     94  */
     95 int
     96 scroll(arg)
     97 	char arg[];
     98 {
     99 	register int s, size;
    100 	int cur[1];
    101 
    102 	cur[0] = 0;
    103 	size = screensize();
    104 	s = screen;
    105 	switch (*arg) {
    106 	case 0:
    107 	case '+':
    108 		s++;
    109 		if (s * size > msgCount) {
    110 			printf("On last screenful of messages\n");
    111 			return(0);
    112 		}
    113 		screen = s;
    114 		break;
    115 
    116 	case '-':
    117 		if (--s < 0) {
    118 			printf("On first screenful of messages\n");
    119 			return(0);
    120 		}
    121 		screen = s;
    122 		break;
    123 
    124 	default:
    125 		printf("Unrecognized scrolling command \"%s\"\n", arg);
    126 		return(1);
    127 	}
    128 	return(headers(cur));
    129 }
    130 
    131 /*
    132  * Compute screen size.
    133  */
    134 int
    135 screensize()
    136 {
    137 	int s;
    138 	char *cp;
    139 
    140 	if ((cp = value("screen")) != NOSTR && (s = atoi(cp)) > 0)
    141 		return s;
    142 	return screenheight - 4;
    143 }
    144 
    145 /*
    146  * Print out the headlines for each message
    147  * in the passed message list.
    148  */
    149 int
    150 from(msgvec)
    151 	int *msgvec;
    152 {
    153 	register int *ip;
    154 
    155 	for (ip = msgvec; *ip != NULL; ip++)
    156 		printhead(*ip);
    157 	if (--ip >= msgvec)
    158 		dot = &message[*ip - 1];
    159 	return(0);
    160 }
    161 
    162 /*
    163  * Print out the header of a specific message.
    164  * This is a slight improvement to the standard one.
    165  */
    166 void
    167 printhead(mesg)
    168 	int mesg;
    169 {
    170 	struct message *mp;
    171 	char headline[LINESIZE], wcount[LINESIZE], *subjline, dispc, curind;
    172 	char pbuf[BUFSIZ];
    173 	struct headline hl;
    174 	int subjlen;
    175 	char *name;
    176 
    177 	mp = &message[mesg-1];
    178 	(void) readline(setinput(mp), headline, LINESIZE);
    179 	if ((subjline = hfield("subject", mp)) == NOSTR)
    180 		subjline = hfield("subj", mp);
    181 	/*
    182 	 * Bletch!
    183 	 */
    184 	curind = dot == mp ? '>' : ' ';
    185 	dispc = ' ';
    186 	if (mp->m_flag & MSAVED)
    187 		dispc = '*';
    188 	if (mp->m_flag & MPRESERVE)
    189 		dispc = 'P';
    190 	if ((mp->m_flag & (MREAD|MNEW)) == MNEW)
    191 		dispc = 'N';
    192 	if ((mp->m_flag & (MREAD|MNEW)) == 0)
    193 		dispc = 'U';
    194 	if (mp->m_flag & MBOX)
    195 		dispc = 'M';
    196 	parse(headline, &hl, pbuf);
    197 	sprintf(wcount, "%3d/%-5ld", mp->m_lines, mp->m_size);
    198 	subjlen = screenwidth - 50 - strlen(wcount);
    199 	name = value("show-rcpt") != NOSTR ?
    200 		skin(hfield("to", mp)) : nameof(mp, 0);
    201 	if (subjline == NOSTR || subjlen < 0)		/* pretty pathetic */
    202 		printf("%c%c%3d %-20.20s  %16.16s %s\n",
    203 			curind, dispc, mesg, name, hl.l_date, wcount);
    204 	else
    205 		printf("%c%c%3d %-20.20s  %16.16s %s \"%.*s\"\n",
    206 			curind, dispc, mesg, name, hl.l_date, wcount,
    207 			subjlen, subjline);
    208 }
    209 
    210 /*
    211  * Print out the value of dot.
    212  */
    213 int
    214 pdot()
    215 {
    216 	printf("%d\n", dot - &message[0] + 1);
    217 	return(0);
    218 }
    219 
    220 /*
    221  * Print out all the possible commands.
    222  */
    223 int
    224 pcmdlist()
    225 {
    226 	register struct cmd *cp;
    227 	register int cc;
    228 	extern struct cmd cmdtab[];
    229 
    230 	printf("Commands are:\n");
    231 	for (cc = 0, cp = cmdtab; cp->c_name != NULL; cp++) {
    232 		cc += strlen(cp->c_name) + 2;
    233 		if (cc > 72) {
    234 			printf("\n");
    235 			cc = strlen(cp->c_name) + 2;
    236 		}
    237 		if ((cp+1)->c_name != NOSTR)
    238 			printf("%s, ", cp->c_name);
    239 		else
    240 			printf("%s\n", cp->c_name);
    241 	}
    242 	return(0);
    243 }
    244 
    245 /*
    246  * Paginate messages, honor ignored fields.
    247  */
    248 int
    249 more(msgvec)
    250 	int *msgvec;
    251 {
    252 	return (type1(msgvec, 1, 1));
    253 }
    254 
    255 /*
    256  * Paginate messages, even printing ignored fields.
    257  */
    258 int
    259 More(msgvec)
    260 	int *msgvec;
    261 {
    262 
    263 	return (type1(msgvec, 0, 1));
    264 }
    265 
    266 /*
    267  * Type out messages, honor ignored fields.
    268  */
    269 int
    270 type(msgvec)
    271 	int *msgvec;
    272 {
    273 
    274 	return(type1(msgvec, 1, 0));
    275 }
    276 
    277 /*
    278  * Type out messages, even printing ignored fields.
    279  */
    280 int
    281 Type(msgvec)
    282 	int *msgvec;
    283 {
    284 
    285 	return(type1(msgvec, 0, 0));
    286 }
    287 
    288 /*
    289  * Type out the messages requested.
    290  */
    291 jmp_buf	pipestop;
    292 int
    293 type1(msgvec, doign, page)
    294 	int *msgvec;
    295 	int doign, page;
    296 {
    297 	register *ip;
    298 	register struct message *mp;
    299 	register char *cp;
    300 	int nlines;
    301 	FILE *obuf;
    302 
    303 	obuf = stdout;
    304 	if (setjmp(pipestop))
    305 		goto close_pipe;
    306 	if (value("interactive") != NOSTR &&
    307 	    (page || (cp = value("crt")) != NOSTR)) {
    308 		nlines = 0;
    309 		if (!page) {
    310 			for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++)
    311 				nlines += message[*ip - 1].m_lines;
    312 		}
    313 		if (page || nlines > (*cp ? atoi(cp) : realscreenheight)) {
    314 			cp = value("PAGER");
    315 			if (cp == NULL || *cp == '\0')
    316 				cp = _PATH_MORE;
    317 			obuf = Popen(cp, "w");
    318 			if (obuf == NULL) {
    319 				perror(cp);
    320 				obuf = stdout;
    321 			} else
    322 				signal(SIGPIPE, brokpipe);
    323 		}
    324 	}
    325 	for (ip = msgvec; *ip && ip - msgvec < msgCount; ip++) {
    326 		mp = &message[*ip - 1];
    327 		touch(mp);
    328 		dot = mp;
    329 		if (value("quiet") == NOSTR)
    330 			fprintf(obuf, "Message %d:\n", *ip);
    331 		(void) send(mp, obuf, doign ? ignore : 0, NOSTR);
    332 	}
    333 close_pipe:
    334 	if (obuf != stdout) {
    335 		/*
    336 		 * Ignore SIGPIPE so it can't cause a duplicate close.
    337 		 */
    338 		signal(SIGPIPE, SIG_IGN);
    339 		Pclose(obuf);
    340 		signal(SIGPIPE, SIG_DFL);
    341 	}
    342 	return(0);
    343 }
    344 
    345 /*
    346  * Respond to a broken pipe signal --
    347  * probably caused by quitting more.
    348  */
    349 void
    350 brokpipe(signo)
    351 	int signo;
    352 {
    353 	longjmp(pipestop, 1);
    354 }
    355 
    356 /*
    357  * Print the top so many lines of each desired message.
    358  * The number of lines is taken from the variable "toplines"
    359  * and defaults to 5.
    360  */
    361 int
    362 top(msgvec)
    363 	int *msgvec;
    364 {
    365 	register int *ip;
    366 	register struct message *mp;
    367 	int c, topl, lines, lineb;
    368 	char *valtop, linebuf[LINESIZE];
    369 	FILE *ibuf;
    370 
    371 	topl = 5;
    372 	valtop = value("toplines");
    373 	if (valtop != NOSTR) {
    374 		topl = atoi(valtop);
    375 		if (topl < 0 || topl > 10000)
    376 			topl = 5;
    377 	}
    378 	lineb = 1;
    379 	for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++) {
    380 		mp = &message[*ip - 1];
    381 		touch(mp);
    382 		dot = mp;
    383 		if (value("quiet") == NOSTR)
    384 			printf("Message %d:\n", *ip);
    385 		ibuf = setinput(mp);
    386 		c = mp->m_lines;
    387 		if (!lineb)
    388 			printf("\n");
    389 		for (lines = 0; lines < c && lines <= topl; lines++) {
    390 			if (readline(ibuf, linebuf, LINESIZE) < 0)
    391 				break;
    392 			puts(linebuf);
    393 			lineb = blankline(linebuf);
    394 		}
    395 	}
    396 	return(0);
    397 }
    398 
    399 /*
    400  * Touch all the given messages so that they will
    401  * get mboxed.
    402  */
    403 int
    404 stouch(msgvec)
    405 	int msgvec[];
    406 {
    407 	register int *ip;
    408 
    409 	for (ip = msgvec; *ip != 0; ip++) {
    410 		dot = &message[*ip-1];
    411 		dot->m_flag |= MTOUCH;
    412 		dot->m_flag &= ~MPRESERVE;
    413 	}
    414 	return(0);
    415 }
    416 
    417 /*
    418  * Make sure all passed messages get mboxed.
    419  */
    420 int
    421 mboxit(msgvec)
    422 	int msgvec[];
    423 {
    424 	register int *ip;
    425 
    426 	for (ip = msgvec; *ip != 0; ip++) {
    427 		dot = &message[*ip-1];
    428 		dot->m_flag |= MTOUCH|MBOX;
    429 		dot->m_flag &= ~MPRESERVE;
    430 	}
    431 	return(0);
    432 }
    433 
    434 /*
    435  * List the folders the user currently has.
    436  */
    437 int
    438 folders()
    439 {
    440 	char dirname[BUFSIZ];
    441 	char *cmd;
    442 
    443 	if (getfold(dirname) < 0) {
    444 		printf("No value set for \"folder\"\n");
    445 		return 1;
    446 	}
    447 	if ((cmd = value("LISTER")) == NOSTR)
    448 		cmd = "ls";
    449 	(void) run_command(cmd, 0, -1, -1, dirname, NOSTR, NOSTR);
    450 	return 0;
    451 }
    452