591 lines
11 KiB
C
Executable File
591 lines
11 KiB
C
Executable File
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
|
|
/* All Rights Reserved */
|
|
|
|
/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T */
|
|
/* The copyright notice above does not evidence any */
|
|
/* actual or intended publication of such source code. */
|
|
|
|
#ident "@(#)cmd1.c 1.20 95/07/19 SMI" /* from SVr4.0 1.7.2.3 */
|
|
|
|
#include "rcv.h"
|
|
#include <locale.h>
|
|
|
|
/*
|
|
* mailx -- a modified version of a University of California at Berkeley
|
|
* mail program
|
|
*
|
|
* User commands.
|
|
*/
|
|
|
|
static char *dispname(char *hdr);
|
|
static void print(register struct message *mp, FILE *obuf, int doign);
|
|
static int type1(int *msgvec, int doign, int page);
|
|
static int topputs(const char *line, FILE *obuf);
|
|
|
|
void brokpipe(int sig);
|
|
jmp_buf pipestop;
|
|
|
|
/*
|
|
* Print the current active headings.
|
|
* Don't change dot if invoker didn't give an argument.
|
|
*/
|
|
|
|
static int curscreen = 0, oldscreensize = 0;
|
|
|
|
int
|
|
headers(int *msgvec)
|
|
{
|
|
register int n, mesg, flag;
|
|
register struct message *mp;
|
|
int size;
|
|
|
|
size = screensize();
|
|
n = msgvec[0];
|
|
if (n != 0)
|
|
curscreen = (n-1)/size;
|
|
if (curscreen < 0)
|
|
curscreen = 0;
|
|
mp = &message[curscreen * size];
|
|
if (mp >= &message[msgCount])
|
|
mp = &message[msgCount - size];
|
|
if (mp < &message[0])
|
|
mp = &message[0];
|
|
flag = 0;
|
|
mesg = mp - &message[0];
|
|
if (dot != &message[n-1])
|
|
dot = mp;
|
|
if (Hflag)
|
|
mp = message;
|
|
for (; mp < &message[msgCount]; mp++) {
|
|
mesg++;
|
|
if (mp->m_flag & MDELETED)
|
|
continue;
|
|
if (flag++ >= size && !Hflag)
|
|
break;
|
|
printhead(mesg);
|
|
sreset();
|
|
}
|
|
if (flag == 0) {
|
|
printf(gettext("No more mail.\n"));
|
|
return(1);
|
|
}
|
|
return(0);
|
|
}
|
|
|
|
/*
|
|
* Scroll to the next/previous screen
|
|
*/
|
|
|
|
int
|
|
scroll(char arg[])
|
|
{
|
|
register int s, size;
|
|
int cur[1];
|
|
|
|
cur[0] = 0;
|
|
size = screensize();
|
|
s = curscreen;
|
|
switch (*arg) {
|
|
case 0:
|
|
case '+':
|
|
s++;
|
|
if (s * size > msgCount) {
|
|
printf(gettext("On last screenful of messages\n"));
|
|
return(0);
|
|
}
|
|
curscreen = s;
|
|
break;
|
|
|
|
case '-':
|
|
if (--s < 0) {
|
|
printf(gettext("On first screenful of messages\n"));
|
|
return(0);
|
|
}
|
|
curscreen = s;
|
|
break;
|
|
|
|
default:
|
|
printf(gettext("Unrecognized scrolling command \"%s\"\n"), arg);
|
|
return(1);
|
|
}
|
|
return(headers(cur));
|
|
}
|
|
|
|
/*
|
|
* Compute what the screen size should be.
|
|
* We use the following algorithm:
|
|
* If user specifies with screen option, use that.
|
|
* If baud rate < 1200, use 5
|
|
* If baud rate = 1200, use 10
|
|
* If baud rate > 1200, use 20
|
|
*/
|
|
int
|
|
screensize(void)
|
|
{
|
|
register char *cp;
|
|
register int newscreensize, tmp;
|
|
#ifdef TIOCGWINSZ
|
|
struct winsize ws;
|
|
#endif
|
|
|
|
if ((cp = value("screen")) != NOSTR && (tmp = atoi(cp)) > 0)
|
|
newscreensize = tmp;
|
|
else if (baud < B1200)
|
|
newscreensize = 5;
|
|
else if (baud == B1200)
|
|
newscreensize = 10;
|
|
#ifdef TIOCGWINSZ
|
|
else if (ioctl(fileno(stdout), TIOCGWINSZ, &ws) == 0 && ws.ws_row > 4)
|
|
newscreensize = ws.ws_row - 4;
|
|
#endif
|
|
else
|
|
newscreensize = 20;
|
|
/* renormalize the value of curscreen */
|
|
if (newscreensize != oldscreensize) {
|
|
curscreen = curscreen * oldscreensize / newscreensize;
|
|
oldscreensize = newscreensize;
|
|
}
|
|
return(newscreensize);
|
|
}
|
|
|
|
/*
|
|
* Print out the headlines for each message
|
|
* in the passed message list.
|
|
*/
|
|
|
|
int
|
|
from(int *msgvec)
|
|
{
|
|
register int *ip;
|
|
|
|
for (ip = msgvec; *ip != NULL; ip++) {
|
|
printhead(*ip);
|
|
sreset();
|
|
}
|
|
if (--ip >= msgvec)
|
|
dot = &message[*ip - 1];
|
|
return(0);
|
|
}
|
|
|
|
/*
|
|
* Print out the header of a specific message.
|
|
* This is a slight improvement to the standard one.
|
|
*/
|
|
|
|
void
|
|
printhead(int mesg)
|
|
{
|
|
struct message *mp;
|
|
FILE *ibuf;
|
|
char headline[LINESIZE], *subjline, dispc, curind;
|
|
char *fromline;
|
|
char pbuf[LINESIZE];
|
|
char name[LINESIZE];
|
|
struct headline hl;
|
|
register char *cp;
|
|
int showto;
|
|
|
|
mp = &message[mesg-1];
|
|
ibuf = setinput(mp);
|
|
readline(ibuf, headline);
|
|
if ((subjline = hfield("subject", mp, addone)) == NOSTR
|
|
&& (subjline = hfield("subj", mp, addone)) == NOSTR
|
|
&& (subjline = hfield("message-status", mp, addone)) == NOSTR)
|
|
subjline = "";
|
|
|
|
curind = (!Hflag && dot == mp) ? '>' : ' ';
|
|
dispc = ' ';
|
|
showto = 0;
|
|
if ((mp->m_flag & (MREAD|MNEW)) == (MREAD|MNEW))
|
|
dispc = 'R';
|
|
if (!(int)value("bsdcompat") && (mp->m_flag & (MREAD|MNEW)) == MREAD)
|
|
dispc = 'O';
|
|
if ((mp->m_flag & (MREAD|MNEW)) == MNEW)
|
|
dispc = 'N';
|
|
if ((mp->m_flag & (MREAD|MNEW)) == 0)
|
|
dispc = 'U';
|
|
if (mp->m_flag & MSAVED)
|
|
if ((int)value("bsdcompat"))
|
|
dispc = '*';
|
|
else
|
|
dispc = 'S';
|
|
if (mp->m_flag & MPRESERVE)
|
|
if ((int)value("bsdcompat"))
|
|
dispc = 'P';
|
|
else
|
|
dispc = 'H';
|
|
if (mp->m_flag & MBOX)
|
|
dispc = 'M';
|
|
parse(headline, &hl, pbuf);
|
|
if (hl.l_date == NOSTR)
|
|
hl.l_date = "<Unknown date>";
|
|
|
|
/*
|
|
* Netnews interface?
|
|
*/
|
|
|
|
if (newsflg) {
|
|
if ( (fromline=hfield("newsgroups",mp,addone)) == NOSTR /* A */
|
|
&& (fromline=hfield("article-id",mp,addone)) == NOSTR ) /* B */
|
|
fromline = "<>";
|
|
else
|
|
for(cp=fromline; *cp; cp++) { /* limit length */
|
|
if( any(*cp, " ,\n")){
|
|
*cp = '\0';
|
|
break;
|
|
}
|
|
}
|
|
/*
|
|
* else regular.
|
|
*/
|
|
|
|
} else {
|
|
fromline = nameof(mp);
|
|
if (value("showto") && samebody(myname, skin(fromline))
|
|
&& (cp = hfield("to", mp, addto))) {
|
|
showto = 1;
|
|
yankword(cp, fromline = name, docomma(cp));
|
|
}
|
|
if (value("showname"))
|
|
fromline = dispname(fromline);
|
|
else
|
|
fromline = skin(fromline);
|
|
}
|
|
printf("%c%c%3d ", curind, dispc, mesg);
|
|
if ((int)value("showfull")) {
|
|
if (showto)
|
|
printf("To %-15s ", fromline);
|
|
else
|
|
printf("%-18s ", fromline);
|
|
} else {
|
|
if (showto)
|
|
printf("To %-15.15s ", fromline);
|
|
else
|
|
printf("%-18.18s ", fromline);
|
|
}
|
|
if (mp->m_text) {
|
|
printf("%16.16s %4ld/%-5ld %-.25s\n",
|
|
hl.l_date, mp->m_lines, mp->m_size, subjline);
|
|
} else {
|
|
printf("%16.16s binary/%-5ld %-.25s\n", hl.l_date, mp->m_size, subjline);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Return the full name from an RFC-822 header line
|
|
* or the last two (or one) component of the address.
|
|
*/
|
|
|
|
static char *
|
|
dispname(char *hdr)
|
|
{
|
|
char *cp, *cp2;
|
|
|
|
if (hdr == 0)
|
|
return 0;
|
|
if (((cp = strchr(hdr, '<')) != 0) && (cp > hdr)) {
|
|
*cp = 0;
|
|
if ((*hdr == '"') && ((cp = strrchr(++hdr, '"')) != 0))
|
|
*cp = 0;
|
|
return hdr;
|
|
} else if ((cp = strchr(hdr, '(')) != 0) {
|
|
hdr = ++cp;
|
|
if ((cp = strchr(hdr, '+')) != 0)
|
|
*cp = 0;
|
|
if ((cp = strrchr(hdr, ')')) != 0)
|
|
*cp = 0;
|
|
return hdr;
|
|
}
|
|
cp = skin(hdr);
|
|
if ((cp2 = strrchr(cp, '!')) != 0) {
|
|
while (cp2 >= cp && *--cp2 != '!');
|
|
cp = ++cp2;
|
|
}
|
|
return cp;
|
|
}
|
|
|
|
/*
|
|
* Print out the value of dot.
|
|
*/
|
|
|
|
int
|
|
pdot(void)
|
|
{
|
|
printf("%d\n", dot - &message[0] + 1);
|
|
return(0);
|
|
}
|
|
|
|
/*
|
|
* Print out all the possible commands.
|
|
*/
|
|
|
|
int
|
|
pcmdlist(void)
|
|
{
|
|
register const struct cmd *cp;
|
|
register int cc;
|
|
|
|
printf("Commands are:\n");
|
|
for (cc = 0, cp = cmdtab; cp->c_name != NULL; cp++) {
|
|
cc += strlen(cp->c_name) + 2;
|
|
if (cc > 72) {
|
|
printf("\n");
|
|
cc = strlen(cp->c_name) + 2;
|
|
}
|
|
if ((cp+1)->c_name != NOSTR)
|
|
printf("%s, ", cp->c_name);
|
|
else
|
|
printf("%s\n", cp->c_name);
|
|
}
|
|
return(0);
|
|
}
|
|
|
|
/*
|
|
* Paginate messages, honor ignored fields.
|
|
*/
|
|
int
|
|
more(int *msgvec)
|
|
{
|
|
return (type1(msgvec, 1, 1));
|
|
}
|
|
|
|
/*
|
|
* Paginate messages, even printing ignored fields.
|
|
*/
|
|
int
|
|
More(int *msgvec)
|
|
{
|
|
|
|
return (type1(msgvec, 0, 1));
|
|
}
|
|
|
|
/*
|
|
* Type out messages, honor ignored fields.
|
|
*/
|
|
int
|
|
type(int *msgvec)
|
|
{
|
|
|
|
return(type1(msgvec, 1, 0));
|
|
}
|
|
|
|
/*
|
|
* Type out messages, even printing ignored fields.
|
|
*/
|
|
int
|
|
Type(int *msgvec)
|
|
{
|
|
|
|
return(type1(msgvec, 0, 0));
|
|
}
|
|
|
|
/*
|
|
* Type out the messages requested.
|
|
*/
|
|
static int
|
|
type1(int *msgvec, int doign, int page)
|
|
{
|
|
register *ip;
|
|
register struct message *mp;
|
|
register int mesg;
|
|
register char *cp;
|
|
long nlines;
|
|
FILE *obuf;
|
|
void (*sigint)(int), (*sigpipe)(int);
|
|
int setsigs = 0;
|
|
|
|
obuf = stdout;
|
|
if (setjmp(pipestop)) {
|
|
if (obuf != stdout) {
|
|
pipef = NULL;
|
|
npclose(obuf);
|
|
}
|
|
goto ret0;
|
|
}
|
|
if (intty && outtty && (page || (cp = value("crt")) != NOSTR)) {
|
|
if (!page) {
|
|
nlines = 0;
|
|
for (ip = msgvec, nlines = 0;
|
|
*ip && ip-msgvec < msgCount; ip++)
|
|
nlines += message[*ip - 1].m_lines;
|
|
}
|
|
if (page ||
|
|
nlines > (*cp == '\0' ? screensize() - 2 : atoi(cp))) {
|
|
obuf = npopen(MORE, "w");
|
|
if (obuf == NULL) {
|
|
perror(MORE);
|
|
obuf = stdout;
|
|
} else {
|
|
pipef = obuf;
|
|
sigint = sigset(SIGINT, SIG_IGN);
|
|
sigpipe = sigset(SIGPIPE, brokpipe);
|
|
setsigs++;
|
|
}
|
|
}
|
|
}
|
|
for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++) {
|
|
mesg = *ip;
|
|
touch(mesg);
|
|
mp = &message[mesg-1];
|
|
dot = mp;
|
|
print(mp, obuf, doign);
|
|
}
|
|
if (obuf != stdout) {
|
|
pipef = NULL;
|
|
npclose(obuf);
|
|
}
|
|
ret0:
|
|
if (setsigs) {
|
|
sigset(SIGPIPE, sigpipe);
|
|
sigset(SIGINT, sigint);
|
|
}
|
|
return(0);
|
|
}
|
|
|
|
/*
|
|
* Respond to a broken pipe signal --
|
|
* probably caused by user quitting more.
|
|
*/
|
|
void
|
|
#ifdef __cplusplus
|
|
brokpipe(int)
|
|
#else
|
|
/* ARGSUSED */
|
|
brokpipe(int s)
|
|
#endif
|
|
{
|
|
# ifdef OLD_BSD_SIGS
|
|
sigrelse(SIGPIPE);
|
|
# endif
|
|
longjmp(pipestop, 1);
|
|
}
|
|
|
|
/*
|
|
* Print the indicated message on standard output.
|
|
*/
|
|
|
|
static void
|
|
print(register struct message *mp, FILE *obuf, int doign)
|
|
{
|
|
|
|
if (value("quiet") == NOSTR && (!doign || !isign("message", 0)))
|
|
fprintf(obuf, "Message %2d:\n", mp - &message[0] + 1);
|
|
touch(mp - &message[0] + 1);
|
|
if (mp->m_text) {
|
|
(void) msend(mp, obuf, doign ? M_IGNORE : 0, fputs);
|
|
} else {
|
|
fprintf(obuf, "\n%s\n", gettext(binmsg));
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Print the top so many lines of each desired message.
|
|
* The number of lines is taken from the variable "toplines"
|
|
* and defaults to 5.
|
|
*/
|
|
|
|
static long top_linecount, top_maxlines, top_lineb;
|
|
static jmp_buf top_buf;
|
|
|
|
int
|
|
top(int *msgvec)
|
|
{
|
|
register int *ip;
|
|
register struct message *mp;
|
|
register int mesg;
|
|
char *valtop;
|
|
|
|
top_maxlines = 5;
|
|
valtop = value("toplines");
|
|
if (valtop != NOSTR) {
|
|
top_maxlines = atoi(valtop);
|
|
if (top_maxlines < 0 || top_maxlines > 10000)
|
|
top_maxlines = 5;
|
|
}
|
|
top_lineb = 1;
|
|
for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++) {
|
|
mesg = *ip;
|
|
touch(mesg);
|
|
mp = &message[mesg-1];
|
|
dot = mp;
|
|
if (value("quiet") == NOSTR)
|
|
printf("Message %2d:\n", mesg);
|
|
if (!top_lineb)
|
|
printf("\n");
|
|
top_linecount = 0;
|
|
if (setjmp(top_buf) == 0) {
|
|
if (mp->m_text) {
|
|
(void) msend(mp, stdout, M_IGNORE,
|
|
topputs);
|
|
} else {
|
|
printf("\n%s\n", gettext(binmsg));
|
|
}
|
|
}
|
|
}
|
|
return(0);
|
|
}
|
|
|
|
int
|
|
topputs(const char *line, FILE *obuf)
|
|
{
|
|
if (top_linecount++ >= top_maxlines)
|
|
longjmp(top_buf, 1);
|
|
top_lineb = blankline(line);
|
|
return(fputs(line, obuf));
|
|
}
|
|
|
|
/*
|
|
* Touch all the given messages so that they will
|
|
* get mboxed.
|
|
*/
|
|
|
|
int
|
|
stouch(int msgvec[])
|
|
{
|
|
register int *ip;
|
|
|
|
for (ip = msgvec; *ip != 0; ip++) {
|
|
dot = &message[*ip-1];
|
|
dot->m_flag |= MTOUCH;
|
|
dot->m_flag &= ~MPRESERVE;
|
|
}
|
|
return(0);
|
|
}
|
|
|
|
/*
|
|
* Make sure all passed messages get mboxed.
|
|
*/
|
|
|
|
int
|
|
mboxit(int msgvec[])
|
|
{
|
|
register int *ip;
|
|
|
|
for (ip = msgvec; *ip != 0; ip++) {
|
|
dot = &message[*ip-1];
|
|
dot->m_flag |= MTOUCH|MBOX;
|
|
dot->m_flag &= ~MPRESERVE;
|
|
}
|
|
return(0);
|
|
}
|
|
|
|
/*
|
|
* List the folders the user currently has.
|
|
*/
|
|
int
|
|
folders(char **arglist)
|
|
{
|
|
char dirname[BUFSIZ], cmd[BUFSIZ];
|
|
|
|
if (getfold(dirname) < 0) {
|
|
printf(gettext("No value set for \"folder\"\n"));
|
|
return(-1);
|
|
}
|
|
if (*arglist) {
|
|
strcat(dirname, "/");
|
|
strcat(dirname, *arglist);
|
|
}
|
|
sprintf(cmd, "%s %s", LS, dirname);
|
|
return(system(cmd));
|
|
}
|